Pré selection access
Fermé
le débutant de l'info
Messages postés
3
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
12 février 2010
-
26 janv. 2010 à 12:24
le débutant de l'info Messages postés 3 Date d'inscription mardi 26 janvier 2010 Statut Membre Dernière intervention 12 février 2010 - 26 janv. 2010 à 17:32
le débutant de l'info Messages postés 3 Date d'inscription mardi 26 janvier 2010 Statut Membre Dernière intervention 12 février 2010 - 26 janv. 2010 à 17:32
1 réponse
le débutant de l'info
Messages postés
3
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
12 février 2010
26 janv. 2010 à 17:32
26 janv. 2010 à 17:32
Voici mon code comme convenu :
Private Sub zt_nom_KeyUp(KeyCode As Integer, Shift As Integer)
Dim bd As DAO.Database
Dim je As DAO.Recordset
Dim i As Integer
Dim req As String
Dim var As String
var = zt_nom.Text
var = var & "*"
Set bd = CurrentDb()
req = "Select distinct(Nom) From PetiteEnfance WHERE Nom like '" & var & "'"
Set je = bd.OpenRecordset(req)
While Not je.EOF
Me.zlNom.AddItem "'" & je![Nom] & "'"
je.MoveNext
Wend
End Sub
Private Sub zt_nom_KeyUp(KeyCode As Integer, Shift As Integer)
Dim bd As DAO.Database
Dim je As DAO.Recordset
Dim i As Integer
Dim req As String
Dim var As String
var = zt_nom.Text
var = var & "*"
Set bd = CurrentDb()
req = "Select distinct(Nom) From PetiteEnfance WHERE Nom like '" & var & "'"
Set je = bd.OpenRecordset(req)
While Not je.EOF
Me.zlNom.AddItem "'" & je![Nom] & "'"
je.MoveNext
Wend
End Sub