Goto new record in form automatically

J

JohnGo

Registered User.

Local time

Today, 02:47

Joined

Nov 14, 2004

Messages

70

• Dec 19, 2004

• #1

When I open my orderform I would like to have a new record to be shown instead of the oldest one. Each time adding an order for a customer I have to touch the new button first. I would like to autofocus on a new record automatically.

I thought about adding code to the 'on open event' of the form, I did the following:
DoCmd.GoToRecord , "", acLast

but it doesn't help.

Does anybody know how to achieve it?
(by the way I know about setting data-entry to yes in the form properties but that setting prevents me from browsing through old records)

 

ansentry

Access amateur

Local time

Today, 21:47

Joined

Jun 1, 2003

Messages

995

• Dec 19, 2004

• #2

Try this


Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

 

J

JohnGo

Registered User.

Local time

Today, 02:47

Joined

Nov 14, 2004

Messages

70

• Dec 20, 2004

• #3

Hi there, it didn't work. It's a subform and I've put the code in the subforms on load event, but it doesn't help. The form still begins with the oldest record instead of a new record

 

P

PARSO

Registered User.

Local time

Today, 02:47

Joined

Dec 13, 2004

Messages

66

• Dec 20, 2004

• #4

try creating a macro,
'open form' and set datamode to 'Add'
hope this is what your looking for?

 

B

biskra

Registered User.

Local time

Today, 10:47

Joined

Jan 12, 2004

Messages

35

• Dec 20, 2004

• #5

i use this code, for eatch field i want to have in new record

Code:

DoCmd.GoToRecord , , acNewRec
If Me.NewRecord And Me.CurrentRecord > 1 Then
Me.trib_jug = DLast("[trib_jug]", "tbl1")
end if

 

ansentry

Access amateur

Local time

Today, 21:47

Joined

Jun 1, 2003

Messages

995

• Dec 20, 2004

• #6

The code that I submitted does not go in subform but the main form.

 

J

jgc31

Registered User.

Local time

Today, 10:47

Joined

Dec 4, 2004

Messages

78

• Dec 20, 2004

• #7

I've struggled with this particular problem for a little while and I think I have cracked it as follows

In the OnLoad or OnOpen procedure in the subform

DoCmd.GoToRecord , , acNewRec


In the main form

in the OnCurrent procedure for the main form

Me![subFormName].SetFocus

Me![subFormName].Form![Control].SetFocus

( note the subFormName is as defined in the properties panel for the subform as it is embedded into the main form NOT as is listed in either the database manager or the associated list in VBA)


and in the OnEnter procedure in the embedded subform

DoCmd.GoToRecord , , acNewRec

Hope this helps