Mostrar formulario de access solo con un registro seleccionado
Publicado por RAZIEL (1 intervención) el 08/03/2017 23:23:25
Buen día, ocupo de la ayuda de alguno de los participantes del foro, les explico y espero me de a entender:
Estoy trabajando en una sencilla base de datos (tabla: clientes y recibos de pago), donde en un solo formulario realizo la captura de los clientes (alta, baja, modificación y consulta), otro formulario de los pagos que va realizando cada cliente; más aparte tengo un formulario donde me hace la búsqueda de los registros de las tablas que tengo del cliente o del pago. En lo que solicito ayuda es en los siguiente:
En un cuadro de lista aparecen los registros que quiero mostrar, ocupo de que cuando de doble clic sobre el listado aparezca el formulario que ya realice para los pagos y solo muestre el dato seleccionado. Lo que sucede es que si me abre el formulario, pero no solo con un único registro, si no con todos los registros.
El código mas o menos es así:
Y ya abusando de su amabilidad, ver la posibilidad de que también me ayuden a realizar, en el formulario que ya realice, un boton o casilla de verificación para determinar si quiero el archivo impreso o descargarlo en pdf.
Espero de su valiosa ayuda.
Saludos, y muchas gracias de antemano!!!
Estoy trabajando en una sencilla base de datos (tabla: clientes y recibos de pago), donde en un solo formulario realizo la captura de los clientes (alta, baja, modificación y consulta), otro formulario de los pagos que va realizando cada cliente; más aparte tengo un formulario donde me hace la búsqueda de los registros de las tablas que tengo del cliente o del pago. En lo que solicito ayuda es en los siguiente:
En un cuadro de lista aparecen los registros que quiero mostrar, ocupo de que cuando de doble clic sobre el listado aparezca el formulario que ya realice para los pagos y solo muestre el dato seleccionado. Lo que sucede es que si me abre el formulario, pero no solo con un único registro, si no con todos los registros.
El código mas o menos es así:
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub Listado_DblClick(Cancel As Integer)
On Error GoTo Err_Salir_Click
Dim rst As Recordset
Select Case Me.Busqueda 'ESCRITOS
Case Is = "1"
DoCmd.Close acForm, "consulta cliente"
If Me.Listado.ListCount = 0 Then
MsgBox "No hay Datos para mostrar.", vbOKOnly, "Sin Datos"
Exit Sub
End If
DoCmd.OpenForm "consulta cliente"
Set rst = Forms!CLIENTE.RecordsetClone
rst.FindFirst "id_cliente=" & Me.Listado
Forms!CLIENTE.Bookmark = rst.Bookmark
DoCmd.Close acForm, "Buscador General"
'Pagos
Case Is = "2"
DoCmd.Close acForm, "consulta pagos"
If Me.ListaDO.ListCount = 0 Then
MsgBox "No hay Datos para mostrar.", vbOKOnly, "Sin Datos"
Exit Sub
End If
DoCmd.OpenForm "consulta pagos"
Set rst = Forms!PAGOS.RecordsetClone
rst.FindFirst "id_pago= " & Me.Listado
Forms!PAGOS.Bookmark = rst.Bookmark
DoCmd.Close acForm, "Buscador General"
End Select
Set rst = NothingExit_Salir_Click:Exit Sub
Err_Salir_Click: MsgBox Err.DescriptionResume Exit_Salir_Click
End Sub
Private Sub Lista1_Click()
Me.Busca.Visible = True
Me.Busca = ""
Me.Busca.SetFocus
End Sub
Y ya abusando de su amabilidad, ver la posibilidad de que también me ayuden a realizar, en el formulario que ya realice, un boton o casilla de verificación para determinar si quiero el archivo impreso o descargarlo en pdf.
Espero de su valiosa ayuda.
Saludos, y muchas gracias de antemano!!!
Valora esta pregunta
0