Registros duplicados

Hola
Necesito saber de que manera puedo validar la captura de registros duplicados sin esperar a ingresar todos los campos del registro, sino que al momento de capturar el dato clave envíe mensaje indicando que el dato ya fue capturado.
Si es posible por favor de manera sencilla.
De antemano, muchas gracias

1 Respuesta

Respuesta
1
Hay una manera, por medio de programación utilizando un Objeto Recordset (Variable que me permite manipular registros).
***************************
Private Sub CODPRO_Exit(Cancel As Integer)
Dim reg As DAO.Recordset
Set reg = Me.RecordsetClone
reg.FindFirst "CODPRO = (" & CODPRO.Value & ")"
If Not reg.NoMatch Then
MsgBox "El Código '" & CODPRO.Value & "' ya existe. " & _
"se localiza en el registro No '" & reg.AbsolutePosition + 1 & "'.", vbExclamation, "Error"
Cancel = True
CODPRO.SetFocus
CODPRO.Value = Null
End If
Set reg = Nothing
End Sub
***************************
Explicación:
Aquí, se supone que hay un control llamado (CODPRO, como así también el campo en la Tabla)... este control va guardando o estableciando la llave principal de la tabla "PRODUCTOS", ahora en el evento "Exit" (Al Salir]) de la Caja de Texto se valida que no se repita.
Iniciamos una instancia de una variable recordset, que me permitirá manejar los registros de una Tabla o Consulta.
*******************
Dim reg As DAO.Recordset
*******************
Poblamos el Objeto Recordset con los registros del Formulario (Me. RecordsetClone: Esta propiedad devuelve una copia exacta de los registros del formulario)
************************
Set reg = Me.RecordsetClone
************************
Buscamos si el código digitado en la caja de texto ya existe (FindFirst)
********************************************
reg.FindFirst "CODPRO = (" & CODPRO.Value & ")"
Acá es importante aclarar algo, hay que tener en cuanta el tipo de datos, en este caso se toma como si fuera numérico, por eso se coloca
? & CODPRO.VALUE & ?
Comilla doble, espacio, Ampersand (&), Espacio, Variable o caja de texto que contiene el valor, Espacio, Ampersand, comillas dobles.
Es importante este orden ya que le puede votar error o no funcionaria.
Ahora si fuera texto el Campo en la Tabla seria así:
?? & CODPRO.VALUE & ??
Comilla sencilla (?), comillas dobles, Espacio, Ampersand, espacio, Variable o Caja de texto del valor, Espacio, Ampersand, Espacio, Comillas Dobles, Comilla Sencilla.
Ahora si es fecha, se complica un poquitín ya que tenemos que formatearla, porque se utiliza el formato Internacional (Americano para las fechas mes/dia/año)
#? & Format(CODPRO.VALUE,?MM/dd/yyyy?) & ?#
Csharp(#), Comillas Dobles, espacio, Ampersand, Espacio, Valor formateado (Se utiliza la función format, primero va a quien se formatea, y luego el formato, en este caso se tomaría como mes/dia/año, ya que access utiliza el formato normal dia/mes/año), Espacio, Ampersand, Espacio, Comillas Dobles, CSharp.
Ahora preguntamos si la encontró (Se niega la propiedad NoMAtch(No encontrado))
********************
If Not reg.NoMatch Then
********************
Si entra al If significa que el código ya existía, muestra un mensaje al usuario (msgbox), cancela el ingreso del dato (cancel = trae),manda el enfoque otra vez a la caja y la limpia (CODPRO.Value = Null)
**********************************************************************
MsgBox "El Código '" & CODPRO.Value & "' ya existe. " & _
"se localiza en el registro No '" & reg.AbsolutePosition + 1 & "'.", vbExclamation, "Error"
Cancel = True
CODPRO.SetFocus
CODPRO.Value = Null
**********************************************************************
Me avisas como te fue, si necesita que te aclare algo me avisas...
Att:TELEMACO
Disculpa te la vuelvo a repetir ya que por el tipo de fuente tomo caracteres que no era... esta si es la respuesta. Disculpa
Hay una manera, por medio de programación utilizando un Objeto Recordset (Variable que me permite manipular registros).
***************************
Private Sub CODPRO_Exit(Cancel As Integer)
Dim reg As DAO.Recordset
Set reg = Me.RecordsetClone
reg.FindFirst "CODPRO = (" & CODPRO.Value & ")"
If Not reg.NoMatch Then
MsgBox "El Código '" & CODPRO.Value & "' ya existe. " & _
"se localiza en el registro No '" & reg.AbsolutePosition + 1 & "'.", vbExclamation, "Error"
Cancel = True
CODPRO.SetFocus
CODPRO.Value = Null
End If
Set reg = Nothing
End Sub
***************************
Explicación:
Aquí, se supone que hay un control llamado (CODPRO, como así también el campo en la Tabla)... este control va guardando o estableciando la llave principal de la tabla "PRODUCTOS", ahora en el evento "Exit" (Al Salir]) de la Caja de Texto se valida que no se repita.
Iniciamos una instancia de una variable recordset, que me permitirá manejar los registros de una Tabla o Consulta.
*******************
Dim reg As DAO.Recordset
*******************
Poblamos el Objeto Recordset con los registros del Formulario (Me. RecordsetClone: Esta propiedad devuelve una copia exacta de los registros del formulario)
************************
Set reg = Me.RecordsetClone
************************
Buscamos si el código digitado en la caja de texto ya existe (FindFirst)
********************************************
reg.FindFirst "CODPRO = (" & CODPRO.Value & ")"
Acá es importante aclarar algo, hay que tener en cuanta el tipo de datos, en este caso se toma como si fuera numérico, por eso se coloca
" & CODPRO.VALUE & "
Comilla doble, espacio, Ampersand (&), Espacio, Variable o caja de texto que contiene el valor, Espacio, Ampersand, comillas dobles.
Es importante este orden ya que le puede votar error o no funcionaria.
Ahora si fuera texto el Campo en la Tabla seria así:
'" & CODPRO.VALUE & "'
Comilla sencilla ('), comillas dobles, Espacio, Ampersand, espacio, Variable o Caja de texto del valor, Espacio, Ampersand, Espacio, Comillas Dobles, Comilla Sencilla.
Ahora si es fecha, se complica un poquitín ya que tenemos que formatearla, porque se utiliza el formato Internacional (Americano para las fechas mes/dia/año)
#" & Format(CODPRO.VALUE,?MM/dd/yyyy?) & "#
Csharp(#), Comillas Dobles, espacio, Ampersand, Espacio, Valor formateado (Se utiliza la función format, primero va a quien se formatea, y luego el formato, en este caso se tomaría como mes/dia/año, ya que access utiliza el formato normal dia/mes/año), Espacio, Ampersand, Espacio, Comillas Dobles, CSharp.
Ahora preguntamos si la encontró (Se niega la propiedad NoMAtch(No encontrado))
********************
If Not reg.NoMatch Then
********************
Si entra al If significa que el código ya existía, muestra un mensaje al usuario (msgbox), cancela el ingreso del dato (cancel = trae),manda el enfoque otra vez a la caja y la limpia (CODPRO.Value = Null)
**********************************************************************
MsgBox "El Código '" & CODPRO.Value & "' ya existe. " & _
"se localiza en el registro No '" & reg.AbsolutePosition + 1 & "'.", vbExclamation, "Error"
Cancel = True
CODPRO.SetFocus
CODPRO.Value = Null
**********************************************************************
Me avisas como te fue, si necesita que te aclare algo me avisas...
Att:TELEMACO

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Registros duplicados en Access

Necesito saber de que manera puedo validar la captura de registros duplicados sin esperar a ingresar todos los campos del registro, sino que al momento de capturar el dato envíe mensaje indicando que el dato ya esta ingresado El tema es que la tabla...
1 respuesta

Abrir un formulario desde una lista

Tengo una lista incrustada en un formulario y quería que al hacer un doble click sobre el registro seleccionado, me abra otro formulario con el registro seleccionado. ¿Dónde pongo el valor? ¿Cómo funciona EstablecerValores? ¿Serviría poniendo en la...
1 respuesta

Guardar un campo

Otra vez. Espero no resultar pesada. Verás ahora necesitaría crear un botón que me guardase de un formulario, en una nueva tabla, sólo dos campos. El formulario no crea registros en ninguna tabla.
1 respuesta

Insertar datos en varias tablas

Mi duda es ver si se puede mediante un formulario ingresar datos en varias tablas a la vez, por lo menos tres, no todas las tablas tienen los mismos datos, pero si coinciden los datos que quiero ingresar De antemano gracias Armin Canto Mexico City
1 respuesta

Como actualizar una Tabla desde un Formulario con cuadro combinado

Tengo un Formulario con un cuadro combinado que cuando le escribo un código me muestra la informaciónón de la Tabla alumnos. Quiero que al tiempo se me actualice una tabla que se se llama ingreso con los campos: Código:estudiante num Hora_entrada :...
1 respuesta

Bucle: Aviso semanal con max desde campo fecha

Recurro a ti porque mis conocimientos de aprendiz han llegado a su límite. Espero poder explicarme bien: Estoy adaptando parte de código vb en access para un formulario que sirve de aviso basado en un campo fecha. No consigo establecer un bucle cada...
1 respuesta

Imprimir un registro

Tengo una BD en access 2000 con una tabla clientes y otra de reservas. He creado un formulario para la tabla de clientes y dentro de esta un subformulario para la tabla reservas (tienen relación de uno a muchos entre las tablas clientes/reservas)....
2 respuestas

Problema Eliminación de datos Entre Tablas

Me surge un problema que ya no se como voy a resolverlo... En una BD para criadero de animales tengo dos tablas una con todos los datos de los criadores y en particular dos campos NombreCriador y NºCriador (TablaCriadores) y otra con los animales...
1 respuesta

Ayuda en visual basic error 3464

Private Sub Buscar_Click() Call Abrir_BD Dim datos As String datos = "Select * from ARRENDADOR where cedula='" & cedula.Text & "'" Set Reg = Data.OpenRecordset(datos) If Reg.RecordCount > 0 Then Mostrar_Datos Else limpiar MsgBox ("La cedula no se...
1 respuesta

Abrir un formulario basado en una variable

Seguro que para los entendidos en Visual Basic, no creo que sea muy complicado lo que pregunto, aunque para mí es un reto en este lenguaje. Intentaré explicarme lo mejor que pueda. Tengo un formulario con estos controles: - Un cuadro de texto txtId -...
1 respuesta