Search results for query: *

Hi Have a look at this info on microsoft site http://search.microsoft.com/search/results.aspx?st=b&na=88&View=en-us&qu=aclicens Good luck

KornGeek Thanks for your help - have a star I will definately find some time to read the vba help files! cheers jon

KornGeek Thankyou again, I have inserted the code but the textbox txtLastClick is not converting to a date (visible or invisible) when button is clicked Jon

KornGeek Thanks for the advice but I feel I'm getting out of my depth! I like the second suggestion using the msgbox. I'm keen to learn more about code, where do you advise me to look for info on syntax for what you suggest? cheers Jon

Thanks for the reply Mike The code I have posted works fine. If I can briefly explain - some of the users (may!) think it amusing to click the button several times instead of the required once. I would like to trap any click events approx 30 seconds after the 1st click and thus ignore the...

I have a button on a form - when the user carries out a certain task they click the button, this logs the time and date and task type etc. The following code is attached to the onclick event: Me.fldtasktype.Value = "Task description" Me.fldtaskCode.Value = "xxx" Me.fldUsername.Value =...

Rudy I changed +39 to +38 And that gives me the required results Thanks very much for your help Jon

Thanks rudy I have tried your suggestion but the last week in march (wk beginning 28/03/05) returns 0 Is this because the month changes to April on the Friday ? Jon

Hi I am using the following to produce a Week Number Column in a select query: Week Number: DatePart("ww",[MyDate],2) the above returns 05/04/04 as week 15 (date field is formatted to dd/mm/yy) Is it possible to add to the code to return (Mon) 05/04/04 as week 1 thru to (Mon)...

Rick Thank you for the explanation - It's all becoming clearer now Jon

...not sure why?? Function testing() As Long Dim strFile As String, strPath As String strPath = "e:\mydir\" strFile = Dir(strPath & "*.*") If strFile = "" Then MsgBox "No File Found" Exit Function Else MsgBox "You have 1 File" End If...

RickSpr I have tested the import spec and that is ok - the value of strFile when error occurs is: strFile = "e:\mydir\" JeremyNYC I have tried your example and it generates the same error message. What I am trying to do, is warn users that a file is missing and check their previous...

...Where am I going wrong please? Function testing() As Long Dim strFile As String strFile = "e:\mydir\" & Dir("e:\mydir\*.*") IF strFile = "" Then msgBox "No file found" Exit Function End if DoCmd.TransferText acImportDelim, "myspec&quot...

Could you send me a copy please jon92@btinternet.com thanks

Thanks Jeff Exactly what I wanted have a star! Jon

Sorry to confuse you! the 'Don't Show' part of the thread refers to another type of query. You need an update query.

I have a table that is populated by a text import, I then run an update query to add data to the records just imported. I would like to have the default confirmation messages turned off ( for the update query) but have a custom message box telling the user how many records have just been...

See thread707-560925 The 2nd reply from jebry should help you cheers

Thanks Mike You were spot on - query now working as I need. Have a star ! Regards Jon

It looks like my function isn't working I received: Ambiguous name detected: proper