** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Comparar dos campos en una tabla de acuerdo a un
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoComparar dos campos en una tabla de acuerdo a un

 Responder Responder
Autor
Mensaje
andressf Ver desplegable
Habitual
Habitual
Avatar

Unido: 12/Abril/2011
Localización: Argentina
Estado: Sin conexión
Puntos: 147
Enlace directo a este mensaje Tema: Comparar dos campos en una tabla de acuerdo a un
    Enviado: 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.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 31/Mayo/2019 a las 15:07
Dlookup("Campo", "Tabla", "Condicion1 AND Condicion2")
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
andressf Ver desplegable
Habitual
Habitual
Avatar

Unido: 12/Abril/2011
Localización: Argentina
Estado: Sin conexión
Puntos: 147
Enlace directo a este mensaje Enviado: 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 & "'"), "")

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable