有关两个窗体同时存在，程序代码运行的问题？(一个窗体处于当前窗体状态，在另一窗体中运行代码）

Question

Set cn = New ADODB.Connection
cn.Open strcnn
cn.BeginTransSet cmd = New ADODB.CommandstrSQL = "update transfer_shop_receive set transhop_auditinguser=" & _
        "'" & ls_AuditingUserName & "'" & _
        " where transhop_transferid=" & "'" & ls_TransferID & "'"
        
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandText = strSQL
cmd.Execute
放到Frmprogress.active中。

Answer 1

阿波兄，我不想把代码放到frmprogress中
我想把frmprogress做成一个公用的窗体
我有很多窗体要调用frmprogress
我不想做多个frmprogress谢谢！

Answer 2

Private Sub Form_LostFocus()
    Me.SetFocus
End Sub

Answer 3

新建一个工程，然后添加两个form ,  form1、form2
设置form2的autoredraw为true,在form1上面添加一个按钮
粘贴一下代码到from1Dim WithEvents frmtest As Form
Private Sub Command1_Click()
Set frmtest = Form2
Form2.Show vbModeless, Form1End SubPrivate Sub frmtest_Load()
    frmtest.Print "哈哈哈哈，我又干成了一件事"End Sub
你会发现，在代码窗体的左边对象里面可以看到有frmtest ,点他，右边显示出一个窗体的所有事件。需要用的时候只要 
set frmtest=你的目标窗体。
不是是否有些启发？？？