condition dans IF toujour incorrect VB Résolu/Fermé

Question

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

Darkito · Answer

Bonjour,
tu peux essayer avec les fonctions isnull et isempty

le père · Answer

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.

WhiteFang · Answer

;-) 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....

;-)

Baker · Answer

Merci bien Darkito ca fonctione avec isnull

Condition dans IF toujour incorrect VB

4 réponses

Discussions similaires