設(shè)備管理

Private Sub Form_AfterUpdate()

Me.設(shè)備列表.Requery

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 數(shù)據(jù)更新前提醒_Err

? ? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then

? ? ? ? Beep

? ? Else

? ? ? ? DoCmd.RunCommand acCmdUndo

? ? End If

數(shù)據(jù)更新前提醒_Exit:

? ? Exit Sub

數(shù)據(jù)更新前提醒_Err:

? ? MsgBox Error$

? ? Resume 數(shù)據(jù)更新前提醒_Exit

End Sub

設(shè)備數(shù)據(jù)表

Private Sub 設(shè)備編號_DblClick(Cancel As Integer)

Forms("設(shè)備管理").Form.Filter = "設(shè)備編號='" & Me.設(shè)備編號 & "'"

Forms("設(shè)備管理").Form.FilterOn = True

Forms("設(shè)備管理").設(shè)備編號.SetFocus

End Sub

使用記錄數(shù)據(jù)表

Private Sub 歸還日期_DblClick(Cancel As Integer)

Me.歸還日期 = Date

End Sub

Private Sub 領(lǐng)用日期_DblClick(Cancel As Integer)

Me.領(lǐng)用日期 = Date

End Sub