ACTUALIZAR DESDE OTRA TABLA
Publicado por MARTIN (6 intervenciones) el 30/01/2001 21:56:02
tengo dos tablas
en la primera tengo los campos
idcodigo
nombre
en la segunda tengo los campos
idcodigo ---> la cual busco con un combo
cantidad
nombre
que debo hacer para actualizar en la segunda tabla
el campo nombre que corresponde al de la primera
;este campo esta bloqueado
una vez que selecciono en el combo uno de los codigos
he utilizado la funcion DLookup y no me funciona
AQUI TENGO EL PROGRAMA
Private Sub IdCODIGO_AfterUpdate()
On Error GoTo Err_IdCODIGO_AfterUpdate
Dim txtFiltro As String
' Evaluar el filtro antes de pasarlo a la funcion DLookup.
txtFiltro = "IdCODIGO = " & Me!IdCODIGO
' Buscar el nombre del producto y asignarlo al control nombre.
Me!nombre = DLookup("nombre", "Productos", txtFiltro)
Salir_IdCODIGO_AfterUpdate:
Exit Sub
Err_IdCODIGO_AfterUpdate:
MsgBox Err.Description
Resume Salir_IdCODIGO_AfterUpdate
End Sub
en la primera tengo los campos
idcodigo
nombre
en la segunda tengo los campos
idcodigo ---> la cual busco con un combo
cantidad
nombre
que debo hacer para actualizar en la segunda tabla
el campo nombre que corresponde al de la primera
;este campo esta bloqueado
una vez que selecciono en el combo uno de los codigos
he utilizado la funcion DLookup y no me funciona
AQUI TENGO EL PROGRAMA
Private Sub IdCODIGO_AfterUpdate()
On Error GoTo Err_IdCODIGO_AfterUpdate
Dim txtFiltro As String
' Evaluar el filtro antes de pasarlo a la funcion DLookup.
txtFiltro = "IdCODIGO = " & Me!IdCODIGO
' Buscar el nombre del producto y asignarlo al control nombre.
Me!nombre = DLookup("nombre", "Productos", txtFiltro)
Salir_IdCODIGO_AfterUpdate:
Exit Sub
Err_IdCODIGO_AfterUpdate:
MsgBox Err.Description
Resume Salir_IdCODIGO_AfterUpdate
End Sub
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0