A
Anthony Law
I have a database which has a form which has several
buttons on it. One my "cmdAddNew" button dosen't work.
It did before I got greedy and tried to change the locking
properties of my form/table/query. :-( Anyway this is the
code for my problem button
*****************************************************
Private Sub cmdAddNew_Click()
On Error GoTo Err_cmdAddNew_Click
DoCmd.OpenTable "tblChange_Request_1", , acAdd
DoCmd.GoToRecord acDataTable, "tblChange_Request_1",
acLast
DoCmd.Requery
Exit_cmdAddNew_Click:
Exit Sub
Err_cmdAddNew_Click:
MsgBox Err.Description
Resume Exit_cmdAddNew_Click
End Sub
*********************************************************
The rest of my controls work perfectly.
buttons on it. One my "cmdAddNew" button dosen't work.
It did before I got greedy and tried to change the locking
properties of my form/table/query. :-( Anyway this is the
code for my problem button
*****************************************************
Private Sub cmdAddNew_Click()
On Error GoTo Err_cmdAddNew_Click
DoCmd.OpenTable "tblChange_Request_1", , acAdd
DoCmd.GoToRecord acDataTable, "tblChange_Request_1",
acLast
DoCmd.Requery
Exit_cmdAddNew_Click:
Exit Sub
Err_cmdAddNew_Click:
MsgBox Err.Description
Resume Exit_cmdAddNew_Click
End Sub
*********************************************************
The rest of my controls work perfectly.