Programación General > Visual Basic 6.0 e inferiores

 Error al guardar datos

(1/1)

andy2507:
Hola tengo un problema al guardar datos.

Presiono el boton " EDITAR " luego " GUARDAR" funciona bien   y despues presiono el boton " NUEVO "me sale el  mensaje de error  '-2147217887(80040e21)

ESTE ES EL CODIGO
***************GRABAR*******************
Private Sub CmdGrabar_Click()
 
 rsDistrito.AddNew
 rsDistrito("IdDistrito") = txtcodigo.Text
 rsDistrito("Nombre_Distrito") = txtnomdist.Text

en sub




*******NUEVO*******************************
Private Sub CmdNuevo_Click()

 rsDistrito.MoveLast
 txtcodigo.Text = rsDistrito.Fields("IdDistrito") + 1
 
 
 Me.txtcodigo.Enabled = False
 Me.txtnomdist.Enabled = True
 
 Me.txtnomdist.Text = ""

end sub

**********EDITAR********************
Private Sub CmdEditar_Click()


   Me.txtcodigo.Enabled = False
   Me.txtnomdist.Enabled = True

end sub

MI BASE DE DATOS ESTA ECHO EN ACCESS 2003  CON 2 TABLAS RELACIONADAS  DISTRITO Y TIENDA


ESPERANDO SU PRONTA AYUDA GRACIAS

Navegación

[0] Índice de Mensajes