اكرم العريقي

بارك الله فيك

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

سأرفق لك الملف هنا ارسال تقرير واتساب.rar

اتفضل اتمنى ان يفيدك هذا https://wayprograms.blogspot.com/2022/11/blog-post_19.html

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

جدول البيع يجب ان يكون منفصل عن جدول المبيعات وسعر البيع في جدول الاصناف يتغير لكن في جدول البيع كل فاتورة تأخذ القيمة التي قيدت بتاريخها ولن يتغير بتغيره في المنتوجات بالتوفيق

ادخل الى اخيارات ثم مركز التوثيق اعدادات مركز التوثيق ثم وحدات المايكرو قم بتمكين الكل بالتوفيق

اتفضل اتمنى ا ن يكون المطلوب اما تصديره الى اكسل تستطيع من التقرير بالزر الايمن تصدير ثم تختر ما اردت من ملف بالتوفيق 1.accdb

اخي يجب ان تكون محمل سيكوال سيرفر على جهازك تمت التجربة على اوفيس 2010 وكان شغال تمام ان شاء الله

اتفضل يوجد ملف مرفق بالتوفيق https://wayprograms.blogspot.com/2021/06/link-table-access-to-sqlserver.html

الحالة الاولى يجب وضع القيمة في القيمة الافتراضية وترك الحقل غير منضم

انت طلبت من شخص معين الرد عليك اجعل الموضوع عام وفي المنتدى خبراء كثر والاستاذ جعفر عمله طيب وسيرد عليك ان شاء الله قد يفيدك هذا المثال المرفق https://wayprograms.blogspot.com/2022/06/qr-code-in-access.html بالتوفيق

ارفق مثال وحدد موضع الحدث الذي عنده المشكلة

لانك قمت باختيار اجراء حدث قم بافراغ القيمة ثم اضغط على الثلاث النقاط بالتوفيق https://wayprograms.blogspot.com/

هل هذا هو ما تريد بالتوفيق للجميع https://wayprograms.blogspot.com/search/label/اكسس Documents.rar

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

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

اتمنى ان يكون المطلوب انظر المرفق https://wayprograms.blogspot.com/search/label/اكسس TEST.accdb

قمت بعمل الشروط بكل تقرير ما يخصه تستطيع مراجعة الشروط ووضعها ضمن الكلاس الموجوده T3Q - Copy(A).accdb

اخي الداله غير موجودة في التقرير والتقارير تعتمد اساسا على استعلامات انا كتب لك اوامر الجمع في استعلام حسب الحساب في اوامر التقرير انت قم بتعديل البقية حسب كل شرط تريده T3Q - Copy(1).accdb

هناك مربع نص اسفل النموذج فيه الاجمالي اللي طلبت ولو فتحت الجدول كنت ستجد الحقل الذي تم تغيير اسمه بالتوفيق

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

Option Compare Database 'this func for calculate previous balance for all customers. Function ClcPrevBalance(Cno As Integer, Acn As Integer, _ yer As Integer, Crntdat As Variant, _ Typ As Byte) 'Cno it's means Customer code 'yer it's means Financial year 'Crntdat it's means the start date '========Edit in 7/5/2022 7:17 PM========== 'Add new two parameters to func 'First For pass Account no--> Acn 'Second For pass Type of calculate--> Typ 'Typ Values are (0,1,2) '0 for Summtion by Customer no '1 for Summtion by Account no '2 for Summtion by 0 + 1 '=========================================== Dim Strtyer As Variant Strtyer = Nz(DLookup("StartYaer", "EndYaer", "NowYaer=" & yer), "") Strtyer = DateFormat(Strtyer) Crntdat = DateFormat(Crntdat - 1) ' Crntdat = Crntdat 'test first date = start year or not If Crntdat <= Strtyer Then 'if first date = start year the previous balance=0 ClcPrevBalance = 0 Else Dim Dpt As Double Dim Crdt As Double 'sum debit and credit for all customers 'between start year to defines date If Typ = 0 Then Dpt = Nz(DSum("Debit", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & Forms![form1]![fromdate] & " AND " & Forms![form1]![todate]), 0) Crdt = Nz(DSum("Creditor", "Financial_Records", "Customer_ID=" & Cno & " And [Registration_Date] Between " & Forms![form1]![fromdate] & " AND " & Forms![form1]![todate]), 0) ElseIf Typ = 1 Then Dpt = Nz(DSum("Debit", "Financial_Records", "Account=" & Acn & " And [Registration_Date] Between " & Forms![form1]![fromdate] & " AND " & Forms![form1]![todate]), 0) Crdt = Nz(DSum("Creditor", "Financial_Records", "Account=" & Acn & " And [Registration_Date] Between " & Forms![form1]![fromdate] & " AND " & Forms![form1]![todate]), 0) ElseIf Typ = 2 Then Dpt = Nz(DSum("Debit", "Financial_Records", "Customer_ID=" & Cno & " And Account=" & Acn & " And [Registration_Date] Between " & Forms![form1]![fromdate] & " AND " & Forms![form1]![todate]), 0) Crdt = Nz(DSum("Creditor", "Financial_Records", "Customer_ID=" & Cno & " And Account=" & Acn & " And [Registration_Date] Between " & Forms![form1]![fromdate] & " AND " & Forms![form1]![todate]), 0) End If 'get balance = credit - debit ClcPrevBalance = Nz(Crdt - Dpt, 0) End If End Function

ابحث عن دالة between بس لازم تكتب forms ثم اسم النموذج ثم اسم الحقل

عند الشرط في الدالة الموجود Between بدل stryer قم بتعديل الحقول الخاصة بالتواريخ مثلا من تاريخ اختر اسم الحقل في الفورم من تاريخ forms!اسم الفورم ! اسم الحقل وهكذا الى تاريخ بالتوفيق