Sub Forms

[freddie1437]

Hello, I have a question, I have an employee table with an attendance subform linked through the Employee ID. I didn't not build this database which is why I don't really want to change the structure of the database. What I want to do is add a button to go to the last record on the subform. Only problem is that the person who created it, made the subform as a database sheet so I can't add it on the subform because it only shows the datasheet. I need to add a button on the employee form that will go to the last record on the subform. Can anyone help me with this?
Thank you

[puppydogbuddy]

Place this code on the Main Form. Replace the illustrative object names (YourButton, YourSubformControl) with their actual names.

Private Sub YourButton_Click()
On Error GoTo Error_Routine
 
Me.YourSubformControl.Form!EmployeeID.SetFocus    
DoCmd.GoToRecord , , acLast
 
 
Exit_Continue:
    Exit Sub
 
Error_Routine:
    MsgBox "Error# " & Err.Number & " " & Err.Description
    Resume Exit_Continue
End Sub

[freddie1437]

Place this code on the Main Form. Replace the illustrative object names (YourButton, YourSubformControl) with their actual names.

Private Sub YourButton_Click()
On Error GoTo Error_Routine
 
Me.YourSubformControl.Form!EmployeeID.SetFocus    
DoCmd.GoToRecord , , acLast
 
 
Exit_Continue:
    Exit Sub
 
Error_Routine:
    MsgBox "Error# " & Err.Number & " " & Err.Description
    Resume Exit_Continue
End Sub

Thank you for your response; however, I am getting error#0 from Access, is there a reason?

[puppydogbuddy]

Thank you for your response; however, I am getting error#0 from Access, is there a reason?

Did you Replace the illustrative object names (YourButton, YourSubformControl) with their actual names as discussed?

Does the property sheet for YourButton_Click event show the words "EventProcedure"?

Did you compile your code without error?

[freddie1437]

Did you Replace the illustrative object names (YourButton, YourSubformControl) with their actual names as discussed?

Does the property sheet for YourButton_Click event show the words "EventProcedure"?

Did you compile your code without error?

I did change them, this is what I inserted:

Me.EmployeeFMActivityLogSDS.Form!ActionDate.SetFoc us
DoCmd.GoToRecord , , acLast

Error_Routine:

MsgBox "Error# " & Err.Number & " " & Err.Description

It says "EventProcedure", I just can't understand why it doesn't work. The code seems good. I did complie it and it complied without error. But I am still receiving error # 0. Any thoughts? Thanks again for your help!

[puppydogbuddy]

I did change them, this is what I inserted:

Me.EmployeeFMActivityLogSDS.Form!ActionDate.SetFoc us
DoCmd.GoToRecord , , acLast

Error_Routine:

MsgBox "Error# " & Err.Number & " " & Err.Description

It says "EventProcedure", I just can't understand why it doesn't work. The code seems good. I did complie it and it complied without error. But I am still receiving error # 0. Any thoughts? Thanks again for your help!

Looking at what you posted above, you left out lines 2,8, 9 and 13 of the code I gave you. That code needs to be there to prevent error 0.

Is EmployeeFMActivityLogSDS the name of your subform control on the Main form?

If it is, try this:
Me!EmployeeFMActivityLogSDS.Form!ActionDate.SetFoc us

[freddie1437]

Looking at what you posted above, you left out lines 2,8, 9 and 13 of the code I gave you. That code needs to be there to prevent error 0.

Is EmployeeFMActivityLogSDS the name of your subform control on the Main form?

If it is, try this:
Me!EmployeeFMActivityLogSDS.Form!ActionDate.SetFoc us

EmployeeFMActivityLogSDS Is the name of the subform. I was leaving out row 13. I had the other rows, I just forgot to insert them. That did work however, it sets focus correctly, but it goes to the last record on the main form not the subform. Everything else works well, but I need it go to the last record of the subform. Thank you very much!

[puppydogbuddy]

EmployeeFMActivityLogSDS Is the name of the subform. I was leaving out row 13. I had the other rows, I just forgot to insert them. That did work however, it sets focus correctly, but it goes to the last record on the main form not the subform. Everything else works well, but I need it go to the last record of the subform. Thank you very much!

change this:
DoCmd.GoToRecord , , acLast

To this:
DoCmd.RunCommand acCmdRecordsGoToLast

[freddie1437]

change this:
DoCmd.GoToRecord , , acLast

To this:
DoCmd.RunCommand acCmdRecordsGoToLast

Still the same, for some reason it sets focus, but goes to the last record of the main form.

[puppydogbuddy]

Still the same, for some reason it sets focus, but goes to the last record of the main form.

OK, try it this way (sets focus on subform control):

Me!EmployeeFMActivityLogSDS.SetFocus
DoCmd.RunCommand acCmdRecordsGoToLast

[freddie1437]

OK, try it this way (sets focus on subform control):

Me!EmployeeFMActivityLogSDS.SetFocus
DoCmd.RunCommand acCmdRecordsGoToLast

That worked perfectly! Thank you very much! I appreciate all of your help!