Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3741 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  les valeurs nulles

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

les valeurs nulles

n°342248
kamui36
Posté le 25-03-2003 à 09:50:05  profilanswer
 

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
mood
Publicité
Posté le 25-03-2003 à 09:50:05  profilanswer
 

n°342261
tegu
Posté le 25-03-2003 à 10:05:03  profilanswer
 

If Not IsNull(variable) then

n°342293
kamui36
Posté le 25-03-2003 à 10:23:16  profilanswer
 

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
n°342339
vttman2
Je suis Open ...
Posté le 25-03-2003 à 11:06:19  profilanswer
 

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
 

n°342346
vttman2
Je suis Open ...
Posté le 25-03-2003 à 11:09:21  profilanswer
 

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  

n°342358
kamui36
Posté le 25-03-2003 à 11:18:30  profilanswer
 

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
n°342435
kamui36
Posté le 25-03-2003 à 12:59:37  profilanswer
 

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
n°342949
MagicBuzz
Posté le 25-03-2003 à 20:46:27  profilanswer
 

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:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  les valeurs nulles

 

Sujets relatifs
[PHP/MySQL] Sélectionner plusieurs valeurs d'un champs d'une tableremplacer des valeurs dans un fichier existant avec un .bat
[ PHP ] Probleme de eregi et moyenne de valeurs[PHP] récupérer valeurs multiples d'un checkbox dans un formulaire
Afficher les valeurs d'un champs commençant par une lettre précise?[Perl] itérer sur les valeurs d'un tableau de hash de hash...
mes valeurs renvoyer par 1 formulaire sont vide !!!!!Une liste de valeurs acceptables pour des entiers
Comment faire pour ajouter / modifier des Valeurs du registre avec VB6[php] changer textbox en listbox pour afficher des valeurs a modifier
Plus de sujets relatifs à : les valeurs nulles


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)