B
Bob
I have used code found in this newsgroup in an A2003 sp3 database on a
split database where the FE and BE reside on a LAN. I have found that
the code works on some text box controls, but not others. The type/
size of the text boxes are identical, but different (of course) field
names. Sometimes, if I include a Debug.Print
Application.Screen.ActiveForm.name in the module the error will go
away (http://groups.google.com/group/microsoft.public.access/
browse_thread/thread/35008de8017c54f7/b069e57054f71093?
hl=en&lnk=gst&q=zoom+box+font+#.) .
The code in my forms:
Private Sub cc2_DblClick(Cancel As Integer)
MyZoom
End Sub
A module's public code:
Public Function MyZoom()
'========================================================================
' Procedure : MyZoom
' Purpose : Uses the Access Utility reference to set font size zoom
boxes.
' Font size stored in s_settings table. Variable bytFontSize is
assigned
' the font value and used in the UTILITY call.
' Author : Bob Orta
' Phone : 916-350-8846
' Email: (e-mail address removed)
' DateTime : 4/9/2009 14:16
' Notes : Utility reference must be selected in Tools/References.
' Calls : See Below
'-------------------------------------------------------------------------
'Revision History
'========================================================================
Dim bytFontSize As Byte
On Error GoTo MyZoom_Error
bytFontSize = dbLookup("ZoomBoxFontSize", "SELECT ZoomBoxFontSize
FROM s_settings;")
utility.zoom_iFontSize = bytFontSize
' Debug.Print Application.Screen.ActiveForm.name
Call Application.Run("UTILITY.BuilderZoom", _
Application.Screen.ActiveForm.name,
Application.Screen.ActiveControl.name, _
Application.Screen.ActiveControl.Value)
ExitHere:
Exit Function
MyZoom_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") " _
& "in procedure MyZoom of Module basMiscFunctions MyZoom"
End Function
Any ideas why this is happing?
Thanks for looking.
Bob
split database where the FE and BE reside on a LAN. I have found that
the code works on some text box controls, but not others. The type/
size of the text boxes are identical, but different (of course) field
names. Sometimes, if I include a Debug.Print
Application.Screen.ActiveForm.name in the module the error will go
away (http://groups.google.com/group/microsoft.public.access/
browse_thread/thread/35008de8017c54f7/b069e57054f71093?
hl=en&lnk=gst&q=zoom+box+font+#.) .
The code in my forms:
Private Sub cc2_DblClick(Cancel As Integer)
MyZoom
End Sub
A module's public code:
Public Function MyZoom()
'========================================================================
' Procedure : MyZoom
' Purpose : Uses the Access Utility reference to set font size zoom
boxes.
' Font size stored in s_settings table. Variable bytFontSize is
assigned
' the font value and used in the UTILITY call.
' Author : Bob Orta
' Phone : 916-350-8846
' Email: (e-mail address removed)
' DateTime : 4/9/2009 14:16
' Notes : Utility reference must be selected in Tools/References.
' Calls : See Below
'-------------------------------------------------------------------------
'Revision History
'========================================================================
Dim bytFontSize As Byte
On Error GoTo MyZoom_Error
bytFontSize = dbLookup("ZoomBoxFontSize", "SELECT ZoomBoxFontSize
FROM s_settings;")
utility.zoom_iFontSize = bytFontSize
' Debug.Print Application.Screen.ActiveForm.name
Call Application.Run("UTILITY.BuilderZoom", _
Application.Screen.ActiveForm.name,
Application.Screen.ActiveControl.name, _
Application.Screen.ActiveControl.Value)
ExitHere:
Exit Function
MyZoom_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") " _
& "in procedure MyZoom of Module basMiscFunctions MyZoom"
End Function
Any ideas why this is happing?
Thanks for looking.
Bob