buscar registro por código
Publicado por Jordi (6 intervenciones) el 22/08/2001 10:47:51
Hola escribo para realizar esta consulta:
Estoy intentando que en un formulario me haga lo siguiente via código:
1.-Compruebe si existe el registro
2.-Si no existe añadirlo
3.-Buscarlo y presentarlo por pantalla
Para hacer esto he utilizado el siguiente código que he sacado de diversas fuentes, entre ellas de mi invención y me encuentra bien si existe el registro, i si no lo inserta en la bd pero no consigo hacer que me lo busque
El campo clave de la tabla Parcella es CodiParcella que lo coge de un cuadro de texto llamado Me.codipar, a su vez este valor se almacena en la variable strCriteria, cuando hago clik en un botón de comando ha de buscar por CodiParcella
el código que no consigo sacar y es donde busco el registro, es el siguiente:
Dim dbs As Database, rst As Recordset
Dim strCriteria As String
Set dbs = CurrentDb
strCriteria = me.codipar
Set rst = dbs.OpenRecordset("Parcella", dbOpenDynaset)
' Aquí es donde guardo los datos, en un nuevo registro.
rst.AddNew
rst!Municipi = me.muni
rst!Poligon = me.poli
rst!CodiParcella = Me.codipar
rst.Update
rst.FindFirst strCriteria
rst.Close
Set dbs = Nothing
Cuando hago clik en el botón de comando me da error 3077, error de sintaxis en el número de la expresión
en la linia de codigo:
rst.FindFirst strCriteria
Por que motivo me pasa esto?,
Muchas gracias, si conviene hago un ejemplo más simple o explico
Estoy intentando que en un formulario me haga lo siguiente via código:
1.-Compruebe si existe el registro
2.-Si no existe añadirlo
3.-Buscarlo y presentarlo por pantalla
Para hacer esto he utilizado el siguiente código que he sacado de diversas fuentes, entre ellas de mi invención y me encuentra bien si existe el registro, i si no lo inserta en la bd pero no consigo hacer que me lo busque
El campo clave de la tabla Parcella es CodiParcella que lo coge de un cuadro de texto llamado Me.codipar, a su vez este valor se almacena en la variable strCriteria, cuando hago clik en un botón de comando ha de buscar por CodiParcella
el código que no consigo sacar y es donde busco el registro, es el siguiente:
Dim dbs As Database, rst As Recordset
Dim strCriteria As String
Set dbs = CurrentDb
strCriteria = me.codipar
Set rst = dbs.OpenRecordset("Parcella", dbOpenDynaset)
' Aquí es donde guardo los datos, en un nuevo registro.
rst.AddNew
rst!Municipi = me.muni
rst!Poligon = me.poli
rst!CodiParcella = Me.codipar
rst.Update
rst.FindFirst strCriteria
rst.Close
Set dbs = Nothing
Cuando hago clik en el botón de comando me da error 3077, error de sintaxis en el número de la expresión
en la linia de codigo:
rst.FindFirst strCriteria
Por que motivo me pasa esto?,
Muchas gracias, si conviene hago un ejemplo más simple o explico
Valora esta pregunta


0