1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub Commande168_Click()
Dim OuiNon As Integer
Dim strmysql As String
Dim Numero_puce As String
Me.CStatut_Affectation = "Non Affecté"
Me.CStatut_Affectation = "Attente Retour"
Numero_puce = Me.Num_SIM
On Error GoTo Err_Commande168_Click
OuiNon = MsgBox("Est-ce que le matériel est déjà retourné ?", vbYesNo)
If OuiNon = vbYes Then
strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ""Non Affecté"""
strmysql = strmysql & " WHERE (Abonnements.Num_SIM = """
strmysql = strmysql & Numero_puce
strmysql = strmysql & """);"
DoCmd.RunSQL strmysql
RunSQL "INSERT INTO [Arch_Affectation] (USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM , Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire)" _
& " select Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM , Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire" _
& " FROM [Affectation] WHERE [Affectation].Statut_Affectation = " Non Affecté " |
Partager