按钮合并

dwj　发表于：2013-02-19 09:58:36 　

有两个按钮，上有代码：

Private Sub Command13_Click()
   Dim strWhere As String
   Dim i As Integer
strWhere = "true"

If Not IsNull(Me.Text1) Then strWhere = strWhere & " AND [单位名称] like ""*" & Me.Text1 & "*"""

With Me.收入sub
   .Form.Filter = strWhere
   .Form.FilterOn = True
   End With

With Me.单位名称sub
On Error Resume Next
    If Nz(Me.Text1) <> "" Then
        If IsNull(DLookup("单位名称", "接管单位列表", "单位名称 LIKE '*" & Me.Text1 & "*'")) Then
            MsgBox "目前未有[" & Me.Text1 & "]单位的资料"
            Me.Text1 = ""
            Exit Sub
        End If

        Me.RecordSource = "select * from 接管单位列表 where 单位名称 LIKE '*" & Me.Text1 & "*'"
    Else
        Me.RecordSource = "接管单位列表"
    End If
    Me.Text1 = ""
    Set Me.单位名称sub.Form.Recordset = Me.Recordset
    Me.Requery
    Me.单位名称sub.Form.单位名称.SelLength = 0
   End With

With Me.非生统计sub
   .Form.Filter = strWhere
   .Form.FilterOn = True
   End With

With Me.生活区sub
   .Form.Filter = strWhere
   .Form.FilterOn = True
   End With

Me.供应商 = Null
End Sub

按钮2的代码：

Private Sub Command105_Click()
Dim strWhere As String
   Dim i As Integer

strWhere = "true"

If Not IsNull(Me.Text61) Then strWhere = strWhere & " AND [编码] like """ & Me.Text61 & """"

With Me.收入sub
   .Form.Filter = strWhere
   .Form.FilterOn = True
   End With

With Me.单位名称sub
On Error Resume Next
    If Nz(Me.Text61) <> "" Then
        If IsNull(DLookup("ID", "接管单位列表", "ID LIKE '" & Me.Text61 & "'")) Then
            MsgBox "目前未有[" & Me.Text61 & "]号单位的资料"
            Me.Text61 = ""
            Exit Sub
        End If

        Me.RecordSource = "select * from 接管单位列表 where ID LIKE '" & Me.Text61 & "'"
    Else
        Me.RecordSource = "接管单位列表"
    End If
    Me.Text61 = ""
    Set Me.单位名称sub.Form.Recordset = Me.Recordset
    Me.Requery
    Me.单位名称sub.Form.ID.SelLength = 0
   End With

With Me.非生统计sub
   .Form.Filter = strWhere
   .Form.FilterOn = True
   End With

With Me.生活区sub
   .Form.Filter = strWhere
   .Form.FilterOn = True
   End With

End Sub

现在我想把这两个按钮合并成一个按钮，请问这个要怎么改呢？（红色部分为两段代码不同的地方）

Top

金宇发表于：2013-02-19 12:00:57

可以参照以下的方式合并代码

 If Not IsNull(Me.Text1) And Not IsNull(Me.Text61) Then
    strWhere = strWhere & " AND [单位名称] like '*" & Me.Text1 & "*' And [编码] Like '*" & Me.Text61 & "*'"
 ElseIf Not IsNull(Me.Text1) Then
    strWhere = strWhere & " AND [单位名称] like '*" & Me.Text1 & "*'"
 ElseIf Not IsNull(Me.Text61) Then
    strWhere = strWhere & " And [编码] Like '*" & Me.Text61 & "*'"
 End If

Top

dwj 发表于：2013-02-20 10:59:10

十分感谢金老师提供的合并方法，还请再帮我看下错在什么地方？

With Me.单位名称sub
On Error Resume Next
    If Nz(Me.Text1) <> "" And Nz(Me.Text61) <> "" Then
        If IsNull(DLookup("单位名称", "接管单位列表", "单位名称 LIKE '*" & Me.Text1 & "*'")) And IsNull(DLookup("ID", "接管单位列表", "ID LIKE '" & Me.Text61 & "'")) Then
            MsgBox "目前未有[" & Me.Text1 & "]单位的资料" And "目前未有[" & Me.Text61 & "]号单位的资料"
            Me.Text1 = "" And Me.Text61 = ""
            Exit Sub
        End If
        Me.RecordSource = "select * from 接管单位列表 where 单位名称 LIKE '*" & Me.Text1 & "*'" And "select * from 接管单位列表 where ID LIKE '" & Me.Text61 & "'"
    Else
        Me.RecordSource = "接管单位列表"

    End If
    Me.Text1 = "" And Me.Text61 = ""
    Set Me.单位名称sub.Form.Recordset = Me.Recordset
    Me.Requery
    Me.单位名称sub.Form.单位名称.SelLength = 0
ElseIf Nz(Me.Text1) <> "" Then       【这里提示：编译错误 else没有if】
        If IsNull(DLookup("单位名称", "接管单位列表", "单位名称 LIKE '*" & Me.Text1 & "*'")) Then
            MsgBox "目前未有[" & Me.Text1 & "]单位的资料"
            Me.Text1 = ""
            Exit Sub
        End If
        Me.RecordSource = "select * from 接管单位列表 where 单位名称 LIKE '*" & Me.Text1 & "*'"
    Else
        Me.RecordSource = "接管单位列表"

    End If
    Me.Text1 = ""
    Set Me.单位名称sub.Form.Recordset = Me.Recordset
    Me.Requery
    Me.单位名称sub.Form.单位名称.SelLength = 0
ElseIf Nz(Me.Text61) <> "" Then
        If IsNull(DLookup("ID", "接管单位列表", "ID LIKE '" & Me.Text61 & "'")) Then
            MsgBox "目前未有[" & Me.Text61 & "]号单位的资料"
            Me.Text61 = ""
            Exit Sub
        End If
        Me.RecordSource = "select * from 接管单位列表 where ID LIKE '" & Me.Text61 & "'"
     Else
        Me.RecordSource = "接管单位列表"

    End If
    Me.Text61 = ""
    Set Me.单位名称sub.Form.Recordset = Me.Recordset
    Me.Requery
    Me.单位名称sub.Form.单位名称.SelLength = 0
   End With

Top

金宇发表于：2013-02-25 09:23:21

With Me.单位名称sub
    If Not IsNull(Me.Text1) And Not IsNull(Me.Text61) Then
        If IsNull(DLookup("单位名称", "接管单位列表", "单位名称 LIKE '*" & Me.Text1 & "*' And ID Like '*" & Me.Text61 & "*'")) Then
            MsgBox "目前未有单位名称为[" & Me.Text1 & "]单位编码为[" & Me.Text61 & "]的资料"
            Me.Text1 = Null
            Me.Text61 = Null
            Exit Sub
        End If
        Me.RecordSource = "select * from 接管单位列表 where 单位名称 like '*" & Me.Text1 & "*' And ID Like '*" & Me.Text61 & "*'"
    ElseIf Not IsNull(Me.Text1) Then
        If IsNull(DLookup("单位名称", "接管单位列表", "单位名称 LIKE '*" & Me.Text1 & "*'")) Then
            MsgBox "目前未有[" & Me.Text1 & "]单位的资料"
            Me.Text1 = Null
            Exit Sub
        End If
        Me.RecordSource = "select * from 接管单位列表 where 单位名称 LIKE '*" & Me.Text1 & "*'"
    ElseIf Not IsNull(Me.Text61) Then
        If IsNull(DLookup("ID", "接管单位列表", "ID LIKE '*" & Me.Text61 & "*'")) Then
            MsgBox "目前未有[" & Me.Text61 & "]号单位的资料"
            Me.Text61 = Null
            Exit Sub
        End If
        Me.RecordSource = "select * from 接管单位列表 where ID LIKE '*" & Me.Text61 & "*'"
    End If
    Me.Text1 = Null
    Me.Text61 = Null
    Set Me.单位名称sub.Form.Recordset = Me.Recordset
    Me.Requery
    Me.单位名称sub.Form.单位名称.SelLength = 0
End With

Top

dwj 发表于：2013-03-01 09:26:08

十分感谢

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

按钮合并