Updateable query

[rich001]

The attached is giving me fits. Is there any way to make this query updateable and still do the some thing? I need to beable to view [Expr1] because it validates a field in my table.

SELECT Personnel.*, (SELECT DutySection FROM Personnel WHERE SSN=[What is your SSN]) AS Epr1, *
FROM Personnel
WHERE (((Personnel.SSN)=[What is your SSN])) OR ((((SELECT DutySection FROM Personnel WHERE SSN=[What is your SSN])) In ('Admin','Support')));

 

[fneily]

The following is updatable. Is that what you want?

SELECT Personnel.*, Personnel.SSN, Personnel.DutySection, *
FROM Personnel
WHERE (((Personnel.SSN)=[What is your SSN])) OR (((Personnel.DutySection) In ('Admin','Support')));

 

[rich001]

I figured it out using code and a login form instead of a query. I just got this working. Thanks

Private Sub txtSSN_AfterUpdate()

Dim strDuty As String
strDuty = DLookup("DutySection", "Personnel", "SSN = '" _ & Me!txtSSN & "'")
If strDuty = "Admin" Or strDuty = "Support" Then
DoCmd.OpenForm "Personnel"
Else
DoCmd.OpenForm "Personnel", , , "SSN = '" & Me!txtSSN & "'"
End If

End Sub