Discussion :

[glooping]

Je souhaite ouvrir un formulaire selon un champ d'un sous formulaire qui donnera les enregistrements valables.

Je me suis dit :" Passe par une variable commune à tout le formulaire mais j'ai donc fait ce code :

Code :

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

1
2
3
4
5
6
7
 
Public Sub Btn_Ouv_Form_Mem_Bat_Click ()
Public Function StrRue () As String
StrRue = Forms![Ss Form Rue]![RueBien]
MsgBox (StrRue)
End Function
End Sub

Mais il me met Erreur de compilation : End Sub attendu ! Que faire?

[Baba75AB]

Salut,
Tu te sers d'une fonction public qui ne sert à rien dans une procédure
Voici le code correct :

Code :

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

1
2
3
4
5
Public Sub Btn_Ouv_Form_Mem_Bat_Click ()
Dim StrRue As String
StrRue = Forms![Ss Form Rue]![RueBien]
MsgBox StrRue 
End Sub

[glooping]

Le champ est situé dans un sous formulaire quand je mets le formulaire principal il me met qu'il ne trouve pas le champ : "Ss Form Bien" et quand j'enlève le formulaire principal il me mets qu'il ne trouve pas le sous-formulaire.
On tourne en rond.
A priori, cela viendrait d'un problème dans mon formulaire, car quand j'essaie d'obtenir une donnée à partir du formulaire principal contenue dans une zone de liste : je ne peux modifier cette zone de liste et quand je mets cette zone de liste en zone de texte : il est mis "#Nom ?" dans cette zone de texte donc problème...

[glooping]

Bonjour,
Je me permets de remonter le sujet car c'est toujours un problème pour moi.
J'ai essayé avec ce code mais cela ne donne rien.

Code :

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

1
2
3
4
5
6
 
Public Sub Btn_Ouv_Form_Mem_Bat_Click ()
Dim StrRue As String
StrRue = Forms![Ss Form Aff bien]![RueBien]
MsgBox StrRue 
End Sub

Mais il me mets qu'il ne trouve pas le formulaire [Ss Form Aff bien] qui est pourtant un sous formulaire du formulaire principal!
Merci de m'aider.

[fgiambelluco]

Bonjour
Sauf erreur de ma part, pour accéder à un champ d'un sous-formulaire à partir du formulaire principal, il faut utilser la syntaxe:

Code :

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

StrRue = Me.[Ss Form Aff bien].Form![RueBien]

[glooping]

Bonjour,
J'ai trouvé ce qui n'allait pas il fallait mettre le nom de la fenêtre et pas celui du formulaire qui dans le cas présent étaient différents.

Mon problème vient maintenant que quand je veux qu'il copie la valeur de numéroauto avec un bouton il le fait bien mais efface le sous-formulaire donc il n'y a plus de connection entre les deux.

J'ai un autre problème avec un formulaire que je souhaite ouvrir selon une liste déroulante quand je lance le code, il me demande à quoi corespond la valeur de la liste déroulante et si je lui rentre une valeur à la main celle-ci est gardée en mémoire et ne pourra être changée.


[Edit]
C'est comme si il n'arrivait pas à lire ce qui est rentrer car j'ai essayé avec une zone de texte ou une zone de liste et c'est la même chose.
Merci encore
[/Edit]

[glooping]

Bonjour,
Je suis arrivé à le faire une fois mais maintenant je dois le faire avec une valeur "Texte" et cela ne fonctionne plus, ma question est donc de savoir si il y a une syntaxe particulière avec une valeur texte?
Merci

Code :

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

DoCmd.OpenForm "Form Intervenant", , , "[NomInterv] =" & Forms![Form Rech Inter]![NomInterv]

[Edit]C'était bien cela il fallait mettre le chemin amenant la variable entre guillemets cela donne donc :

Code :

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

DoCmd.OpenForm "Form Intervenant", , , "[NomInterv] =" & "Forms![Form Rech Inter]![NomInterv]"

[fgiambelluco]

Bonjour
Pour des paramètres de type texte, on utilise la syntaxe

Code :

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

DoCmd.OpenForm "Form Intervenant", , , "[NomInterv] ='" & Forms![Form Rech Inter]![NomInterv] & "'"

[glooping]

Merci, c'était cela.

[Edit]
Maintenant je voudrais qu'il me l'ouvre avec plusieurs critères mais ma formule ne lui convient pas il me met "Incompatibilité de type" que faire?
Merci

Code :

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

DoCmd.OpenForm "Form Intervenant", , , ("[NomInterv] ='" & Forms![Form Rech Inter]![NomInterv] & "'") And ("[PrenInterv] ='" & Forms![Form Rech Inter]![PrenInterv] & "'")

[fgiambelluco]

Re
C'est un problème dans ta syntaxe.
Tous les critères doivent être dans la chaine. Tu avais le And à l'extérieur et les ().

Code :

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

DoCmd.OpenForm "Form Intervenant", , , "[NomInterv] ='" & Forms![Form Rech Inter]![NomInterv] & "' And [PrenInterv] ='" & Forms![Form Rech Inter]![PrenInterv] & "'"