Visual basic access

Necesito saber como decir en VB a la hora de guardar un registro en una tabla de access, que lo guarde siempre y cuando NO exista ya. Es decir, antes de guardar el registro, debe verificar si existe o no. En caso de no existir lo debe guardar, pero si existe con anterioridad mostrará un mensaje. Para ello utilizo un campo de la tabla que es la clave principal y no se puede repetir y quiero basar dicha condición en ese campo (IdRegistro).

1 respuesta

Respuesta
1

Primero debes hacer una Consulta SQL (SELECT) con el "filtro" de que busque el ID, Folio o no se cual campo es único en tu BD, y si lo encuentra que te avise que ya existe.

¿O cómo haces para guardar?

Este es el procedimiento que tengo para guardar, pero en la actualidad me guarda todo, incluso cuando el registro ya existe. En el formulario "Albarán" tengo un campo que es "IdAlbaran" que coincide con el campo de la tabla "Albaranes". Debido a que en la tabla el campo IdAlbaran NO se puede repetir, el programa muestra un error al estar repetido, pero quiero controlar el guardarlo o no por procedimiento y no por un error del propio Access. Sobre tu respuesta, no se muy bien hacer la consulta Select.

Muchas gracias por tu interés.

ProcedimientodelbotónGuardar.

Private Sub GuardarAl_Click()
Dim por As Database, registros As Recordset
Dim mirecorset As Recordset
Dim sql As String
Set por = CurrentDb
Set registros = por.OpenRecordset( Albaranes , dbOpenDynaset)
registros.AddNew
registros( IdAlbaran ) = Forms![Albarán]!IdAlbaran
registros( FechaAlb ) = Forms![Albarán]!Fecha
registros( Cliente ) = Forms![Albarán]!IdCliente
registros( BaseImponible ) = Forms![Albarán]!BIAlb
registros( Descuento ) = Forms![Albarán]!DsctImpo
registros( TotalAlb ) = Forms![Albarán]!TotalAlb
nes , [IdAlbaran]=[forms]![Albarán]![IdAlbaran] then
registros.Update
End Sub

Hace mucho que no uso VB6 pero creo que debe ser aquí la consulta:

Set registros = por.OpenRecordset( Albaranes , dbOpenDynaset)

Cambia lo que esta en Negritas por algo así:

SELECT IdAlbaran FROM Albaranes WHERE IdAlbaran=Variable

Variable seria, valga la Redundancia, la Variable donde guardarías el ID que quieres validar si existe o no.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Programar cuadros combinados de access con vba

Como puedo programar un cuadro combinado para que inserte el dato seleccionado en una tabla al hacer click en un botón, pongo el código para que me ayuden a con el error que se genera. Private Sub Comando20_Click() 'Declaramos una variable de nombre...
1 respuesta

Copiar registros mediante código

Tengo un formulario que saca los datos de la tabla A y un subformulario que los saca de la tabla B, Quiero que cuando elija un registro de la tabla A exista un botón de comando que copie mediante código el registro seleccionado de la tabla A en la...
1 respuesta

Guardar valor del campo resultado de una consulta sql en una variable string

A través de un campo string de un formulario, quiero usar su valor (la palabra que hay almacenada dentro) para realizar una consulta sql de una tabla, y que me busque el registro que tiene dicho valor, y después extraer de dicho registro el valor de...
1 respuesta

Contar registros en función de una fecha

En primer lugar gracias a ti y tus compañeros expertos y a los creadores de esta página por crear este excelente foro de ayuda, ahora voy con la pregunta: Estoy desarrollando una aplicación de BD en access. El cliente requiere saber cuantos registros...
1 respuesta

¿Cómo exportar informe de access estableciendo el nombre y preguntando la ruta?

Estoy intentando exportar un informe de access a pdf, el problema es que quiero que cada archivo pdf que genere se llame distinto, y que la ruta donde se guarde te la pregunte cada vez. No consigo hacer las dos cosas a la vez es decir, o establezco...
1 respuesta

Actualizar tabla desde formulario con campo SI/NO

Estoy tratando de ejecutar una consulta de actualización desde el botón de un formulario, evaluando una caja de texto cuyo valor debe ser cero y un control de un dos subformularios que corresponde a un campo si/NO , pero no lo consigo, ¿Me puedes...
1 respuesta

Access 2007, campo despliegue

En Access 2007, 1.como hago para que en un formulario yo pueda a la hora de digitar el numero de ID del empleado en otro campo se despliegue el nombre. (Asumiendo que tenemos una tabla de empleados). Este formulario no esta sobre la tabla empleados...
1 respuesta

Añadir registro en access

Encontré el siguiente código en internet para añadir registro en un cuadro combinado, me en msgbox. Private Sub Lista52_NotInList(NewData As String, Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Dim NewID As...
1 respuesta

Bucle para comparar dos tablas por un campo id y campo monto

En vba de access estoy intentando comparar los registros de dos tablas ( Banco y Sistema), la idea es que un bucle recorra el campo Doc de la tabla banco y evalúe el campo Doc y campo Monto de la tabla sistema, es decir, si en la tabla Sistema...
1 respuesta

Access: dudas con los formularios

Como en el lenguaje de visual puedo llamar a una tabla desde un formulario por ejemplo llamada pensinados y que de la columna rut lo busque y muestre el nombre... Otra pregunta es como puedo hacer para que se incremente en un foemulario el ultimo...
1 respuesta