عبد الله قدور

السلام عليكم وكل عام وانتم بخير اخي الكريم ان كنت تقصد القيود اليومية التي نثبت فيها الحركات المالية فاسشرح لك جزءا بسيطا منها 1- القيود المحاسبية هي علاقة قائمة على وجود طرفين على الاقل ولا يمكن ان يكون هناك قيد بطرف واحد 2- القيد المحاسبي يجب ان يكون متوازن بحيث قيمة الطرف الايمن مساوية لقيمة الطرف الايسر 3-يمكن ان يكون القيد المحاسبي مركب بحيث يكون في الطرف اليمين اكثر من طرف وفي اليسار اكثر من طرف 4- الحساب الذي يمثل المبلغ الموجود عندك اسمه الصندوق 5- الحسابات المستخدمة في القيود يجب ان تكون موجودة في شجرة الحسابات للطلاع على شجرة الحسابات راجع الرابط التالي من هنا مثال عما سبق أ - اشترى التاجر احمد بضاعة من التاجر خالد نقدا بقيمة 50000 يكون القيد على الشكل التالي 50000 من ح/ المشتريات 50000 إلى ح/ الصندوق الشرح : شراء بضاعة نقدا ب - اشترى التاجر احمد بضاعة من خالد بقيمة 20000 على ان يسدد قيمتها بعد اسبوع يكون القيد على الشكل التالي 20000 من ح/ مشتريات 20000 الى ح/ خالد الشرح : شراء بضاعة من خالد بالاجل وعند تسديد القيمة البضاعة يكون القيد على الشكل التالي 20000 من ح/ خالد 20000 الى ح/ الصندوق ج - باع التاجر احمد بضاعة نقدا بقيمة 25000 القيد 25000 من ح/ الصندوق 25000 الى ح/ المبيعات د- دفع التاجر احمد مصاريف نقل بضاعة 2000 و مصاريف تحميل 1000 (مثال عند القيد المركب) 2000 من ح/ مصاريف نقل بضاعة 1000 من ح/ مصاريف تحميل 3000 إلى ح/ الصندوق

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

Call Shell("c:\windows\system32\calc.exe", 1) انا استخدم هذا الكود

حياك الله انا فهمت الموضوع خطا سامحوني

قد اكون وضعت الشرط بالعكس تجاوز اوقت والتاريخ .rar

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

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

برأي هناك عدة حلول لهذه المشكلة 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

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

للرفع

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

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