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 =...
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)...
...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"...
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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.