Discussion :

[deglingo37]

Bonjour tout le monde,
Je vous sollicite car j'ai un problème avec du code VBA et je n'arrive pas a trouver la solution.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim sSQL As String
Dim v1 As String
v1 = 0
Set db = CurrentDb
sSQL = "Select * From RFicheOrganisationNumForm"
Set rst = db.OpenRecordset(sSQL)
rst.MoveFirst
Do Until rst.EOF
v1 = v1 + rst!NbStagiaires
rst.MoveNext
Loop
Set rst = Nothing

et mon erreur se situent sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rst = db.OpenRecordset(sSQL)

Ma requete "RFicheOrganisationNumForm" affiche les enregistrements qui comportent le meme NumForm que mon formulaire actif. Mon but etant d'additionner le nombre de stagiaires de chaque enregistrement dans ma variable v1.
Voila je pense avoir été clair mais n'hesitez pas à me poser des questions. Si vous voyez un autre moyen de parvenir à faire l'addition de mes stagiaires je suis preneur aussi

Merci!

[milia]

Je ne suis vraiment pas sûr mais tu n'aurais pas oublier le point virgule dans ta requête?

[Mahefasoa]

Essaye d'ajouter un ";" à la fin de l'instruction SQL!

[Greg84]

Bonsoir j'ai également le même message d'erreur avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim test As String
sdat = DateSerial(Year(Now), Month(Now), Day(Now))
 
myvar = [Forms]![Saisie AFCS  0706]![Réference Client]
myvar1 = [Forms]![Saisie AFCS  0706]![Montant]
myvar2 = [Forms]![Saisie AFCS  0706]![fdetail]
 
 
test = "insert into [Autres Frais Correspondants] ( Numéro,[Autres Frais Correspondants / Valeurs cumulées],[Autres Frais Correspondants / Détails],FGAR, Swift, Mois,[Date saisie] ) VALUES (" & myvar & "," & myvar1 & "," & myvar2 & ",'0706'," & sdat & ")"
 
CurrentDb().Execute test

Alors que je ne l'ai pas avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim test As String
sdat = DateSerial(Year(Now), Month(Now), Day(Now))
 
myvar = [Forms]![Saisie AFCS  0706]![Réference Client]
myvar1 = [Forms]![Saisie AFCS  0706]![Montant]
myvar2 = [Forms]![Saisie AFCS  0706]![fdetail]
 
 
test = "insert into [Autres Frais Correspondants] ( Numéro,[Autres Frais Correspondants / Valeurs cumulées],[Autres Frais Correspondants / Détails],FGAR, Swift, Mois,[Date saisie] ) VALUES (" & myvar & "," & myvar1 & "," & myvar1 & ",'0706'," & sdat & ")"
 
CurrentDb().Execute test

Quelqu'un pourrait il me dire d'ou vient mon probléme?

Sachant que les données des champs Réference client et montant sont numérique celu ide fdétail est du texte?

[keita]

salut
essaie comme ça pour voir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sSQL = "Select RFicheOrganisationNumForm.* From RFicheOrganisationNumForm;"

@+

[guigui5931]

Moi quand j'ai une ereur de ce type c'et que j'ai une faute dans l'instruction SQL. Tu es sur qu'elle est correcte, qu'il n'y a pas de fautes dans le nom de la requete. Essaye de créer une reqete ACCESS et de coller ta requete dans le mode SQL pour voir si lui il en veut bien

[Invité]

Salut Deglingo37 (drôle de pseudo )

Plutôt que d'utiliser ton code qui ne fonctionne pas, pourquoi n'utilises tu pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

V1 = DSum("NbStagiaires","RFicheOrganisationNumForm")

ce qui est beaucoup plus rapide que de faire un seek dans ta table et d'additionner chaque valeur

A+

[deglingo37]

Bonjour tout le monde,

j'ai lu avec attention l'ensemble de vos réponses.

Je ne suis vraiment pas sûr mais tu n'aurais pas oublier le point virgule dans ta requête?

Après ca j'obtient la meme erreur.

essaie comme ça pour voir:

Code :
sSQL = "Select RFicheOrganisationNumForm.* From RFicheOrganisationNumForm;"

Idem

Moi quand j'ai une ereur de ce type c'et que j'ai une faute dans l'instruction SQL. Tu es sur qu'elle est correcte, qu'il n'y a pas de fautes dans le nom de la requete. Essaye de créer une reqete ACCESS et de coller ta requete dans le mode SQL pour voir si lui il en veut bien

Alors la je suis pas sur d'avoir compris ce que tu me demandé mais j'ai fait ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim sSQL As String
Dim v1 As String
v1 = 0
Set db = CurrentDb
sSQL = "SELECT TOperation.NumFormation, TOperation.NumOperation, TOperation.NbStagiaires FROM TOperation WHERE (((TOperation.NumFormation)=[forms]![FFicheOrganisation]![NumFormation]));"
Set rst = db.OpenRecordset(sSQL)
rst.MoveFirst
Do Until rst.EOF
v1 = v1 + rst!NbStagiaires
rst.MoveNext
Loop
Set rst = Nothing

Et malheuresement j'ai toujours la même erreur , et le plus étonant c'est que ma requete fonctionne quand le clique dessus elle renvoi bien des enregistrements.

Je continu à chercher, je pense que je vais transformer ma requete en requete ajout dans une table pour ensuite baser mon recordset sur cette table. Je vous tient au courant!

[Mariboo]

Ecris plutôt ça ( en gras les changements) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim requete as DAO.queryDef
Dim sSQL As String
Dim v1 As String
v1 = 0
Set db = CurrentDb
Set requete = db.createQueryDef("","Select ........;")
Set rst = requete.OpenRecordset()
rst.MoveFirst
Do Until rst.EOF
v1 = v1 + rst!NbStagiaires
rst.MoveNext
Loop
Set rst = Nothing

[deglingo37]

Plutôt que d'utiliser ton code qui ne fonctionne pas, pourquoi n'utilises tu pas :

Code :
V1 = DSum("NbStagiaires
","RFicheOrganisationNumForm")

Effectivement ca marche !! Trop fort! Des fois j'ai l'impression de me compliquer la vie

Merci à tous pour toute ces réponses !!

PS : J'ai bien pris des modifications en compte mariboo je garde la syntaxe sous le coude au cas ou j'en et besoin.

[gunico]

bonjour,

ce serait intéressant de voir le SQL de ta requête : en effet, tu dis qu'elle fait référence à une valeur placée dans le formulaire actif, et c'est sûrement cette référence qui plante.

Par exemple, voici le SQL de ta requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM Table1 WHERE (Champ1 = [Formulaires]![MonForm]![Controle1]);

et ce que tu devrais faire dans ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sSQL = "SELECT * " & _
  "FROM Table1 " & _
  "WHERE (Champ1 = " & Forms("MonForm").Controls("Controle1").Value & ");"

à plus,

gunico

[Tofalu]

Une requête DAO ne peut pas faire appel à un controle directement dans son code SQL. Il faut concaténer la valeur du controle dans la source du recordset :

Avant :

"SELECT * FROM Client WHERE numClient=Forms![FrmClients]![Client]"

Maintenant

"SELECT * FROM Client WHERE numClient=" & Forms![FrmClients]![Client]

Sans oublier le mot clé Me faisant référence au formulaire où s'éxecute le code. Faire attention aussi au type du champ, s'il s'agit d'un texte, il faut encadrer la valeur avec "", si c'est une date avec # (en la formatant au format américain)

[deglingo37]

D'accord, je pense avoir compris. En fait y'a quelque modifications en VBA. Je reste avec la methode de bruno mais j'ai bien noté la syntaxe à adopter si un jour j'en ai besoin.

Un grand merci

[BAYRAL]

Bonjour,

J'ai le même problème que certaines personnes en ACCESS 2010

ci-joint mon code qui plante sur la ligne : Mon problème arrive sur la ligne db.execute strRequete, dbFailOnError

Merci pour votre aide, je ne trouves pas

[madefemere]

Bonsoir,

Je te conseille d'afficher ce que contient ton StrSQL avec un Debug.print ou un MsgBox avant l'exécution de la requête pour voir ce que ce qui est renvoyé correspond à un code SQL correct.

Cordialement,