求助各位高手帮忙完善代码，拜谢！

ysh5858

求助各位高手帮忙完善附件中的代码，达到我想要的功能，拜谢！{:soso_e183:}

kangking

Private Sub CmdCourseMngQuery_Click()
    Dim sLookFor As String
    Dim rs As Recordset

    sLookFor = ""
    If Text6 <> "" Then
        sLookFor = sLookFor & "模具编号='" & Text6 & "' and "
    End If
    If Text8 <> "" Then
        sLookFor = sLookFor & "零件名称='" & Text8 & "' and "
    End If
    If Text10 <> "" Then
        sLookFor = sLookFor & "编程员='" & Text10 & "' and "
    End If
    If Text12 <> "" Then
        sLookFor = sLookFor & "编程完成日期=#" & Text12 & "# and "
    End If

    If sLookFor <> "" Then
        sLookFor = Mid(sLookFor, 1, Len(sLookFor) - 5)
        Set rs = Me.加工信息.Form.Recordset
        rs.FindFirst sLookFor
        If rs.NoMatch Then
            MsgBox "没有找到"
        End If
        Me.加工信息.SetFocus
        Me.加工信息.Form.工序ID.SetFocus

        Me.加工信息.Form.Recordset.Bookmark = rs.Bookmark
        Set rs = Nothing
    Else
        MsgBox "请输入条件"
    End If

End Sub

Private Sub Command36_Click()
Text6 = ""
Text8 = ""
Text10 = ""
Text12 = ""
End Sub

写了一个查找和清空的代码，其它你再完善吧（因为其它的我没有看懂）

ysh5858

kangking 发表于 2011-11-8 10:25
Private Sub CmdCourseMngQuery_Click()
    Dim sLookFor As String
    Dim rs As Recordset

首先谢谢KANKING，老大的解答！基本达到我的第一个要求，但查询还不够准确，比如查找一个零件名称只能查到第一项记录，下面的记录就看不到，我要求查找到对象后，显示对象，其它无关的就隐藏起来。还望老大继续帮忙完善一下！第二项要求还望后面高手出招，谢谢！

kangking

ysh5858 发表于 2011-11-8 20:58
首先谢谢KANKING，老大的解答！基本达到我的第一个要求，但查询还不够准确，比如查找一个零件名称只能查到 ...

只怪我先前理解有误。
修改如下：
Private Sub CmdCourseMngQuery_Click()
    Dim sLookFor As String
   
    sLookFor = ""
    If Text6 <> "" Then
        sLookFor = sLookFor & "模具编号='" & Text6 & "' and "
    End If
    If Text8 <> "" Then
        sLookFor = sLookFor & "零件名称='" & Text8 & "' and "
    End If
    If Text10 <> "" Then
        sLookFor = sLookFor & "编程员='" & Text10 & "' and "
    End If
    If Text12 <> "" Then
        sLookFor = sLookFor & "编程完成日期=#" & Text12 & "# and "
    End If

    If sLookFor <> "" Then
        sLookFor = Mid(sLookFor, 1, Len(sLookFor) - 5)

        Me.加工信息.Form.Filter=slookfor
        Me.加工信息.Form.Filteron=true
    Else
        MsgBox "请输入条件"
    End If

End Sub

ysh5858

谢谢！第一步已达成，还望第二步有人出招！

zgfrqzone

学习。。。。