Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Problemas con select

Access - Problemas con select

Volver
Nuevo Tema
<<>>
 
Vista:

Problemas con select

Publicado por Fernando (3 intervenciones) el 15/03/2007 18:57:43
Hola amigos tengo un problema que es el siguiente y no se como resolverlo:
El tema es asi
Tengo una BD con los siguientes campos

Codigo, Materia, Correlativa1, Correlativa2

Donde:
Codigo es el codigo de la materia (numerico)
Materia: es el nombre de la materia (texto)
Correlativa1: es el codigo de la materia correlativa a la que figura en el nombre (numerico)
Correlativa2: idem anterior

Bien ahora lo que yo tengo que hacer mediante un formulario es colocar una caja de texto donde pueda introducir un codigo y pulsando un boton automaticamente me busque y muestre el nombre y codigo de la materia que ingrese y el codigo y nombre de las materias correlativas si las tubiera.
Se que puede parecer bastante sencillo pero no me sale. BUAAAAAAAAAAAA

Gracias de ante mano a todos.
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
Imágen de perfil de Alejandro

Búsqueda de materias y correlativas

Publicado por Alejandro (4142 intervenciones) el 04/08/2023 19:00:50
Para lograr lo que necesitas, debes seguir estos pasos:

1. Crea un formulario en Access con una caja de texto y un botón.

2. Asigna un nombre adecuado a la caja de texto (por ejemplo, txtCodigo) y al botón (por ejemplo, btnBuscar).

3. Abre el editor de código haciendo clic derecho sobre el botón y seleccionando "Crear procedimiento de evento".

4. Dentro del editor de código, agrega el siguiente código para buscar la materia y sus correlativas:

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
Private Sub btnBuscar_Click()
    Dim codigo As Integer
    Dim materia As String
    Dim correlativa1 As Integer
    Dim correlativa2 As Integer
 
    ' Obtener el código ingresado en la caja de texto
    codigo = CInt(Me.txtCodigo.Value)
 
    ' Buscar la materia en la tabla
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TuTabla WHERE Codigo=" & codigo)
 
    ' Verificar si se encontró el registro
    If Not rs.EOF Then
        materia = rs("Materia")
        correlativa1 = rs("Correlativa1")
        correlativa2 = rs("Correlativa2")
 
        ' Mostrar los resultados en cuadros de mensaje
        MsgBox "Materia: " & materia & vbCrLf & _
               "Código: " & codigo & vbCrLf & _
               "Correlativa1: " & correlativa1 & vbCrLf & _
               "Correlativa2: " & correlativa2
    Else
        ' Mostrar un mensaje si no se encontró el registro
        MsgBox "No se encontró la materia con código: " & codigo
    End If
 
    ' Cerrar el recordset
    rs.Close
    Set rs = Nothing
End Sub

5. Guarda los cambios en el formulario y ciérralo.

Ahora, cuando ingreses un código en la caja de texto y hagas clic en el botón "Buscar", el formulario buscará la materia correspondiente en la tabla y mostrará el nombre de la materia y los códigos de las materias correlativas (si existen) en una ventana emergente de mensaje. Si no se encuentra la materia, también mostrará un mensaje indicando que no se encontró el registro.

Recuerda reemplazar "TuTabla" con el nombre real de tu tabla en la consulta SQL dentro del código VBA.
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