¡¡¡¡¡AYUDA POR FAVOR!!!!!!!!
Publicado por Adrián (19 intervenciones) el 01/04/2004 01:21:21
Hola Amigo:
tengo un formulario que tiene una opcion de menu llamada Codigo que al hacer click se vincula a otro formulario en el que se agregan dos valores dentro de dos text y se almacenan en una tabla de una base de datos.-
Cuando hago click en el menu codigo para pasar al formulario mencionado me aparece el siguiente error:
ERROR 5 EN TIEMPO DE EJECUCION LLAMADA A PROCEDIMIENTO O ARGUMENTO NO VALIDO.-
Quisiera saber a que se debe este error. A continuacion te muestro el codigo del formulario y la linea donde se produce el error
Private Sub form_Load ()
Frame1.Capition = "Agregar Registro"
Command1.Caption = "Anular"
Command2.Caption = "Grabar"
Command3.Caption = "Salir"
Text1.Text = ""
Text2.Text= ""
Text1.Enabled = True
Text2.Enabled = True
sql = "Select * From Aparato Order by IdCodigoAparato asc"
rstAparato = Sistema.Openrecordset ( sql, dbOpenDynaset )
If rstAparato.recordcount > 0 Then
Text1.Setfocus
Else
Text1.Setfocus ' ACA SE PRODUCE EL ERROR'
End If
rstAparato.Close
Desde ya muchas gracias
tengo un formulario que tiene una opcion de menu llamada Codigo que al hacer click se vincula a otro formulario en el que se agregan dos valores dentro de dos text y se almacenan en una tabla de una base de datos.-
Cuando hago click en el menu codigo para pasar al formulario mencionado me aparece el siguiente error:
ERROR 5 EN TIEMPO DE EJECUCION LLAMADA A PROCEDIMIENTO O ARGUMENTO NO VALIDO.-
Quisiera saber a que se debe este error. A continuacion te muestro el codigo del formulario y la linea donde se produce el error
Private Sub form_Load ()
Frame1.Capition = "Agregar Registro"
Command1.Caption = "Anular"
Command2.Caption = "Grabar"
Command3.Caption = "Salir"
Text1.Text = ""
Text2.Text= ""
Text1.Enabled = True
Text2.Enabled = True
sql = "Select * From Aparato Order by IdCodigoAparato asc"
rstAparato = Sistema.Openrecordset ( sql, dbOpenDynaset )
If rstAparato.recordcount > 0 Then
Text1.Setfocus
Else
Text1.Setfocus ' ACA SE PRODUCE EL ERROR'
End If
rstAparato.Close
Desde ya muchas gracias
Valora esta pregunta


0