تعديل كود فلترة البيانات

[abouelhassan]

السلام عليكم اخوانى الافاضل

كل عام وحضراتكم بخير

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

يعرض كل البيانات لكل السنوات وبنفس الشروط فقط ما يتغير اذا اختارنا سنة مالية يعرض الفلترة لها ولو لم نختار يعرض كل البيانات

مع خالص تحياتى وشكرى وتقديرى وخالص الدعاء لحضراتكم

 

 

 

الدائن والمدين.rar

تم تعديل يوليو 31, 2022 بواسطه abouelhassan

[abouelhassan]

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

[Moosak]

15 ساعات مضت, abouelhassan said:

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

أخي أبو الحسن رفع الله قدرك 🙂 

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

- البرنامج له واجهة ( اسم مستخدم  وكلمة سر ) ... !!  لا تتوقع أننا عارفينها وحافظينها 😅 لازم تخبرنا بها كل مرة .

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

- وبهذا سيضطر الإخوة لإعادة سؤالك عن هذه المعطيات ( الأساسية ) كل مرة !!

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

 

ومنك المعذرة .. أعتبرها نصيحة من أخوك المسلم 😊🌹

[Eng.Qassim]

2 ساعات مضت, Moosak said:

البرنامج له واجهة ( اسم مستخدم  وكلمة سر

انا حفظته من كثر ماشتغلت عليه 😃

admin

123

[abouelhassan]

2 ساعات مضت, Moosak said:

أخي أبو الحسن رفع الله قدرك 🙂 

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

- البرنامج له واجهة ( اسم مستخدم  وكلمة سر ) ... !!  لا تتوقع أننا عارفينها وحافظينها 😅 لازم تخبرنا بها كل مرة .

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

- وبهذا سيضطر الإخوة لإعادة سؤالك عن هذه المعطيات ( الأساسية ) كل مرة !!

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

 

ومنك المعذرة .. أعتبرها نصيحة من أخوك المسلم 😊🌹

زادك الله من فضله اللهم امين

اليوزر admin 

Pas 123

غفر الله لك اخى الكريم

 

 

 

11 دقائق مضت, Eng.Qassim said:

انا حفظته من كثر ماشتغلت عليه 😃

admin

123

حبيبي اخى الكريم 

[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

 

احترامى لكم اخوانى

[abouelhassan]

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

[abouelhassan]

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

[abouelhassan]

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