Do Until Mrs. EOF 
ReDim Preserve customer_data (CNT) 
Customer_data (CNT)=Mrs. Fields (" customer_id ") 
Disp_str=Mrs. Fields (" customer_name ") & amp; VbCrLf 
Form_Fchs. List0. AddItem disp_str 
CNT=CNT + 1 
Mrs. MoveNext 
Loop 
Mrs. Close: Set Mrs=Nothing 

I'd like to pause in code execution. Wait Form_Fchs click ok and then continue to perform the following statement, how do you write the code? Just like pop-up msgbox.

 disp_str="sure?" & VbCrLf & amp; Disp_str 
Disp_str=disp_str & amp; "OK" 
If MsgBox (disp_str vbYesNo, "Question")=vbYes Then 
SQL="DELETE delete_partmanagementtable. *", "
SQL=SQL & amp; "FROM delete_partmanagementtable INNER JOIN T_Hit_Customer" 
SQL=SQL & amp; "ON delete_partmanagementtable. Customerno=T_Hit_Customer. Customer_id;" 
The db. The Execute SQL 

CodePudding user response:

Setting up a Public variables: Public blnReady As Boolean

Write statement here:
BlnReady=False
Do Until blnReady
DoEvents
Loop

In your Form_Fchs corresponding Click event with
BlnReady=True

CodePudding user response:

Why don't you put the code back into the Form_Fchs events?