我有Access窗體與列表框和組合框。 Private Sub Form_Open(Cancel As Integer)
'... misc code
me.comboBox.RowSource = "sql statement"
call comboBox_AfterUpdate
End Sub
Private Sub comboBox_AfterUpdate
在我的訪問程序中,如果他們想要保存,每次他們關閉程序時都會詢問用戶。這可以從任何形式完成。出現這個問題是因爲我想創建一個全局函數來減少重複代碼。這將如何完成?在類模塊中? (這是怎麼設置的?) 如果它可以幫助我的代碼如下; If Me.Dirty Then
Dim LResponse As Integer
LResponse = MsgBox("You have unsaved change
我試圖用一個事件之前要取消選擇一個選項組。 用戶是指選項組中選擇一個值之前,輸入一個名稱。如果他們去並輸入一個名稱之前選擇一個值,他們得到一個消息框,選項組中取消選擇。 我已經嘗試設置選項組值設置爲null但只是拋出了運行時錯誤。 任何想法?提前致謝。 Private Sub og_name_BeforeUpdate(Cancel As Integer)
Dim strName As Strin
我正在嘗試編寫一個函數來循環連續子表單中的記錄並清除特定字段中的值(Entity_Under_Consideration,這是一個由組合框表示的查找字段子表單)爲每個記錄。 以下不起作用。它也不會拋出任何錯誤。任何人都可以看到我要去哪裏嗎? Public Function clearEUCData(subform As Control)
'take a clone of the sub