30-12-16, 10:57 AM
31-12-16, 01:09 PM
نعم عن طريق تجميع الحسابات مثل حسابات الزبائن و نتيجة جرد المستودعات و حسابات الموردين وحساب الموجودات و الارباح او الخسائر في جداول و من ثم وضع كود بناء قاعدة بيانات فارغة جديدة فيها نفس الجداول و نقل خلاصة السنة المالية السابقة للجديدة .
01-01-17, 08:56 AM
(31-12-16, 01:09 PM)asemshahen كتب : [ -> ]نعم عن طريق تجميع الحسابات مثل حسابات الزبائن و نتيجة جرد المستودعات و حسابات الموردين وحساب الموجودات و الارباح او الخسائر في جداول و من ثم وضع كود بناء قاعدة بيانات فارغة جديدة فيها نفس الجداول و نقل خلاصة السنة المالية السابقة للجديدة .
شكرا ليس هذا ما اريد
اريد كود عندما يرى اي تاريخ في 2016 يمنع الحفظ
وشكرا
01-01-17, 09:12 AM
السلام عليكم
تفض الكود يعمل مع كل تنتهي
يعيبها أنه يمكن تجاوزها لو تم تغيير تاريخ الجهاز للسنة التي يحاول التسجيل بها بسبب اعتماد البرنامج على تاريخ الجهاز
تفض الكود يعمل مع كل تنتهي
كود :
Dim y As Integer = DateTimePicker1.Value.Year
If y < Now.Year Then
MsgBox("عفوا السنة " & y & " مقفلة.")
Exit Sub
End Ifيعيبها أنه يمكن تجاوزها لو تم تغيير تاريخ الجهاز للسنة التي يحاول التسجيل بها بسبب اعتماد البرنامج على تاريخ الجهاز
04-01-17, 05:18 PM
--هذا إستعلام لعمل قاعدة البيانات للقراءة فقط و لا يمكن التعديل عليها
ALTER DATABASE DATABASE_NAME SET READ_ONLY WITH NO_WAIT
--و هذا إستعلام لإعادة قاعدة البيانات للقراءة و الكتابة
ALTER DATABASE DATABASE_NAME SET READ_WRITE WITH NO_WAIT
ALTER DATABASE DATABASE_NAME SET READ_ONLY WITH NO_WAIT
--و هذا إستعلام لإعادة قاعدة البيانات للقراءة و الكتابة
ALTER DATABASE DATABASE_NAME SET READ_WRITE WITH NO_WAIT