Access - 2 preguntas en 1

 
Vista:

2 preguntas en 1

Publicado por Antonio (20 intervenciones) el 25/08/2005 14:00:42
1º En un formulario de introducción y consulta de datos quiero insertar un combo desplegable de búsqueda, es decir, que seleccionando un valor ahí me lleve al registro indicado (sería un valor único, es decir, el DNI, por ejemplo).

2º En el mismo formulario, me gustaría que en cada registro me mostrara en una esquina el nombre de la persona a la que corresponde, ya que aparece sólo en la primera de varias pestañas y es posible perderse.

Gracias por la ayuda, espero que entendais las preguntas.
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:2 preguntas en 1

Publicado por Alicia (19 intervenciones) el 27/08/2005 14:24:25
Hola!
Yo he conseguido hacer algo parecido, en mi aplicacion lo que hago es introducir un dni en un campo de texto y mostrar los campos que corresponden a ese dni.
PAra ello he seguido el mismo procedimiento que me han puesto en un post que tengo mas arriba que se llama "problemilla"
Lo que hago es crear un form que me pide en un campo de texto llamado TxtDniUsuario el dni, y luego he puesto un command button con este codigo:

Private Sub Boton_dni_Click()

If IsNull(Me.TxtDni) Then
MsgBox "Por Favor Introduzca un dni de un paciente", vbCritical, "Aviso"
Exit Sub
End If

Sql = "SELECT * FROM TABLA where dni_pac='" & Me.TxtDni & "'"
Set Rst = CurrentDb.OpenRecordset(Sql)
If Rst.EOF And Rst.BOF Then
MsgBox "No existe ningun paciente con ese dni", vbCritical, "Aviso"
Exit Sub
Else
Me.Visible = False
Dim stDocName As String
Dim stLinkCriteria As String

If ir_a = 1 Then
stDocName = "Informe 1"
Else
If ir_a = 2 Then
stDocName = "Informe 2"
Else
stDocName = "Informe 3"
End If
End If

DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Rst.Close
Set Rst = Nothing
Exit_Boton_dni_Click:
Exit Sub

Err_Boton_dni_Click:

MsgBox "Número de error que se ha producido: " & Err.Number & Chr(13) _
& Err.Description, vbCritical + vbOKOnly, "Error"
Resume Next
Resume Exit_Boton_dni_paciente_Click

End Sub

Y luego en la consulta del informe he puesto en criterios lo siguiente:

[Forms]![Acceso]![TxtDni]

Espero que te sirva de ayuda, a mi me ha solucionado la vida!
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