effacer un champ dans un formulaireFermé

Question

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

Jean_Jacques · Answer

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

Effacer un champ dans un formulaire

1 réponse

Discussions similaires

Newsletters