stepaustral
Messages postés54Date d'inscriptiondimanche 5 janvier 2003StatutMembreDernière intervention29 juillet 2012
-
16 oct. 2003 à 15:27
stepaustral
Messages postés54Date d'inscriptiondimanche 5 janvier 2003StatutMembreDernière intervention29 juillet 2012
-
16 oct. 2003 à 19:50
voila j'ai un petit programme avec une listview et un bouton pour l'imprimer quand je clique dessus ca lance une inputbox avec la date a inscrire le truc c que quand j'annule cela me fais une erreur 13 voici le code pour que tous le monde comprenne bien
Private Sub Impr_Click()
Dim DATE1 As Date
MouseOn
Dim DATEx As Date
Dim entree As String
Dim SORTIE As String
Dim TENTREE As String
Dim TSORTIE As String
Dim OBSERV As String
Dim RESTE As String
Dim T
Dim Chaine As String
DATE1 = InputBox("De la date :", "Date", Format("01/01/" & Year(Date), "dd/mm/yyyy"))
SetupPrinter
stabe
Messages postés144Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention17 juin 2006 16 oct. 2003 à 15:56
Quand tu fais annuler dans une inputbox, ça te renvoie une chaine vide donc tu as alors date1 = ""
Mais comme tu as déclaré date1 de type Date, ça fait boom ("" n'est pas un format de date valide)
Une solution (parmi d'autres) :
dim r as string
r = InputBox("De la date :", "Date", Format("01/01/" & Year(Date), "dd/mm/yyyy"))
'format de date invalide ou appuie sur Annuler ?
if not isdate(r) then exit sub
stepaustral
Messages postés54Date d'inscriptiondimanche 5 janvier 2003StatutMembreDernière intervention29 juillet 2012 16 oct. 2003 à 19:50
cool ca fonctionne je te remerci ;) donc je remet le code en entier en faite c juste le debut modifié pour ceux que ca interesserais
Private Sub Impr_Click()
Dim DATE1 As String
Dim DATEx As Date
Dim entree As String
Dim SORTIE As String
Dim TENTREE As String
Dim TSORTIE As String
Dim OBSERV As String
Dim RESTE As String
Dim T
Dim Chaine As String
DATE1 = InputBox("De la date :", "Date", Format("01/01/" & Year(Date), "dd/mm/yyyy"))
If Not IsDate(DATE1) Then Exit Sub