informe de albarán
Publicado por Antonio (33 intervenciones) el 22/05/2006 16:36:44
Hola. Estoy desarrollando una aplicación que crea informes de albaranes. Tengo este y código y al ejecutarlo me da el siguiente error: "No coinciden los tipos de datos en la expresión de criterios". ¿Alguien sabe donde está el error? Gracias de antemano
Private Sub boton_informe_albaran_Click()
On Error GoTo Err_boton_informe_albaran_Click
Dim stDocName As String
Dim numAlbaran As String
Me.txtNumAlbaran.Enabled = True
Me.txtNumAlbaran.SetFocus
numAlbaran = Me.txtNumAlbaran.Text
'cerramos el formulario de albaranes
DoCmd.Close acForm, "FormAlbaran", acSaveYes
'cerramos el formulario principal
DoCmd.Close acForm, "MenuPrincipal", acSaveYes
stDocName = "prueba"
DoCmd.OpenReport stDocName, acPreview, , "ALB_NUMERO= " & numAlbaran
Exit_boton_informe_albaran_Click:
Exit Sub
Err_boton_informe_albaran_Click:
MsgBox Err.Description
Resume Exit_boton_informe_albaran_Click
End Sub
Private Sub boton_informe_albaran_Click()
On Error GoTo Err_boton_informe_albaran_Click
Dim stDocName As String
Dim numAlbaran As String
Me.txtNumAlbaran.Enabled = True
Me.txtNumAlbaran.SetFocus
numAlbaran = Me.txtNumAlbaran.Text
'cerramos el formulario de albaranes
DoCmd.Close acForm, "FormAlbaran", acSaveYes
'cerramos el formulario principal
DoCmd.Close acForm, "MenuPrincipal", acSaveYes
stDocName = "prueba"
DoCmd.OpenReport stDocName, acPreview, , "ALB_NUMERO= " & numAlbaran
Exit_boton_informe_albaran_Click:
Exit Sub
Err_boton_informe_albaran_Click:
MsgBox Err.Description
Resume Exit_boton_informe_albaran_Click
End Sub
Valora esta pregunta
0