Search results

OK I could figure it out for the reports with the following code: Public Sub ModifyAllReports(fontName As String) On Error GoTo errlbl Dim elapsed As Single Dim rpt As AccessObject Dim openRpt As Access.Report Dim cntrl As Access.Control Dim txtbx As Access.TextBox...

I found the way to make it work by changing the code to: Private Sub Command0_Click() ModificaFonteTodosForms "Arial" End Sub However I still have a problem: the fonts in my datasheets and my reports are not changed. Any idea how to make that work? Thank you for your help! Thierry

Thank You Paulo. I have added your code to a module called "ModificaFonteTodosForms". But when I try to launch the code from a command button in a form I got the following error message: "The expression On Click you entered as the event property setting produced the following error: Procedure...

Hi, I would like to have the ability to change automatically the fontname used for all my objects (labels, text box etc..) in both my forms and reports. Not being a programmer, I have googled my problem but could not find an answer. I have tried to declare the following global variable in a...