Setting DataSheet Font

[JamesJ]

In Access 2007 I'm attempting to set the Datasheet font for my
split forms by calling the following from the OnOpen of my form(s)
but nothing happens. (No error Message):

Public Function DataSheetFont()

Set frm = Screen.ActiveForm

frm.DatasheetFontName = "Broadway"
frm.DatasheetFontHeight = "10"

End Function

But when I use this as a form function it works:

Private Sub Form_Open(Cancel As Integer)

Me.DatasheetFontName = "Century Gothic"
Me.DatasheetFontHeight = "10"

End Sub

I'd like to call the Public Function in the OnOpen of the form so I don't
need to change it each form.

Any help will be appreciated,
James

 

[Damon Heron]

Call the function from your form open event like this:

Call DataSheetFont(Me)

Public Function DataSheetFont(frm As Form)
frm.DatasheetFontName = "Broadway"
frm.DatasheetFontHeight = "10"
End Function

 

[JamesJ]

That was it!

Thanks much,
James

Call the function from your form open event like this:

Call DataSheetFont(Me)

Public Function DataSheetFont(frm As Form)
frm.DatasheetFontName = "Broadway"
frm.DatasheetFontHeight = "10"
End Function