Replies

(Edited by HansV to make URL clickable – see Help 19)

I removed the application title from the Startup options and now it works fine. Thanks! Too bad its taken me all day to come up with a simple answer.

Meanwhile, I am interested in using bookmarks (or some other method to speed things up and get rid of DDE), but the example I found in the Microsoft KB used a form rather than a query to populate the bookmarks in Word, so it was a bit over my head.

http://support.microsoft.com/default.aspx?…Product=acc2000%5B/url%5D

I’d appreciated it if someone could clue me in on how to adapt this to my needs, or point to a better example.

Again, THANKS!

(Edited by HansV to make URL clickable – see Help 19)

I removed the application title from the Startup options and now it works fine. Thanks! Too bad its taken me all day to come up with a simple answer.

Meanwhile, I am interested in using bookmarks (or some other method to speed things up and get rid of DDE), but the example I found in the Microsoft KB used a form rather than a query to populate the bookmarks in Word, so it was a bit over my head.

http://support.microsoft.com/default.aspx?…Product=acc2000%5B/url%5D

I’d appreciated it if someone could clue me in on how to adapt this to my needs, or point to a better example.

Again, THANKS!

Thanks very much Hans, I’ll give both solutions a try.

That did it! But from now on I’m going to tell people that doing repetitive input is good for them.

Thanks again,

Brett

I tried:

CurrentDb.Execute “UPDATE Vendors SET [Data Date] = #” & Format(Last_Update_Date, “mm/dd/yyyy”) & “# ” & _
” WHERE [Vendor Number] ” & [Vendor Number]

and

CurrentDb.Execute “UPDATE Vendors SET [Data Date] = #” & Format(Last_Update_Date, “mm/dd/yyyy”) & “# ” & _
” WHERE [Vendor Number] ” & Vendor_Number

Now I get Runtime error 3061 too few parameters. Expected 1.

I changed the code to read:

CurrentDb.Execute “UPDATE Vendors SET [Data Date] = #” & Format(Last_Update_Date, “mm/dd/yyyy”) & “# ” & _
” WHERE Vendor_Number ” & Vendor_Number

But now I get the error: runtime error 3061 too few parameters. expected 2. Argh. I’m sorry this is so painful.

The vendor_number is a unique field, so I tried this:

CurrentDb.Execute “UPDATE Vendor_Number SET [Data Date] = #” & Format(Last_Update_Date, “mm/dd/yyyy”) & “# ” & _
” WHERE Vendor_Number ” & Vendor_Number

Of course it failed since I’ve got something named incorrectly. I get “can find project or library” error and it highlights “Format” no matter what I try. So where and how do I put the proper name in? I

Yes, that is a much better description of what I’m trying to accomplish.

Good news and bad news. Good news: The net outstanding field defaults to the managed outstanding without a problem. Bad news: Bad communication on my behalf. What I’m trying to do is when the date is changed in the first record, I want it to change the date field for the rest of the existing records. For example, all of the records have a date of 4/2003. When I update the first record to 5/2003, I want the rest of the records to default to that value as well. Is this even possible?

Thanks for all of your help.

Brett

Trust me, there is another form for this table that allows for records (vendors and vendor numbers) to be added. This form is for only updating the outstandings $$. There is also an append query that moves the old outstanding values to a different table when you open this form.

Anyway, I really appreciate the help. I’ll let you know tomorrow if I was able to get it to work.

Regards,

Brett

I stripped it down to the table and the form. If someone could help me get the net outstanding value to default to the value in managed outstandings and get my date problem fixed, I would be very grateful, as I am already for the help.

Thanks,

Brett

Yes, the highlighted yellow line moves down through the steps and disappears at the end.

No Joy

Is there a setting somewhere in the table or form that would prevent this from working? Also, I have the date field configured as MM/YYYY.

BTW, thank you for your patience and help.

Yes, I realized I shouldn’t be using spaces long after I should have…

Anyway, I changed it to:

Private Sub Last_Update_Date_AfterUpdate()

Last_Update_Date.DefaultValue = “””” & Last_Update_Date.Value & “”””

End Sub

It now runs without error, but nothing happens. Shouldn’t this populate the remaining Last_Update_Date fields in the table with the same value?

I’m just learning to code in Access, so I apologize if this is way off…

Anyway, the first thing I tried to tackle was the default for the “Data date” field.

Private Sub Last_Update_Date_AfterUpdate() <– This is highlighted when the compile error box pops up.

Update_Outstandings!Data_Date.DefaultValue = """" & Update_Outstandings!Data_Date.Value & """"

End Sub

I'm not sure where to begin to get the "net outstandings" to default to the "managed outstandings."