SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: andy2507 en Jueves 30 de Junio de 2011, 23:37
-
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