查询按钮代码设置

Henry D. Sy

重复发帖了吧

Henry D. Sy

Private Sub Combo1_AfterUpdate()
    Dim strRs As String
    Select Case Me.Combo1
    Case "未销售"
        strRs = "库存;租借"
    Case Else
        strRs = "销售;库存;租借"
    End Select
    Me.资料子窗体.Form.情况.RowSourceType = "Value List"
    Me.资料子窗体.Form.情况.RowSource = strRs
End Sub

Henry D. Sy

怎么可能

Henry D. Sy

主窗体的组合框更新后事件
4楼不是帮你写得很清楚了。

Henry D. Sy

晕
表达都没有表达清楚，你是查询或是组合框联动？？？？

Henry D. Sy

Private Sub Command5_Click()
    Dim strCriteria As String
    Dim strWhat As String
    If IsNull(Me.Combo1) Then
        MsgBox "enter the some data to combo1 first"
        Me.Combo1.SetFocus
        Exit Sub
    End If
    strWhat = Me.Combo1
    strCriteria = "情况='库存' or 情况='租借'"
    If strWhat = "销售" Or strWhat = "库存" Or strWhat = "租借" Then
        strCriteria = strCriteria & " Or " & "情况='销售'"
    End If
    Me.资料子窗体.Form.Filter = strCriteria
    Me.资料子窗体.Form.FilterOn = True
End Sub

Henry D. Sy

不填你查什么？

Henry D. Sy

不知道你在说什么

Henry D. Sy

搜索刘小军。

Henry D. Sy

你至少要传一个能说明你的问题的例子，
发现，你心里想的，跟你的附件差很远。