Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

passage de plusieurs paramètres à uns fonction/manipulations d'Etats

1 réponse
Avatar
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


SetReportControls Forms!CréationEtat.cboField1.Value, _
Reports!MODELE.lblField1, Reports!MODELE.tbField1


SetReportControls Forms!CréationEtat.cboField2.Value, _
Reports!MODELE.lblField2, Reports!MODELE.tbField2

SetReportControls Forms!CréationEtat.cboField3.Value, _
Reports!MODELE.lblField3, Reports!MODELE.tbField3

SetReportControls Forms!CréationEtat.cboField4.Value, _
Reports!MODELE.lblField4, Reports!MODELE.tbField4


'Close design view without prompting to save changes
DoCmd.Close acReport, "MODELE", acSaveYes

'Open finished report in preview view
DoCmd.OpenReport "MODELE", acPreview

'Exit_MakeReport:
'Exit Sub

'Err_MakeReport:
'MsgBox Err.Description
'Resume Exit_MakeReport


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

1 réponse

Avatar
Raymond [mvp]
B onjour.

tu devrais consulter l'auteur qui t'expliquera tout.
Ray Blake



--
@+
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" a écrit dans le message de news:

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


SetReportControls Forms!CréationEtat.cboField1.Value, _
Reports!MODELE.lblField1, Reports!MODELE.tbField1


SetReportControls Forms!CréationEtat.cboField2.Value, _
Reports!MODELE.lblField2, Reports!MODELE.tbField2

SetReportControls Forms!CréationEtat.cboField3.Value, _
Reports!MODELE.lblField3, Reports!MODELE.tbField3

SetReportControls Forms!CréationEtat.cboField4.Value, _
Reports!MODELE.lblField4, Reports!MODELE.tbField4


'Close design view without prompting to save changes
DoCmd.Close acReport, "MODELE", acSaveYes

'Open finished report in preview view
DoCmd.OpenReport "MODELE", acPreview

'Exit_MakeReport:
'Exit Sub

'Err_MakeReport:
'MsgBox Err.Description
'Resume Exit_MakeReport


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