Run-time error 3061

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
A COSTA
Le #6350861
Re-Bonjour,
Pour mieux m'expliquer, voir le fichier ci-joint.
Merci à tous
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



A COSTA
Le #6350851
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



Pierre CFI
Le #6350831
bonjour
il faut pas mettre de critere dans la req, toutes dans ton code

--
Pierre CFI
"A COSTA" news:
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





A COSTA
Le #6350821
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" news:
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










Pierre CFI
Le #6350811
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" 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. Costa


bonjour
il faut pas mettre de critere dans la req, toutes dans ton code

--
Pierre CFI
"A COSTA" news:
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












A COSTA
Le #6350801
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" 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. Costa


bonjour
il faut pas mettre de critere dans la req, toutes dans ton code

--
Pierre CFI
"A COSTA" news:
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

















Pierre CFI
Le #6350771
enleve
and [Nr]= " & [Nr] & " and [PayeSN] >> false")

"A COSTA" 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. 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" 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. Costa


bonjour
il faut pas mettre de critere dans la req, toutes dans ton code

--
Pierre CFI
"A COSTA" de
news:
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



















A COSTA
Le #6350761
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" 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. 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" 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. Costa


bonjour
il faut pas mettre de critere dans la req, toutes dans ton code

--
Pierre CFI
"A COSTA" de
news:
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
























Pierre CFI
Le #6350741
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" 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. Costa



enleve
and [Nr]= " & [Nr] & " and [PayeSN] >> >> false")

"A COSTA" 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. 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" 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. Costa


bonjour
il faut pas mettre de critere dans la req, toutes dans ton code

--
Pierre CFI
"A COSTA" message
de
news:
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


























A COSTA
Le #6350611
Bonjour,
Je m'excuse mais le problème continue.
Mon but c'est faire une liste des associés sélectionnés à l'aide du form
"frm-selection" et avoir l'indication des années à payer.
Avec les commands que j'ai déjà essayé, même après la sélection j'ai tous
les associés.
J'envoi le fichier pour que vous puissiez jeter un coup d'œil.
http://cjoint.com/?eliROqJLHv
Merci d'avance
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" 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. Costa



enleve
and [Nr]= " & [Nr] & " and [PayeSN] > >> >> false")

"A COSTA" 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. 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" 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. Costa


bonjour
il faut pas mettre de critere dans la req, toutes dans ton code

--
Pierre CFI
"A COSTA" message
de
news:
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































Publicité
Poster une réponse
Anonyme