Private Sub Command14_Click()

End Sub

Private Sub Command15_Click()
Dim stDocName As String
Dim WhereCondition As String
stDocName = "项目差旅表弹窗"
WhereCondition = "[合同编号] & [产品型号] & [项目名称] like '*" & [Forms]![合同查询窗体]![查询输入] & "*'"
DoCmd.OpenForm stDocName, acNormal, , WhereCondition, acFormReadOnly
End Sub

Private Sub Command4_Click()
Dim stDocName As String
Dim WhereCondition As String
stDocName = "合同自备件-协议弹窗"
WhereCondition = "[合同编号] & [产品型号] & [项目名称] like '*" & [Forms]![合同查询窗体]![查询输入] & "*'"
DoCmd.OpenForm stDocName, acNormal, , WhereCondition, acFormReadOnly
End Sub

Private Sub Command5_Click()
Dim stDocName As String
Dim WhereCondition As String
stDocName = "合同付款状态弹窗"
WhereCondition = "[合同编号] & [产品型号] & [项目名称] like '*" & [Forms]![合同查询窗体]![查询输入] & "*'"
DoCmd.OpenForm stDocName, acNormal, , WhereCondition, acFormReadOnly
End Sub

Private Sub Form_Load()
   '加下面这句就是子窗体数据源为表中所有数据
   ' Me.sfrList.Form.RecordSource = "SELECT * FROM 合同"
   
   '加下面这句就是子窗体默认数据源为空
   Me.sfrList.Form.RecordSource = "SELECT * FROM 合同 where 1=2"
End Sub

Private Sub Cmd_Frm_Click()
    DoCmd.OpenForm "合同查询窗体", acDesign
End Sub

Private Sub Cmd_mod_Click()
    DoCmd.OpenModule "Form_合同查询窗体"
End Sub