Staying on Same Record

[mwabbe]

Hello, I am trying to make an employee directory database. there a few tables used to enter info about each employee such as general, benefits, emergency contact and so on. i have a button that is for a new employee. it opens the first form, the general form where things like the name and id are typed in. i have a button to save the record and open the next form for input "benefits". is there any way to make it stay on the current record so that the name and id from the first form are the same on the next.

[RuralGuy]

What are you doing to make it move off of the current record? Access does not do that on it's own.

[weekend00]

RuralGuy: He opens another form, the new opened form doesn't focus on the new added record.

[RuralGuy]

OK then, here's my preference: http://www.baldyweb.com/OpenArgs.htm
Paul put that together at my prompting since I'm too lazy.

[mwabbe]

i am getting a type mismatch error. god is it annoying

[RuralGuy]

Are you trying to match up a String or a Number?

[mwabbe]

trying to match up number-number, text-text, text-text

[RuralGuy]

Did you use the OpenArgs approach? If so, lets see your OnLoad code from start to finish.

[mwabbe]

Private Sub Form_Load()

Dim strOpenArgs() As String
If Not IsNull(Me.OpenArgs) Then
strOpenArgs = Split(Me.OpenArgs, ";")
Me.EmployeeID = strOpenArgs(0)
Me.Text44 = strOpenArgs(1)
Me.Text46 = strOpenArgs(2)
End If
End Sub

[RuralGuy]

Try This code:

Private Sub Form_Load()
   Dim strOpenArgs() As String
   
   If Not IsNull(Me.OpenArgs) Then
      strOpenArgs = Split(Me.OpenArgs, ";")
      Me.EmployeeID = strOpenArgs(0)         '-- A Number
      Me.Text44 = "'" & strOpenArgs(1) & "'" '-- A String
      Me.Text46 = "'" & strOpenArgs(2) & "'" '-- Another string
   End If
    
End Sub

BTW...I used code tags , the # in the advanced toolbar.

[mwabbe]

thank you, i changed that i keep getting the same error and when i hit debug this line comes up. its the line that i use on the button to go from one form to the next.

DoCmd.OpenForm "Benefits", acNormal, "", "", "", acDialog, Me.Text59 & ";" & Me.First_Name & ";" & Me.Last_Name

[mwabbe]

Took the qoutes out of those empty arguments. works now. thanks for the help rural guy

[RuralGuy]

Excellent and you are very welcome.