voil=E0, dans ma base de donn=E9es Access, j'ai plusieurs=20
formulaires et un module.
Dans le module, je cr=E9e une fonction (ou serait-ce mieux=20
une proc=E9dure?) qui est appel=E9 au d=E9marrage de chaque=20
formulaire.
Cependant je ne sais comment d=E9clarer le passage d'1=20
param=E8tre, voici le code :
---------------------Module-----------------------
Public Sub remplir_cases_a_cocher(frm As String)
Dim sem As Integer
Dim journ=E9e As String
sem =3D [Forms]![frm]![n=B0sem]
journ=E9e =3D [Forms]![frm]![journ=E9e]
msgbox sem
msgbox journ=E9e
------------------Formulaire "Test"-------------------
Private Sub Form_Load()
remplir_cases_a_cocher ("Test")
...et l=E0, rien ne se passe (aucun MsgBox), ma d=E9claration=20
ou mes variables posent probl=E8me!!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
seb-seb
retire les guillement je pense
"jérémy" a écrit dans le message de news:080101c3d502$8b0fb860$ Bonjour,
voilà, dans ma base de données Access, j'ai plusieurs formulaires et un module.
Dans le module, je crée une fonction (ou serait-ce mieux une procédure?) qui est appelé au démarrage de chaque formulaire.
Cependant je ne sais comment déclarer le passage d'1 paramètre, voici le code :
---------------------Module----------------------- Public Sub remplir_cases_a_cocher(frm As String) Dim sem As Integer Dim journée As String sem = [Forms]![frm]![n°sem] journée = [Forms]![frm]![journée] msgbox sem msgbox journée
------------------Formulaire "Test"------------------- Private Sub Form_Load() remplir_cases_a_cocher ("Test")
...et là, rien ne se passe (aucun MsgBox), ma déclaration ou mes variables posent problème!!
Si qq'un peut m'aider, merci.
retire les guillement je pense
"jérémy" <elrorqual@hotmail.com> a écrit dans le message de
news:080101c3d502$8b0fb860$a401280a@phx.gbl...
Bonjour,
voilà, dans ma base de données Access, j'ai plusieurs
formulaires et un module.
Dans le module, je crée une fonction (ou serait-ce mieux
une procédure?) qui est appelé au démarrage de chaque
formulaire.
Cependant je ne sais comment déclarer le passage d'1
paramètre, voici le code :
---------------------Module-----------------------
Public Sub remplir_cases_a_cocher(frm As String)
Dim sem As Integer
Dim journée As String
sem = [Forms]![frm]![n°sem]
journée = [Forms]![frm]![journée]
msgbox sem
msgbox journée
------------------Formulaire "Test"-------------------
Private Sub Form_Load()
remplir_cases_a_cocher ("Test")
...et là, rien ne se passe (aucun MsgBox), ma déclaration
ou mes variables posent problème!!
"jérémy" a écrit dans le message de news:080101c3d502$8b0fb860$ Bonjour,
voilà, dans ma base de données Access, j'ai plusieurs formulaires et un module.
Dans le module, je crée une fonction (ou serait-ce mieux une procédure?) qui est appelé au démarrage de chaque formulaire.
Cependant je ne sais comment déclarer le passage d'1 paramètre, voici le code :
---------------------Module----------------------- Public Sub remplir_cases_a_cocher(frm As String) Dim sem As Integer Dim journée As String sem = [Forms]![frm]![n°sem] journée = [Forms]![frm]![journée] msgbox sem msgbox journée
------------------Formulaire "Test"------------------- Private Sub Form_Load() remplir_cases_a_cocher ("Test")
...et là, rien ne se passe (aucun MsgBox), ma déclaration ou mes variables posent problème!!
Si qq'un peut m'aider, merci.
alain.paugam
>-----Message d'origine----- Bonjour,
voilà, dans ma base de données Access, j'ai plusieurs formulaires et un module.
Dans le module, je crée une fonction (ou serait-ce mieux une procédure?) qui est appelé au démarrage de chaque formulaire.
Cependant je ne sais comment déclarer le passage d'1 paramètre, voici le code :
---------------------Module----------------------- Public Sub remplir_cases_a_cocher(frm As String) Dim sem As Integer Dim journée As String sem = [Forms]![frm]![n°sem] journée = [Forms]![frm]![journée] msgbox sem msgbox journée
------------------Formulaire "Test"------------------- Private Sub Form_Load() remplir_cases_a_cocher ("Test")
....et là, rien ne se passe (aucun MsgBox), ma
déclaration
ou mes variables posent problème!!
Si qq'un peut m'aider, merci.
.
Réponse possible S'il s'agit de contrôles ayant le même nom dans les différents formulaire, il suffit de créer la procédure
Public Sub remplir_cases_a_cocher() msgbox Scren.ActiveForm("n° sem") msgbox Scren.ActiveForm("journée") End sub
La procédure Form_Load devient
Private Sub Form_Load() remplir_cases_a_cocher end sub
Lors du chargement du Form celui-ci devient actif
la ligne msgbox Scren.ActiveForm.name renvoie le nom du fromulaire actif (stocké dans la propriété ActiveForm voilà !!
>-----Message d'origine-----
Bonjour,
voilà, dans ma base de données Access, j'ai plusieurs
formulaires et un module.
Dans le module, je crée une fonction (ou serait-ce mieux
une procédure?) qui est appelé au démarrage de chaque
formulaire.
Cependant je ne sais comment déclarer le passage d'1
paramètre, voici le code :
---------------------Module-----------------------
Public Sub remplir_cases_a_cocher(frm As String)
Dim sem As Integer
Dim journée As String
sem = [Forms]![frm]![n°sem]
journée = [Forms]![frm]![journée]
msgbox sem
msgbox journée
------------------Formulaire "Test"-------------------
Private Sub Form_Load()
remplir_cases_a_cocher ("Test")
....et là, rien ne se passe (aucun MsgBox), ma
déclaration
ou mes variables posent problème!!
Si qq'un peut m'aider, merci.
.
Réponse possible
S'il s'agit de contrôles ayant le même nom dans les
différents formulaire, il suffit de créer la procédure
Public Sub remplir_cases_a_cocher()
msgbox Scren.ActiveForm("n° sem")
msgbox Scren.ActiveForm("journée")
End sub
La procédure Form_Load devient
Private Sub Form_Load()
remplir_cases_a_cocher
end sub
Lors du chargement du Form celui-ci devient actif
la ligne msgbox Scren.ActiveForm.name renvoie le nom du
fromulaire actif (stocké dans la propriété ActiveForm
voilà !!
voilà, dans ma base de données Access, j'ai plusieurs formulaires et un module.
Dans le module, je crée une fonction (ou serait-ce mieux une procédure?) qui est appelé au démarrage de chaque formulaire.
Cependant je ne sais comment déclarer le passage d'1 paramètre, voici le code :
---------------------Module----------------------- Public Sub remplir_cases_a_cocher(frm As String) Dim sem As Integer Dim journée As String sem = [Forms]![frm]![n°sem] journée = [Forms]![frm]![journée] msgbox sem msgbox journée
------------------Formulaire "Test"------------------- Private Sub Form_Load() remplir_cases_a_cocher ("Test")
....et là, rien ne se passe (aucun MsgBox), ma
déclaration
ou mes variables posent problème!!
Si qq'un peut m'aider, merci.
.
Réponse possible S'il s'agit de contrôles ayant le même nom dans les différents formulaire, il suffit de créer la procédure
Public Sub remplir_cases_a_cocher() msgbox Scren.ActiveForm("n° sem") msgbox Scren.ActiveForm("journée") End sub
La procédure Form_Load devient
Private Sub Form_Load() remplir_cases_a_cocher end sub
Lors du chargement du Form celui-ci devient actif
la ligne msgbox Scren.ActiveForm.name renvoie le nom du fromulaire actif (stocké dans la propriété ActiveForm voilà !!
