Select record from Subform (1 Viewer)

[Gismo]

Hi,

I have a subform with a user list
in the main form I want 3 controls
1 first control to show the first user in the list
2nd control to show the second user in the list
3rd control to show the 3rd user in the list

how would i code this please?

 

[arnelgp]

you can add code to the Main Form's Current event.
make sure your textbox control names are in sequence.
example: Text1, Text2, Text3

Private Sub Form_Current()
    Dim rs As DAO.Recordset
    Dim i As Integer
    Set rs = Me.ThesubFormName.Form.RecordsetClone
    With rs
        If Not (.BOF And .EOF) Then
            .MoveFirst
        End If
        Do Until .EOF
            i = i + 1
            If i > 3 Then
                Exit Do
            End If
            Me("Text" & i) = !Product
            .MoveNext
        Loop
    End With
    Set rs = Nothing
End Sub

 

[Gismo]

you can add code to the Main Form's Current event.
make sure your textbox control names are in sequence.
example: Text1, Text2, Text3

Private Sub Form_Current()
    Dim rs As DAO.Recordset
    Dim i As Integer
    Set rs = Me.ThesubFormName.Form.RecordsetClone
    With rs
        If Not (.BOF And .EOF) Then
            .MoveFirst
        End If
        Do Until .EOF
            i = i + 1
            If i > 3 Then
                Exit Do
            End If
            Me("Text" & i) = !Product
            .MoveNext
        Loop
    End With
    Set rs = Nothing
End Sub

what refers to Product?

 

[arnelgp]

sorry, that was my test db.
is it the Email field you want to show on email1, email2 and email3?

 

[Gismo]

sorry, that was my test db.
is it the Email field you want to show on email1, email2 and email3?

awesome, works great, thank you