How to code Shift-F2 to the tools bar and to a button? 2

[Werneck]

Hi,

How to code Shift-F2 to the tools bar and to a button?

This opens a A97 window which allow the user to have a better view of the filed contents.

Thanks

 

[PaulF]

you can use SendKeys

Private Sub cmdZoom_Click()
Screen.PreviousControl.SetFocus
SendKeys "+{F2}", False
End Sub

PaulF

 

[hwkranger]

i would suggest using builderzoom() it's one of access built in library files i believe. notice that when you use the zoom feature - it just opens a form.

check out the following it's from a newsgroup - not me - this person wrote their own zoombox function:

Public Function ZoomBox(strObjName As String, _
strCtlName As String, strCurrValue As String, _
Optional strFontName As String, _
Optional intFontWeight As Integer, _
Optional intFontSize As Integer) As Variant

ZoomBox = Application.Run("UTILITY.BuilderZoom", strObjName, _
strCtlName, strCurrValue, strFontName, intFontWeight, _
intFontSize)
End Function


Randall Vollen
National City Bank Corp.

Just because you have an answer - doesn't mean it's the best answer.

 

[Werneck]

These two sugestions solve my problem!
Thank you