Discussion :

[Zorgh0]

Bonjour,

Je suis actuellement bloque avec un "event procedure"

Voici ce que j'ai: un premier formulaire (F_plan) contenant un champ (exemple: rue_plan)
Le deuxieme formulaire (F_adresses) est basee sur une table (tbl_adresses) dont un des champs contient aussi des noms de rue mais pouvant etre legerement differentes.
Par exemple une rue peut y etre indiquee de sous le nom de rue de la station, avenue de la station, station avenue,...

Dans le premier formulaire j'aimerai creer un bouton event qui m'ouvrirai le deuxieme formulaire avec comme critere de selection le champ (rue_adresse) en selectionnant bien entendu toute les rues contenant la valeur de ce champ (ex:station)

Pour le moment mon event ressemble a ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Command70_Click()
On Error GoTo Err_Command70_Click
 
Dim stDocName As String
Dim stLinkCriteria As String
 
stDocName = "F_adresses"
 
stLinkCriteria = "[rue_adresses]=" & "'" & Me![rue_plan] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Command70_Click:
Exit Sub
 
Err_Command70_Click:
MsgBox Err.Description
Resume Exit_Command70_Click
 
End Sub

Ceci marche tres bien si les noms sont parfaitement identique, mais j'ai eu beau essayer de placer des * un peu partout, je n'arrive pas a trouver la bonne syntaxe...

Si quelqu'un a une idee, je suis preneur.
Merci d'avance.

[psykodumarteau]

à priori c'est :

Code :

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

stLinkCriteria = "[rue_adresses] LIKE" & "'*" & Me![rue_plan] & "*'"

Sinon remplace les * par des %

[Access Newbie]

Bonjour,

une autre solution (pas testée)

Code :

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

stLinkCriteria = "ucase([rue_adresses])=" & "'" & ucase(Me![rue_plan]) & "'"

Sinon, dans le code de psychodumarteau, il faut un espace après le like

[Zorgh0]

Excellent, un tout grand merci pour ces reponses rapides et efficaces
J'ai utilise la reponse de psykodumarteau en mettant l'espace apres le like et c'est nickel