si ca fait deux jours alors ca va: t'es dans la norme... ![:mouarf:](https://www.developpez.net/forums/images/smilies/toine.gif)
alors voilà ton code:
1 2 3 4 5 6 7 8
| Public Function ValeurARetournerEnFonctionDuFormulaireOuvertConnu() As String
For Each MonCurrentForm In Forms
Select Case MonCurrentForm.Name
Case "Formulaire1": ValeurARetournerEnFonctionDuFormulaireOuvertConnu = Str(Forms![Formulaire1]![TarifHoraire]) 'numérique
Case "Formulaire2": ValeurARetournerEnFonctionDuFormulaireOuvertConnu = Forms![Formulaire2]![ChampSelection] 'texte
End Select
Next
End Function |
exemple SQL:
SELECT ValeurARetournerEnFonctionDuFormulaireOuvertConnu() AS Valeur;
bon je te laisse renommer tout ca, faut bien que tu fasses qqc... ![;)](https://www.developpez.net/forums/images/smilies/icon_wink.gif)
ps: reste à finioler s'il y a plusieurs formulaires ouvert
Partager