Need a dialog box to all a user to add 3 different pieces of data

[jeaneshe]

Does someone have a simple bit of code that encompasses running a dialog box with only labels and textbox inputs in a macro? I'm not sure why I'm having such a problem, but sometimes the simplest things get lost in the trees.
Here is the form. I don't know how to call it from the macro or how to obtain the text values. Actually, I think if I could call it I can figure out how to get the values. Please help....

 

[SkipVought]

hi,

Your code please.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[jeaneshe]

Option Explicit


Private Sub CommandButton1_Click()

End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub textBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[PHV]

I don't know how to call it from the macro
Load UserForm1
UserForm1.Show

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[jeaneshe]

Ok.... I used the suggested form loads in my main code block:

Load UserForm1
UserForm1.Show

It appears to work. Then I went to the form and wrote the code under the clicked event.

Private Sub CommandButton1_Click()
Dim entIdTp As String
Dim entIdNum As String
Dim entOcc As String

User will enter data in the textboxes, I capture that with in the variables.
entIdTp = textBox1.Text
entIdNum = TextBox2.Text
entOcc = TextBox3.Text

I then unloaded the form to close it:
Unload UserForm1
End Sub

Are the variable values available to the project once I unload the form? Or do I have to call

something like CommandButton1_Click(entId, entIdNum, entOcc)?

Thank you for helping!