كاتب المشاركة : المخلب الجارح
اخي لي تعديل بسيط على الكود
وهو يجب ان تضعة في الحدث Form_Unload كي يقوم بعملة
لان هذا هو الحدث الذي ينفذ عند الضغط على زر اغلاق الفورم
اي سيكون الكود كالتالي
كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Form_Unload[/color][color=#007700]([/color][color=#0000bb]Cancel [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][COLOR=#007700])
If [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#dd0000]"Exit"[/color][color=#007700], [/color][color=#0000bb]vbYesNo[/color][color=#007700], [/color][color=#dd0000]"ExitPro"[/color][color=#007700]) = [/color][COLOR=#0000bb]vbNo Then
Cancel [/COLOR][color=#007700]= [/color][COLOR=#0000bb]True
End [/COLOR][COLOR=#007700]If
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][/COLOR]