Visual Basic - ayuda proyecto error en tiempo ejecucion

Life is soft - evento anual de software empresarial
   
Vista:

ayuda proyecto error en tiempo ejecucion

Publicado por luchomansito (6 intervenciones) el 02/01/2012 16:58:01
amigos del foro mi problema consiste en que he realizado un proyecto en el cual manipulo una base de datos acces de mis clientes y realiza todo bien excepto un problema que es que cuando realiza una buesqueda los datos aparecen pero cuando intento modificar uno de los datos del cliente encontrado presionando el boton grabar este me arroja un error .
error 2147217887 en tiempó de ejecucion.

mi codigo de boton busqueda es el siguiente.

Private Sub consultar_Click()
nuevo.Enabled = True
grabar.Enabled = False
actualizar.Enabled = True
cancelar.Enabled = False
eliminar.Enabled = True
salir.Enabled = True
consultar.Enabled = False[u]

'Comprobamos que la caja combinada de la búsqueda no se este vacía.

If Len(Trim(Combo1.Text)) = 0 Then
MsgBox ("Debe especificar el tipo de búsqueda")
Combo1.SetFocus
'Verificamos si la caja del texto a buscar esta vacía.
ElseIf Len(Trim(Text13.Text)) = 0 Then
MsgBox ("Debe especificar el texto a buscar")
Else
'Verificamos el tipo de búsqueda.
If LCase(Combo1.Text) = LCase("CEDULA") Then
rs.Find "cedula = '" & Text13.Text & "'", , , 1 'Buscamos por el Apellido.
End If
If LCase(Combo1.Text) = LCase("Nombre") Then
rs.Find "Nombre = '" & Text13.Text & "'", , , 1 'Buscamos por el Nombre.
End If

Verificamos si la búsqueda tiene éxito y ponemos los datos en las cajas de texto.
If rs.BOF = False And rs.EOF = False Then
cedula.Text = rs.Fields("cedula")
apellidos.Text = rs.Fields("apellidos")
nombres.Text = rs.Fields("nombres")
dirreccion.Text = rs.Fields("dirreccion") & ""
telefono.Text = rs.Fields("telefono") & ""
edad.Text = rs.Fields("edad") & ""
ciudadania.Text = rs.Fields("ciudadania") & ""
Combo24.Text = rs.Fields("dia")
Combo25.Text = rs.Fields("mes")
Combo26.Text = rs.Fields("año")
Combo4.Text = rs.Fields("OD esfera") & ""
Combo5.Text = rs.Fields("ODcilindro") & ""
Combo6.Text = rs.Fields("OD eje") & ""
Combo7.Text = rs.Fields("OD adiccion") & ""
Combo8.Text = rs.Fields("OI esfera") & ""
Combo9.Text = rs.Fields("OIcilindro") & ""
Combo10.Text = rs.Fields("OI eje") & ""
Combo11.Text = rs.Fields("OI adiccion") & ""
Combo12.Text = rs.Fields("OD dnp") & ""
Combo13.Text = rs.Fields("OI dnp") & ""
Combo14.Text = rs.Fields("OD esfera cerca") & ""
Combo15.Text = rs.Fields("OI esfera cerca") & ""
Combo16.Text = rs.Fields("OD cilindro cerca") & ""
Combo17.Text = rs.Fields("OI cilindro cerca") & ""
Combo18.Text = rs.Fields("OD eje Cerca") & ""
Combo19.Text = rs.Fields("OI eje cerca") & ""
Combo20.Text = rs.Fields("OD pio") & ""
Combo21.Text = rs.Fields("OI pio") & ""
Combo22.Text = rs.Fields("OD querato eje") & ""
Combo23.Text = rs.Fields("OI querato eje") & ""
Combo2.Text = rs.Fields("tipo de lente") & ""
Combo3.Text = rs.Fields("tratamientos especiales") & ""

Else
'Mostramos un mensaje si la búsqueda no tiene éxito.
MsgBox ("No se ha podido localizar el registro con el parámetro especificado")
End If
End If
End Sub

en el boton actualizar lo ejecuto y se habilita el boton grabar .

Private Sub actualizar_Click()
cedula.Enabled = False
nombres.Enabled = True
apellidos.Enabled = True
ciudadania.Enabled = True
edad.Enabled = True
dirreccion.Enabled = True
telefono.Enabled = True
Combo4.Enabled = True
Combo5.Enabled = True
Combo6.Enabled = True
Combo7.Enabled = True
Combo8.Enabled = True
Combo9.Enabled = True
Combo10.Enabled = True
Combo11.Enabled = True
Combo12.Enabled = True
Combo13.Enabled = True
Combo14.Enabled = True
Combo15.Enabled = True
Combo16.Enabled = True
Combo17.Enabled = True
Combo18.Enabled = True
Combo19.Enabled = True
Combo20.Enabled = True
Combo21.Enabled = True
Combo22.Enabled = True
Combo23.Enabled = True
Combo24.Enabled = True
Combo25.Enabled = True
Combo26.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
nuevo.Enabled = False
grabar.Enabled = True
actualizar.Enabled = False
cancelar.Enabled = True
eliminar.Enabled = True
salir.Enabled = True
consultar.Enabled = False

End Sub


luego intento grabar los cambios dando clip en el boton grabar con el siguiente codigo.

Private Sub grabar_Click()
cedula.Enabled = False
nombres.Enabled = False
apellidos.Enabled = False
ciudadania.Enabled = False
edad.Enabled = False
dirreccion.Enabled = False
telefono.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
Combo7.Enabled = False
Combo8.Enabled = False
Combo9.Enabled = False
Combo10.Enabled = False
Combo11.Enabled = False
Combo12.Enabled = False
Combo13.Enabled = False
Combo14.Enabled = False
Combo15.Enabled = False
Combo16.Enabled = False
Combo17.Enabled = False
Combo18.Enabled = False
Combo19.Enabled = False
Combo20.Enabled = False
Combo21.Enabled = False
Combo22.Enabled = False
Combo23.Enabled = False
Combo24.Enabled = False
Combo25.Enabled = False
Combo26.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
nuevo.Enabled = True
grabar.Enabled = False
actualizar.Enabled = True
cancelar.Enabled = False
eliminar.Enabled = True
salir.Enabled = True
consultar.Enabled = False
Adodc1.Recordset.Update
End Sub

despues de esto en vez de grabar los cambios es que me sale el error 2147217887 en tiempó de ejecucion.

ayudenme por favor a resolver este problema todavia no localizo la causa.
les agradesco mucho su colaboracion
deseandoles siempre lo mejor
Luchomansito.
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

ayuda proyecto error en tiempo ejecucion

Publicado por jcmg (518 intervenciones) el 04/01/2012 06:42:32
quizas sea esta linea
consultar.Enabled = False[u]
intentale asi
consultar.Enabled = False
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda proyecto error en tiempo ejecucion

Publicado por luchomansito (6 intervenciones) el 04/01/2012 15:30:00
no esa u no va en mi codigo seguro fue un error al pasarlo aca al foro desde archivo de word donde teniaa el codigo guardado. sigo esperando el experto que me de una ayuda con este problema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar