Private Sub cmdDeleteRecord_Click() On Error GoTo Err_cmdDeleteRecord_Click DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Dim r As DAO.Recordset Set r = CurrentDb.OpenRecordset("SELECT * FROM Wetform") 'How to get the BOf to be true when at record 1. If r.BOF Then DoCmd.GoToRecord , , acNext Else DoCmd.GoToRecord , , acPrevious End If DoCmd.SetWarnings True Exit_cmdDeleteRecord_Click: Exit Sub Err_cmdDeleteRecord_Click: MsgBox Err.Description Resume Exit_cmdDeleteRecord_Click End Sub
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE