Message Prompt

[lbargers]

Hi All,

I have an excel spreadsheet that I am using automate data accross to an ms access database. A feature that I have installed is a input box to retrieve a testers comments. The problem is the input box only allows for up to 255 characters, some of the comments I am needing to capture are up to 500 chars. Is there anyway to pull up a form with a textbox on it within excel?

Private Sub messagePrompt(rowNum As Integer, colNum As Integer)
 
    Dim Message, Title, Default, MyValue
    
    Default =""
    Message = "Please enter comments for this question:"    ' Set prompt.
    Title = "Tester Comments"    ' Set title.
    
    MyValue = InputBox(Message, Title, Default)
            
End Sub

Thanks,

Larry

 

[Smitty]

Heya Larry, how about instead of calling the Input Box, just call the UF-->UserForm1.Show.

You can mimic the Input Box to look almost native, but with an expanded length to accomodate a larger than usual text box.

HTH,

Smitty

 

[lbargers]

Hey Smitty,

Thanks for the reply. I just built a user form (frmComments) but i am not sure how to call it from my worksheet.

I tried frmComments.show and I get an error "Variable not Defined"

Larry

 

[Smitty]

What's the code you're using to call it?

This will work fine:

Sub foo()
    frmComments.Show
End Sub

Smitty

 

[Joe Was]

Where ever you call your InPutBox in your code, change this to:

UserForm1.Show

 

[lbargers]

Got it work, I had a typo in my frm name. Thanks again for all the help.


Larry

 

[Smitty]

I had a typo in my frm name.

VB's cranky that way ain't it.

Glad you got it sorted.

Smitty