Private Sub EstadoID_Click()
Dim msg As String
Dim title As String
Dim db As Database
Set db = CurrentDb()
If EstadoID.ListIndex = 3 Then
msg = "¿Está seguro de que desea BLOQUEAR la tarjeta?"
msg = msg & Chr(13) & Chr(10)
msg = msg & Chr(13) & Chr(10) & "Esta acción INHABILITARÁ la tarjeta para siempre."
title = "Pregunta"
x = MsgBox(msg, 33, title) 'Hay que poner la suma del codigo pregunta + 2 botones
If (x = 1) Then
EstadoID.Value = "Bloqueada"
DoCmd.RunCommand acCmdRefresh
micadena1 = """Bloqueada"""
strSQL = "INSERT INTO TarjetaBloqueada ( SocioID, FamiliarID, TarjetaID, NumTarjeta, EstadoID, ClaveSecreta )" '( TarjetaID, NumTarjeta, EstadoID, SocioID, FamiliarID, ClaveSecreta )"
strSQL = strSQL & " SELECT Tarjeta.SocioID, Tarjeta.FamiliarID, Tarjeta.TarjetaID, Tarjeta.NumTarjeta, Tarjeta.EstadoID, Tarjeta.ClaveSecreta" '[Tarjeta].[TarjetaID], [Tarjeta].[NumTarjeta], [Tarjeta].[EstadoID], [Tarjeta].[SocioID],[Tarjeta].[FamiliarID], [Tarjeta].[ClaveSecreta]"
strSQL = strSQL & " FROM Tarjeta"
'strSQL = strSQL & " WHERE Tarjeta.EstadoID=""Bloqueada"" "
strSQL = strSQL & " WHERE Tarjeta.EstadoID=" & "" & micadena1 & ""
strSQL = strSQL & "ORDER BY Tarjeta.NumTarjeta;"
'Texto45.Value = strSQL
db.Execute strSQL, dbFailOnError
DoCmd.RunCommand acCmdRefresh
strSQL = "DELETE FROM Tarjeta" '( TarjetaID, NumTarjeta, EstadoID, SocioID, FamiliarID, ClaveSecreta )"
strSQL = strSQL & " WHERE Tarjeta.EstadoID=" & "" & micadena1 & "" & ";"
'Texto45.Value = strSQL
db.Execute strSQL, dbFailOnError
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNext
Else
EstadoID.Value = estado
End If
End If
If IsNull(EstadoID.ItemData(EstadoID.ListIndex)) Then
Else
estado = EstadoID.ItemData(EstadoID.ListIndex)
End If
End Sub