I am trying to initialise a form. I would like it clear all the text boxes,
except the last one should be popluated with "Yes" (but the user can enter
whatever info is appropriate is "yes" is not). The set.focus command works,
but the last box is still empty. What am I doing wrong?

Private Sub EnterNewConsult_Initialize()

txtStore.Value = ""

txtCustomerName.Value = ""

txtClosed.Value = "yes"

txtStore.SetFocus

End Sub

Change this:

Private Sub EnterNewConsult_Initialize()

To this:

Private Sub UserForm_Initialize()

It does not recognize the UserForm name for the Initialize event, It has to
be the constant provided by microsoft.

"Jacy Erdelt" wrote:

I am trying to initialise a form. I would like it clear all the text boxes,
except the last one should be popluated with "Yes" (but the user can enter
whatever info is appropriate is "yes" is not). The set.focus command works,
but the last box is still empty. What am I doing wrong?

Private Sub EnterNewConsult_Initialize()

txtStore.Value = ""

txtCustomerName.Value = ""

txtClosed.Value = "yes"

txtStore.SetFocus

End Sub

Try this:
Private Sub cmdNewPT_Click() 'my CommandButton is named 'cmdNewPT'...change
this to match the name of your button!!
Dim C As MSForms.Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then
C.Text = ""
End If
Next C
End Sub

Regards,
Ryan---
--
RyGuy


"JLGWhiz" wrote:

Change this:

Private Sub EnterNewConsult_Initialize()

To this:

Private Sub UserForm_Initialize()

It does not recognize the UserForm name for the Initialize event, It has to
be the constant provided by microsoft.

"Jacy Erdelt" wrote:

I am trying to initialise a form. I would like it clear all the text boxes,
except the last one should be popluated with "Yes" (but the user can enter
whatever info is appropriate is "yes" is not). The set.focus command works,
but the last box is still empty. What am I doing wrong?

Private Sub EnterNewConsult_Initialize()

txtStore.Value = ""

txtCustomerName.Value = ""

txtClosed.Value = "yes"

txtStore.SetFocus

End Sub

Huh? Ryan, are you on the correct thread?

"ryguy7272" wrote:

Try this:
Private Sub cmdNewPT_Click() 'my CommandButton is named 'cmdNewPT'...change
this to match the name of your button!!
Dim C As MSForms.Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then
C.Text = ""
End If
Next C
End Sub

Regards,
Ryan---
--
RyGuy


"JLGWhiz" wrote:

Change this:

Private Sub EnterNewConsult_Initialize()

To this:

Private Sub UserForm_Initialize()

It does not recognize the UserForm name for the Initialize event, It has to
be the constant provided by microsoft.

"Jacy Erdelt" wrote:

I am trying to initialise a form. I would like it clear all the text boxes,
except the last one should be popluated with "Yes" (but the user can enter
whatever info is appropriate is "yes" is not). The set.focus command works,
but the last box is still empty. What am I doing wrong?

Private Sub EnterNewConsult_Initialize()

txtStore.Value = ""

txtCustomerName.Value = ""

txtClosed.Value = "yes"

txtStore.SetFocus

End Sub

I read clear all the text boxes'. I forgot about the part about the 'last
one should be popluated with "Yes"'. My code clears all text boxes; I use
the code occasionally and it works great. What did I miss?

Thanks,
Ryan---

--
RyGuy


"JLGWhiz" wrote:

Huh? Ryan, are you on the correct thread?

"ryguy7272" wrote:

Try this:
Private Sub cmdNewPT_Click() 'my CommandButton is named 'cmdNewPT'...change
this to match the name of your button!!
Dim C As MSForms.Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then
C.Text = ""
End If
Next C
End Sub

Regards,
Ryan---
--
RyGuy


"JLGWhiz" wrote:

Change this:

Private Sub EnterNewConsult_Initialize()

To this:

Private Sub UserForm_Initialize()

It does not recognize the UserForm name for the Initialize event, It has to
be the constant provided by microsoft.

"Jacy Erdelt" wrote:

I am trying to initialise a form. I would like it clear all the text boxes,
except the last one should be popluated with "Yes" (but the user can enter
whatever info is appropriate is "yes" is not). The set.focus command works,
but the last box is still empty. What am I doing wrong?

Private Sub EnterNewConsult_Initialize()

txtStore.Value = ""

txtCustomerName.Value = ""

txtClosed.Value = "yes"

txtStore.SetFocus

End Sub

I think it will work OK if he uses the correct syntax for the
UserForm_Initialize event. I thought you had posted to the wrong thread.

"ryguy7272" wrote:

I read clear all the text boxes'. I forgot about the part about the 'last
one should be popluated with "Yes"'. My code clears all text boxes; I use
the code occasionally and it works great. What did I miss?

Thanks,
Ryan---

--
RyGuy


"JLGWhiz" wrote:

Huh? Ryan, are you on the correct thread?

"ryguy7272" wrote:

Try this:
Private Sub cmdNewPT_Click() 'my CommandButton is named 'cmdNewPT'...change
this to match the name of your button!!
Dim C As MSForms.Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then
C.Text = ""
End If
Next C
End Sub

Regards,
Ryan---
--
RyGuy


"JLGWhiz" wrote:

Change this:

Private Sub EnterNewConsult_Initialize()

To this:

Private Sub UserForm_Initialize()

It does not recognize the UserForm name for the Initialize event, It has to
be the constant provided by microsoft.

"Jacy Erdelt" wrote:

I am trying to initialise a form. I would like it clear all the text boxes,
except the last one should be popluated with "Yes" (but the user can enter
whatever info is appropriate is "yes" is not). The set.focus command works,
but the last box is still empty. What am I doing wrong?

Private Sub EnterNewConsult_Initialize()

txtStore.Value = ""

txtCustomerName.Value = ""

txtClosed.Value = "yes"

txtStore.SetFocus

End Sub