【正文】
人不得添加數(shù)據(jù)39。如果刪除記錄集的最后一條記錄 39。這僅對多用戶應用程序才是需要的 End SubPrivate Sub cmdUpdate_Click() = End SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 39。如果想忽略錯誤,注釋掉下一行代碼 39。 Error$(DataErr) Response = 0 39。這將顯示當前記錄位置 39。 ( + 1) 39。必須設置 Index 屬性 39。 ( * ( * )) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark Case vbDataActionClose End Select = vbHourglassEnd Sub(4)基本職工信息:Private Sub cmdAdd_Click() End SubPrivate Sub cmdDelete_Click() 39。記錄或記錄集中唯一的記錄 End SubPrivate Sub cmdRefresh_Click() 39。這就是放置錯誤處理代碼的地方 39。如果想捕捉錯誤,在這里添加錯誤處理代碼 MsgBox 數(shù)據(jù)錯誤事件命中錯誤: amp。忽略錯誤End SubPrivate Sub Data1_Reposition() = vbDefault On Error Resume Next 39。為動態(tài)集和快照 = 記錄: amp。對于 Table 對象,當記錄集創(chuàng)建后并使用下面的行時, 39。 = 記錄: amp。這是放置驗證代碼的地方 39。有時候會為了一個操作不能調(diào)試成功而整個晚上都不能去安心做其他的作業(yè)。但是我從中發(fā)現(xiàn),只要一步一步調(diào)試、靜下心來看待問題,再復雜再微小的問題都會迎刃而解,當一個程序被調(diào)試出來時,那時的快樂相比與任何困難都值得的。這時,需要回歸書本,書本是前人總結的經(jīng)驗,幾乎所有情況都會有解決方法。