Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Run-time error 3061

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
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Pierre CFI
oui, envoie moi ton mél (enleve les xxx à mon adresse) je t'envoie la base
modifiée
il faut que la source de l'état soit le sql de ta requete, puis supprimer
les criteres dans la req


--
Pierre CFI
"A COSTA" a écrit dans le message de
news:
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'oil.
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

































Avatar
Pierre CFI
la base

http://cjoint.com/?elkH3NJ7r3

--
Pierre CFI
"A COSTA" a écrit dans le message de
news:
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'oil.
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

































Avatar
A COSTA
Bonjour et un trés grand merci.
Je n'arrive pas à ouvrir la bd.
Pourriez-vous me l'envoyer à mon adresse e-mail ?

Merci d'avance
A. Costa


la base

http://cjoint.com/?elkH3NJ7r3

--
Pierre CFI
"A COSTA" a écrit dans le message de
news:
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'oil.
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