Discussion :

[MAMANHOU]

bonjour,

Je voudrais afficher les coordonnées d'une entreprise en double cliquant sur le champ Filiale1.
Le texte saisie dans Filiale1 ne correspond pas toujours entièrement à Nom
Il y a parfois des erreurs de saisie ou autres (exemple : Filiale1 = ETS TOTO et Nom = TOTO)
Il faut que je fasse une recherche avec une partie du mot.
J'y arrive pour me.filiale1 (voir 1er code) mais pas pour T_entreprise.nom (voir 2ème code).

Code :

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

1
2
3
4
5
Private Sub FILIALE1_DblClick(Cancel As Integer)
Dim STR As String
STR = "SELECT * FROM T_Entreprise WHERE (T_Entreprise.NOM LIKE '*" & Me.FILIALE1 & "*'"
Forms("f_entreprise").RecordSource = STR
End Sub

J'ai essayé :

Code :

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

1
2
3
4
5
Private Sub FILIALE1_DblClick(Cancel As Integer)
Dim STR As String
STR = "SELECT * FROM T_Entreprise WHERE (((T_Entreprise.NOM) Like '*" & Me.FILIALE1 & "*')) OR (((Me.FILIALE1) Like '*" & T_Entreprise.NOM & "*'))"
Forms("f_entreprise").RecordSource = STR
End Sub

avec le code ci dessus il ne se passe rien...
Merci d'avance pour votre aide
Mamanhou

[vodiem]

salut MAMANHOU,

ce ne serait pas plutot:

Code :

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

STR = "SELECT * FROM T_Entreprise WHERE (((T_Entreprise.NOM) Like '*" & Me.FILIALE1 & "*')) OR (((T_Entreprise.FILIALE) Like '*" & T_Entreprise.NOM & "*'))"