Access - Cuadro de lista.No encuentra el campo

   
Vista:

Cuadro de lista.No encuentra el campo

Publicado por Alejandro (27 intervenciones) el 26/09/2010 13:57:10
Hola
A ver si alguien me da una solución.
Resulta que tengo un formulario y en él un caudro de lista vinculada a otra tabla. Cuando intento hacer doble click sobre un valor del cuadro de lista pretendo hacer un INSER INTO en otra tabla. Hasta aquí todo bien. Lo que ocurre es que pregunta por el valor que deseo añadir a la tabla en vez de cogerlo del seleccionado en el cuadro de lista. Alguien puededecirme donde está el error.
Este es el código que tengo hasta ahora:

Private Sub ListaTrabajadores_DblClick(Cancel As Integer)
Dim var As String
Dim Vitem As Variant, selecc As String
selecc = ""

For Each Vitem In Me.ListaTrabajadores.ItemsSelected
selecc = selecc & "," & Me.ListaTrabajadores.ItemData(Vitem)
Next
If selecc = "" Then Exit Sub
selecc = Right(selecc, Len(selecc) - 1) ' Así quitamos la primera coma

MsgBox "Se va a agregar el trabajador al curso ", vbCritical, "AVISO !!!"
var = "Insert INTO TbParticipantes (IdCurso,NifEmpleadoPublico)VALUES( IdCurso , NifEmpleadoPublico)"

DoCmd.SetWarnings False
DoCmd.RunSQL var
DoCmd.SetWarnings True
Me.Refresh
Me.Recalc
End Sub

A ver si alguien me dice algo. Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Solucionado

Publicado por Alejandro (27 intervenciones) el 26/09/2010 19:53:24
Hola de nuevo. Despues de un par de horas rompiendome la cabeza lo he conseguido.
Les dejo la solución que he encontrado.
Un saludos para tod@s

Private Sub ListaTrabajadores_DblClick(Cancel As Integer)

Dim var As String
var = "Insert INTO TbParticipantes (IdCurso,NifEmpleadoPublico) VALUES (IdCurso,'" & Me.ListaTrabajadores.Column(0) & "')"
MsgBox "Se va a agregar el Empleao público al curso", vbCritical, "AVISO !!!"

DoCmd.SetWarnings False
DoCmd.RunSQL var
DoCmd.SetWarnings True
Me.Refresh
Me.Recalc

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar