petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 20131 26 sept. 2009 à 15:12
Voici ce que je veux faire
j'ai une base de donnée access la dedans ce trouve des numero id
id:SHE0036
ip 192.168.3.11
submask 255.255.255.0
gateway 192.168.3.1
quand j'ouvre mon programme il me donne toute les id dans mon combo5 qui ce trouve dans access et la je choisi le id ou je me trouve.
Si elle n'est pas dedans je tape le numero id
ex SHE0036 et en fesant caracterre par caractere il me donne celle qui est dedans
je sait pas si tu comprend ce que je veux faire
avec combo5_click ou _change
Set db = OpenDatabase(App.Path & "\ip.mdb")
Set rs = db.OpenRecordset("ip_a_rechercher")
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF = True
If rs!station UCase(Combo5.Text) Or rs!station LCase(Combo5.Text) Then
Combo1.Text = rs!ip
Combo2.Text = rs!submask
Combo4.Text = rs!gateway
Command7.Visible = False
Else
Combo1.Text = "Pas d'ip trouvé"
Combo2.Text = "Pas de submask trouvé"
Combo4.Text = "Pas de gateway trouvé"
Command7.Visible = True
End If
rs.MoveNext
Loop
End If
If Combo1.Text "QUEL IP" Or Combo1.Text "Pas d'ip trouvé" Then
Command1.Visible = False
Else
Command1.Visible = True
End If