Seeking a procedure for an Access (97) form. I would like it to be a select case structure. I need to have the procedure udpate the date field in every row of the table based on the values in the days and type column. I already have the necessary SQL statements to do the insert part, I just need the construct for the select case. I have provided dummy values to use where each of the SQL statements are listed - to eliminate the need for me to list the SQL code. I'm providing some basic sample data for a table called tblAccounts. All fields are integers, except date which is a date type, and the AcctID is an autonumber. tblAccounts ============ AcctID-Days-Type-Date 2-90-1 3-180-2 4-365-2 5-180-1 6-30-2 7-30-1 I'm also including psuedo-code to show what I want it to do. I really just need help with the syntax. I don't know how to set the Select Case statement to reference the table properly, this may be the only change necessary. Please review my example and if you feel that you could construct this code without obtaining too much additional information from me, and can do it within the timeframe specified (ASAP), then please reply - Thanks. -> Public Function OiSetDate() Dim SetAccDate As String Select Case SetAccDate - ?? tblAccounts Days value ?? Case 30 ' Days = 30 If Type = 1 Then Run SQL Statement 1 (example: 7/1/03) Else Run SQL Statement 2 (example: 6/1/03) Case 90 ' Days = 90 If Type = 1 Then Run SQL Statement 3 (example: 7/1/03) Else Run SQL Statement 4 (example: 4/1/03) Case 180 ' Days = 180 If PeriodCoverage = 1 Then Run SQL Statement 5 (example: 7/1/03) Else Run SQL Statement 6 (example: 12/1/02) Case 365 ' Days = 365 If PeriodCoverage = 1 Then Run SQL Statement 7 (example: 7/1/03) Else Run SQL Statement 8 (example: 6/1/02) Case Else ' no action necesary End Select End Function
## Deliverables
1) Access 97 or 2000 database (mdb) with a table (tblAccts) and a form with a button on it to populate the data based on the procedure requested. 3) Complete ownership and distribution copyrights to all work purchased.
## Platform
Windows 98/NT/2000