Effacer un champ dans un formulaire
Fermé
totor92290
-
25 août 2009 à 15:08
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 25 août 2009 à 16:18
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 25 août 2009 à 16:18
A voir également:
- Effacer un champ dans un formulaire
- Effacer les cookies - Guide
- Que doit-il faire pour effacer les traces de sa navigation ? - Guide
- Comment effacer une page sur word - Guide
- Comment effacer un compte facebook - Guide
- Formulaire de réclamation facebook - Guide
1 réponse
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
25 août 2009 à 16:18
25 août 2009 à 16:18
Bonjour totor92290,
J'ai retrouvé une vieille syntaxe. Vous pourrez sans doute l'adapter à votre contexte. En l'adaptant, elle fera ce que vous en attendez. A+ si difficultés.
Private Sub Champ_de_Saisie_AfterUpdate()
'------------------------------------------------------------
' Champ_de_Saisie_AfterUpdate()
'
'------------------------------------------------------------
With CodeContextObject
DoCmd.GoToControl "[Référence_Facture]"
DoCmd.FindRecord Champ_de_Saisie, , True, , True
If Référence_Facture = Champ_de_Saisie Then
MsgBox "Cette facture est déjà connue : " & Me!Champ_de_Saisie
Me!Champ_de_Saisie = ""
Else
Rem Création d'un nouvel enregistrement
DoCmd.GoToRecord acDataForm, "F_Saisie_Facture", acNewRec
Référence_Facture = Me!Champ_de_Saisie
End If
End With
End Sub
Cordialement
J'ai retrouvé une vieille syntaxe. Vous pourrez sans doute l'adapter à votre contexte. En l'adaptant, elle fera ce que vous en attendez. A+ si difficultés.
Private Sub Champ_de_Saisie_AfterUpdate()
'------------------------------------------------------------
' Champ_de_Saisie_AfterUpdate()
'
'------------------------------------------------------------
With CodeContextObject
DoCmd.GoToControl "[Référence_Facture]"
DoCmd.FindRecord Champ_de_Saisie, , True, , True
If Référence_Facture = Champ_de_Saisie Then
MsgBox "Cette facture est déjà connue : " & Me!Champ_de_Saisie
Me!Champ_de_Saisie = ""
Else
Rem Création d'un nouvel enregistrement
DoCmd.GoToRecord acDataForm, "F_Saisie_Facture", acNewRec
Référence_Facture = Me!Champ_de_Saisie
End If
End With
End Sub
Cordialement