Private Sub cmd新規_Click()
On Error GoTo Err_cmd新規_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmd新規_Click:
Exit Sub
Err_cmd新規_Click:
MsgBox Err.Description
Resume Exit_cmd新規_Click
End Sub
acFirst
expression.GoToRecord(ObjectType, ObjectName, Record, Offset)
ObjectType 省略可能
acActiveDataObject (既定値)
acDataForm
acDataFunction
acDataQuery
acDataServerView
acDataStoredProcedure
acDataTable
Record 省略可能
acFirst
acGoTo
acLast
acNewRec
acNext (既定値)
acPrevious