Access VBA Code for Auto Populate date from select date plus combobox list critera

[JoeJr]

Hello everyone,

I have another question/issue that I am trying to figure out VBA code for. I have a DB that has two tables: DateTable and TypeForm. Datetable has "ID", "LastThruDate", "NextThruDate", "TypeofForm" (TypOfForm is a Combobox that referense data from TypeForm Table).

TypeForm has "Title" which list Forms.

I created a form based on the datetable to input LastThruDate and Select the Type of Form. What I am looking for is If I select Form1 from the list, I want it to auto populate a date based on LastThruDate + 365.

on paper this is what I was looking at but just dont know how to write it in VBA when I open the form and for the dates to stay in the table:

If Form1 is selected then "NextThruDate"="LastThuDate+365
If Form2 is Selected then "NextThruDate"="LastThuDate+395
If Form2 is Selected then "NextThruDate"=Date (Now)+30

Attached is the DB.



Thank you for all the help.

DateIfThen.accdb

[Missinglinq]

You've got two calculations for 'Form2.'

If Form2 is Selected then "NextThruDate"="LastThuDate+395
If Form2 is Selected then "NextThruDate"=Date (Now)+30

Is the last line supposed to be 'Form3?'

Assuming this to be true...first you need to, in Form Design View

1. Select the TypeOfForm Combobox
2. Go to Properties - Data and make the Combobox Unbound by deleting its Control Source
3. Go to Properties - Event
4. Click on the AfterUpdate property to go to the code module
5. Add the code below

Private Sub TypeOfForm_AfterUpdate()


Select Case TypeOfForm

  Case 1 'Form1 selected
    
    Me.NextThruDate = DateAdd("d", 365, Me.LastThruDate)
    
  Case 2 'Form2 selected
  
   Me.NextThruDate = DateAdd("d", 395, Me.LastThruDate)
  
  Case 3 'Form3 selected
 
  Me.NextThruDate = DateAdd("d", 30, Me.LastThruDate)

End Select

End Sub

Linq ;0)>

[JoeJr]

You've got two calculations for 'Form2.'

If Form2 is Selected then "NextThruDate"="LastThuDate+395
If Form2 is Selected then "NextThruDate"=Date (Now)+30

Is the last line supposed to be 'Form3?'

Assuming this to be true...first you need to, in Form Design View

1. Select the TypeOfForm Combobox
2. Go to Properties - Data and make the Combobox Unbound by deleting its Control Source
3. Go to Properties - Event
4. Click on the AfterUpdate property to go to the code module
5. Add the code below

Private Sub TypeOfForm_AfterUpdate()


Select Case TypeOfForm

  Case 1 'Form1 selected
    
    Me.NextThruDate = DateAdd("d", 365, Me.LastThruDate)
    
  Case 2 'Form2 selected
  
   Me.NextThruDate = DateAdd("d", 395, Me.LastThruDate)
  
  Case 3 'Form3 selected
 
  Me.NextThruDate = DateAdd("d", 30, Me.LastThruDate)

End Select

End Sub

Linq ;0)>

Thank you. It works great but the only issue that I am having with it is Form3 should be date now + 30 days. I tried entering in:

me.NextThruDate=(Date(now)+30) but it didnt work.

Edit: I fixed it and got it to work lol. Thank you for your help