Imprimir página | Cerrar ventana

Comparar dos campos en una tabla de acuerdo a un

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84524
Fecha de impresión: 26/Marzo/2026 a las 15:29


Tema: Comparar dos campos en una tabla de acuerdo a un
Publicado por: andressf
Asunto: Comparar dos campos en una tabla de acuerdo a un
Fecha de publicación: 31/Mayo/2019 a las 14:13
Buenas, antes que nada gracias por su ayuda.
Tengo una base de datos donde necesito cargar unos datos pero que antes busque en la tabla si ya existe, si existe me de el mensaje de ya cargado sino me abre un formulario para cargar datos. 
Tengo estos datos: T_Reval: [Id_R_Ins] [R_ano]

Tengo un formulario [F_ped_reval_agrega] donde ingreso los datos con una tabla temporal (son los mismo campos que la tabla t_Reval con la diferencia que terminan en _List) T_Reval_List: [Id_R_Ins_List] [R_ano_List] 

Dim vR_ano_List As String, Dim vId_R_Ins_List As String
Dim vCompruebo As Variant

vR_ano_List = Nz(Me.R_ano_List.Value, "")
vId_R_Ins_List = Nz(Me.Id_R_Ins_List.Value, "")

vCompruebo = DLookup("[Id_R_Ins]", "[T_Reval]", "[R_ano]=" & vR_ano_List & "")

If vId_R_Ins_List = vCompruebo Then

'vCompruebo = DLookup("[R_ano]", "[T_Reval]", "[R_ano]=" & vR_ano_List & "")

MsgBox "ESA DENOMINACIÓN YA TIENE PEDIDO DE REVÁLIDA", vbExclamation, "NO EXISTE"

La idea es que me compare [Id_R_Ins] en la tabla T_Reval y el año [R_ano] tiene que coincidir el con el año. Pero no logro descifrar como hacerlo.
Aguardo su ayuda y sugerencias.
Muchas gracias y saludos.


Respuestas:
Publicado por: Mihura
Fecha de publicación: 31/Mayo/2019 a las 15:07
Dlookup("Campo", "Tabla", "Condicion1 AND Condicion2")

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: andressf
Fecha de publicación: 31/Mayo/2019 a las 16:27
Buen día, Mihura, gracias por tu pronta respuesta.
Listo ya funciona, muchas gracias

    vCompruebo = Nz(DLookup("id_revali_curs", "T_ano_revalidados", "id_revali_curs =" & vid_revali_curs & " And ano_revali ='" & vR_ano & "'"), "")


Imprimir página | Cerrar ventana