clearing form after insert

[Stephen D Cook]

I'm trying to clear a form after the user clicks the Insert button so
the textboxes are empty and the checkboxes are unchecked. When I try
to put the code in the Click part of the Insert button, I get an error
telling me the Serial Number text box is empty. If I put the code in
the MouseUp part, it doesn't do anything.
please direct me to what I am doing wrong.

[Allen Browne]

Is this a form that is bound to a table or query (in the form's RecordSource
property)?

If so, you could just use this in the Click event of your command button:
If Me.Dirty Then
Me.Dirty = False
End If
If Not Me.NewRecord Then
RunCommand acCmdRecordsGot oNew
End If

If the form is unbound, you will need to loop through all the controls and
set them to Null after verifying that your submit button's write actually
worked.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Stephen D Cook" <st******@comca st.net> wrote in message
news:6o******** *************** *********@4ax.c om...

I'm trying to clear a form after the user clicks the Insert button so
the textboxes are empty and the checkboxes are unchecked. When I try
to put the code in the Click part of the Insert button, I get an error
telling me the Serial Number text box is empty. If I put the code in
the MouseUp part, it doesn't do anything.
please direct me to what I am doing wrong.

[pamelafluente]

Nice try Allen. Very good!

Stephen why not posting some code so we can look better into it ?
-Pam

[Stephen D Cook]

code is as such:

Private Sub Form_Activate()
DoCmd.GoToRecor d , , acNewRec
txtSN.SetFocus
End Sub

Private Sub cmdUpdate_Click ()
If Me![chkDead] = True Then
Me![txtDescript] = "Dead"
End If

DoCmd.GoToRecor d , , acLast
Exit Sub

There is a Serial Number textbox, a Other Problem Description text
box, a number of checkboxes for specific problems with the equipment,
and a Command Button tied to a Database, the Serial Number textbox is
bound to a SerialNumber field, and the Other Problem Description text
box is tied to the Problem field.

I put Allen's coding after the DoCmd.GoToRecor d , , acLast line of
code and it seems to work fine.

I do have one other thing I need to do, which is to pop up a message
box if there is no Serial Number entered into the Serial Number
textbox and not insert the data, as it would be invalid. I have tried
putting Msgbox coding in about everywhere I can think of with no
success. When I make the SerialNumber field in the Database required,
a message box pops up, but it is not user friendly. Any help or
suggestions with this would be helpful

On 6 Feb 2006 21:02:45 -0800, pa***********@l ibero.it wrote:

Nice try Allen. Very good!

Stephen why not posting some code so we can look better into it ?
-Pam

[Allen Browne]

Use the field's Validation Rule instead of setting its Required property:

1. Open your table in design view.

2. Select the Serial Number field.

3. In the lower pane of the table design window, set:
Required: No
Validation Rule: Is Not Null
Validation Text: Don't forget the Serial Number.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Stephen D Cook" <st******@comca st.net> wrote in message
news:3j******** *************** *********@4ax.c om...

I do have one other thing I need to do, which is to pop up a message
box if there is no Serial Number entered into the Serial Number
textbox and not insert the data, as it would be invalid. I have tried
putting Msgbox coding in about everywhere I can think of with no
success. When I make the SerialNumber field in the Database required,
a message box pops up, but it is not user friendly. Any help or
suggestions with this would be helpful

[Stephen D Cook]

Thank you very much on your help. Obviously I am new to VBA coding. I
have some experience in VB and Database Design, but VBA is a different
animal for me.
I found some code which worked in the Form_BeforeUpda te method of
If IsNull(Me.MyCom pany) Then
Cancel = True
MsgBox "You forgot 'My Company'!"
End If
End Sub
which did the trick, but your solution seems more elegant and should
cut down the processing work required.

Again, thank you very much for your generous and speedy help for a
noob to VBA.

On Tue, 7 Feb 2006 15:53:57 +0800, "Allen Browne"
<Al*********@Se eSig.Invalid> wrote:

Use the field's Validation Rule instead of setting its Required property:

1. Open your table in design view.

2. Select the Serial Number field.

3. In the lower pane of the table design window, set:
Required: No
Validation Rule: Is Not Null
Validation Text: Don't forget the Serial Number.