Ayuda con subformulario
Publicado por Maria (1 intervención) el 25/08/2014 20:48:25
Hola a todos,
Soy nueva en access y no consigo crear el código para que teniendo en un formulario (que se crea desde una consulta), me pase los datos a un subformulario para crear una factura automáticamente pulsando un botón. El código que uso es el siguiente:
Me da error y al depurar se me queda marcado en Add.New y me dice que el rst=Nothing.
¿Alguien tiene alguna idea de dónde está el error?
Gracias por adelantado.
Soy nueva en access y no consigo crear el código para que teniendo en un formulario (que se crea desde una consulta), me pase los datos a un subformulario para crear una factura automáticamente pulsando un botón. El código que uso es el siguiente:
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
Private Sub CreaFactura_Click()
'Abro la consulta y el formulario de facturas
DoCmd.OpenForm "FacturaPatP", acNormal, "", "", , acHidden
'Declaro las variables
Dim vSubtotal As Currency
Dim vIdPrueba As String
Dim vCantidad As Integer
'Asigno los valores a las variables
vSubtotal = Nz(Form_FacturaPatP.Subtotal.Value, "")
vIdPrueba = Nz(Form_FacturaPatP.Nombre.Value, "")
vCantidad = Nz(Form_FacturaPatP.Cantidad.Value, "")
'Defino el recordset rst
Set rst = Me.SubFrmFrasDetall
'Añado un registro con la info de la consulta
With rst
.AddNew.Fields(2).Value = vCantidad
.Fields(3).Value = vIdPrueba
.Fields(4).Value = vSubtotal
End With
DoCmd.Close acForm, Form_FacturaPatP.Name
End Sub
¿Alguien tiene alguna idea de dónde está el error?
Gracias por adelantado.
Valora esta pregunta
0