Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Run-time error 3061

13 réponses
Avatar
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

10 réponses

1 2
Avatar
A COSTA
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



Avatar
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



Avatar
Pierre CFI
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/?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





Avatar
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" a écrit dans le 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










Avatar
Pierre CFI
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. 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/?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












Avatar
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" 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. 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/?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

















Avatar
Pierre CFI
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. 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. 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/?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



















Avatar
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" 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. 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. 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/?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
























Avatar
Pierre CFI
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. 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. 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. 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/?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


























Avatar
A COSTA
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" 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. 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. 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. 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/?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































1 2