Uso de 3 condiciones
Publicado por Jhonattan (123 intervenciones) el 06/08/2017 03:06:02
Que tal mi gente un saludo para todos esos colegas que hacen vida en este gran foro, por acá quiero hacer una consulta a ver quien puede ayudarme a resolver este problema.
tengo dos tablas una llamada TBL_ALUMNOS Y TBL_COMPRAS
lo que necesito es lo siguiente:
aca subo un capture del formulario que estoy trabajando..
1 - lo primero que tengo que hacer es registrar a los alumnos cuyos datos dse guardaran en la tabla TBL_ALUMNOS
2- luego de haber registrado a estos alumnos se realiza la compra de servicios, esta operación la hago mediante el formulario que les deje allí en la imagen ok. Aquí viene el tema, para poder comprar servicios debo introducir el identificador del alumno con el cual voy a hacer la compra pero que necesito hacer antes de poder culminar este proceso.
3- hice un código donde aplico la función dlookup para que esta me busque los datos de x alumnos en la tabla TBL_ALUMNOS al traerme esos datos continuo con el proceso de llenado del formulario y finalizo la transacción presionando el botón guardar y todo es un exito ahora viene la parte que se me complica.
4- voy a poner como ejemplo que el alumno que acabo de registrar tiene el identificador 2050, cuando pero que pasa si yo quiero hacer otra operación con otro alumno, asigne la función dlookup para que antes poder ingresar otro registro primero me haga una busqueda dentro de la tabla TBL_COMPRAS, para que se hace esto para saber si el nuevo identificador que estoy introduciendo ya existe en esta tabla, pero aqui viene lo más complicado necesito que ese algoritmo haga 3 cosas.
A - verificar mediante dlookup en la tabla TBL_ALUMNOS si el identificador introducido no existe en esta tabla muestra un mensaje diciendo que no existe el identificador introducido
B - verificar mediante dlookup si el identificador introducido existe en la tabla TBL_COMPRAS si existe entonces muestra un mensaje diciendo el identificador introducido ya realizo compra de servicio, si desea aumentar el numero de disponibilidades de servicio vaya al modulo aumento de disponibilidad de servicio.
C - si el identificador existe en la tabla TBL_ALUMNOS pero no existe en la tabla TBL_COMPRAS me permita poder hacer la transacción para continuar con el proceso y una vez hecha la compra poder guardar estos datos en TBL_COMPRAS.
Igual adjuntare el código para que mas o menos visualicen lo que quiero hacer..
tengo dos tablas una llamada TBL_ALUMNOS Y TBL_COMPRAS
lo que necesito es lo siguiente:
aca subo un capture del formulario que estoy trabajando..
1 - lo primero que tengo que hacer es registrar a los alumnos cuyos datos dse guardaran en la tabla TBL_ALUMNOS
2- luego de haber registrado a estos alumnos se realiza la compra de servicios, esta operación la hago mediante el formulario que les deje allí en la imagen ok. Aquí viene el tema, para poder comprar servicios debo introducir el identificador del alumno con el cual voy a hacer la compra pero que necesito hacer antes de poder culminar este proceso.
3- hice un código donde aplico la función dlookup para que esta me busque los datos de x alumnos en la tabla TBL_ALUMNOS al traerme esos datos continuo con el proceso de llenado del formulario y finalizo la transacción presionando el botón guardar y todo es un exito ahora viene la parte que se me complica.
4- voy a poner como ejemplo que el alumno que acabo de registrar tiene el identificador 2050, cuando pero que pasa si yo quiero hacer otra operación con otro alumno, asigne la función dlookup para que antes poder ingresar otro registro primero me haga una busqueda dentro de la tabla TBL_COMPRAS, para que se hace esto para saber si el nuevo identificador que estoy introduciendo ya existe en esta tabla, pero aqui viene lo más complicado necesito que ese algoritmo haga 3 cosas.
A - verificar mediante dlookup en la tabla TBL_ALUMNOS si el identificador introducido no existe en esta tabla muestra un mensaje diciendo que no existe el identificador introducido
B - verificar mediante dlookup si el identificador introducido existe en la tabla TBL_COMPRAS si existe entonces muestra un mensaje diciendo el identificador introducido ya realizo compra de servicio, si desea aumentar el numero de disponibilidades de servicio vaya al modulo aumento de disponibilidad de servicio.
C - si el identificador existe en la tabla TBL_ALUMNOS pero no existe en la tabla TBL_COMPRAS me permita poder hacer la transacción para continuar con el proceso y una vez hecha la compra poder guardar estos datos en TBL_COMPRAS.
Igual adjuntare el código para que mas o menos visualicen lo que quiero hacer..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Comando61_Click()
On Error Resume Next
Me.txtidentificador.SetFocus
Me.txtidentificador = DLookup("IDENTIFICADOR", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
If txtidentificador.Text = "" Then
MsgBox "El identificador que introdujo no Existe...", vbExclamation, "Registro no encontrado"
'-------AQUI TERMINA LA PRIMERA PARTE DEL CODIGO -------------------------------------------------------------------------------------------->
ElseIf Me.txtidentificador = DLookup("IDENTIFICADOR", "TBL_COMPRAS", "IDENTIFICADOR = " & "txtbuscar") Then
Me.txtidentificador = TBL_COMPRAS!IDENTIFICADOR
MsgBox "Ya no puede volver a comprar, este módulo es solo para los Identificadores que aún no hayan realizado compra: Para las recompras de Servicio vaya al módulo Aumentar Disponibilidad de Servicio", vbExclamation, "Identificador Registrado"
Else
Me.txtidentificador = DLookup("IDENTIFICADOR", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txtnombres = DLookup("NOMBRES", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txtapellidos = DLookup("APELLIDOS", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txtedad = DLookup("EDAD", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txtsexo = DLookup("SEXO", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txtcurso = DLookup("CURSO", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txttutor = DLookup("TUTOR", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txtnombrest = DLookup("NOMBRESYAPELLIDOS", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txttelefono = DLookup("TELEFONO", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
Me.txtcorreo = DLookup("CORREO", "TBL_ALUMNOS", "IDENTIFICADOR = " & "txtbuscar")
End If
'DoCmd.CancelEvent
End Sub
Valora esta pregunta
0