madoman
Messages postés56Date d'inscriptionlundi 20 octobre 2003StatutMembreDernière intervention11 octobre 2004
-
30 janv. 2004 à 11:21
BasicInstinct
Messages postés1470Date d'inscriptionmardi 5 février 2002StatutMembreDernière intervention20 octobre 2014
-
30 janv. 2004 à 17:36
salut
je test sur certains champs de mon form Access s'ils sont vides : s'ils le sont, j'ai un msq d'avertissement avec une reprise focus mais bon je peux quand meme passer à traver
j'ai utilisé un SI pour réaliser mes test mais je voudrais utiliser un TantQUE mais la ça merde, l'appli se bloque d'elle meme
avec mon SI ça me donne ça:
If txt.Text="" then
MsgBox("Cette zone est obligatoire")
txt.SetFocus
End IF
avec le TQ en algo ça ferait ça normalement
TQ txt.text=""
MsgBox("..")
txt.SetFocus
If txt.text="" then
MSGBOX("...")
txt.SetFocus
End IF
FTQ
BasicInstinct
Messages postés1470Date d'inscriptionmardi 5 février 2002StatutMembreDernière intervention20 octobre 201412 30 janv. 2004 à 17:36
're
Pas de TQ pour une saisie...
tu peux faire comme ca
Private Sub id_KeyDown(KeyCode As Integer, Shift As Integer)If (KeyCode 13 Or KeyCode 9) And id.Text = "" Then
KeyCode = 0 'annule la frappe
MsgBox "Saisie Obligatoire"
End If
End Sub
13 correspond a entree, 9 a la tabulation
par contre ca gere pas la souris (arf ces utilisateurs, il sont malins... :))
sinon faut que tu fasses ton Ctrl.SetFocus dans la reception de focus du controle
ex:
tu es dans ton txtbox ID
tu click dans titre
dans ta reception de focus, il te faut
if trim(ID)="" then id.setfocus
et ainsi de suite
mais je sais pas comment ca peux reagir si l'utilisateur click sur un 2eme champs a saisie obligatoire
sinon, tu peux simplement faire ton controle au moment de l'insertion dans ta BDD.