ابوخليل

تحويل القيمة الموجبة الى سالبة : اضرب بــــ -1 وايضا هو يعطي عكس العملية ... تحويل القيمة السالبة الى موجبة : اضرب بــــ -1 من مخزون الاعدادية

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

شكرا استاذ حمدي على المداخلة والملاحظة . المثال اعلاه تم فيه توزيع جداول 51 معلما لمرحلة ابتدائية تضم 18 فصلا ومن المستحيل تطبيق الرغبات كما نرغب بالضبط ، ولكن " سددوا وقاربوا" فمهما كانت درجة العمل الاحترافية فلن يستغنى عن التعديل اليدوي من التحسينات التي يمكن اضافتها : 1- التحكم بحجب ايام عن بعض المعلمين ( وهذا اساسي ) وقد سقط سهوا 2- يمكن اتاحة اكثر من محاولة للتوزيع عن طريق تغيير الفرز المتبع في الجداول فبدلا من الفرز حسب الصف يكون الفرز حسب المادة

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

وعليكم السلام صباح الخير .. واصل حبيبنا ..

وعليكم السلام تريد الحل على مثالك الأول ام على مثالك الاخير ؟

الحمد لله ... ولكم

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

اعتقد مشكلتكت في المعيار [Item_Code] الموجود في الدالة لان الاستعلام لن يتعرف عليه استبدله بالامتداد الكامل : [Forms]![Parts_Sales]![Item_Code]

انظر هنا فقد تجد فائدة

وعليكم السلام اللي اعرفه اني امرر قارىء الباركود على المادة فيتم ارسال الرقم الى البرنامج والبرنامج بناء على الرقم المدخل يضيف القيمة وباقي البيانات ويطبع الفاتورة كل هذا في اللحظة نفسها ولكن اللي لم افهمه من سؤالك مسألة الكمية لان الكمية متغيرة ويحددها طلب الزبون : هذه غير مفهومة ، هل الكمية تم تسجيلها مسبقا ؟ يعني البرنامج لما وصل اليه رقم المادة عبر القارىء ، من وين ياخذ الكمية ؟ ومن الذي ادخلها ؟ ومتى ؟ عمل الكود يسير ان شاء الله فقط نفهم الفكرة حسب توقعي وفهمي بعد قراءة الموضوع اول والثاني جرب هذا التعديل [Price] = [SalPrice] Me.QtyOut.SetFocus DoCmd.GoToRecord , , acNewRec Me.ProdNoAccTab.SetFocus End Sub

تم التعديل يجب ان تضيف المكتبة المرفقة قبل التجربة جرب ووافنا بالنتيجة SQLDMO.rar

الملف على جهازي _ جوجل درايف استخدم متصفح جوجل كروم

تفضلوا برنامج ادارة حلقة كلمة المرور =1 علما انه يتوفر عندي برامج اكبر واشمل في ادارة الحلقات ولكنها تحتاج الى شرح ومساعدة ودعم عن بعد لمن يريد تركيبها

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

موجود ... في اي بلد انت ؟

هل كتبت المسميات في مكانها الصحيح بدل المتغيرات اكتب لنا هنا المسميات الخاصة بك ، او ارفق المثال بعد تعديلك عليه علما انني لا يمكن ان افيدك جازما في سبب الاخطاء حتى يكون في جهازي sql server اطبق عليه

انت مخير اما ان تزيل الاقواس او تحدد النداء بـــ 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

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