One field to update based on two other fields data

[drmingle]

I want one field to update based on two other fields information

User selects "status" and inserts "date" request was made, automated due date populates "due date" field in form. 14 and 1 are days...not months or years.

Private Sub Date_AfterUpdate(Cancel As Integer)
If Me.[Priority] = "Standard Research Request" Then
Me.[DueDate] = Me.[Date] + 14
If Me.[Priority] = "Pricing Dispute" Then
Me.[DueDate] = Me.[Date] + 1
End If

End Sub

Thanks for any help...

 

[SydneyGeek]

You could either use ElseIf or a Case statement.
Examples:

Private Sub Date_AfterUpdate(Cancel As Integer)
    If Me.[Priority] = "Standard Research Request" Then
        Me.[DueDate] = Me.[Date] + 14
    ElseIf Me.[Priority] = "Pricing Dispute" Then
        Me.[DueDate] = Me.[Date] + 1
    'more ElseIf as needed
    End If
End Sub

Private Sub Date_AfterUpdate(Cancel As Integer)
    Select Case Me.[Priority]
    Case Is = "Standard Research Request"
        Me.[DueDate] = Me.[Date] + 14
    Case Is = "Pricing Dispute"
        Me.[DueDate] = Me.[Date] + 1
    'other cases as needed
    End Select
End Sub

You can also use the DateAdd function if +1 or +14 don't do the job. Check out the syntax in Help.

Denis

 

[drmingle]

Thanks SydneyGeek for the help...

I tried both snippets without success.

I'm getting the following:

Error: User-defined type not defined​

Can you offer additional help?

Also, I already have "Microsoft DAO 3.6 Object Library" installed...

 

[SydneyGeek]

If could be that Access is choking on your field name. Date, Month, Year, Day, Name ... are all reserved words (either part of VBA, or names of functions in Access) and they can cause you problems. Try renaming the control from Date to RecDate (for example) and try that instead.

Denis