acess2010创建宏

创建窗体，取名保存，然后左上角视图点击切换到设计视图，

数据选项卡数据输入改为是，就可以代码生成器了

Private Sub Command0_Click()

Dim Db As DAO.Database

    Dim Rs As DAO.Recordset

    Set Db = CurrentDb()

    Set Rs = Db.OpenRecordset("学生信息", dbOpenDynaset)

    '新增记录

    Rs.AddNew

        Rs!ID = 11

        Rs!姓名 = "wer"

        Rs!性别 = "asf"

    If IsNull(ID) Then

        MsgBox "没输入主键"

    Else

        '更新记录

        Rs.Update

        MsgBox "新增成功"

    End If

End Sub