Condition IFRésolu

Question

Salut a tous

J'ai une base de donnée connecté a mon VB6 et une table dans laquelle il y'a deux cellules :
Nom - Numero

Je voudrais dans ma condition :
Private Sub Form_Load()
  If F_Activer.Data.Recordset!Nom= "Banque" Then
    Titre16.Enabled = False
    Else
    Titre16.Enabled = True
  End If
End Sub

Lui dire que s'il trouve tel mot "banque" dans cet exemple, alors qu'il rende actif ou pas le Titre16

Sachant que dans ma BD, je peux avoir cet exemple :
--------------------------
Nom             | Numéro
--------------------------
Banque          | 1      
Immobilisation  | 2
Statistiques    | 3
--------------------------

Merci de m'aider

PCPT · Accepted Answer

salut,
oui en effet çà va bloquer là....
tu ne regardes que l'enregistrement en cours (position du curseur)
il faut boucler avec EOF
false par défaut (le titre16) et si on trouve, true et exit for

en gros (syntaxe à vérifier)

Titre16.Enabled = False
with F_Activer.Data.Recordset
  .movefirst  
  while not .eof
    if .fields("Nom") = "Banque" then
      Titre16.Enabled = true
      exit for    
    end if
    .movenext
  wend
end with

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Sinsitrus · Answer

Merci bokou ^^
Il avait fait erreur sur exit for mais ca marche très bien ^^

Merci

PCPT · Answer

oups oui 
do while ...
...
  exit do
....
loop

Sinsitrus · Answer

Merci c reglé ^^

Condition IF

4 réponses

Votre réponse

Discussions similaires