Visual Basic - no edita, duplica datos

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Fco. Javier Medrano Salez

no edita, duplica datos

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 10/12/2009 17:04:50
Hola a todos los colegas, tengo este código en el cual, según el botón que presione (nuevo registro, eliminar registro o editar registro) hace lo propio, sólo que con el boton 2 (que es editar) NO HACE lo que le ordeno, sino que al momento de guardar lo editado me duplica todos los campos del registro cuando lo que quiero es que solo guarde los cambios:

Sub guardardatos()
TablaAlumnos
With Rs
If modo = 0 Then Exit Sub
If modo = 1 Then .AddNew
If modo = 2 Then .Edit
!nombre = Text1.Text
!curp = Text2.Text
!fechanac = DTPicker1.Value
!lugardenac = Text3.Text
!nacionalidad = Combo1.Text
!grado = Combo2.Text
!Status = Combo3.Text
!tecnologia = Combo5.Text
If Option1.Value = True Then
!sexo = "M"
Else
!sexo = "F"
End If
!padreotutor = Text4.Text
!telefono = Text5.Text
!domicilio = Text6.Text
!lugar = Text7.Text
.Update
.Close
End With
Direccion = App.Path & "\est22.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Select Case Combo2.Text
Case "1° A", "1° B", "1° C", "1° D"
Tira = "Select * From primero"
Set Rs = BaseDatos.OpenRecordset(Tira)
Case "2° A", "2° B", "2° C", "2° D"
Tira = "Select * From segundo"
Set Rs = BaseDatos.OpenRecordset(Tira)
Case "3° A", "3° B", "3° C", "3° D"
Tira = "Select * From tercero"
Set Rs = BaseDatos.OpenRecordset(Tira)
End Select
With Rs
If modo = 0 Then Exit Sub
If modo = 1 Then .AddNew
If modo = 2 Then .Edit
!nombre = Text1.Text
!grado = Combo2.Text
!tecnologia = Combo5.Text
.Update
.Close
End With
TablaAlumnos
End Sub

Ojala alguien pueda decirme en qué parte tango mal el código para que pueda editar los datos y guardar solo una vez dicho registro.
Agradezco su apoyo de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:no edita, duplica datos

Publicado por jcmg (518 intervenciones) el 11/12/2009 07:04:28
se repiten y se guardan dos veces las variables, ve las secciones antes de update, se ve dos veces la palabra addnew y update
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Fco. Javier Medrano Salez

RE:no edita, duplica datos

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 11/12/2009 20:45:33
ok, Gracias amigo, voy a revisar tu sugerencia
Luego informo resultados.
Agradecido.
Paco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar