Condition dans IF toujour incorrect VB
Résolu
Baker
-
Baker -
Baker -
Bonjour,
Voila j'ai petit probleme avec un if.
Private Sub bouton_devis1_Click() 'nouveau devis
Dim Dev as long
Dim strReq As Variant
Dev = InputBox("Saisir le numero du devis", "Nouveau devis")
If Dev <> 0 Then
strReq = DLookup("N_DEVIS", "DEVIS", "N_DEVIS=" & Dev)
If strReq = "" Then
dans la derniére ligne le la condition du if est toujour fausse même lorque strReq = null
d'ou vien ce probeme??
merci de votre aide
Voila j'ai petit probleme avec un if.
Private Sub bouton_devis1_Click() 'nouveau devis
Dim Dev as long
Dim strReq As Variant
Dev = InputBox("Saisir le numero du devis", "Nouveau devis")
If Dev <> 0 Then
strReq = DLookup("N_DEVIS", "DEVIS", "N_DEVIS=" & Dev)
If strReq = "" Then
dans la derniére ligne le la condition du if est toujour fausse même lorque strReq = null
d'ou vien ce probeme??
merci de votre aide
Configuration: Windows XP Internet Explorer 7.0
4 réponses
-
Bonjour,
tu peux essayer avec les fonctions isnull et isempty -
Bonjour
if est toujour fausse même lorque strReq = null
Quoi de plus normal ? "" et null, ça n'est pas la même chose, il n'y a aucune raison que visual basic les trouve égaux. -
;-) Essaie déjà de remplacer le second If par un ElseIf... (sans oublier les "EndIf" !!! A chaque "If, faut un "End If" !)
Ou lance toi dans le "Select Case".... (plus puissant à mon avis quand il s'agit de traiter des cas multiples...)
;-)
PS : Ce petit bout de code me semble pompé d'un exemple tout fait, non ?
Sinon, bon, je serais toi, je ferais une forme (une boîte de dialogue), au lieu d'un InPutBox, ça sera plus facile à gérer (au niveau de la zone de texte et de son contenu - .Text-), avec un petit .Show quelque part et un .UnLoad quand c'est bon....
;-) -
