Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: A8EDD916-45A6-4668-B85F-F3E734D382DC@microsoft.com...
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) - 2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: A8EDD916-45A6-4668-B85F-F3E734D382DC@microsoft.com...
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and [PayeSN]=
false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and [PayeSN]=
false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 6E4CFF07-B3C3-498B-B9EF-82D847E0D7D1@microsoft.com...
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: A8EDD916-45A6-4668-B85F-F3E734D382DC@microsoft.com...
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and [PayeSN]=
false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An, Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ List_An
seulement dans l'assoctié choisi dans le form.
A. Costa
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 6E4CFF07-B3C3-498B-B9EF-82D847E0D7D1@microsoft.com...
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message
de
news: A8EDD916-45A6-4668-B85F-F3E734D382DC@microsoft.com...
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
enleve
and [Nr]= " & [Nr] & " and [PayeSN] > >> false")
"A COSTA" a écrit dans le message de
news:Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] > >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
enleve
and [Nr]= " & [Nr] & " and [PayeSN] > >> false")
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 620B841E-B231-4D70-B683-87CF9F6BCFF9@microsoft.com...
Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ List_An
seulement dans l'assoctié choisi dans le form.
A. Costa
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] > >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 6E4CFF07-B3C3-498B-B9EF-82D847E0D7D1@microsoft.com...
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message
de
news: A8EDD916-45A6-4668-B85F-F3E734D382DC@microsoft.com...
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
enleve
and [Nr]= " & [Nr] & " and [PayeSN] > >> false")
"A COSTA" a écrit dans le message de
news:Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] > >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Peut-etre je ne me suis pas bien exprimé ....
Je voudrais lister seulement les associées selon la selection faite (p.
ex.
entre le 4 et le 6) et avec indication des années à payer.
Les années à payer je les ai avec "Set Rst_An > CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
"
Il me manque la selection.
Un gand merci
A. Costaenleve
and [Nr]= " & [Nr] & " and [PayeSN] >> >> false")
"A COSTA" a écrit dans le message de
news:Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ
List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] >> >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le
message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Peut-etre je ne me suis pas bien exprimé ....
Je voudrais lister seulement les associées selon la selection faite (p.
ex.
entre le 4 et le 6) et avec indication des années à payer.
Les années à payer je les ai avec "Set Rst_An > CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
"
Il me manque la selection.
Un gand merci
A. Costa
enleve
and [Nr]= " & [Nr] & " and [PayeSN] >> >> false")
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 620B841E-B231-4D70-B683-87CF9F6BCFF9@microsoft.com...
Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ
List_An
seulement dans l'assoctié choisi dans le form.
A. Costa
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] >> >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message
de
news: 6E4CFF07-B3C3-498B-B9EF-82D847E0D7D1@microsoft.com...
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le
message
de
news: A8EDD916-45A6-4668-B85F-F3E734D382DC@microsoft.com...
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
Peut-etre je ne me suis pas bien exprimé ....
Je voudrais lister seulement les associées selon la selection faite (p.
ex.
entre le 4 et le 6) et avec indication des années à payer.
Les années à payer je les ai avec "Set Rst_An > CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
"
Il me manque la selection.
Un gand merci
A. Costaenleve
and [Nr]= " & [Nr] & " and [PayeSN] >> >> false")
"A COSTA" a écrit dans le message de
news:Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ
List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] >> >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le
message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
c'est une histoire de paranthése, mais je suis plus devant mon pc
essaie
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Situation Between " &
Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and ([Nr]= " & [Nr] & " and
[PayeSN]= false)")
mais, bon, j'ai plus ta base sous les yeux
"A COSTA" a écrit dans le message de
news:Peut-etre je ne me suis pas bien exprimé ....
Je voudrais lister seulement les associées selon la selection faite (p.
ex.
entre le 4 et le 6) et avec indication des années à payer.
Les années à payer je les ai avec "Set Rst_An > > CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
"
Il me manque la selection.
Un gand merci
A. Costaenleve
and [Nr]= " & [Nr] & " and [PayeSN] > >> >> false")
"A COSTA" a écrit dans le message de
news:Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ
List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] > >> >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le
message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
c'est une histoire de paranthése, mais je suis plus devant mon pc
essaie
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Situation Between " &
Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and ([Nr]= " & [Nr] & " and
[PayeSN]= false)")
mais, bon, j'ai plus ta base sous les yeux
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: E2421DA5-0318-4137-AED3-C906D8AEFFE9@microsoft.com...
Peut-etre je ne me suis pas bien exprimé ....
Je voudrais lister seulement les associées selon la selection faite (p.
ex.
entre le 4 et le 6) et avec indication des années à payer.
Les années à payer je les ai avec "Set Rst_An > > CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
"
Il me manque la selection.
Un gand merci
A. Costa
enleve
and [Nr]= " & [Nr] & " and [PayeSN] > >> >> false")
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news: 620B841E-B231-4D70-B683-87CF9F6BCFF9@microsoft.com...
Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ
List_An
seulement dans l'assoctié choisi dans le form.
A. Costa
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] > >> >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message
de
news: 6E4CFF07-B3C3-498B-B9EF-82D847E0D7D1@microsoft.com...
Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costa
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le
message
de
news: A8EDD916-45A6-4668-B85F-F3E734D382DC@microsoft.com...
http://cjoint.com/?ekpaGhWbM6
Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa
c'est une histoire de paranthése, mais je suis plus devant mon pc
essaie
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Situation Between " &
Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and ([Nr]= " & [Nr] & " and
[PayeSN]= false)")
mais, bon, j'ai plus ta base sous les yeux
"A COSTA" a écrit dans le message de
news:Peut-etre je ne me suis pas bien exprimé ....
Je voudrais lister seulement les associées selon la selection faite (p.
ex.
entre le 4 et le 6) et avec indication des années à payer.
Les années à payer je les ai avec "Set Rst_An > > CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
"
Il me manque la selection.
Un gand merci
A. Costaenleve
and [Nr]= " & [Nr] & " and [PayeSN] > >> >> false")
"A COSTA" a écrit dans le message de
news:Merci Pierre
Je voudrais avoir seulement les associées choisis dans le form
frm_situation.
Avec ces codes j'ai tout le monde mais des données dans le champ
List_An
seulement dans l'assoctié choisi dans le form.
A. CostaSet Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where (Associe.Situation Between " &
[Forms]![Frm_Situation]![Combo0] & " And " &
[Forms]![Frm_Situation]![Combo1] & ") and [Nr]= " & [Nr] & " and
[PayeSN] > >> >> false")
et tu enleves les crit dans la req
--
Pierre CFI
"A COSTA" a écrit dans le message
de
news:Merci Pierre
Ici ?
" Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false") "
Et comment dois-je le mettre ?
Je ne connais pas grand chose de vba.
Merci d'avance
A. Costabonjour
il faut pas mettre de critere dans la req, toutes dans ton code
--
Pierre CFI
"A COSTA" a écrit dans le
message
de
news:http://cjoint.com/?ekpaGhWbM6Bonjour,
J'essaie d'ouvrir un Report avec des conditions dans la query
correspondante
"Between [forms]![Frm_Situation]![Combo0] And
[forms]![Frm_Situation]![Combo1].
Dans le Report j'ai ces codes :
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Frm_Situation", , , , , acDialog, "Test"
If Not IsLoaded("Frm_Situation") Then
Cancel = True
End If
DoCmd.Maximize
End Sub
Private Sub GroupHeader0_Print(Cancel As Integer, PrintCount As
Integer)
Dim Rst_An As Dao.Recordset
Set Rst_An = CurrentDb.openrecordset("Select Annee FROM
Query_Cotisation Where [Nr]= " & [Nr] & " and [PayeSN]= false")
Liste_An = ""
While Not Rst_An.EOF
Liste_An = Liste_An & Year(Rst_An("Annee")) & "; "
Rst_An.MoveNext
Wend
If Liste_An <> "" Then Liste_An = Left(Liste_An,
Len(Liste_An) -
2)
End Sub
Si j'enleve les conditions de la query ça marche trés bien sinon
j'ai
le
message :
"Run-time error 3061
Too few parameters. Expected 2."
Merci pour votre aide.
A. Costa