Access - consutar cedula en dos tablas

   
Vista:

consutar cedula en dos tablas

Publicado por Mario Ramirez (39 intervenciones) el 19/11/2009 23:53:49
Cordial saludo,
Necesito que me ayuden por favor para realizar lo siguiente:
Tengo dos tablas cuya relacion es de uno a varios , el campo clave es la cedula
necesito que al ingresar una cedula me indique si ya esta en alguna de las dos tablas y si esta en cual esta.
Agradezco al colaboracion
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:consutar cedula en dos tablas

Publicado por Jefferson (8 intervenciones) el 21/11/2009 05:36:08
Hola Mario Ramirez

Prueba con este codigo

Function JJJT_BuscarEnDosTablas _
(Tabla1, CampoBusqueda1, _
Tabla2, CampoBusqueda2 _
As String) _
As String
Dim B1, B2, Cedula As String
Cedula = InputBox("Ingrese el numero de Cedula")
B1 = DCount("*", "" & Tabla1 & "", _
"" & CampoBusqueda1 & "" & _
"=" & Cedula)
B2 = DCount("*", "" & Tabla2 & "", _
"" & CampoBusqueda2 & "" & _
"=" & Cedula)
If B1 = 1 And B2 = 1 Then
BuscarEnDosTablas = "Registro encontrado en ambas tablas"
ElseIf B1 = 1 And B2 = 0 Then
BuscarEnDosTablas = "Registro encontrado en la tabla: " _
& Tabla1
ElseIf B1 = 0 And B2 = 1 Then
BuscarEnDosTablas = "Registro encontrado en la tabla: " _
& Tabla2
ElseIf B1 = 0 And B2 = 0 Then
BuscarEnDosTablas = "Registro no encontrado "
End If
End Function

Desde Venezuela
Jefferson
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar