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