Recent content by JohnLowell

Thanks dhookom..... This is the correct one: =Format(DSum("(([logout]-[login])*24)","tblLogInOut","[employeeID]= " & Reports!rptBiWeekly!txtEmployeeID & " And [workdate] Between #" & Forms!frmloginout!txtStartDate & "# And #" & Forms!frmloginout!txtEndDate & "#"),"#.00")

Try This: =Format(DSum("(([logout]-[login])*24)","tblLogInOut","[employeeID]= " & Reports!rptBiWeekly!txtEmployeeID & " And [workdate] Between & #" & Forms!frmloginout!txtStartDate & "# And #" & Forms!frmloginout!txtEndDate & "#"),"#.00")

You need to delimit the date criteria with # signs. Try using this: And ([workdate] Between #" & [Forms]![frmloginout]![txtStartDate] & "# And #" & [Forms]![frmloginout]![txtEndDate] & "#")

I believe Currency is a reserved word. Name the text box that holds the field Currency to txtCurrency and the change your expression to: =IIf(Me.txtCurrency = "YTL", "Yes", "No") Hopefully this will work.

I created 2 columns in the Select part of the query to use on the report. Select ....,[start date:] as StartDate, [end date:] as EndDate From....... I hope this helps.....

Try using Erase on the array...... Hope This Helps, John

You can use the format property of the text box control. Try this: $#,##0.00[Black];-$#,##0.00[Red];0;" " The format property is broken down like this: positive value; negative value; zero value; null value I hope this helps.

try This: ?DEnd("[area]","last", BuildCriteria("[station]",dblong,"=" & Forms![dcform]![station] & " AND [process] = 1"))

try using this: Open FileName For Input As #FileNumber

You could try a couple of things..... First try and take out the "\" in the file name. If that doesn't work, try using the full name of the file including the drive and directories (i.e. "C:\Program Files\gen detail.txt"). Hope this helps... John

Try This: Sub CheckQuerySQL() Dim dbs as Database Dim qdf as QueryDef Dim strSQL as String Dim strSearchFor as String Set dbs = CurrentDB dbs.QueryDefs.Refresh strSearchFor = "ColumnName" For Each qdf In dbs.QueryDefs strSQL = qdf.SQL If...

If the Company name will never have a double quote, you can use this: Me.RecordsetClone.FindFirst "[COMPANYname] = " & chr(34) & Me![Combo28] & chr(34)

Try and use the Float data type: ALTER TABLE VENDORS ADD last_column Float; You can't specify the size (or decimal places) of numbers, that's why they have so many different types. You should look up SQL Data Types in the help file. John

This is the easiest way I have found to send an email: Application.FollowHyperlink "mailto:" & strLocation, , True strLocation is the email address (Him@her.com)

Try: Application.FollowHyperlink "C:\Folder\Word.doc", , True This will open the document (or any other file) in it's default program. I use it for PDF's, Text files and even Access MDB's