Advertisement
Advertisement
| 07.02.2008 at 09:20AM PDT, ID: 23534150 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: |
Private Sub Combo2_AfterUpdate()
Dim strFilterName As String
strFilterName = Me.Combo2
Me.CPARAssignments.Form.Filter = "InvBy= ImpBy= AudtBy= CPARBy=" & "'" & strFilterName & "'"
Me.CPARAssignments.Form.FilterOn = True
End Sub
|