Effacer un champ dans un formulaire
totor92290
-
Jean_Jacques Messages postés 1040 Date d'inscription Statut Membre Dernière intervention -
Jean_Jacques Messages postés 1040 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un code pour un message d'erreur "doublon"
Private Sub Commande43_Click()
On Error GoTo Err_Commande43_Click
DoCmd.GoToRecord , , acNewRec
Exit_Commande43_Click:
Exit Sub
Err_Commande43_Click:
MsgBox "CETTE FACTURE EXISTE DEJA- VERIFIER.", vbExclamation, "ATTENTION"
Resume Exit_Commande43_Click
End Sub
Je voudrai inclure "l'éffacement" du champ "numéro de facture" afin que l'opérateur, soit saisisse un nouveau numéro soit sorte
C'est possible
j'ai un code pour un message d'erreur "doublon"
Private Sub Commande43_Click()
On Error GoTo Err_Commande43_Click
DoCmd.GoToRecord , , acNewRec
Exit_Commande43_Click:
Exit Sub
Err_Commande43_Click:
MsgBox "CETTE FACTURE EXISTE DEJA- VERIFIER.", vbExclamation, "ATTENTION"
Resume Exit_Commande43_Click
End Sub
Je voudrai inclure "l'éffacement" du champ "numéro de facture" afin que l'opérateur, soit saisisse un nouveau numéro soit sorte
C'est possible
A voir également:
- Effacer un champ dans un formulaire
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook - Guide
- Comment effacer un iphone - Guide
- Comment effacer un compte gmail - Guide
- Formulaire de reclamation instagram - Guide
1 réponse
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