Discussion :

[glooping]

Bonjour,
Je souhaite ouvrir un formulaire selon des critères tirés de textbox j'ai donc fait ce code à l'appui sur un bouton :

Code :

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

1
2
 
Docmd.OpenForm "Form bien" ,,, [Bien.NumautoBien]= SELECT Bien.NumautoBien FROM Intervenant INNER JOIN (Bien INNER JOIN Propriétaire ON Bien.NumautoBien = Propriétaire.NumautoBien) ON Intervenant.NumInterv = Propriétaire.NumInterv WHERE (((Bien.RueBien) = [Form]![form rech bien]![RueBien]) And ((Bien.VilleBien) = [Form]![form rech bien]![VilleBien]) Or ((Intervenant.NomInterv) = [Form]![form rech bien]![nomprop]))

mais cela me met erreur de syntaxe et je ne la vois pas, merci de m'aider.

[Moonliz]

Bonjour!
Je pense que dans ce cas, tu n'as pas besoin d'écrire "Form" devant le nom de ton formulaire.
Il me semble que ton formulaire s'appelle "Bien"?

Donc essaye peut être ceci pour débuter le code:

Code :

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

DoCmd.OpenForm Bien ...

[glooping]

Le formulaire s'appelle bien "Form Bien".

[Moonliz]

OK.
Alors le problème vient peut-être du fait que tu aies inséré du code SQL dans du VBA.

Essaye ceci:

Code :

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

1
2
3
4
5
6
7
8
 
Dim stDocName as String
Dim stLinkCriteria as String
 
stDocName = "Form Bien"
stLinkCriteria = "[Bien.NumautoBien]= SELECT Bien.NumautoBien FROM Intervenant INNER JOIN (Bien INNER JOIN Propriétaire ON Bien.NumautoBien = Propriétaire.NumautoBien) ON Intervenant.NumInterv = Propriétaire.NumInterv WHERE (((Bien.RueBien) =" & Forms![form rech bien]![RueBien] & ") And ((Bien.VilleBien) = " & Forms![form rech bien]![VilleBien] & ") Or ((Intervenant.NomInterv) = " & Forms![form rech bien]![nomprop] & "))"
 
DoCmd.OpenForm stDocName,,, stLinkCriteria

Mais bon, honnêtement, je suis pas sûre que ça marche...
En tout cas, sache qu'il est déconseillé de nommer des formulaires, ou quoi que ce soit avec des espaces. Utilise plutôt Form_Bien, par exemple.