Buscar con Dlookup y editar información del registro ACCESS

dim db as database
dim rs as recordset
set db = currentdb
set rs = db.openrecordset("contenedores")

if tipodeoperacion = "retorno" then

nocontenedor = inputbox("introduce el numero de contenedor (n° economico)")

if isnull(dlookup("[numcontenedor]", "[contenedores]", "numcontenedor=form!nocontenedor.value")) = true then

msgbox ("el n° de contenedor no esta registrado, ¿deseas registrarlo?")

medidacont = inputbox("ingresa la medida del contenedor")
modelocont = inputbox("ingresa el modelo del contenedor")
añocont = inputbox("ingresa el año del contenedor")
seriecont = inputbox("ingresa el numero de serie")
ar = "300"
fr = date
st = "retorno"
ai = "r"
fi = "r"
aii = "r"
pai = "r"
rfcai = "r"
fv = "r"

rs.addnew
rs!empresa = form!nombreem.value
rs!representante = form!nombrerep.value
rs!numcontenedor = form!nocontenedor.value
rs!medidacont = form!medidacont.value
rs!modelocont = form!modelocont.value
rs!añocont = form!añocont.value
rs!vincont = form!seriecont.value
rs!status = form!st.value
'rs!fechaingreso = form!fi.value
'rs!fechavencimiento = form!fv.value

'rs!aduanaretorno = form!ar.value
'rs!fecharetorno = form!fr.value
'rs!autorizaretorno = form!na.value

rs.update

else

if isnull(dlookup("[numcontenedor]", "[contenedores]", "numcontenedor=form!nocontenedor.value")) = false then

medidacont = dlookup("[medidacont]", "[contenedores]", "numcontenedor=form!nocontenedor.value")
modelocont = dlookup("[modelocont]", "[contenedores]", "numcontenedor=form!nocontenedor.value")
añocont = dlookup("[añocont]", "[contenedores]", "numcontenedor=form!nocontenedor.value")
seriecont = dlookup("[vincont]", "[contenedores]", "numcontenedor=form!nocontenedor.value")
ar = "300"
fr = date
st = "retornado"

'busqueda en operaciones
ai = dlookup("[aduanaingreso]", "[contenedores]", "numcontenedor=form!nocontenedor.value")
fi = dlookup("[fechadeingreso]", "[contenedores]", "numcontenedor=form!nocontenedor.value")
fv = dlookup("[fechavencimiento]", "[contenedores]", "numcontenedor=form!nocontenedor.value")

'áctualizacion del estatus (aqui es donde quiero editar el registro pero... Me edita el primer registro que encuentra en la tabla)
rs.edit

rs!status = form!st.value
rs.update

end if

Añade tu respuesta

Haz clic para o