LV超3A名牌購物網
建立一個應到時間資料表,輸入應到時間一筆
開啟簽到表單設計畫面,加入一個未結合文字方塊Text0
如要隱藏此文字方塊,可開啟此文字方塊屬性表-->格式-->可見,設為否
建立表單On Current事件程序(填入紅色 字)
Private Sub Form_Current()
Text0 = DMax("時間", "應到時間")
End Sub
建立學號 After Update事件程序(填入紅色字),原來的巨集不需用
Private Sub 學號_AfterUpdate()
If 時間 > Text0 Then
備註 = "遲到"
Else
備註 = "已簽到"
End If
DoCmd.GoToRecord , , acNewRec
End Sub
已將檔案再傳給您
請試試看
有問題再聯絡
全站熱搜