Ayuda con consulta a tabla de base de datos implementada con microsoft access sin campo clave

Buenos días Todo Experto nuevamente necesito de tu gran ayuda, necesito buscar un registro en una tabla la cual no tiene campo clave. Tengo un campo llamado CÓDIGO y otro NUMERO en una tabla llamada EQUIPOS, ahora bien quiero que cuando escribo el código en una variable de texto llamada CODI y el numero en una variable NUMERO. Busque en la tabla y si existe envíe un mensaje indicando que existe... Tengo el siguiente código de búsqueda pero es para buscar el código nada más:
If DCount("codigo", "insumos", "[codigo]=[forms]![equipos]![combo_codigo]") >= 1 Then
MsgBox "Codigo de Insumos Existe. Verifique", vbExclamation
DoCmd.CancelEvent
End If
¿Se puede combinar para buscar el CÓDIGO y el NUMERO a la vez y como?. Gracias...

1 respuesta

Respuesta
1
Claro que se puede buscar por dos criterios al mismo tiempo:
If DCount("codigo", "insumos", "[codigo]=[forms]![equipos]![combo_codigo] AND [NUMERO] =[forms]![equipos]![combo_numero]") >= 1 Then
MsgBox "Codigo de Insumos Existe. Verifique", vbExclamation
DoCmd.CancelEvent
End If
OJO SI ESTA EN EL MISMO FORMULARIO DONDE ESTA EL COMBO LLAMADO combo_codigo, lo puede simplificar a :
If DCount("codigo", "insumos", "[codigo]= " & combo_codigo & " AND [NUMERO] = " & combo_numero & "") >= 1 Then
MsgBox "Codigo de Insumos Existe. Verifique", vbExclamation
DoCmd.CancelEvent
End If
Aquí imagino que el campo que contiene el numero se llama combo_numero...
Ahora donde te muestro simplificado debes tener en cuanta: si se iguala a un campo Numérico entonces va:
...." & combo_numero & "...
Comillas Dobles, Espacio, Ampersand(&), espacio, Criterio, Espacio, Ampersand(&), Espacio, Comillas dobles...
Si es el campo es texto:
....'" & combo_numero & "'...
Comilla sencilla, Comillas Dobles, Espacio, Ampersand(&), espacio, Criterio, Espacio, Ampersand(&), Espacio, Comillas dobles, Comilla sencilla...
Si ews fecha:
....#" & Format(combo_numero,"MM/dd/yyyy") & "#...
CSharp(#),Comillas Dobles,Espacio,Ampersand(&),espacio,Criterio,Espacio,Ampersand(&),Espacio,Comillas dobles,CSharp(#)...
Acá en fechas se debe formatear la fecha, ya que se utiliza el formato internacional Mes/Dia/Año..
Ahora en vez de colocar Docmd. CancelEvent...
Puedes colocar los dos combos a nulo...
combo_codigo = Null
Combo_Numero = Null
Me avisas..
Att:telemaco

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

En una tabla hacer una Suma acumulada

Tengo una tabla con 5 columnas id, código, fecha, cantidad, cantidadacumulada, donde la cantidad acumulada es el resultado de sumar acumulado todos los códigos iguales dado por los números de la casilla cantidad, el tema que en visual basic lo logro...
1 respuesta

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
4 respuestas

Trabajando por primera vez con código vba en formulario de Access.

Estoy aplicando con ayuda de otras personas un código vba a un formulario y a pesar de todo no me funciona como lo esperaba. ¿Alguien en esta plataforma que por favor me revise esta tarea y oriente al respecto?
1 respuesta

Trabajando con formato condicional en formularios de Access.

Estoy construyendo una base de datos en Access. Tengo un formulario principal ¨SERVICIOS¨ que contiene un primer subformulario ¨ETAPAS¨ y un segundo subformulario¨VENTAS¨ (intenté subir la imagen pero no funciona esta opción de la plataforma) Lo que...
5 respuestas

Como puedo hacer para Exportar un informe de Access a PDF añadiendo fecha y la hora actual del Pc

Tengo este código, pero no tiene la fecha y la hora ¿Cómo hago? Sería Algo así cuando guarda: Test 2023-07-06 15:21.PDF Private Sub Comando1172_Click() Dim strUserName As String, strPath As String strPath = "C:\Users\usuario\Documents\test.pdf"...
2 respuestas

Access código para copiar a tabla grupo de opciones

Tengo un formulario independiente con campos independientes. Uno de esos campos es un marco (grupo de opciones) que código podre utilizar para al dar click en el botón guardar me envíe los datos a la tabla específicamente lo que se escogió el el...
2 respuestas

Diferencias entre fechas devuelva año mes días

Tengo en un campo del formulario esto =DifFecha("d";[Formularios]![coches mantenimientos]![AÑO];[FECHA]), me devuelve correctamente los días entre las fechas, pero yo quería en vez de días me dijera La diferencia en años, meses y días.
2 respuestas

Encontrar repetidos en varias columnas

Tengo una tabla que contiene 10 columnas, que he importado de Excel: Nro1, nro2, nro3, nro4, nro5, nro6, nro7, nro8, nro9, nro10. Contienen números tipo texto, por ejemplo. Nro1 nro2 nro3 nro4,..., nro10 0005 4578 1247 1326,... 2147 1247 4587 0035...
1 respuesta

Abrir formulario para pagar con una tecla

Necesito saber si se puede tengo un formulario y subformulario de Ventas2 y DetalleVenta en ventas2 tengo un campo METODO_PAGO el cual el enfoque para cuando termine en detalleventa la selección de productos aplaste una tecla por ejemplo esc y salga...
2 respuestas

Copia de seguridad BD completa Access

Quiero saber si es posible mediante un botón en un formulario en Access crear una copia de seguridad de TODA la base de datos en una unidad USB al pulsar el botón. La unidad está en la ruta: D:\14gb\ Cuando digo TODA la BD son tablas, consultas, etc..
2 respuestas