Bonjour à tout le forum,
Je cherche une solution à mon souci :ma textbox7 ( pour indiquer la date ) ne s'affiche que si la valeur de la combobox5 a la valeur "classé". Si celle-ci est affichée et la date rentrée, pas de souci. Par contre, lorsque ma combo prend la valeur "instance", la textbox est caché, donc, on ne rentre pas de date et là, ça bug => erreur 13
Voici mon code :
Private Sub CommandButton1_Click()
' COMMANDE DE RENVOI DE L USF SAISIE VERS BASE
If TextBox9 = "" Then
MsgBox "Veuillez saisir la date de réception ""jj/mm/aaaa""" & vbCr _
& " Ex: 01/01/2008", vbExclamation
Else
If TextBox6 = "" Then
MsgBox "Veuillez saisir la date de transmission ""jj/mm/aaaa""" & vbCr _
& " Ex: 01/01/2008", vbExclamation
Else
If TextBox7 = "" Then
MsgBox "Veuillez saisir la date de classement ""jj/mm/aaaa""" & vbCr _
& " Ex: 01/01/2008", vbExclamation
Else
' Lecture des valeurs de cellules sur L'USF de Saisie
VAR11 = TextBox2.Value
VAR12 = TextBox3.Value
VAR13 = TextBox4.Value
VAR14 = ComboBox1.Value
VAR15 = ComboBox2.Value
VAR16 = CDate(TextBox9.Value)
VAR17 = TextBox5.Value
VAR18 = ComboBox3.Value
VAR19 = CDate(TextBox6.Value)
VAR20 = ComboBox5.Value
VAR21 = ComboBox4.Value
VAR22 = CDate(TextBox7.Value)
VAR23 = TextBox8.Value
etc...
Help....
Je cherche une solution à mon souci :ma textbox7 ( pour indiquer la date ) ne s'affiche que si la valeur de la combobox5 a la valeur "classé". Si celle-ci est affichée et la date rentrée, pas de souci. Par contre, lorsque ma combo prend la valeur "instance", la textbox est caché, donc, on ne rentre pas de date et là, ça bug => erreur 13
Voici mon code :
Private Sub CommandButton1_Click()
' COMMANDE DE RENVOI DE L USF SAISIE VERS BASE
If TextBox9 = "" Then
MsgBox "Veuillez saisir la date de réception ""jj/mm/aaaa""" & vbCr _
& " Ex: 01/01/2008", vbExclamation
Else
If TextBox6 = "" Then
MsgBox "Veuillez saisir la date de transmission ""jj/mm/aaaa""" & vbCr _
& " Ex: 01/01/2008", vbExclamation
Else
If TextBox7 = "" Then
MsgBox "Veuillez saisir la date de classement ""jj/mm/aaaa""" & vbCr _
& " Ex: 01/01/2008", vbExclamation
Else
' Lecture des valeurs de cellules sur L'USF de Saisie
VAR11 = TextBox2.Value
VAR12 = TextBox3.Value
VAR13 = TextBox4.Value
VAR14 = ComboBox1.Value
VAR15 = ComboBox2.Value
VAR16 = CDate(TextBox9.Value)
VAR17 = TextBox5.Value
VAR18 = ComboBox3.Value
VAR19 = CDate(TextBox6.Value)
VAR20 = ComboBox5.Value
VAR21 = ComboBox4.Value
VAR22 = CDate(TextBox7.Value)
VAR23 = TextBox8.Value
etc...
Help....