Discussion :

[schwinny]

n'est il pas possible de faire cela en access?

Code :

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

1
2
If (DoCmd.RunSQL(RequeteSQL_FCT)) Then MajExploitant = True Else MajExploitant = False
            End If

il me marque un message d'erreur

[random]

if condition logique alors ceci

docmd.run sql n'est pas une condition logique mais une méthode et ne renvoie pas de valeur

par contre tu peux utiliser des sous requêtes

Code :

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

1
2
UPDATE majexploitant SET majexploitant = (select count(truc) from machin 
where truc<4)>5;

[schwinny]

Code :

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

RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = '" & Nom_FCT & "', Exploitants.Prenom = '" & Prenom_FCT & "', Exploitants.EVV = '" & EVV_FCT & "', Exploitants.DateNaissance = '" & DateNaissance_FCT & "', Exploitants.Adresse = '" & Adresse_FCT & "', Exploitants.CodePostal = '" & CodePostal_FCT & "', Exploitants.Commune = '" & Commune_FCT & "', Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = '" & Courriel_FCT & "', Exploitants.DossierHorsPlan = " & DossierHorsPlan_FCT & ", Exploitants.Commentaires = '" & Commentaires_FCT & "' WHERE Exploitants.CodeExploitant=" & CodeExploitant_FCT & ""

Voila ma requete.
en fait je veux juste tster si elle s'execute bien..

[tribaleur]

Salut.

Est-ce que quelque chose du genre pourrais fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
       'Permet de dire que si une erreur survien tu passe à l'instruction suivante
       On Error Resume Next
       'execution de ta requete
       RequeteSQL_FCT = "UPDATE Exploitants SET Exploitants.Nom = '" & Nom_FCT & "', Exploitants.Prenom = '" & Prenom_FCT & "', Exploitants.EVV = '" & EVV_FCT & "', Exploitants.DateNaissance = '" & DateNaissance_FCT & "', Exploitants.Adresse = '" & Adresse_FCT & "', Exploitants.CodePostal = '" & CodePostal_FCT & "', Exploitants.Commune = '" & Commune_FCT & "', Exploitants.Telephone = " & Telephone_FCT & ", Exploitants.Fax = " & Fax_FCT & ", Exploitants.Courriel = '" & Courriel_FCT & "', Exploitants.DossierHorsPlan = " & DossierHorsPlan_FCT & ", Exploitants.Commentaires = '" & Commentaires_FCT & "' WHERE Exploitants.CodeExploitant=" & CodeExploitant_FCT & ""
        'on test si une erreur est survenut
        If Err <> 0 Then
            'on traite l'erreur
            MsgBox "Erreur d'éxecution de la requete"
            Exit Sub
        End If

Mais je ne suis pas sur que le Docmd.RunSql renvoie une erreur si la requete s'éxecute mal.

[Kloun]

Faut plutôt utiliser ça :

Code :

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

currentdb.execute LaRequeteUpdate, dbFailOnError