A LAIDE ! Saisie semie-automatique ....
LaTueuse
-
Lupin -
Lupin -
Salut !!
Je suis en stage en ce moment, et je dois developper une base de données sous access ...
Mon problème, petit mais très embettant : il faut que lorsque l'utilisateur commence à taper le nom d'un de ses client dans une zone de texte, le reste apparaisse automatiquement... et je ne sais pas du tout comment y parvenir !!
si quelqu un pouvait m aider, au plus vite, ca seré cool !! mercii !
Je suis en stage en ce moment, et je dois developper une base de données sous access ...
Mon problème, petit mais très embettant : il faut que lorsque l'utilisateur commence à taper le nom d'un de ses client dans une zone de texte, le reste apparaisse automatiquement... et je ne sais pas du tout comment y parvenir !!
si quelqu un pouvait m aider, au plus vite, ca seré cool !! mercii !
A voir également:
- A LAIDE ! Saisie semie-automatique ....
- Liste deroulante excel avec saisie semi-automatique - Guide
- Saisie gestuelle iphone - Guide
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
1 réponse
Salut LaTueuse,
Voici un exemple que j'ai appliqué dans un bd de ma vidéothèque.
Elle est a adapter, j'y ai modifié quelque lignes sans le tester ...
Modifier une requète par programmation sur l'évènement KeyPress.
Sur l'évènement KeyPress de la zone de texte :
Private Sub Liste_Catégorie_KeyPress(KeyAscii As Integer)
Dim Chaine As String
Dim Critere As String
Dim CatégorieVidéo As String
On Error GoTo Liste_Catégorie_Err
' Ici on récupère le(s) caractères de la zone ...
CatégorieVidéo = Liste_Catégorie
' Ici on modifie la chaine SQL de recherche (le critère)
Chaine = "Select * from [Table Vidéo] where [Catégorie] = "
Critere = Chaine & """" & CatégorieVidéo & """"
' Ici, un appel a une fonction qui modifie la requète
If (ChangeRequeteDef("Requête Liste Spécifique Catégorie", Critere)) Then
' Ici, une fois la requète changé, j'appelle un formulaire
' Il serait possible ici d'effectuer un refresh du formulaire
' en cours
DoCmd.OpenForm "Formulaire Liste Spécifique Catégorie", acNormal, "", "[Catégorie]", , acNormal
End If
Liste_Catégorie_Exit:
Exit Sub
Liste_Catégorie_Err:
MsgBox Error$
Resume Liste_Catégorie_Exit
End Sub
' Ici, la fonction qui modifie la requète ...
Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
Dim Definition As Variant
If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If
End Function
Peut-être un peu ardus ? A toi de voir !
Lupin
Voici un exemple que j'ai appliqué dans un bd de ma vidéothèque.
Elle est a adapter, j'y ai modifié quelque lignes sans le tester ...
Modifier une requète par programmation sur l'évènement KeyPress.
Sur l'évènement KeyPress de la zone de texte :
Private Sub Liste_Catégorie_KeyPress(KeyAscii As Integer)
Dim Chaine As String
Dim Critere As String
Dim CatégorieVidéo As String
On Error GoTo Liste_Catégorie_Err
' Ici on récupère le(s) caractères de la zone ...
CatégorieVidéo = Liste_Catégorie
' Ici on modifie la chaine SQL de recherche (le critère)
Chaine = "Select * from [Table Vidéo] where [Catégorie] = "
Critere = Chaine & """" & CatégorieVidéo & """"
' Ici, un appel a une fonction qui modifie la requète
If (ChangeRequeteDef("Requête Liste Spécifique Catégorie", Critere)) Then
' Ici, une fois la requète changé, j'appelle un formulaire
' Il serait possible ici d'effectuer un refresh du formulaire
' en cours
DoCmd.OpenForm "Formulaire Liste Spécifique Catégorie", acNormal, "", "[Catégorie]", , acNormal
End If
Liste_Catégorie_Exit:
Exit Sub
Liste_Catégorie_Err:
MsgBox Error$
Resume Liste_Catégorie_Exit
End Sub
' Ici, la fonction qui modifie la requète ...
Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
Dim Definition As Variant
If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If
End Function
Peut-être un peu ardus ? A toi de voir !
Lupin
