Visual Basic - update no funciona

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

update no funciona

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 02/02/2010 16:54:35
Hola amigos espero que alguien pueda ayudarme:
hecho a funcionar este código y resulta que descubri que cada que encuentra un update el programa se detiene o se sale, no sé qué esté funcionando mal; doy de baja a un trabajador y avanza el código en partes, o sea, la primera vez se detiene en el primer update, lo quiero dar de baja otra vez y ahora se detiene en el segundo y así. los msgbox son solo una referencia. Alguien puede hecharme una mano?
de Antemano muy agradecido.

Dim fil, n, cd, t, cu, pto, fec, nuevo
nuevo = InputBox("NUEVO CENTRO DE TRABAJO: ")
n = Rs("nombre")
fil = Rs("filiacion")
'MsgBox "Nombre y filiacion " & n & " -- " & fil
'''' dar de baja de claves
Direccion = App.Path & "\personal.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From claves ORDER BY nombre"
Set Rs = BaseDatos.OpenRecordset(Tira)
Rs.MoveFirst
Do While Not Rs.EOF
If Rs!nombre = fil Then
MsgBox "encontré a: " & Rs!nombre
Rs.Edit
Rs.Delete
Rs.Update
End If
Rs.MoveNext
If Rs.EOF Then MsgBox "" & fil & " ya no tiene ninguna clave...", vbInformation, "BAJA DE CLAVES"
Loop
Rs.Close
MsgBox "terminé de claves y voy a incidencias"
''''dar de baja de incidencias
Direccion = App.Path & "\personal.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From incidencias ORDER BY nombre"
Set Rs = BaseDatos.OpenRecordset(Tira)
MsgBox "ya estoy en incidencias, n tiene el nombre: " & n
Rs.MoveFirst
Do While Not Rs.EOF
If Rs!nombre = nom Then
Rs.Edit
Rs.Delete
Rs.Update
End If
Rs.MoveNext
If Rs.EOF Then MsgBox "" & fil & " ya no tiene ninguna incidencia...", vbInformation, "BAJA DE CLAVES"
Loop
Rs.Close
'''''dar de baja de personal
MsgBox "bajas de personal"
selecbaseDatos
Rs.FindFirst "nombre = '" & n & "'"
cd = Rs("ciudad")
t = Rs("tel")
dom = Rs("domicilio")
pto = Rs("funcion")
Rs.Delete
Rs.Update
Rs.Close
''''''dar de alta en bajas
MsgBox "ya llegué a BAJAS"
Direccion = App.Path & "\personal.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From bajas ORDER BY nombre"
Set Rs = BaseDatos.OpenRecordset(Tira)
Rs.AddNew
Rs("nombre") = n
Rs("rfc") = fil
Rs("lugar") = cd
Rs("telefono") = t
Rs("domicilio") = dom
Rs("puesto") = pto
Rs("fechabaja") = Date
Rs("nuevoct") = nuevo
Rs.Update
Unload Me
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:update no funciona

Publicado por Pedro Luis (878 intervenciones) el 02/02/2010 17:26:48
Tienes errores de concepto.
Con Edit editas un registro para modificarlo, y una vez modificado con Update lo guardas.
El Update también se usa despues de un AddNew para guardar los datos.
El Delete borra el registro actual sin Edit ni 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:update no funciona

Publicado por Fco. Javier Medrano Salez (171 intervenciones) el 02/02/2010 18:08:09
Elemental mi querido Pedro Luis. Cosas tan simples que a un servidor como novato se le pasan a veces. Es bueno contar con uds expertos para que nos saquen de los baches.
Nuevamente agradecido, voy a probar tu opción.
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