Asignar resultado de recordset en varios textbox
Amigos tengo un recordset que me trae varios ID y nombres de una tabla (Alumnos) de acuerdo a su edad por ejemplo; luego quiero poner esos 6 nombres que me trajo el recordset en 6 textbox en mi form... Tengo lo siguiente. Pero solo me trae un nombre
Dim sql As String
Dim rsprod As DAO.Recordset
Dim txtbox As Variant
Dim i As Integer
Dim intI As Integer
txtbox = Array(txt1, txt2, txt3, txt4, txt5, txt6)
sql = "select * from alumnos where [edad] > 6"
Set rsprod = CurrentDb.OpenRecordset(sql)
If rsprod.EOF Then Exit Sub
intI = 1
With rsprod
Do Until .EOF
For i = LBound(txtbox) To UBound(txtbox)
txtbox(i).value = rsprod!nombre
Next
.MoveNext
intI = intI + 1
Loop
End With
rsprod.close
Set rsprod = Nothing
1 respuesta
Respuesta de Eduardo Pérez Fernández