Thanks very much!
~ Wei
Private Sub OK_Click()
Dim strSQL As String
Dim strOldSQL As String
strSQL = "SELECT * FROM vWorkOrders " & _
"WHERE MaxOfReleaseDate BETWEEN '" & Me.txtStart & "' AND '" & _
Me.txtEnd & "' "
If Not IsNull(Me.cbQRFType) Then
strSQL = strSQL & " AND QRFTypeDescr = '" & Me.cbQRFType & "' "
End If
If Not IsNull(Me.txtClassCode) Then
strSQL = strSQL & " AND Class = '" & Me.txtClassCode & "' "
End If
strSQL = strSQL & "ORDER BY [SN/LotStart], WorkOrderNo;"
strOldSQL = fChangeSQL("Instruments Query", strSQL)
DoCmd.OpenReport ReportName:="Instruments Detail Report"
End Sub
_._,_._,_
Groups.io Links:
You receive all messages sent to this group.
View/Reply Online (#115700) | Reply To Group | Reply To Sender | Mute This Topic | New Topic
Your Subscription | Contact Group Owner | Unsubscribe [sugeng.panjalu.access@blogger.com]
_._,_._,_
Tidak ada komentar:
Posting Komentar