Pré selection access
le débutant de l'info
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
le débutant de l'info Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
le débutant de l'info Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un problème concernant access 2003.
je vous explique mon problème en quelque mot :
j'ai une base de donnée sur access et j'aimerais que quand je clique sur une touche dans ma zone de texte (par exemple le A) tout les nom commencant par A soit automatiquement insérer dans une zone de liste, si j'appuie ensuite sur le B tout les mot commencant par AB soit insérer et quand j'efface que ce soit mis à jour également. voila si vous avez une petite idée aidez moi svp.
j'ai déja commencer un bout de code que je vous mettrez vers 14h.
Merci de votre aide
j'ai un problème concernant access 2003.
je vous explique mon problème en quelque mot :
j'ai une base de donnée sur access et j'aimerais que quand je clique sur une touche dans ma zone de texte (par exemple le A) tout les nom commencant par A soit automatiquement insérer dans une zone de liste, si j'appuie ensuite sur le B tout les mot commencant par AB soit insérer et quand j'efface que ce soit mis à jour également. voila si vous avez une petite idée aidez moi svp.
j'ai déja commencer un bout de code que je vous mettrez vers 14h.
Merci de votre aide
1 réponse
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
