Gestion des événements
cs_Mike30
Messages postés
2
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
2 avril 2003
-
2 avril 2003 à 11:47
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 2 avril 2003 à 12:00
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 2 avril 2003 à 12:00
1 réponse
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
2 avril 2003 à 12:00
2 avril 2003 à 12:00
'lut
en mettant un condition:
Private Sub Command1_Click()
Dim SQL As String
MsgBox IsEmpty(Text1.Text)
If Len(Text1.Text) > 0 Then
'une valeur est saisie, j'execute mon code
SQL = "Insert......."
End If
End Sub
:clown) BasicInstinct :clown)
en mettant un condition:
Private Sub Command1_Click()
Dim SQL As String
MsgBox IsEmpty(Text1.Text)
If Len(Text1.Text) > 0 Then
'une valeur est saisie, j'execute mon code
SQL = "Insert......."
End If
End Sub
:clown) BasicInstinct :clown)
