Discussion :

[grisounette]

Bonjour,

J'ai un conflit d'écriture qui m'apparait à l'écran lorsque j'essaie de faire un UPDATE sur une table.
Il me demande si je veux "sauvegarder l'enregistrement" ou "annuler" ou "copier dans le presse papier" ???

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub bt_valider_Click() 
DoCmd.SetWarnings False 
VariableNumTiers = DLookup("num_tiers", "MARIAGE", "[num_tiers] =" & Forms!formulaire_modification1!num_tiers) 
If (VariableNumTiers <> "") Then 
DoCmd.RunSQL ("UPDATE MARIAGE SET montant='" & montant_mariage.Value & "', date_mariage='" & date_mariage.Value & "', trousseau='" & trousseau.Value & "', date_trousseau='" & date_trousseau.Value & "', montant_trousseau='" & montant_trousseau & "' where num_tiers=" & Forms!formulaire_modification1!num_tiers) 
Else 
DoCmd.RunSQL ("INSERT INTO MARIAGE (num_tiers, montant, date_mariage, trousseau, date_trousseau, montant_trousseau) VALUES ('" & Forms!formulaire_modification1!num_tiers & "', '" & montant_mariage.Value & "', '" & date_mariage.Value & "', '" & trousseau.Value & "', '" & date_trousseau.Value & "', '" & montant_trousseau & "')") 
End If 
DoCmd.Close 
End Sub

[MC2]

Salut,
C'est le "DoCmd.Close" qui pose la question : quand tu essaies de fermer le formulaire.
Lors de ton traitement, modifies-tu des choses dans ton formulaire ? (création d'un contrôle, modification d'un RowSource, d'un filtre, etc.)
A travers tes requêtes, essaies-tu de modifier l'enregistrement courant ?
Par contre, je serais curieuse de savoir si tes requêtes fonctionnent... il ne faut pas mettre tout entre quote (cf. tutoriel ou FAQ)
Autres remarques :
- n'oublies pas de faire un

Code :

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

DoCmd.SetWarnings True

après tes requêtes
- où est la déclaration de VariableNumTiers

Code :

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

Dim VariableNumTiers As Variant

?
- un DLookup renvoit Null s'il ne trouve pas et "num_tiers" est-il de type texte ?
- bref, dans ton cas, il faudrait plutôt

Code :

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

If Not IsNull(VariableNumTiers) Then

...

[grisounette]

Oui je modifie mon enregistrement lorsque ceci se produit.

Mes requêtes fonctionnent correctement oui pourquoi ???

Le message apparait toujours !!!

[MC2]

Salut,
Je suis sur un enregistrement... je le modifie par un autre moyen que directement par le formulaire... ah ben oui, mais alors, mon formulaire n'affiche plus les bonnes données quand je le ferme... ou quand je passe à un autre enrgt d'ailleurs.
Tu vois ce que je veux dire ? Il te faut supprimer 1 des 2 modif : supprime ta liaison directe dans le dormulaire et garde tes requêtes, ou bien modifie ton enrgt directement depuis ton formulaire.

Le but de mes remarques initiales n'était pas de faire disparaître ton message mais de te donner qq conseils de syntaxe et de codage : déclaration de variable, test de retour de fonction, les formats texte, numérique et date ne s'apprivoisent pas de la même façon dans les requêtes... Ceci dans le simple but, pour toi, de ne pas avoir de mauvaises surprises.