setting subform to new record

skinny · September 16th, 2003, 08:04 AM

I have a subform for storing patient data that is linked to the master form by the patient identifier number. The subform is deseigned to record investigation results indexed by patient number and date. How can I automatically move to a new record in this subform each time it has the focus? I have tried using a go to record macro with new record set but each time get an error "form not open"
Help please!!
Thanks

IMO · September 16th, 2003, 08:15 AM

In design view of your subform, select one of the fields and goto properties. In the Double Click event of that field put the following code...

Code:

Private Sub YourField_DblClick(Cancel As Integer)

DoCmd.GoToRecord , , acNewRec

End Sub

Now every time your main form is open and you Double Click on that field in the subform it will go to a new blank record.

HTH
IMO

Steven · September 17th, 2003, 02:14 AM

Hey skinny,

If you want the user to only be able to enter data, and not review it, set the DataEntry property to be true, but if you want them to be able to see the existing records until something happens (eg Field1 gets the focus) then change the dataentry property on that event for example:

Code:

Private Sub Field1_GotFocus()
Me.DataEntry = True
End Sub

Steven

I am a loud man with a very large hat. This means I am in charge

jonamukundu · January 3rd, 2006, 04:57 AM

HOW ABOUT USING THIS CODE ON YOUR SUBFORM's ENTER EVENT

Private Sub YourSubForm_Enter()
' force the subform to always open in new record
DoCmd.GoToRecord , , acNewRec
End Sub

hope this helps
gimme feedback on [email protected]

kindler · January 3rd, 2006, 02:57 PM

Enter Design View on the subform you'd like to change. Open the Properties window, select the Detail item, go to the Event tab, push the "..." button next to "On Click" and enter the following line of code:

DoCmd.GoToRecord , , acNext

Add in any error handling code you'd like. Now whenever you click on the form itself you will move to the next record, but you will still be able to edit the text boxes. If you want to make the text boxes uneditable and have clicking on them advance to the next record too, simply add a transparent "Next Record" command button over the entire form.

Edit: Change acNext to acNewRec if you want it to go to a blank record, and use the first solution I listed instead of the 2nd.