عاوز الغي عمل زراير التكبير والتصغير لل MDIFORM

ما فيه حدث بيحميك من انقطاع التيار الكهربي ، ولكن الحماية تكون في طريقة تصميم البرنامج مثلا ان يقوم بحفظ كافة البيانات التي تدخلها مباشرة (حفظ الي ) كما هو الحال في نماذج اكسس ان كنت فهمت قصدي ، اي بمجرد دخول اي حرف في صندوق النص يكون قد حفظ ، تقريبا الطريقة هاي تقلل بشكل كبير جدا من ضياع البيانات .

ولكن ان تقوم بتنفيذ امر بمجرد انقطاع التيار هذا غير منطقي جدا :)

سلاماتي

ممكن ان تنشئ جدول داخل قاعدة البيانات الخاصة بك باسم rong1 مثلاً وحقل باسم r1 وتجعل نوع الحقل منطقي اي نعم/لا تعطيه قيمة افتراضية اما نعم او لا كما في الكود

بحيث عند التشغيل يغير قيمة السجل كما هو مبين

form_load()

Set cnn = New Connection

cnn.CursorLocation = adUseClient

cnn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\aa.mdb;"

Set rs= New Recordset

rs.Open "select * from rong1", cnn, adOpenDynamic,adLockOptimistic

if rs!r1=true then msgbox "لقد تم إغلاق البرامج بطريقة غير شرعية",,"تنويه"

rs!r1=true

rs.update

end sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

rs!r1=false

rs.update

rs.close

End Sub

قد يتسأل البعض لماذا لم استخدم اوامر تحرك السجلات مثل movenext و movelast وغيرها

اجيب لان احتاج إلى سجل واحد لكي ارى هل الحاسب اقفل بطريقة غير شرعية ام لا

ولا تنسونا بصالح الدعوات

السلام عليكم

بالنسبة لإخفاء ازار التكبير والتصغير

نقوم بتعديل borderstyle من القائمة الخصائص properties

واختيار

3- fixed dialog

وذلك لأخفاء التكبير والتصغير فقط .... لكن هناك خاصية لإخفاء الجميع

وهى control box بجعلها false

ولكن للحفاظ على الشكل بدون تكبير طبق الاثنين معا ;)

:rolleyes: ;)