Access - Ayuda con subformulario

   
Vista:

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:
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
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.
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