Ouch. Dang.... I'm glad you made a backup... I was going to mention to you that you should...
Anyway, I was guessing when I made the update query SQL so it could be that I had something amiss in the statement.
You might try building it yourself in the Query Design mode. Also you might want to...
I've noticed alot of people try to use VBA to fix problems that are far easier to fix using queries. This would be one of those cases.
Why not just create an update query that takes the current value from your table and changes it to the correct value?
UPDATE [Loan table] SET [Loan...
The code you have here has several things that would keep it from working. But we'll ignore those.
ExitWindowsEX() only allows you to shut down the system if the permissions have been set to do so.
Goto the following website click on the API Index (found on the left side of the window) and...
The problem you're having is a security safeguard put in place by Microsoft to keep virus's from accessing contact information and sending email addresses.
I gave a solution to this question in the following thread:
http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=35516
get rid of the parenthesis
DoCmd.TransferSpreadsheet cExport,,"R_export_excel","d:\test.xls"
I'm not sure exactly why... but you only use parenthesis when you have an equals sign.
x = FunctionCall( a, b, c)
FunctionCall a, b, c
See, now it's going to bother me to no end wondering what didn't work. *has tested the code himself and had it work without a problem*
Ah well. I'm glad I was able to help.
Ok... maybe you should explain exactly what you want this form to do and explain what it isn't doing correctly. I don't seem to be picking up on where your problems lie...
I'll give you what I gather and then you can fill in the blanks/mis-conceptions.
This form that your working on is...
Ok. The problem with your code is that the Calculate sub doesn't have know what values should be in: timeStart, timeFinish, LunchStart, LunchFinish. Because you declared them inside of your click proceedure it holds this information to itself as private and doesn't share it with the Calculate...
It sounds like your thinking correctly. I think your major confusion is the difference between subs and functions. Functions are used to accept information (where necessary) and return information. Subs are meant for running through processes.
The module is just a place to organize subs...
Try putting the:
DateToStock.DefaultValue = "Is Null"
DateToStock = ""
Before:
DateToStock.Enabled = False
DateToStock.Visible = False
I believe the way you have it now changes the value after you've disabled the textbox, which means the changes aren't being sent to your table.
There is no need to call a module. As long as the function is public inside the module you only need to call the function.
Lets say you have two Modules: Module1 and Module2. Inside Module1 you have a sub and inside Module2 you have a function that the sub needs
Module1...
Ok, just by sheer coincidence I actually found this website. It allows you to download a COM object that they call Redemption. What redemption does is allow you to connect to Outlook by-passing the Security patch.
It even gives an example on how to access the Contacts and print out each of the...
What exactly do you mean by "mouse movements"? Are you referring to the Mouse Pointer? And if so, why are you trying to move it? I'm fairly sure moving the mouse pointer inside Access would be a tad bit complicated (not that I've tried).
If you give a bit more detail someone in the group...
Ok. The first thing I did was to clean up your code. You have at least four proceedures that do the exact same thing.
My solution?
Create a single proceedure called:
MakeChanges() or DoStuff()
or whatever you want to call it.
Then when you want a proceedure to do the changes you just have...
Ok, because you asked so nicely. I went in and tried to find out why .Restrict wouldn't work. It actually does work, but it's picky. It seems that the string of the Date stamp that is returned from ReceivedTime doesn't want to match up to what is held inside of ReceivedTime, I have an idea...
dgoulston,
The following code will let you get a list of tables from the database your user has specified:
Dim tdf2 As TableDefs
Dim db2 As Database
Dim obj As Object
Set db2 = DBEngine(0).OpenDatabase(sourcedb)
Set tdf2 = db2.TableDefs
For Each obj In tdf2
Debug.Print obj.Name
Next...
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
If obj.IsLoaded = True Then
Debug.Print obj.Name
End If
Next obj