Getting a Userform to reset itself back to blank

[sandyboath]

have created a userform for people to fill out a travel request, this is a combination of Txt boxes and List/ Combo boxes.

I am able to get the fom open but when used to fill in the form the next time the formopen it retains the information from the previous user.

I would like when the X (Close button is pressed) the form clears itself and then closed.

I have tried TextBox1.Value = "", but there is over 15 txt boxes a and it did not work

Can anyone help please

Thanks

 

[Paddy1979]

Hi,

This will reset them to blank using a loop.

Change '15' to the qty of textbox's on the form

Private Sub UserForm_Activate()

Dim ctrl As TextBox
Dim i As Long

For i = 1 To 15
Me.Controls("TextBox" & i).Value = ""
Next i

End Sub

 

[Norie]

Why not unload the form then display it again?

Unload Me
UserForm1.Show