oops, I spoke too soon. after i took out todays date in my table (i was using it to test), it didnt work right. it kept running over and over. seems like there shld be something in the code that evaluates todays date and if todays date is in the table. if not then dont run. if todays date is in...
Hi Duane,
here is my code:
Private Sub Form_Timer()
If Nz(DLookup("SchedDone", "tblEmailLog ", "SchedDate =#" & Date & "#"), 1) <> 1 Then
DoCmd.RunMacro "macAutoEmailMasterbaseToNicola"
CurrentDb.Execute _
"UPDATE tblEmailLog " & _
"Set...
Duane,
ok, that works except now im back to where i was b4 where it keeps running over and over continuously. i need something back in there to tell it not to run if its already run before.
thanks.
hey, thanks guys.
got one last request. i've decided to list specific dates, like: if date() = 12/30/2009 or if date() = 01/14/2010 or if date() = 02/21/2010, etc. but whats the right way of doing it.
here is the code i have so far:
Private Sub Form_Timer()
If Date = 12 /...
Thanks Duane, that worked, but youre right I don't want to send more than one email. How would I do that? So, if I opened the db this morning and the email was sent, then I close it, but I open it again later, its gonna send another email. I thought about some kind of counter or somethin, like...
Any idea why my On Timer event won't work in my Access Form? I've tried many different timer intervals from 1 to 1000000. Here is my code:
Private Sub Form_Timer()
' Check to see if today is Tuesday and if true
' import weekly data
If Day(Date) = 3 Then...
I am getting the same message in an Excel XP file. It happens everytime I open an Access db that is linked to the Excel file. When I open the Excel file, all the data has been moved around. Its the weirdest thing I've ever seen. The only way to prevent it from happening is open the Excel file...
Ok, I have several Access dbs with linked tables in them from a teradata db using an ODBC driver. My problem is that whenever my password for teradata expires, I have to go into every Access db and re-link the tbls with my new password. I checked "remember password" when I originally linked the...
HORRAY!!! Many many thanks to PHV and Leslie! It works. I could never have done it without you. This is awesome. I have been trying to do this for so long.
Hope our paths meet again.
Sprite
Oh, wow, we're gettin real close now. I did as you suggested and here is what my output looked like (at bottom). I think there maybe just a little somethin that needs to be tweaked. What do you think?
My tblaccountidstest table looks like this:
BL AI
111805332 3444548
133060812...
PH or Leslie,
I have been trying to figure out how to take the string and put it into a format that is usable (query, tbl, etc.) for a week now. I'm brain dead. Please help. Again, here is the code I've got:
Private Sub CreateAIList_Click()
Dim db As Database
Dim rs As Recordset
Dim strAI As...
Leslie,
I have no idea how to do that though. I thought it might be easier to create the table. If you can help me, that would be greatly appreciated.
Sprite
I have to display it in a table that can be exported to Excel by the end user. It also has to be displayed in a report for the end user.
Thanks,
Sprite
Maybe I'll be able to figure out the string space problem. I need to create a new table that has 2 columns "BL" and "AI" that looks like the example in my first post.
Thanks.
Me again. I think we are getting closer. Why would I get an error message that says "Run Time Error 14, Out of String Space"? I thought maybe there were too many numbers (there were 30 total) so I deleted some to test just 6. I didn't get an error and I think it worked but where would I see the...
Thanks , I hate to be a pest but now I'm getting a "Object Required" message. When I debug, the line: "strAI = rs1!AI" is hilighted in yellow.
Do you know why that would happen?
Thanks,
Sprite
Thanks Leslie,
I'm getting a "Loop without a Do" error message. Here is the code I have:
Private Sub CreateAIList_Click()
Dim db As Database
Dim rs As Recordset
Dim strAI As String ' string to contain list of competitors
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT...
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.