问如何允许编辑通过Access数据库前端的表单访问数据库？

EN

Option Compare Database

Private Sub CellID_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Command23_Click()
On Error GoTo Err_Command23_Click


Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind

Exit_Command23_Click:
Exit Sub

Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click

End Sub
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click


DoCmd.RunCommand acCmdSaveRecord

Exit_Command24_Click:
Exit Sub

Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command24_Click

End Sub
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click


DoCmd.GoToRecord , , acNext

Exit_Command25_Click:
Exit Sub

Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click

End Sub
Private Sub Command26_Click()
On Error GoTo Err_Command26_Click


DoCmd.GoToRecord , , acPrevious

Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click

End Sub
 Private Sub Command27_Click()
On Error GoTo Err_Command27_Click


If Me.Dirty Then Me.Dirty = False
DoCmd.Quit

Exit_Command27_Click:
Exit Sub

Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click

End Sub

Private Sub Ctl50th_DC_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Dc1_BeforeUpdate(Cancel As Integer)

End Sub