hi
i'm trying to create an input box that will ask the users for the date
(LW_Date)and then, open up the pass-through query with the specific
date results from the input box. i typed in the date but it would not
filter for the date. does anyone have advice on what i could do?
thanks in advance- jung
Private Sub btnLiveWireDate_DblClick(Cancel As Integer)
Dim strInput As String
Dim strMsg As String
Dim strmydate As String
Dim mysql As String
strMsg = "Please type in the date."
strInput = InputBox(Prompt:=strMsg, Title:="Date Info",
XPos:=2000, YPos:=2000)
strmydate = strInput & "'LW_Date'"
DoCmd.OpenQuery "qry_LiveWire" ', acViewNormal
mysql = "SELECT CONVERT(char(10), dbo.livewire.time_stamp, 101) AS
LW_Date, dbo.livewire.time_stamp AS LW_TimeStamp,
dbo.livewire.credit_account_number AS LW_DDA, CAST(dbo.livewire.amount
AS money) AS LW_Amount, dbo.livewire.sequence_number AS
LW_Sequence_Nbr, dbo.livewire.fed_reference_number AS LW_FedRef,
dbo.livewire.source_bank_name AS LW_Source_Bank,
dbo.livewire.wire_text AS LW_WireText, dbo.SECURITY_USERS.DESCRIPTION
AS LW_Claimer, dbo.livewire.claim_dt AS LW_Claim_Dt FROM dbo.livewire
LEFT OUTER JOIN dbo.SECURITY_USERS ON dbo.livewire.claim_user_name =
dbo.SECURITY_USERS.NAME WHERE (CONVERT(char(10),
dbo.livewire.time_stamp, 101) = " ") ORDER BY dbo.livewire.time_stamp
DESC"
End Sub