Expand Comments Field

[access2010]

Hello we are using MS Access 2003 and would like to expand our comments field without using

Shift + F2

Could I please receive the code on how to accomplish this

Thank you

Wendy

 

[CJ_London]

perhaps something like

Private Sub myComments_GotFocus()
    myComments.height=myComments.height*4
End Sub

Private Sub myComments_LostFocus()
  myComments.height=myComments.height/4
End Sub

change the name of myComments to the name of your comments control

 

[missinglinq]

Or simply

Private Sub  myComments_GotFocus()
  DoCmd.RunCommand acCmdZoomBox
End Sub

But I like CJ's approach in that you can adjust the size to suit your needs by changing the factor of 4 to something else!

Linq ;0)>