Do Until mrs.EOF
ReDim Preserve customer_data(cnt)
customer_data(cnt) = mrs.Fields("customer_id")
disp_str = mrs.Fields("customer_name") & vbCrLf
Form_Fchs.List0.AddItem disp_str
cnt = cnt + 1
mrs.MoveNext
Loop
mrs.Close: Set mrs = Nothing
我想在里暫停代碼執行.等待Form_Fchs點擊確定后再繼續執行下面的陳述句,代碼怎么寫?就像彈出msgbox一樣.
disp_str = "確定執行?" & vbCrLf & disp_str
disp_str = disp_str & "OK"
If MsgBox(disp_str, vbYesNo, "Question") = vbYes Then
sql = "DELETE delete_partmanagementtable.*"
sql = sql & " FROM delete_partmanagementtable INNER JOIN T_Hit_Customer"
sql = sql & " ON delete_partmanagementtable.customerno = T_Hit_Customer.customer_id;"
db.Execute sql
uj5u.com熱心網友回復：
設定一個公共變數： Public blnReady As Boolean這里寫陳述句：
blnReady = False
Do Until blnReady
DoEvents
Loop
在你的 Form_Fchs 相應 Click 事件中加上
blnReady = True
uj5u.com熱心網友回復：
為什么不把后邊的代碼寫到Form_Fchs事件里呢？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115420.html
標籤：VBA
上一篇：vb 找不到工程或庫