abouelhassan

اوفيس 365 فى حاجة انا غيرتها فى الاعدادات بتاعة التصميم هى التى جعلت alt+f11فى وضع عدم التصميم لا يعمل بارك الله فيكى

مع الشكر انا احتاج افعل ايه فى وضع التصميم بحيث انى عندما اشغل البرنامج فى الوضع العادى والنموذج شغال احتاج أن اضغط alt+f11 ادخل الى محرر الاكواد لانى إلان عندما اضغط على alt+f11 لا يحدث شىء بارك الله فيكى اختاه

السلام عليكم ورحمه الله اخوانى الافاضل احتاج طريقه تفعيل الدخول لمحرر الاكواد فى الوضع العادى ب Alt+F11 مع الشكر الجزيل

للرفع رفع الله قدرك اخى الكريم وجزاك الله خيرا يارب

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

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

استاذى أبو عبدالله الحلوانى اعزك الله واكرمك وحفظك انا الذى اعتذر واقبل راسك اخى بارك الله فيك اخى الكريم تسهيلا للحصول على النتائج اختصرت البيانات هنا جدول البيانات يبدأ من 1/6/2021 بغض النظر عن السنة احتاج الرصيد السابق ما قبل تاريخ من هنا اخترت الفلتر من 1/8/2021 المفروض الرصيد السابق يكون اى تاريخ قبل 1/8/2021 بس النتائج طلعت خطأ اسف اخى لا تتصور مدى فرحتى بردك والله ربنا يفرح قلبك مثل ما فرحتنى يارب اخى T3Q - Copy.accdb

حمدا لله على سلامتك يا حبيبي ربنا ما يحرمنا منك ابداااااا ابداااااا

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

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

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

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

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

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

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

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

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

هذا الكود الذى احتاج تعديله اخوانى الافاضل 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