Option Compare Database
Private Sub Combo2_AfterUpdate()
Select Case Combo2
Case Is = "AD Account"
Me!SubfrmAssetsUnmatched.Form.RecordSource = "SubqryADUnmatched"
Case Is = "BlackBerry"
Me!SubfrmAssetsUnmatched.Form.RecordSource = "SubqryBBUnmatched"
Case Is = "EAS"
Me!SubfrmAssetsUnmatched.Form.RecordSource = "SubqryEASUnmatched"
Case Is = "RAS"
Me!SubfrmAssetsUnmatched.Form.RecordSource = "SubqryRASUnmatched"
Case Is = "PC/Laptop"
Me!SubfrmAssetsUnmatched.Form.RecordSource = "SubqryPCsUnmatched"
Case Is = "Email Account"
Me!SubfrmAssetsUnmatched.Form.RecordSource = "SubqryEmailAccUnmatched"
End Select
End Sub