ابوخليل

انت مخير اما ان تزيل الاقواس او تحدد النداء بـــ Call Call DB_Backup(SQLServerName, DatabaseName, UserName, Password, DeviceName, BackupName, BackupDiscription) 'DB_Backup SQLServerName, DatabaseName, UserName, Password, DeviceName, BackupName, BackupDiscription db1.mdb

اخي نموذج FrmOpenInOpenDB هو الخلفية الدائمة للبرنامج او الواجهة الرسمية تضع عليها الشعار وو .. جميع النماذج يتم فتحها من القوائم في شريط الادوات

صحيح وهذا مشاهد .. وشكرا على التنويه ، وحقيقة الأمر ان المثال كان بجانبي فارفقته

في الوحدات النمطية لن تعدل شيئا الافي هذا السطر والموجود في الوحدة النمطية الأولى If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then سوف تستبدل المتغيرات داخل القوسين بما يناسبها : اسم السكوال / اسم المستخدم / كلمة المرور ثم تنتقل الى حدث الزر في النموذج وتستدعي الوحدة النمطية الاولى هكذا : DB_Backup( ...,...,...,...,...,...,...) ستضع مكان النقط ما يناسبها بدلا من المتغيرات التالية ويجب ان يكون بالترتيب الاول فالاول SQL server name اسم السيرفر عندك Database name اسم قاعدة البيانات عندك Login name اسم المستخدم Password كلمة المرور Backup device name اسم الجهاز الذي سيتم النسخ عليه Backup set name اسم النسخة Backup discription وصف النسخة الثلاث الاخيرة حسب اختيارك

ومشاركة مع الاستاذ العزيز شفان ثلاث خطوات : 1- من خصائص النموذج اعدل الخصيصة : السماح بالاضافة=لا 2- الصق السطر في اعلى كود زر جديد : Me.AllowAdditions = True 3- الصق السطر في اعلى كود زر التالي : Me.AllowAdditions = False New Rec2.rar

غريب كنت اعتقد اني عدلت على المثال ولكن يبدوا انه يوجد خلل في المثال السابق انظر الآن .. App_open3.rar

اخي محمد التميمي (( ومنهم كاتب هذه المشاركة )) اقصد نفسي ,, حيث لا املك في جهازي sql server اخي محمد القدسي جرب هاتين الوحدتين اعتقد افضل من الكود السابق لاحظ الاسطر الخضراء التوضيحية Private oSQLServer As SQLDMO.SQLServer Public Function DB_Backup(ByVal nServer_Name As String, _ ByVal nDB_Name As String, _ ByVal nDB_Login As String, ByVal nDB_Password As String, _ ByVal nBack_Dev As String, ByVal nBack_Set As String, _ ByVal nBack_Desc As String) As Boolean ' nServer_Name = SQL server name ' nDB_Name = Database name ' nDB_Login = Login name ' nDB_Password = Password ' nBack_Dev =Backup device name ' nBack_Set = Backup set name ' nBack_Desc = Backup discription Dim oBackup As SQLDMO.Backup On Error GoTo ErrorHandler Set oBackup = CreateObject("SQLDMO.Backup") If Connect_SQLDB(nServer_Name, nDB_Login, nDB_Password) Then oBackup.Devices = "[" & nBack_Dev & "]" oBackup.database = nDB_Name oBackup.BackupSetName = nBack_Set oBackup.BackupSetDescription = nBack_Desc oBackup.SQLBackup oSQLServer oSQLServer.Disconnect DB_Backup = True End If Exit Function ErrorHandler: DB_Backup = False End Function Private Function Connect_SQLDB(ByVal nServer_Name As String, _ ByVal nDB_Login As String, _ ByVal nDB_Password As String) As Boolean ' nServer_Name = SQL server name ' nDB_Login = Login name ' nDB_Password = Password Set oSQLServer = CreateObject("SQLDMO.SQLServer") On Error GoTo ErrorHandler Connect_SQLDB = False oSQLServer.Connect nServer_Name, nDB_Login, nDB_Password Connect_SQLDB = True Exit Function ErrorHandler: oSQLServer.Disconnect Connect_SQLDB = False End Function

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

السلام عليكم اغلب الاخوة لا يوجد sql server على اجهزتهم ومنهم كاتب هذه المشاركة وهذا ضروري من اجل التجربة وبحثت لك ووجدت هذه الوحدة النمطية الخاصة بالنسخ ، آمل ان تلبي طلبك

تمام استاذ حمدي قيد النظر .. والتعديل ...

السلام عليكم وشكرا للاستاذ kanory هذا مثال يوضح كيف تنقل المجموع من النموذج الفرعي الى الرئيسي jadwal6.mdb

اذا قاعدة البيانات مقسمة الى جداول وواجهات واذا انت تعمل على نسخة من الواجهات وليس اختصار افتح على : خصائص النموذج / لسان التبويب بيانات / وغير القيمة : تأمين السجلات إلى " سجل محرر "

السلام عليكم ولماذا الترحيل ؟ الفكرة من اساسها بحاجة الى اعادة نظر .. ( في قواعد البيانات .. لا يوجد نظام متبع يعتمد على نقل البيانات من جدول الى آخر ) نقل البيانات او نسخها يكون في مراحل نهائية ، والافضل من ذلك اخذ نسخة لكامل قاعدة البيانات عن فترة سابقة نأتي الى اصل السؤال : جدول ؟ او جدولين ؟ لانك ان عملت على جدولين فستبقى بيانات كل جدول في مكانها وسوف تجلب البيانات عبر الاستعلامات وفي هذه الحالة انت مضطر لاستخدام استعلامات التوحيد حين تبحث عن الارصدة والحركة الحالية والسكة حتطول حبتين وهذه الطريقة هي المتعارف عليها قد تجدها في امثلة مكروسوفت ، يعني لو تعمل برنامج حسابات ومخازن باستخدام معالج اكسس ستحصل على هذه النتيجة رأيي الشخصي الجدول الواحد اكثر مرونة وأسرع وأخف للبرنامج ، ( علما ان الجدول الواحد يتم تصميمه على اكثر من طريقة ) بالنسبة للمدفوعات.. ربطها با لعميل والمورد رأيي انه افضل لان اغلب البيع والشراء يتم بالآجل ولو كان البيع والشراء نقدا ( مثل نقاط البيع) فربطه بالفاتورة لا يختلف عليه اثنان احببت المشاركة استاذنا بحكم خبرتي البرمجية ولن تستغني عن الاستشارة المحاسبية

صحيح انا نسيتها بعد التحديث الاخير انظر المرفق تم حجب الحصتين السابعة والثامنة عن مدرسي الرياضيات ، ويضا حجب الحصة الثامنة عن معلم الحاسب اعتقد كذا نسير في مسار صحيح .. اتمنى ان تجري تجاربك على المثال نفسه لأني اعمل على mdb وأكيد سوف تقوم بتعبئة بيانات كاملة ,, وستجد الكثير من الملاحظات ,, فآمل ان ترفع المثال مكتمل jadwal_10.rar

احبتي شكرا لكم على الثناء والدعوات الطيبات تم تحديث المرفق اعلاه . لوجود خلل بسيط في مفاتيح الجدول

تفضل يستخرج اسم الملف على اي صيغة كانت Dim si As Object Set si = CreateObject("Scripting.FileSystemObject") me.text1 = si.GetBaseName(strPath) barna_2.mdb

وعليكم السلام انظر هذا الموضوع فستجد ما يفيدك ان شاء الله

نعم يمكن انظر هنا واذا لم تتمكن من التطبيق يفضل فتح موضوع وعنوان جديد وارفق مثالك للتعديل عليه

هذه هي الطريقة التي استخدمها App_open2.rar

Me.path3 = Left(fille, Len(fille) - 4) barna_1.mdb

بالطبع هو مطلب حتى البلد الواحد تختلف فيه القوانين من مرحلة الى اخرى اخواني الكرام تفضلوا : تم احتواء جميع الشروط والضوابط - لاحظوا اننا نتعامل مع الحصص في الحجب والاتاحة ، فلحجب يوم عن معلم يجب حجب حصص ذلك اليوم - يجب العمل على الخطوات بالترتيب - لا بد الاخذ بعين الاعتبار ان التوزيع الآلي مهما كان احترافيا فلا غنى عن اللمسات والتعديل اليدوي امل تكرار الفحص والتجربة وانا جاهز لاي ملاحظة او تعديل jadwal_9.rar

بعد اعادة النظر اتضح مجمل الضوابط في شيئين الاول : المرونة لأي معلم بحيث يمكن يحجب عنه : 1- حصة محددة 2- يوم محدد الثاني : المرونة لاي مادة في : 1- التتالي 2- خيار التقديم والتأخير هل يوجد شيء آخر ؟

اجابتي هناك لم تكمل السنة كنا نقرأ عن معمر سألوه ما يذكر فقال : اذكر البعيد وانسى القريب الحمد لله / هي على الابواب وشكرا لمرورك وارشادك

لو اعدت النظر لتبين لك قلنا للوحدة النمطية ConAmnt اعتبري الــ a حقل تاريخ والـــ b قل رقمي ثم اجرينا المعادلة داخل الوحدة النمطية والناتج سيكون هو القيمة i وقلنا انتي يا ConAmnt ستحملين قيمة i على شرط : يكون داخل القوسين حقلي تاريخ ورقمي على التوالي ، كما تم ترتيبهما هو لا يعرف الخلية باسمها ولكن بنوعها

عذرا سقط سهوا عدل اول شرط : If a < #1/8/2016# Then i = ConsumD0817 (b)