Two different combo boxes should display the data in subform

[atest3984]

Hello!!

I have a mainform & subform and two combo boxes.
Data: combo box 1 has user name and combo 2 has user id
scenario: when I select user name (from combox 1) appropriate user id must display in combox box 2 and display the realted data in subform.

example:
Name1
User1 should display

User1 Name1 environemnt Profile ....

I have the below code but as soon as I select as combo 2, the subform data is going to default not the user that I select.
when I click on select all command button

'Dim db As DAO.Database
'Dim rs As DAO.Recordset
'
'Set db = CurrentDb
'Set rs = db.OpenRecordset("tblUsernameuserid")
'Do While Not rs.EOF
'rs.Edit
'rs!UseThisID = 1
'rs.Update
'rs.MoveNext
'Loop
'
'rs.Close
'Set rs = Nothing
'Me.Requery

[twinnyfo]

atest3894,

Welcome to Bytes!

It's quite difficult to see how your code has anything to do whatsoever with the intended outcome. As I read your code (which is all commented out, so it won't do anything, anyways), you are setting each UseThisID field in tblUsernameuserid to 1. That doesn't come close to doing anything you describe.

Now, I'm not sure the reason for the second combo box, because if you are selecting a User from the first combo box, you should be able to simply filter your sub-form using this combo box (as it appears the data is related).

Not knowing any field names, how your combo boxes have their row sources set up or anything else, I can't give you an exact answer. But the basics of what you would want to do is this:

Private Sub cboComboBox1_AfterUpdate()
    With Me.fsubSubFormName.Form
        Filter = "UserID = " & Me.cboComboBox1
        FilterOn = True
    End With
End Sub

That's the basics, but my guess is that your combo boxes probably have some design flaws, so this won't work initially. More details would hepp.

Hope this hepps!