problema con campos en access
Tengo una tabla con un campo de fechas y varios campos mas, cada uno de ellos con un nombre de un trabajador. (Para cada trabajador tengo que cargar las horas trabajadas en ciertas fechas.
El nombre del tabajador lo leo desde un cuadro combinado que tengo en un formulario. Como puedo hacer (me imagino que concatenando) para cargar un dato en el campo correspondiente al trabajador elegido en el cuadro combinado.
Ej: (esto es lo que tengo)
Private Sub Aceptar_Click()
Set dbs = CurrentDb
Set rstHorasDias = dbs.OpenRecordset("tblHorasDias")
Fecha = Me!Fecha.Value
s1 = Me!Empleados.Value
Do Until rstHorasDias.EOF
If rstHorasDias!Data = Fecha Then
rstHorasDias.Edit
rstHorasDias!Gonzalez = Me!HorasTrabajadas.Value
rstHorasDias.Update
rstHorasDias.MoveLast
End If
rstHorasDias.MoveNext
Loop
end if
La siguiente linea me interesa que sea dinamica:
rstHorasDias!Gonzalez = Me!HorasTrabajadas.Value
Es decir donde va "Gonzalez" necesito que se coloque el valor seleccionado del cuadro combinado
Muchas gracias por la ayuda
Saludos
Marta
El nombre del tabajador lo leo desde un cuadro combinado que tengo en un formulario. Como puedo hacer (me imagino que concatenando) para cargar un dato en el campo correspondiente al trabajador elegido en el cuadro combinado.
Ej: (esto es lo que tengo)
Private Sub Aceptar_Click()
Set dbs = CurrentDb
Set rstHorasDias = dbs.OpenRecordset("tblHorasDias")
Fecha = Me!Fecha.Value
s1 = Me!Empleados.Value
Do Until rstHorasDias.EOF
If rstHorasDias!Data = Fecha Then
rstHorasDias.Edit
rstHorasDias!Gonzalez = Me!HorasTrabajadas.Value
rstHorasDias.Update
rstHorasDias.MoveLast
End If
rstHorasDias.MoveNext
Loop
end if
La siguiente linea me interesa que sea dinamica:
rstHorasDias!Gonzalez = Me!HorasTrabajadas.Value
Es decir donde va "Gonzalez" necesito que se coloque el valor seleccionado del cuadro combinado
Muchas gracias por la ayuda
Saludos
Marta
