abouelhassan

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

للرفع رفع الله قدركم اخوانى الافاضل

بارك الله فيك اخي الكريم وجزاك الله خيرا يارب اثقل الله ميزان حسناتك يارب

الشكر وحده لايكفيك حقك اخى موسى حفظكم الله وبارك لك فى مالك وال بيتك وزادك من فضله اللهم امين يارب العالمين

للرفع رفع الله قدركم اخوانى الكرام

للرفع رفع الله قدركم اخوانى الكرام

خالص الشكر والتقدير والاحترام من اخيكم

هذا الكود الذى احتاج تعديله اخوانى الافاضل Private Sub Viwe_Click() If IsNull(EndYaer) Then a1.Visible = True a2.Visible = True a3.Visible = True a4.Visible = True a5.Visible = True a6.Visible = True a7.Visible = True MsgBox "يجب اختيار السنة المالية ", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub Me.EndYaer.SetFocus Me.EndYaer.Dropdown End If If Not IsNull(EndYaer) Then a1.Visible = False a2.Visible = False a3.Visible = False a4.Visible = True a5.Visible = True a6.Visible = True a7.Visible = False End If If Not IsNull(Registration_document_Number) Then a1.Visible = False a2.Visible = False a3.Visible = False a4.Visible = False a5.Visible = False a6.Visible = False a7.Visible = False End If If Not IsNull(FromDate) Then a4.Visible = False End If If Not IsNull(ToDate) Then a5.Visible = False End If If Not IsNull(Registration_document_Number) Then a6.Visible = False End If varFilter = Null If Not IsNull(Me.Accounts) Then varFilter = (varFilter) & "[Account] LIKE '" & Me.Accounts & "'" End If If Not IsNull(Me.Customers) Then varFilter = (varFilter + " AND ") & "[Customer_ID] LIKE '" & Me.Customers.Column(0) & "'" End If If Not IsNull(Me.ToDate) Then varFilter = (varFilter + " AND ") & "[Registration_Date] Between " & DateFormat(Me.FromDate) & " And " & DateFormat(Me.ToDate) End If If Not IsNull(Me.Registration_document_Number) Then varFilter = (varFilter + " AND ") & "[Registration_document_Number] LIKE '" & Me.Registration_document_Number & "'" End If If Not IsNull(Me.EndYaer) Then varFilter = (varFilter + " AND ") & "[EndYaer] = " & Me.EndYaer End If If Not IsNull(Me.AccountsType1) Then varFilter = (varFilter + " AND ") & "[AccountsType] Like '" & Me.AccountsType1 & "'" End If With Me.MyList.Form .RecordSource = "SELECT * FROM Financial_Records where " & varFilter .AllowAdditions = False .AllowEdits = False .AllowDeletions = False End With Dim db As DAO.Database Set db = CurrentDb Dim qdf As DAO.QueryDef Dim newSQL As String DoCmd.DeleteObject acQuery, "tempQry" newSQL = "SELECT Financial_Records.*, Customers.Customer_Name, Accounts.Accounts_Type_Name " & _ " FROM (Financial_Records RIGHT JOIN Customers ON Financial_Records.Customer_ID = Customers.Customer_ID) LEFT JOIN Accounts ON Financial_Records.Account = Accounts.Accounts_Type_ID " & _ " where " & varFilter Set qdf = db.CreateQueryDef("tempQry", newSQL) Form_Financial_Records1.RecordSource = newSQL If Not MyList.Visible Then MyList.Visible = True End Sub احترامى لكم اخوانى

زادك الله من فضله اللهم امين اليوزر admin Pas 123 غفر الله لك اخى الكريم حبيبي اخى الكريم

للرفع رفع الله قدركم اخوانى الكرام

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

غفر الله لك ولوالديك استاذنا ابو جودى

شكر وتقدير وفائق الاحترام استاذى وغفر الله لك

بارك الله فيك استاذى أبو ألين سلمت يمينك اخى شاكر فضلك اخى الكريم جداااا حفظك الله يارب

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

للرفع رفع الله قدركم

البرنامج اظهر لى خطأ اخى الكريم عند النسخ مشكور

الصبر طيب يا اخى الكريم أن شاء الله تحصل على طلبك

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

للرفع رفع الله قدرك اخى

بارك الله فيك اخي الكريم

أن شاء الله يرجع سالما. غانما يارب يارب يارب

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

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

اكثر الله خيرك وزادك ورزقت الجنة اللهم امين يارب