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
Raymond [mvp]
Bonjour. il faut que les paramètres soient compatibles, passer un nom pour un string, passer un objet pour un objet etc.....
si on simplifie , pour ton cas: dans le formulaire, sur un bouton de commande Commande0: Private Sub Commande0_Click() remplir_cases_a_cocher Me.Name End Sub le formulaire ayant deux contrôles texte nommés Sem et journée: dans le module standard: Public Sub remplir_cases_a_cocher(frm As String) Dim Sem As Integer Dim Journée As String Sem = Forms(frm)("Sem") Journée = Forms(frm)("Journée") MsgBox Sem MsgBox Journée End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jérémy" a écrit dans le message de news:029b01c3d502$b52aae70$ 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.
Bonjour.
il faut que les paramètres soient compatibles, passer un nom pour un string,
passer un objet pour un objet etc.....
si on simplifie , pour ton cas:
dans le formulaire, sur un bouton de commande Commande0:
Private Sub Commande0_Click()
remplir_cases_a_cocher Me.Name
End Sub
le formulaire ayant deux contrôles texte nommés Sem et journée:
dans le module standard:
Public Sub remplir_cases_a_cocher(frm As String)
Dim Sem As Integer
Dim Journée As String
Sem = Forms(frm)("Sem")
Journée = Forms(frm)("Journée")
MsgBox Sem
MsgBox Journée
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"jérémy" <elrorqual@hotmail.com> a écrit dans le message de
news:029b01c3d502$b52aae70$a001280a@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!!
Bonjour. il faut que les paramètres soient compatibles, passer un nom pour un string, passer un objet pour un objet etc.....
si on simplifie , pour ton cas: dans le formulaire, sur un bouton de commande Commande0: Private Sub Commande0_Click() remplir_cases_a_cocher Me.Name End Sub le formulaire ayant deux contrôles texte nommés Sem et journée: dans le module standard: Public Sub remplir_cases_a_cocher(frm As String) Dim Sem As Integer Dim Journée As String Sem = Forms(frm)("Sem") Journée = Forms(frm)("Journée") MsgBox Sem MsgBox Journée End Sub
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jérémy" a écrit dans le message de news:029b01c3d502$b52aae70$ 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!!
