Discussion :

[SIGER_971]

Bonjour tout le monde

J'ai un tout petit problème !
Lorsque je fais la mise à jour de ma table via mon formulaire, tout se passe bien selon le logiciel, mais lorsque je vais voir ma table, rien n'a changé !

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DoCmd.RunSQL ("Update Fournisseur 
Set Contact_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(2) & "', 
Tel_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(4) & "', 
Fax_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(5) & "', 
E_mail_contact = '" & Me.Liste_fourn_pr_modif.Column(6) & "', 
Tel_contact = '" & Me.Liste_fourn_pr_modif.Column(3) & "', 
Adresse_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(7) & "', 
Cp_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(8) & "', 
Ville_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(9) & "', 
Pays_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(10) & "' 
WHERE Code_fournisseur =" & Me!Liste_fourn_pr_modif.Column(0))

Merci d'avance !

[jimay]

Salut,

As-tu essayé de faire un debug.print de ta requête afin de la vérifier et de la coller dans une requete access 'classique' pour voir si elle fonctionnait ?

[batou22003]

T'aurais pas oublier une transaction ?

Vérifie déjà que ta requête marche. (point d'arret ou debug.print)

Vérifie qu'une validation de transaction n'est pas a effectuer.

Code :

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

DBEngine.Workspaces(0).CommitTrans

Ou utilise

Code :

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

CurrentDb.Execute ("update....")

Qui est une autre écriture pour les requêtes action.

[SIGER_971]

@ jimay : mon code fonctionne dans une requête "classique" et je ne sais pas faire le debug.print ! j'ai essayé le point d'arrêt comme j'aurais fait sur visual, mais rien !

@batou220003 : tu le mets où ce code ?

[jimay]

Re,

Ce que j'entend par débug est juste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
VariableTemp = "Update Fournisseur 
Set Contact_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(2) & "', 
Tel_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(4) & "', 
Fax_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(5) & "', 
E_mail_contact = '" & Me.Liste_fourn_pr_modif.Column(6) & "', 
Tel_contact = '" & Me.Liste_fourn_pr_modif.Column(3) & "', 
Adresse_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(7) & "', 
Cp_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(8) & "', 
Ville_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(9) & "', 
Pays_fournisseur = '" & Me.Liste_fourn_pr_modif.Column(10) & "' 
WHERE Code_fournisseur =" & Me!Liste_fourn_pr_modif.Column(0)
 
Debug.print VariableTemp

ensuite tu devrais voir ce que retourne réellement ce code et ainsi vérifier si il n'y a aucune erreur

[SIGER_971]

Ok...

Voici ce que j'ai fait, mais il me dit pour RunSQL qu'il attend une variable ou une fonction !

Code :

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

1
2
var = DoCmd.RunSQL("Update ...)
Debug.Print var

[jimay]

re,

Si tu regarde bien, pour le debug.print il faut lui donner juste la chaine de caractère, pas la fonction entière. ^^