SoloCodigo

hola,

he realizado una base de datos, y en uno de los formularios tengo una tabla donde en uno de los campos me aparecen una lista de nombres. HAy otro que es el campo de identificador del nombre. La idea es que cuando este en un nombre de la tabla me salga su identificador en el campo. El problema es que no me recorre bien el recordset y me pone simpre el mismo identificador en todos los nombres. Para que os hagáis una idea os pongo un trozo de codigo:

Dim consulta As String

consulta = "select Descripcio from [proces critic] where [id_Area] = " & Me![Id_Area]




rs.Open consulta, con, , , 1
Dim i As Integer
i = 0
Me.Lista36.RowSource = "Descripcio"

Do Until rs.EOF

Nombre = rs.Fields("Descripcio").Value


Me.Lista36.RowSource = ""
Me.Lista36.RowSourceType = "Value List"

With Me.Lista36
'.RowSource = vbString
.AddItem Nombre

End With


rs.MoveNext
i = i + 1
Loop

rs.Close

con.Close

End Sub

Muchas gracias