Limit characters entered in an input box....

[lukeshuttlewood]

Hi,

Is it possible to limit the amount of characters entered in to an input box in with older versions of VBA? eg Pre 2003?

In 2003 the 'MaxLength = X' feature works but not in 2000. Any ideas?

buyercomments = InputBox("Comments Please", MaxLength = 255, buyercomments)

I know I could use a user form to limit characters but I encountered a problem with that too.....what code is needed to transfer the contents of a textbox in one form to a string dimension in a seperate form?

eg with 'Comments as string' in frmMain

frmMain.Comments = frmComments.txtComment.text

but i recieve method not found error.


Cheers
Luke

 

[erik.van.geit]

Hi,

my first idea was this

Sub test()
Do
buyercomments = InputBox("Comments Please", "title", buyercomments)
'activate next line to check
'MsgBox Len(buyercomments)
If Len(buyercomments) > 255 Then MsgBox "warning"
Loop While Len(buyercomments) > 255
End Sub

but when pasting very long strings I didn't get the warning

so I tried this, just clicked "OK" in the inputbox

Sub inputbox_maxlenght()
Dim teststring

teststring = Application.Rept("0123456789", 30)
MsgBox Len(teststring)
MsgBox Len(InputBox("Comments Please", "title", teststring))
End Sub

length seems to be restricted to 254: not for you ?

kind regards,
Erik