ACCESS FEED: [MS_AccessPros] Multiple if statements in a query

Senin, 14 Juli 2014

[MS_AccessPros] Multiple if statements in a query

I have the following VBA code that need to translate into a query expression:

If Me.PayFrequencyTypeID = 4 Then 'Monthly
    Me.txtAnnualAmount = Me.IncomeAmount * 12
    ElseIf Me.PayFrequencyTypeID = 6 Then 'Annual
      Me.txtAnnualAmount = Me.IncomeAmount
      ElseIf Me.PayFrequencyTypeID = 7 Then 'Hourly
         Me.txtAnnualAmount = Me.IncomeAmount * 2080
         ElseIf Me.PayFrequencyTypeID = 2 Then 'Weekly
         Me.txtAnnualAmount = Me.IncomeAmount * 52
             ElseIf Me.PayFrequencyTypeID = 3 Then 'Bi-Weekly
               Me.txtAnnualAmount = Me.IncomeAmount * 26

    End If

This is located in the current event of my subform.

Is there a way to do it? This is the query that I need to update with the expression:

SELECT tblHouseholdIncome.IncomeID, tblHouseholdIncome.HouseholdID, tblHouseholdIncome.IncomeTypeID, tblHouseholdIncome.IncomeAmount, tblHouseholdIncome.PayFrequencyTypeID, tblHousehold.ApplicationID, tlkpIncomeType.IncomeTypeName, tlkpPayFrequencyType.PayFrequencyTypeName, 0 AS [Annual Income]
FROM ((tblHouseholdIncome INNER JOIN tblHousehold ON tblHouseholdIncome.HouseholdID = tblHousehold.HouseholdID) LEFT JOIN tlkpIncomeType ON tblHouseholdIncome.IncomeTypeID = tlkpIncomeType.IncomeTypeID) LEFT JOIN tlkpPayFrequencyType ON tblHouseholdIncome.PayFrequencyTypeID = tlkpPayFrequencyType.PayFrequencyTypeID;

I have 0 as a placeholder in my annual income right now.

Thank you,

Arthur Lorenzini

Sioux Falls, SD

__._,_.___

Posted by: dbalorenzini@yahoo.com

Reply via web post

•

Reply to sender

•

Reply to group

•