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


expression.GoToRecord(ObjectType, ObjectName, Record, Offset)

ObjectType      省略可能

acActiveDataObject (既定値) 
acDataForm 
acDataFunction 
acDataQuery 
acDataServerView 
acDataStoredProcedure 
acDataTable 

Record      省略可能

acFirst 
acGoTo 
acLast 
acNewRec 
acNext (既定値) 
acPrevious 
この引数を指定しない場合は、定数 acNext (既定値) が使われます。

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ