'我的程式碼 :
'datLM 為 DAO
'結果若在編輯模式或新增模式 , 關掉程式, 照樣關掉, 且不出現 'MsgBox , 並新增一筆空白資料.
'請釋疑 !!

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If datLM.Recordset.EditMode <> dbEditNone Then
   MsgBox "Please Save or Cancel ! Then you can Exit. ", vbExclamation, "LandMark"
   Cancel = True
   Exit Sub
  End If
End Sub
把"Exit Sub"刪去 , 還是有問題 ! 情形還是一樣 !!

是不是vb6對DAO無法做此項檢驗 ?????
創作者介紹
創作者 小吳 VBQA 程式設計討論 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(0) 人氣( 17 )