Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: ZENAURIA99 en Miércoles 12 de Septiembre de 2007, 09:42
Título: Error '13'
Publicado por: ZENAURIA99 en Miércoles 12 de Septiembre de 2007, 09:42
Tengo un programa en mi empresa en el que tengo un error desde hace tiempo y me he puesto a investigar.
El error es el siguiente: Se ha producido el error '13' en tiempo de ejecución. no coinciden los tipos.
Al dar a depurarlo aparece lo siguiente:
Option Compare Database
Private Sub Comando0_Click() DoCmd.OpenReport "I_Envios_Recibidos", "acViewPreview" DoCmd.Close acForm, "f_PETICION_PROVEEDOR_Y_FECHAS_ENTRADAS" End Sub
Private Sub Comando1_Click() DoCmd.Close End Sub
Private Sub ID_Proveedor_AfterUpdate() Me.ID_ARTICULO.Requery End Sub
aparece en amarillo marcado DoCmd.OpenReport "I_Envios_Recibidos", "acViewPreview" con lo cual deduzco que este es el error. Porfavor, echazme una mano
Gracias
Título: Re: Error '13'
Publicado por: Scherzo en Miércoles 12 de Septiembre de 2007, 10:56
Te respondo a ciegas porque no lo he probado (tampoco tengo claro qué tipo de objeto es el que usas, ¿Crystal Reports?), pero viendo la instrucción que aparentemente te está dando el error tiene pinta que el segundo parámetro que le pasas, el "acViewPreview" es una constante o un enumerado propio del objeto, y a lo mejor lo que no le gusta es que se lo estás pasando como cadena de texto en lugar del valor que representa dicha constante/enumerado.
Prueba a quitar las comillas y que la instrucción te quede así: