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
