Discussion :

[CMRAM]

Bonjour,

Je suis entrain de créer une zone de liste pour la saisie semi-automatique mais j'ai une erreur de syntaxe au niveau du mot LIKE
voir ci-dessous :





j'ai vu ça sur une vidéo de Mr Rossetti Stéphane dont capture écran ci dessous :



Merci de me faire les corrections nécessaires.

[tee_grandbois]

Bonjour,
il est préférable de poster le code à corriger entre les balises de code, c'est plus facile à lire et réserver les captures d'écran pour les messages d'erreur.
Selon moi, il manque des espaces avant et après le caractère &.

[hyperion13]

Cela me rappelle quelque chose moteur et liste_commune.
Sauf que le truc vous impose de créer de mémoire d'éléphant de créer une zone de texte ET une zone de liste déroulante.

Autant faire simple avec une liste déroulante.
Créer une liste déroulante dans l'en-tête de formulaire ayant pour source votre tbl BATISSE avec les champs BATISSE_CODE et BATISSE_ADRESSE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT BATISSE_CODE, BATISSE_ADRESSE
FROM BATISSE
WHERE (((BATISSE_ADRESSE) Like ([BATISSE_ADRESSE]) & "*"));

formater le nombre de colonne à 2, largeur de colonne 0cm;6cm (le 0cm va masquer la colonne BATISSE_CODE dans la liste déroulante)
sur l'évènement AfterUpdate de ma liste déroulante, passer le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub NomListeModifiable_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[BATISSE_CODE] = " & Str(Nz(Me![NomListeModifiable], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

[Jeannot45]

Ci-joint un exemple de saisie semi-automatique.
Au fur et à mesure de la saisie des caractères, la liste se met à jour en affichant tous les titres de livres contenant la chaine de caractères saisie.
La procédure est placée sur l'évènement "Sur Changement" de la zone de saisie des caractères de recherche

Bonne continuation

[gwenagan]

Bonjour,

Ton * est de trop.

Voici comment je place un like en variable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
"T_CLIENT.NOM_CLIENT" Like '" & WNO_CLIENT & "'"

[hyperion13]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
"T_CLIENT.NOM_CLIENT" Like '" & WNO_CLIENT & "'"

C'est bien, mais il n'y a pas de T_CLIENT dans son environnement !

[gwenagan]

Oui bien sur donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WHERE (((BATISSE_ADRESSE) Like ([BATISSE_ADRESSE])));

[hyperion13]

Oui bien sur donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WHERE (((BATISSE_ADRESSE) Like ([BATISSE_ADRESSE])));

Ah.
Mais CMRAM demande une procédure de saisie semi-automatique.
Remontez au post 3, il y a déjà la bonne solution.