عبد الله قدور

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

السلام عليكم اهلا بك اخي الكريم بيننا في اوفيسنا اذا تكرمت وعلينا واطلعت على قوانين المنتدى اولا ثم وضعت لنا مرفق للتعديل عليه وجزاك الله عنا كل خير

برأي هناك عدة حلول لهذه المشكلة 1- يمكنك ترك الحقول مليئة ووضع علامة كبيرة على التقرير تقول انها هدية (قد تستفيد من هذه الطريقة بأنك تعلم الزبون بقيمة الهدية المقدمة له ) 2- تحويل العمليات الحسابية للتقرير بدل الاستعلام بحيث تكون في حدث بعد التحديث لمربع نص الكمية بشرط مربع الاختيار بحيث اذا كان مفعلا يقوم بملء باقي مربعات النص والعكس بالعكس 3- يمكنك تحويل خاصية مربع النص الى غير مرئي في حال كان مربع الاختيار في القائمة مفعلا

السلام عليكم اخي الكريم ضع هذا الكود في وحدة نمطية Public NewDatabase As String Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function ومن ثم استدعها من اي مكان في برنامجك وباي وقت لاستيراد اي جدول بالكود التالي Call CreateTableLink(NewDatabase, "table_name", "password") بحيث table_name هي اسم الجدول و password هي كلمة المرور لقاعدة البيانات واخيرا هذا الكود هو لمعلمنا القدير ابو ادم

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

السلام عليكم اخي ابو زاهر اليك الحل باستخدام التنسيق الشرطي لقد طبقت التنسيق الشرطي على عمود نهاية العقد تجاوز اوقت والتاريخ .rar

ممكن تضع مرفق للتغيير عليه On Error GoTo err: DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec Exit Sub err: If err.Number = 3022 Then MsgBox "الرقم الذاتي مكرر", vbCritical + vbMsgBoxRight, "خطأ" Else MsgBox err.Description End If او قد يستطيع هذا الكود لمعالجة الخطأ مساعدتك لكن يفضل وجود مرفق

Dim a As Single a = MsgBox("هل تريد الانتقال الى النموذج التالي", vbMsgBoxRight + vbYesNo, "تنبيه") If a = vbYes Then DoCmd.Close DoCmd.OpenForm "اسم النموذج التالي" End If

السلام عليكم اخي عمار هل جربت ضغط البرنامج في الوين رار قبل اضافته الى المنتدى او ضع المرفق في مواقع التحميل وضع الرابط في المنتدى مثال موقع كوكل درايف او ماكا فان لم ينجح الامر معك يمكنك التواصل معي على الواتساب او التلغرام على الرقم 00905456969400

مشكور كتير اخي جعفر لكن جائتني فكرة وطبقتها لحل هذه المشكلة واريد ان اخذ رايك فيها وهي انشاء وحدة نمطية لحل المشكلة يمكن استداعاءها في داخل القائمة ضمن الاستعلام على الشكل التالي Function BrickName(BrickValue As Integer) Select Case BrickValue Case 1 BrickName = "الإجازة الإدارية" Case 2 BrickName = "الإجازة الساعية" Case 3 BrickName = "إجازة بلا أجر" Case 4 BrickName = "إجازة مرضية" Case 5 BrickName = "إجازة وفاة" Case 6 BrickName = "إجازة زواج" Case 7 BrickName = "إجازة حج وعمرة" Case 8 BrickName = "إجازة خاصة" End Select End Function

اهلا وسهلا بك اخي عمار بيننا اتمنى منك وضع مرفق للتعديل عليه اذا امكن

السلام عليكم @jjafferr اخي الكريم وضعت لك مرفق فيه مثال على ما طلبت اريد في القائمة ان يظهر جانب الاسم نوع الاجازة بدل من رقمها Database1.zip

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

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

السلام عليكم ما فهمت قصدك اخي محمد اين كان الخطأ

السلام عليكم اخواني الكرام دائما كنت استخدم هذه الطريقة لنقل مجموع النموذج الفرعي الى النموذج الرئيسي الموجودة في المرفق لكن الان لم تعد تعمل عندي فهل من حل لها او طريقة اخرى للحصول على المجموع الطريقة هي : ان اضيف مربعي نص في ذيل النموذج الفرعي اضع فيه دالة sum وفي النموذج الرئيسي اضيف مربعي نص اخرين واربطهم بالمربعين في النموذج الفرعي اسم النموذج الرئيسي في المرفق FrmShowK Microsoft Access Database جديد.zip

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

للرفع

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

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

الحمد لله تم حل المشكلة بتغير خاصية تامين السجلات الى بلا تأمين

السلام عليكم تظهر هذه الرسالة في حال فتح نموذج من نموذج اخر مع العلم اني استطيع تطبيق هذا الطريقة على جداول اخرى فقط هذا الجدول لا يمكن

نعم هذا الكود للسماح لفلاشتين بالدخول الى البرنامج يكفي استيراد نموذج hi وجعله نموذج الترحيب طبعا بعد القيام بالتعديلات نعم ممكن وهو الافضل

السلام عليكم اخي @Aliko لتطبيق هذه الحماية اعمل الخطوات التالية 1- اوصل الفلاشة التي ستصبح دارة الحماية لبرنامجك 2- افتح النموذج flash سيظهر في النموذج رقم التسلسلي للفلاشة قم بنسخ هذا الرقم 3- افتح النموذج hi في عرض التصميم واذهب الى الحدث عند عداد الوقت وافتحه 4- قم باستبدال رقم الفلاشة القديم بالجديد كما في الصورة 5- ثم انسخ هذا الكود الى نموذج الترحيب الموجود في برنامجك او قم بنقل هذا النموذج الى برنامج واجعله نموذج الترحيب اي الذي يفتح عند فتح البرنامج سيقوم الكود عند فتح البرنامج بالتاكد من اتصال هذه الفلاشة في الكمبيوتر فاذا وجدها اكمل عمل البرنامج واذا لم يجدها يغلق البرنامج طبعا هذا ليس له علاقة بالمستخدمين داخل البرنامج هو في حال تم بيع نسخة من البرنامج للزبون مع الفلاشة لا يمكنه بيع هذه النسخة لشخص اخر دون الرجوع اليك

السلام عليكم بالنسبة لي انا استخدم هذا الكود في حدث عند التحميل في النموذج الافتتاحي DoCmd.ShowToolbar "ribbon", acToolbarNo