Access validation rules to ensure accurate data entry

[RuralGuy]

Do you know how to put that code in the right event?

[sroy]

Worked.
I have put another macro which I found my online search and kept under the above code.

Now when I try to input in my input boxes it shows warning : If "Form1" is a new macro group, make sure you have saved it and that you have typed its name correctly.
Is the two macro clashing ?

[sroy]

Its the other code which I kept below your macro code. Yes I know hoe to put the code[selected input box, then build event and inside code builder]
Private Sub Command1_Click()
Dim ctrl As Control
For Each ctl In Form.Controls
If TypeOf ctl Is TextBox Then
ctl.SetFocus
ctl.Text = ""
End If
Next
End Sub

[RuralGuy]

Did you put that code in the Click event of a button on your form?

[sroy]

Yes RG I have put that code in the Click event of a button on my form to clear the text box inputs.

[RuralGuy]

Go ahead and post ALL of the code in your form's code module.

[sroy]

nope not working RG.

[RuralGuy]

Copy and paste your code module into a post so we can see what you have.

[sroy]

Private Sub Text2_BeforeUpdate(Cancel As Integer)
If InStr(Me.Text2, "*") Then
MsgBox "You are using and asterisk '*'", vbCritical + vbOKOnly
End If
End Sub

Private Sub Reset_Click()
Dim ctrl As Control
For Each ctl In Form1.Controls
If TypeOf ctl Is TextBox Then
ctl.SetFocus
ctl.Text = ""
End If
Next
End Sub

[RuralGuy]

Try changing your button code to:

Private Sub Reset_Click()
   Dim ctl As Control
   For Each ctl In Me.Controls
      If TypeOf ctl Is TextBox Then
         ctl = ""
      End If
   Next
End Sub

[sroy]

Thanks it worked. Well can I add the star macro code with the search button of the form so that instead of giving waring on entry let it show warning on clicking the search button.

[RuralGuy]

Have you tried it?

[sroy]

No not tried it. perhaps some if else may help not sure.