[السيد الجوهري]

بمعني عدم تسجيل اي حركات  فى عام 2016

والتسجيل فقط فى عام 2017

[asemshahen]

نعم عن طريق تجميع الحسابات مثل حسابات الزبائن و نتيجة جرد المستودعات و حسابات الموردين وحساب الموجودات و الارباح او الخسائر في جداول و من ثم وضع كود بناء قاعدة بيانات فارغة جديدة فيها نفس الجداول و نقل خلاصة السنة المالية السابقة للجديدة .

[السيد الجوهري]

(31-12-16, 01:09 PM)asemshahen كتب : نعم عن طريق تجميع الحسابات مثل حسابات الزبائن و نتيجة جرد المستودعات و حسابات الموردين وحساب الموجودات و الارباح او الخسائر في جداول  و من ثم وضع كود بناء قاعدة بيانات فارغة جديدة فيها نفس الجداول و نقل خلاصة السنة المالية السابقة للجديدة .

شكرا ليس هذا ما اريد

اريد كود عندما يرى اي تاريخ في 2016  يمنع الحفظ

وشكرا

[مساعدة]

السلام عليكم

تفض الكود يعمل مع كل تنتهي

كود :

Dim y As Integer = DateTimePicker1.Value.Year
If y < Now.Year Then
    MsgBox("عفوا السنة " & y & " مقفلة.")
    Exit Sub
End If

يعيبها أنه يمكن تجاوزها لو تم تغيير تاريخ الجهاز للسنة التي يحاول التسجيل بها بسبب اعتماد البرنامج على تاريخ الجهاز

[asemshahen]

--هذا إستعلام لعمل قاعدة البيانات للقراءة فقط و لا يمكن التعديل عليها

ALTER DATABASE  DATABASE_NAME  SET READ_ONLY WITH NO_WAIT

--و هذا إستعلام لإعادة قاعدة البيانات للقراءة و الكتابة

ALTER DATABASE DATABASE_NAME SET READ_WRITE WITH NO_WAIT