Button add record

[Skroof]

Hi, How do i make a button add a record and launch another form thereafter. e.g You enter your details, hit on "Add Record" then it saves the record and automatically opens another form to enter another different data. What VBA code can i attach to such a button.

[Bob Fitz]

You can force a save with:

If Me.Dirty = True Then
  Me.Dirty = False
End If

You can then open a form using the OpenForm method of DoCmd. The help files will give you the syntax and detail or try this link:http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

[Skroof]

Hi Bob Fitzpatrick
Where do i add this code ?

[Bob Fitz]

Create a button with the wizard to open the second form. Put the code I gave you in the button's On Click event, below Dim declarations that the wizard has written.

[Skroof]

This is what the button has:

Option Compare Database
Private Sub btnSavenReturn_Click()
End Sub

[Bob Fitz]

Try this:

Private Sub btnSavenReturn_Click()
If Me.Dirty = True Then
Me.Dirty = False
End If
Docmd.OpenForm "[NameOfFormToBeOpened]"
End Sub

Change [NameOfFormToBeOpened] with your form name.

[Skroof]

Wow...Bob Fitzpatrick
This worked like a charm, thanks man. ow do i make it clear that data after saving it. It saves data, open the new form(AppointmentInformation), and it is all cool but it does not clear data in the text box.

[Bob Fitz]

Try This:

Private Sub btnSavenReturn_Click()
If Me.Dirty = True Then
Me.Dirty = False
End If
DoCmd.GoToRecord , , acNewRec
Docmd.OpenForm "[AppointmentInformation]"
End Sub

[Skroof]

Bob Fitzpatrick, you are a star man - now sorted. You made my day. Keep up the good work man.

[Bob Fitz]

Bob Fitzpatrick, you are a star man - now sorted. You made my day. Keep up the good work man.

Thank you. Glad to help.