Open a form with a blank record and view existing records

[Sara P.]

I have been trying for days now to get a blank record to appear upon opening
a form, and also to be able to view existing records. I have succeeded in
the blank record by using the DoCmd.GoToRecord,,acNewRec but when I do that I
lose access to all the existing records which I don't want! Someone please
help.

 

[Allen Browne]

Private Sub Form_Load()
If Not Me.NewRecord Then
RunCommand acCmdRecordsGotoNew
End If
End Sub

 

[Sara P.]

Thank you, Thank you, Thank you! That worked perfectly now I can stop banging
my head against the wall.
Once again much appreciated
Sara P.

 

[BB]

I am new at this stuff. Where do i paste this information and is this only
for a sub form or is it for any form?

 

[John W. Vinson]

I am new at this stuff. Where do i paste this information and is this only
for a sub form or is it for any form?

Open the form in design view. View its Properties; on the Events tab pick the
Load property. Click the ... icon next to it and choose "Code Builder". Copy
and paste the code between the Private Sub... End Sub lines that Access will
give you free of charge.

For a Subform this might not work as desired (i.e. on navigating between
records) but give it a try.

 

[BB]

Thank You so much! That worked. I wonder why they don't have that as a
property for forms.

 

[John F.]

Hi:
I have a master form, 'PATIENTS' from which I open a linked form 'SERVICES'
using a button with OpenForm using a WHERE filter:

Private Sub btnAddServices_Click()
Dim openCriteria As String

openCriteria = "[RecNum]= " & Me.[RecNum] & "AND [Admitdate] = " & "#" &
Me.[Admitdate] & "#"

DoCmd.OpenForm "SERVICES", , , openCriteria
End Sub

This works fine and opens the SERVICES form with the correct records showing.

However, if there are no records to show, I'd like to open 'SERVICES' on a
new, empty record. I tried adding the following to the SERVICES' Load event:
If Not Me.NewRecord Then
RunCommand acCmdRecordsGotoNew
but SERVICES then opens on a new record with the default values for 'RecNum'
and 'Admitdate' rather than the values visible on the calling form,
'PATIENTS'. How do I ensure that the new record has the non-default values
entered when 'SERVICES' opens?

Thank you.
johno

 

[John F.]

Figured it out!

Private Sub btnAddServices_Click()
Dim openCriteria As String

openCriteria = "[RecNum]= " & Me.[RecNum] & "AND [Admitdate] = " & "#" &
Me.[Admitdate] & "#"

DoCmd.OpenForm "SERVICES", , , openCriteria
With Forms("SERVICES")
If .NewRecord Then
.[RecNum] = Me.RecNum
.[Admitdate] = Me.Admitdate

End If
End With

End Sub

Hi:
I have a master form, 'PATIENTS' from which I open a linked form 'SERVICES'
using a button with OpenForm using a WHERE filter:

Private Sub btnAddServices_Click()
Dim openCriteria As String

openCriteria = "[RecNum]= " & Me.[RecNum] & "AND [Admitdate] = " & "#" &
Me.[Admitdate] & "#"

DoCmd.OpenForm "SERVICES", , , openCriteria
End Sub

This works fine and opens the SERVICES form with the correct records showing.

However, if there are no records to show, I'd like to open 'SERVICES' on a
new, empty record. I tried adding the following to the SERVICES' Load event:
If Not Me.NewRecord Then
RunCommand acCmdRecordsGotoNew
but SERVICES then opens on a new record with the default values for 'RecNum'
and 'Admitdate' rather than the values visible on the calling form,
'PATIENTS'. How do I ensure that the new record has the non-default values
entered when 'SERVICES' opens?

Thank you.
johno

Private Sub Form_Load()
If Not Me.NewRecord Then
RunCommand acCmdRecordsGotoNew
End If
End Sub