Ayuda con codigo
Publicado por Perlita (4 intervenciones) el 21/02/2005 01:18:51
Hola, alguien ke pueda ayudarme, tengo este codigo para eliminar un usuario de un combo, si me elimina al usuario del combo, pero de la base de datos me elimina a otro ke no es el ke seleccione, este es el codigo:
Private Sub CmdEliminar_Click()
'Para que se elimine debe estar un elemento seleccionado
If Me.CboUsuarios.Text <> "" Then 'Significa: "si no esta ningun elem seleccionado
CboUsuarios.RemoveItem CboUsuarios.ListIndex
If MsgBox("¿Esta seguro que desea eliminar el usuario?", vbQuestion + vbYesNo) = vbYes Then
AbrirBD
rs.Edit
'rs.Requery
rs.Update
rs.Delete 'Elimina el Registro
End If
End If
End Sub
ke es lo ke esta mal???
Me urge su ayuda pleaseee :)
Private Sub CmdEliminar_Click()
'Para que se elimine debe estar un elemento seleccionado
If Me.CboUsuarios.Text <> "" Then 'Significa: "si no esta ningun elem seleccionado
CboUsuarios.RemoveItem CboUsuarios.ListIndex
If MsgBox("¿Esta seguro que desea eliminar el usuario?", vbQuestion + vbYesNo) = vbYes Then
AbrirBD
rs.Edit
'rs.Requery
rs.Update
rs.Delete 'Elimina el Registro
End If
End If
End Sub
ke es lo ke esta mal???
Me urge su ayuda pleaseee :)
Valora esta pregunta


0