求助：按条件查询数据

我的问题没人回答，不过你的问题比我菜，看看我的回答你能不能用

在Command2单击事件中加入以下代码：

Private Sub Command2_Click()
Dim strTemp As String
Dim Rs1 As ADODB.Recordset
Set Rs1 = New ADODB.Recordset
    strTemp = "Select * From 建单副本"
    Rs1.Open strTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
               '保存到建单表中
            Rs1.AddNew
            Rs1("建单人") = Me![建单人]
            Rs1("单号") = Me![单号]
            Rs1.Update
          

           Me.建单人 = ""
           Me.单号 = ""

    MsgBox "数据已更新成功成功", vbInformation, "提交成功"
    
Err_提交_Click:
    MsgBox Err.Description
    Resume Exit_提交_Click
End Sub