UserForm2 - Textbox UserForm1 - empty and activate

[Bernd1]

Hello everybody,

I have a UserForm1 in which I check a value in a text box.
If there is a mismatch, UserForm2 opens.

Now, when confirming UserForm2 (CommandButton1_Click), I want the UserFom1 text box to empty and, at the same time, to be activated again after closing UserForm2 for further input.
I managed to do that with the empty, unfortunately not the activation (set.Focus ??) for further input.

Maybe someone here has a tip?

Code of UserForm2_
Private Sub CommandButton1_Click ()
Dim c As Control
For Each c In UserForm1.Controls
If TypeOf c Is MSForms.TextBox Then
c = ""
End If
Next
Unload UserForm2
End Sub


greeting
Bernd

 

[6StringJazzer]

Do you close UserForm1 before you open UserForm2? If not then UserForm1 should still be open. Maybe I'm not understanding your question.

What is the code in UserForm1?

 

[Bernd1]

Hi,
Yes UserForm1 is still open, but when i close the UserForm2 the "cusor" is not active in the TextBox from the UserForm1.


UserForm2:
Private Sub CommandButton1_Click()
Dim c As Control
For Each c In UserForm1.Controls
If TypeOf c Is MSForms.TextBox Then
c = ""
End If
Next
UserForm1.tbox_ItemNumber.SetFocus
Unload UserForm2

End Sub


UserForm1:
Private Sub tbox_ItemNumber_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then

getCode = Left(tbox_ItemNumber.Text, 10)

Set st = Tabelle1
Set ot = Tabelle2

getValid = True

If st.Cells(2, 1).Text <> getCode Then
getValid = False

UserForm2.Show

End If
.............

 

[Bernd1]

Hi,
i found a solution....not nice but it's works.

Private Sub CommandButton1_Click()
Unload UserForm2
Unload UserForm1
UserForm1.Show
End Sub

 

[6StringJazzer]

I'm not seeing the problem. When you call UserForm2.Show from UserForm1, UserForm1 continues to be displayed, and will still be there when you close UserForm2. What is happening that is different than what you want to happen?