Vider un champ de formulaire

[Budy123]

Bonjour,

Je souhaites vider un champs automatiquement si la condition est ok.
j'ai intégré le code suivant pour vider mon champs mais cela ne fonctionne pas.

Code :

1
2
 
CaseID.Value = ""

Pourriez vous m'orienter.

Code :

1
2
3
4
5
6
 
If Nz(DLookup("[Ex_CaseID]", "tblExceed", "[Ex_CaseID]='" & Me.CaseID & "' AND [Ex_ServiceLevel]<>'" & Me.ServiceLevel & "'")) = True Then
MsgBox "Drop ID not match with the Carrier " & Me.ServiceLevel & "", vbCritical, "Check!!"
Cancel = True
CaseID.Value = ""
End If

[ClaudeLELOUP]

Bonjour,

Il est difficile, d'ici, de comprendre :

If Nz(DLookup("[Ex_CaseID]", "tblExceed", "[Ex_CaseID]='" & ... !!

Obtiens-tu le message ?

Si non, c'est là que se situe le problème.
La réponse au "if" est sans doute toujours "non" => et rien s'exécute.

Tu devrais aussi dire où ce code est logé (dans Après mise à jour du contrôle "caseID" ?).

[Budy123]

En faite j'ai logé le code avant la mise à jour.
Je vérifie dans la table tblExceed que le CaseID et le ServiceLevel correspondent avant d'enregistrer le CaseID, si ce n'est pas le cas un msgbox s'affiche et je souhaites en plus vider le champs CaseID.

Ce qui donne:
Test If = false , j'engeristre le CaseID dand ma table
Test If = True , Message erreur + Vider le champs CaseID (Pour pouvoir saisir un nouveau CaseID sans avoir à effacer manuellement le champs)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CaseID_BeforeUpdate(Cancel As Integer)
 
'Check the Carrier
If Nz(DLookup("[Ex_CaseID]", "tblExceed", "[Ex_CaseID]='" & Me.CaseID & "' AND [Ex_ServiceLevel]<>'" & Me.ServiceLevel & "'")) = True Then
MsgBox "Drop ID not match with the Carrier " & Me.ServiceLevel & "", vbCritical, "Check!!"
Cancel = True
CaseID.Value = ""
End If
 
 
'Check if the Drop ID is already recorded
If Nz(DLookup("[CaseID]", "tblMain", "[CaseID]='" & Me.CaseID & "'")) = True Then
MsgBox "Drop ID " & Me.CaseID & " is allready in database!", vbCritical, "Duplicate!!"
Cancel = True
End If
 
End Sub

[Oxopor]

Bonjour,
J'ai eu le même problème.
Avec ça, cela devrait fonctionner:

Code :

Me.CaseID.Undo

Cordialement