core121
Messages postés7Date d'inscriptionmardi 25 septembre 2001StatutMembreDernière intervention13 avril 2010
-
13 avril 2010 à 11:07
core121
Messages postés7Date d'inscriptionmardi 25 septembre 2001StatutMembreDernière intervention13 avril 2010
-
13 avril 2010 à 11:57
Bonjour à tous,
J'ai une table Personne, avec plusieurs champs dont le champs "N°" et le champs "Actif"
Je cherche à faire la chose suivante :
Un numéo est entré un champs texte libre, au moment ou le bouton est pressé alors il faudrait que la table personne soit parcourue et trouver le record "N°" qui concorde avec le numéro rentré dnas le texte libre, une fois trouvé alors il faudrait regarder si le champs "actif" de ce record et vrai ou pas et afficher un message en fonction du resultat (vrai ou faux).
J'ai essayer plusisur chose mais je n'y arrive pas.
Est-ce que qq'un peux m'indiquer le code pour parcourir une table et rechercher mon champs
J'éspère que j'ai été assez claires...
core121
Messages postés7Date d'inscriptionmardi 25 septembre 2001StatutMembreDernière intervention13 avril 2010 13 avril 2010 à 11:57
Hello,
avec ce que j'avais déjà trouvé sur le net et l'aide d'un pote j'ai reussi à trouvé la solution. Voici le resultats si ça interesse qq'un :
Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Personne.[Actif] FROM Personne WHERE Personne.[N°]=" & Forms.Saisie.CB.Value)
With rs
If .RecordCount <> 0 Then
.MoveFirst
If rs("Actif") = True Then
LED.BackColor = 65280
Repaint
Else
LED.BackColor = 255
Repaint
End If
End If
End With
rs.Close
Set rs = Nothing
Set db = Nothing