Function Update Transaction Date() As Boolean Dim db As Database Dim LUpdate As String Dim LMsg As String Dim LTransaction Dt As Date On Error Go To Err_Execute 'Query user for Date of R LMsg = "Enter the Date of R Form __/__/____" LMsg = LMsg & Chr(10) & Chr(10) & "Format date as: mm/dd/yyyy" LTransaction Dt = Input Box(LMsg) Set db = Current Db() 'Re-Assign Date to Transaction Date LUpdate = "update [Chapter Form Bulk Input Table]" LUpdate = LUpdate & " set [Transaction Date] = #" & Format(LTransaction Dt, "mm/dd/yyyy") & "#" db.Execute LUpdate, db Fail On Error Set db = Nothing Msg Box "Changing the Dates was Successful." Update Transaction Date = True On Error Go To 0 Exit Function Err_Execute: Msg Box "Updating the dates failed, you will need to enter each date individually." Update Transaction Date = False End Function You can then call the function from a Form (ie: button click event, etc) or a Macro and it will update the Transaction Date field.I need to be able to take the new verson and add it to the my existing database so that it can update it with records that have been removed and also update existing records with more current information.
PLEASE tell me how I go about doing this, we are currently using Access 2000.
In Microsoft Access 2003/XP/2000/97, I have a database which contains a date field called Transaction Date.
I want to be able to query the user for a new date and then update the Transaction Date field based on what the user entered.
If after trying this example, you receive a "not defined" error on the "Dim db as Database" declaration, you will need to follow some additional instructions.
Microsoft is conducting an online survey to understand your opinion of the Msdn Web site.