Combining code isn't working

  • Thread starter Thread starter LDMueller
  • Start date Start date
L

LDMueller

I have a form which runs the following code On Open:

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acPrevious
Me.cmdAddRecord.SetFocus
End Sub

It puts the focus on the Add Record command button and once I click this
button, it runs the following code:

Private Sub cmdAddRecord_Click()
On Error GoTo Err_cmdAddRecord_Click
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
Me.SetupDate = Now
NwMtrNum.SetFocus 'Move to the NwMtrNum field.
MsgBox "New matter numbers are incremented by 10's. Note the last
matter number used and increment the number by 10."
Exit_cmdAddRecord_Click:
Exit Sub
Err_cmdAddRecord_Click:
MsgBox Err.Description
Resume Exit_cmdAddRecord_Click
End Sub

All this works fine.

My problem is I want to combine it all on the On Open Event Procedure. When
I code it like the following, it acts like it's forgetting about "going to
Previous" lines and all I see is one line to enter new data. I've even tried
putting a delay code before "Me.AllowAdditions = True" and this didn't help.

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acPrevious
DoCmd.GoToRecord , , acPrevious
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
Me.SetupDate = Now
NwMtrNum.SetFocus 'Move to the NwMtrNum field.
MsgBox "New matter numbers are incremented by 10's. Note the last
matter number used and increment the number by 10."
End Sub

Can anyone help me with this?

Thank you in advance!
 
So the user can glance at the last four records entered before they enter
their new record. They need information from the previous record in order to
know what to enter for their new record (if this makes sense).
 
Have you tried setting allow records first? I've not tried it to check but I
think that should solve your problem:

Private Sub Form_Open(Cancel As Integer)
Me.AllowAdditions = True
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acPrevious, 4
DoCmd.GoToRecord , , acNewRec
Me.SetupDate = Now
NwMtrNum.SetFocus 'Move to the NwMtrNum field.
MsgBox "New matter numbers are incremented by 10's. Note the last matter
number used and increment the number by 10."
End Sub

Incidentally, you could set =Now() as the default value for your SetupDate column.

HTH
John
##################################
Don't Print - Save trees
 
Are you sure? I have successfully used similar code in the past to position a
continuous form, though not in conjunction with modifying AllowAdditions.

I'd agree about the event though, I hadn't spotted that.

HTH
John
##################################
Don't Print - Save trees
 
Maybe it's a version issue. I have just dug out an old database with

DoCmd.GoToRecord , , A_LAST
DoCmd.GoToRecord , , A_PREVIOUS, 2
DoCmd.GoToRecord , , A_NEWREC

in it and in A2003 it leaves the form with three records showing and the
cursor in the new record.

HTH
John
##################################
Don't Print - Save trees
 
Ah, now I also understand why we differed. Glad it's not a version issue or I
could have had a problem waiting to jump out at me at some point! I am fairly
sure that the OP was using a continuous form so it should work for them.

John
##################################
Don't Print - Save trees
I get it now; I was talking about a Single view form and you're talking about
a continuous or datasheet view form!

John said:
Maybe it's a version issue. I have just dug out an old database with
DoCmd.GoToRecord , , A_LAST
DoCmd.GoToRecord , , A_PREVIOUS, 2
DoCmd.GoToRecord , , A_NEWREC
in it and in A2003 it leaves the form with three records showing and the
cursor in the new record.
I'm positive! You could use
DoCmd.GoToRecord , , acLast
Click to expand...
[quoted text clipped - 4 lines]
DoCmd.GoToRecord , , acNewRec
will move it to the new record in a nanosecond.
Click to expand...
Click to expand...
Click to expand...
 
Back
Top