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
| stannulesortie = MsgBox("Etes vous sur de vouloir annuler la sortie ?", vbYesNo, "Attention Confirmez")
If stannulesortie = 7 Then
Exit Sub
Else
Dim stNETT1 As Integer
stNETT1 = Nz(Me![NETT], 0)
Forms![formNelleSortie].SetFocus
Forms![formNelleSortie]![ssformNelleSortieDetail].SetFocus
Forms![formNelleSortie]![ssformNelleSortieDetail]![NumTTdetail].SetFocus
DoCmd.GoToRecord acActiveDataObject, , acLast
Dim stNETT2 As Integer
stNETT2 = Forms![formNelleSortie]![ssformNelleSortieDetail]![NumTTdetail]
If stNETT2 <> stNETT1 Then
Do
DoCmd.GoToRecord acActiveDataObject, , acPrevious
Dim stNETT3 As Integer
stNETT3 = Forms![formNelleSortie]![ssformNelleSortieDetail]![NumTTdetail]
Loop While stNETT3 <> stNETT1
Else
End If
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If |
Partager