Arthur-
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: John Viescas <johnv@msn.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (2) |
Tidak ada komentar:
Posting Komentar