Suscríbete a Aprende-Viendo 5.0
Content
ayuda con mi código
Buenas tardes Alguien que me ayude con el codigo, que adjunto en el archivo de texto, donde explico lo que quiero realizar hay mismo va el codigo que estoy usando. una cosa mas tengo los modulos creados para la base y la tabla.
2 respuestas Agrear Respuesta
-
Perdón al parecer no cargo el archivo peo este es el codigo:
Private Sub cmdGrabar_Click()
If txtNombre.Text = "" Then MsgBox "El Campo NOMBRE esta vacío", vbInformation, "Aviso": txtNombre.SetFocus: Exit Sub
If txtDireccion.Text = "" Then MsgBox "El Campo Direccion esta vacío", vbInformation, "Aviso": txtDireccion.SetFocus: Exit Sub
If Modi = False Then '''Para crear un Nuevo Registro
With RsUsuarios
.Requery
.AddNew
!Nombre = txtNombre.Text
!Direccion = txtDireccion.Text
If rs.State = 1 Then rs.Close
rs.Open "Select* From Usuarios", Base1, adOpenStatic, adLockPessimistic
If rs.RecordCount > 0 Then rs.MoveLast 'Se envia al recoset al ultimo registro
ultid = rs.Fields(0)
If rs.State = 1 Then rs.Close
Base1.Execute "INSERT INTRO Usuarios id Values(" & ultid + 1 & ")"
rs.Open consulta, Base1, adOpenDinamic, adLockPessimistic
.Update
End With
End If
End Sub
Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0
Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!
Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados
Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso