Ari
24 de Julio del 2004

Hola! Me gustaria saber como arreglar el error del siguiente codigo:

***************************************************************************
Private Sub cmdConfirmarBajaEmpleado_Click()

Dim bd As Database
Dim rs As Recordset
Dim respuesta As Integer
Set bd = OpenDatabase("C:WINDOWSEscritorioPrueba.mdb")
Set rs = bd.OpenRecordset("select * from empleados where codigo = '" & txtCodigo.Text & "'")
If rs.RecordCount = 0 Then
MsgBox "El empleado buscado no exite", vbExclamation, "Advertencia"
Else: respuesta = MsgBox("Va a dar de baja al empleado seleccionado, ¿desea continuar?", vbQuestion + vbYesNo, "Confirmación")
If respuesta = vbYes Then
rs.MoveFirst
If rs!Baja = False Then
rs!Baja = True ! ! ! !
MsgBox "El empleado seleccionado ha sido dado de baja", vbInformation, "Mensaje"
Else: MsgBox "El empleado seleccionado ya está dado de baja", vbExclamation, "Advertencia"
End If
Else: MsgBox "Operación cancelada", vbExclamation, "Advertencia"
End If
End If
rs.Close
bd.Close

End Sub
*************************************************************************

El error se produce en la linea que he señalado con exclamaciones.
Muchas gracias!!

victor licea
24 de Julio del 2004

Ponle

rs!Baja = 1

Ari
24 de Julio del 2004

He descubierto como corregirlo, lo pongo por si alguien mas tiene la misma duda, ok?
Habria que añadir dos nuevas instrucciones uan antes y otra despues, quedando asi:

rs.Edit
rs!Baja=true
rs.Update

Lo he probado y funciona correctamente.
Hasta otra!!