les valeurs nulles

les valeurs nulles - VB/VBA/VBS - Programmation

Marsh Posté le 25-03-2003 à 09:50:05    

A ceux qui connaissent:
En VBA, j'ai créé une condition IF et testant si le champs "x" est null alors mettre "y" dedands.
Mais maintenant, j'aimerais faire le contraire, c'est-à-dire:
 SI le champ "x" nest pas null alors mettre "y" dedans.
 
Le problème, le voici: qqun sait comment coder ce "n'est pas null" en VBA??
 
Merci pour vote futur aide! :jap:


---------------
Le bien ou le mal, l'homme ou l'animal, on ne voit jamais l'un sans l'autre
Reply

Marsh Posté le 25-03-2003 à 09:50:05   

Reply

Marsh Posté le 25-03-2003 à 10:05:03    

If Not IsNull(variable) then

Reply

Marsh Posté le 25-03-2003 à 10:23:16    

Merci pour ton aide mais maintenant, j'ai un autre problème - voici mon code:
    If CodeBar.Text = "" Then  
    ElseIf IsNull(Me![DateEmprunt]) Then
            DateEmprunt.Value = Date
            MsgBox "Vous empruntez un soft"        
         
        ElseIf Not IsNull(Me![DateEmprunt]) Then
            DateRetour.Value = Date
            MsgBox "Vous rendez un soft"        
         
        MsgBox "Fin du test de DateEmprunt"
    End If
En fait, je dois m'y prendre à deux fois pour que la base enregistre mon emprunt... c'est donc pas très pratique! Je suis toute ouïe à vos propositions!  :jap:


---------------
Le bien ou le mal, l'homme ou l'animal, on ne voit jamais l'un sans l'autre
Reply

Marsh Posté le 25-03-2003 à 11:06:19    

J'aurais codé comme ça ...
 
   If CodeBar.Text <> "" Then  
      DateEmprunt.Value = Date
       If IsNull(Me![DateEmprunt]) Then
           MsgBox "Vous empruntez un soft"        
       Else
           MsgBox "Vous rendez un soft"        
       end if
       MsgBox "Fin du test de DateEmprunt"
   End If
 

Reply

Marsh Posté le 25-03-2003 à 11:09:21    

Merde j'ai pas vu que cette chaine  
était <>  donc ...
 
  If CodeBar.Text <> "" Then    
      If IsNull(Me![DateEmprunt]) Then  
          DateEmprunt.Value = Date  
          MsgBox "Vous empruntez un soft"          
      Else  
          DateRetour.Value = Date
          MsgBox "Vous rendez un soft"          
      end if  
      MsgBox "Fin du test de DateEmprunt"  
  End If  

Reply

Marsh Posté le 25-03-2003 à 11:18:30    

vttman2 a écrit :

J'aurais codé comme ça ...
   If CodeBar.Text <> "" Then  
      DateEmprunt.Value = Date
       If IsNull(Me![DateEmprunt]) Then
           MsgBox "Vous empruntez un soft"        
       Else
           MsgBox "Vous rendez un soft"        
       end if
       MsgBox "Fin du test de DateEmprunt"
   End If


 
En bon français: Si CodeBar.Text est différent alors mettre la date d'aujourd'hui dans le champ DateEmprunt et ensuite, Si DateEmprunt est null, mettre le mess "Vous empruntez un soft".
Ma question/remarque: rien qu'en changeant le champs codeBar, il inscrit dérectement la date actuelle dans le champ DateEmprunt et après il va tester ce mm champ pour savoir s'il est null(pas possible vu qu'il vient d'y mettre la date actuelle)... il y a un hic là, non?
 
Ne pas oubler que si le champ DateEmprunt n'est PAS Null, la base doit mettre la date actuelle dans le champ DateRetour(pour montrer qu'il est donc retourné au centre de prêt)...


---------------
Le bien ou le mal, l'homme ou l'animal, on ne voit jamais l'un sans l'autre
Reply

Marsh Posté le 25-03-2003 à 12:59:37    

vttman2 a écrit :

Merde j'ai pas vu que cette chaine  
était <>  donc ...
 
  If CodeBar.Text <> "" Then    
      If IsNull(Me![DateEmprunt]) Then  
          DateEmprunt.Value = Date  
          MsgBox "Vous empruntez un soft"          
      Else  
          DateRetour.Value = Date
          MsgBox "Vous rendez un soft"          
      end if  
      MsgBox "Fin du test de DateEmprunt"  
  End If  
 


 
ok je comprends mieux là... je teste!


---------------
Le bien ou le mal, l'homme ou l'animal, on ne voit jamais l'un sans l'autre
Reply

Marsh Posté le 25-03-2003 à 20:46:27    

C'est exactement le même code, y'a juste que dans un cas, y'a un if et elseif dans lequel on fait les traîtements, et l'autre, deux if imbriqués, ce qui revient exactement au même :sarcastic:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed