• Lunes 24 de Junio de 2024, 08:18

Autor Tema:  Error al guardar datos  (Leído 1466 veces)

andy2507

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Error al guardar datos
« en: Jueves 30 de Junio de 2011, 23:37 »
0
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
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.