passage de plusieurs paramètres à uns fonction/manipulations d'Etats
1 réponse
malongalaur
bonjour,
Je voudrais manipuler le recordsource et les sourcecontrols d'un état
donné, j'ai créé un formulaire permettant de choisir le champ à mettre
dans telle ou telle colonne de mon état.(j'ai copié l'exemple
suivant:http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=319)
J'ai comme erreur "erreur définie par l'application ou par l'objet",
Je me suis dit que ça venait du fait que je ne sais pas passer
plusieurs paramètres dans une fonction, à chaque fois il me dit
"attendu :="
Merci de votre aide
Le code donne ceci:
Private Sub MakeReport()
'On Error GoTo Err_MakeReport
'Open report in design view to write properties to objects
DoCmd.OpenReport "MODELE", acDesign
'Read combo box selections and use subroutine to set report object
properties
End Sub
//////////////////////////////////////////////////////
Public Sub SetReportControls(varFieldName As String, conLabel As
Control, conTextBox As Control)
'Check if selection is 'null'
If IsNull(varFieldName) Then 'Blank out the relevant objects
Reports!MODELE.conLabel.Caption = " "
Reports!MODELE.conTextBox.ControlSource = ""
Else 'Write the selected field name to the appropriate objects
Reports!MODELE.conLabel.Caption = varFieldName
Reports!MODELE.conTextBox.ControlSource = varFieldName
Je voudrais manipuler le recordsource et les sourcecontrols d'un état donné, j'ai créé un formulaire permettant de choisir le champ à mettre dans telle ou telle colonne de mon état.(j'ai copié l'exemple suivant:http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID19) J'ai comme erreur "erreur définie par l'application ou par l'objet", Je me suis dit que ça venait du fait que je ne sais pas passer plusieurs paramètres dans une fonction, à chaque fois il me dit "attendu :="
Merci de votre aide
Le code donne ceci:
Private Sub MakeReport() 'On Error GoTo Err_MakeReport
'Open report in design view to write properties to objects
DoCmd.OpenReport "MODELE", acDesign
'Read combo box selections and use subroutine to set report object properties
End Sub ////////////////////////////////////////////////////// Public Sub SetReportControls(varFieldName As String, conLabel As Control, conTextBox As Control) 'Check if selection is 'null'
If IsNull(varFieldName) Then 'Blank out the relevant objects Reports!MODELE.conLabel.Caption = " " Reports!MODELE.conTextBox.ControlSource = ""
Else 'Write the selected field name to the appropriate objects Reports!MODELE.conLabel.Caption = varFieldName Reports!MODELE.conTextBox.ControlSource = varFieldName
End If
End Sub
B onjour.
tu devrais consulter l'auteur qui t'expliquera tout.
Ray Blake
ray@grbps.com
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"LaurentA" <malongalaur@mailcity.com> a écrit dans le message de news:
44c99bb2.0409220838.733d65c9@posting.google.com...
bonjour,
Je voudrais manipuler le recordsource et les sourcecontrols d'un état
donné, j'ai créé un formulaire permettant de choisir le champ à mettre
dans telle ou telle colonne de mon état.(j'ai copié l'exemple
suivant:http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID19)
J'ai comme erreur "erreur définie par l'application ou par l'objet",
Je me suis dit que ça venait du fait que je ne sais pas passer
plusieurs paramètres dans une fonction, à chaque fois il me dit
"attendu :="
Merci de votre aide
Le code donne ceci:
Private Sub MakeReport()
'On Error GoTo Err_MakeReport
'Open report in design view to write properties to objects
DoCmd.OpenReport "MODELE", acDesign
'Read combo box selections and use subroutine to set report object
properties
End Sub
//////////////////////////////////////////////////////
Public Sub SetReportControls(varFieldName As String, conLabel As
Control, conTextBox As Control)
'Check if selection is 'null'
If IsNull(varFieldName) Then 'Blank out the relevant objects
Reports!MODELE.conLabel.Caption = " "
Reports!MODELE.conTextBox.ControlSource = ""
Else 'Write the selected field name to the appropriate objects
Reports!MODELE.conLabel.Caption = varFieldName
Reports!MODELE.conTextBox.ControlSource = varFieldName
Je voudrais manipuler le recordsource et les sourcecontrols d'un état donné, j'ai créé un formulaire permettant de choisir le champ à mettre dans telle ou telle colonne de mon état.(j'ai copié l'exemple suivant:http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID19) J'ai comme erreur "erreur définie par l'application ou par l'objet", Je me suis dit que ça venait du fait que je ne sais pas passer plusieurs paramètres dans une fonction, à chaque fois il me dit "attendu :="
Merci de votre aide
Le code donne ceci:
Private Sub MakeReport() 'On Error GoTo Err_MakeReport
'Open report in design view to write properties to objects
DoCmd.OpenReport "MODELE", acDesign
'Read combo box selections and use subroutine to set report object properties
End Sub ////////////////////////////////////////////////////// Public Sub SetReportControls(varFieldName As String, conLabel As Control, conTextBox As Control) 'Check if selection is 'null'
If IsNull(varFieldName) Then 'Blank out the relevant objects Reports!MODELE.conLabel.Caption = " " Reports!MODELE.conTextBox.ControlSource = ""
Else 'Write the selected field name to the appropriate objects Reports!MODELE.conLabel.Caption = varFieldName Reports!MODELE.conTextBox.ControlSource = varFieldName