|
mira intente de esta manera segun a tu respuesta de clientebindingsource que es igual a recorsource y no me funciono me marca error el el segundo recordsource mandandome este mensaje invalid qualifier
resp= inputbox("numero","buscar")
recordsource.position= recordsource.find("no_disposicion", resp)
por otra parte tambien intente con este codigo
Dim DS As New dataset
Me.RecordSource(DS, "disposiciones").Position = DS.tables("disposicion").Row.Count - 1
y me marca user-defined type not defined
y tambien utilice este codigo
Dim rs As Recordset
Response = InputBox("numero de disposicion", "busca")
Set rs = db.openrecordset("disposiciones", dbopentable)
rs.Index = "no_dispocicion"
rs.Seek ">", Response
If rs.nomatch Then
MsgBox "NO encontrado"
Else
MsgBox "Encontrado"
End If
rs.Close
y me marca error en el notmatch me imagino que por ser de Vbasic
pero al quitar todo el IF,me marca que requiere un objeto en la linea
set rs=db.openrecorset("disposiciones",dbopentable)
se agradecera tu respuesta, o si me puedes mostrar un ejemplo para modificarlo deacuerdo a mi tabla
|
