1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
| Private Sub Numro_AfterUpdate()
Dim rst As Recordset
Dim agt As Recordset
If IsNull(DLookup("Numro_trans", "Couriers", "Numro_trans=forms!FCourier!Numro")) Then
MsgBox "Numero inexistant ", vbRetryCancel, 32
End If
Forms!FCourier!Numro.SetFocus
'Verification de l'existance du numero dans la table Couriers
'"Numro_trans", "Couriers", "Numro_trans=" & Me.Numro & "
'"Numro_trans=" & Me.Numro &
Set agt = CurrentDb.OpenRecordset("Select * from Couriers where "Numro_trans=" & Me.Numro & " And year(Date_transm)=Year(date())"))
If agt.RecordCount <> 0 Then
If MsgBox("Cet Numero est déja transmi! Voulez-vous lui apporter des Modifications?", vbYesNo + vbCritical, "Numerot déja transmi!!!") = vbYes Then
With agt
.Edit
Me.BEs = !BE
Me.date1 = !Date_Cour
Me.date2 = !Date_arriv
Me.Expediteurs = !Expediteur
Me.Objets = !Objet
Me.Numro = !Numro_trans
Me.cont = !Code_Cont
Me.date3 = !Date_transm
Me.Etat = !Code_Etat
Me.trans = !Code_trans
.Close
End With
Me.btnfermer1.Enabled = True
Me.Bsupprimer.Enabled = False
Me.valider.Enabled = False
Me.BModifier.Enabled = True
Else
MsgBox "Saisir un nouveau Numero de transmission et continué SVP!!!", vbOKOnly + vbInformation, "Ressaisie le Numero!"
Me.BEs = ""
Me.date1 = ""
Me.date2 = ""
Me.Expediteurs = ""
Me.Objets = ""
Me.Numro = ""
Me.cont = ""
Me.date3 = ""
Me.Etat = ""
Me.trans = ""
Me.Numro.SetFocus
Me.btnfermer1.Enabled = True
Me.Bsupprimer.Enabled = False
Me.valider.Enabled = True
Me.BModifier.Enabled = False
End If
End If
End Sub |