Soyez le premier à donner votre avis sur cette source.
Vue 6 728 fois - Téléchargée 444 fois
Private Sub txtName_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub txtNumDays_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub If Not IsNumeric(Chr(KeyAscii)) Then Beep KeyAscii = 0 staAdditionalInfo.Panels("addInfo").Text = "Valeur numerique uniquement." End If End Sub Private Sub txtNumDays_LostFocus() If MaskEdBox1.ClipText <> "" And txtNumDays.Text <> "" Then txtCheckOut.Text = Format(DateAdd("d", Val(txtNumDays.Text), MaskEdBox1.Text), "dd-mm-yyyy") End If End Sub Private Sub txtNumPeople_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub If Not IsNumeric(Chr(KeyAscii)) Then Beep KeyAscii = 0 staAdditionalInfo.Panels("addInfo").Text = "Valeur numerique uniquement." End If End Sub Private Sub txtPhone_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = vbBack Or Chr(KeyAscii) = "-" Or Chr(KeyAscii) = "(" Or Chr(KeyAscii) = ")" Then Exit Sub If Not IsNumeric(Chr(KeyAscii)) Then Beep KeyAscii = 0 staAdditionalInfo.Panels("addInfo").Text = "le numero de téléphone est numerique." End If End Sub
petit sousis message "remplissez touts les champs"
mais le champ date de départ non accesible
a+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.