Recent content by jon92

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

I have tried a different approach and this is working! But I'm 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...

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...

I am trying to error trap for an empty directory when importing a text file, the following code produces: runtime error 3001 Invalid argument, ( the transfer text line is highlighted) Where am I going wrong please? Function testing() As Long Dim strFile As String strFile =...

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

Thanks Jeff Exactly what I wanted have a star! Jon