طلب جمع عدد الحقول التي تحتوي على بيانات بالاستعلام

[محمد احمد لطفى]

ممكن مساعدة فى مجموع عدد الخلايا بالاستعلام
1+2+5 = 3

Test.rar

[ابوخليل]

السؤال غير مفهوم 

حاول تشرح المطلوب اكثر

[محمد احمد لطفى]

عندنا مثلا 3 خلايا 
الخلايا الى فيها بيانات يتم جمعها 
مثلا 
count a+b+c=d
d=3
عد الخلايا فى الاستعلام

[ابوخليل]

حتى الآن ما وصلت الفكرة

لان الحقول في الاستعلام ستكون ثابته  ومعلومة  كما هي في الجدول 

اشرح لي  الفكرة ولماذا تريد عد هذه الحقول ؟

 

[محمد احمد لطفى]

هذا هو المطلوب عدد الخلايا التى بها بيانات

Test.rar

تم تعديل يناير 15, 2017 بواسطه محمد احمد لطفى

[ابوخليل]

عدد الحقول التي تشتمل على بيانات 

تفضل الحل في المرفق

 

Test2.rar

[jjafferr]

وعليكم السلام

 

بعد إذن أخي ابوخليل

 

عملت زر في النموذج ، اسمه cmd_Filled_Fields ، وهذه نتيجة حدث الضغط على الزر:

.

وهذا كود الحدث:

Private Sub cmd_Filled_Fields_Click()

    Dim rst As DAO.Recordset
    Dim fld As Field
    Dim f As String
    
    Set rst = CurrentDb.OpenRecordset("Select * From testq")
    rst.MoveFirst
    
    Counter = 0
    f = ""
    
    For Each fld In rst.Fields
        
        If Len(fld.Value & "") <> 0 Then
            Counter = Counter + 1
            f = f & ", " & fld.Name
        End If

    Next
    
    MsgBox Counter & vbCrLf & "ÍÞæá ÝíåÇ ÈíÇäÇÊ¡ æåí" & vbCrLf & Mid(f, 3)
    
End Sub

.

جعفر

[محمد احمد لطفى]

جزاكم الله خيرا

تم تعديل يناير 15, 2017 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

4 hours ago, ابوخليل said:

عدد الحقول التي تشتمل على بيانات 

تفضل الحل في المرفق

 

Test2.rar

ممكن لو سمحت النتيجة تكون فى حرف 
g 
لتكون داخل الجدول
كده انشأ خلية غير 
g 
المجموع مد خلش الجدول

 

تم تعديل يناير 16, 2017 بواسطه محمد احمد لطفى

[ابوخليل]

علمونا في السابق عدم  ادراج حقل محسوب داخل الجدول  

قالوا :  للتقليل من حجم القاعدة ولأن الاستعلام يقوم مقام الجدول 

وايضا امكانية استخراج  النتيجة بالكود

علما انهم اوجدوا في جدول  القواعد الجديدة لأكسس حقول محسوبة

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

[jjafferr]

1 ساعه مضت, ابوخليل said:

علمونا في السابق عدم  ادراج حقل محسوب داخل الجدول  

قالوا :  للتقليل من حجم القاعدة ولأن الاستعلام يقوم مقام الجدول 

السلام عليكم أخونا العود

 

الظاهر تم استبدال قواربنا مال Bit و Byte ، بسفن اكبر حجما ، ولكننا صامدون ان شاء الله 

 

جعفر

1 ساعه مضت, ابوخليل said:

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

 

في هذه الحالة الكود سيصبح:

Private Sub cmd_Filled_Fields_Click()

    Dim rst As DAO.Recordset
    Dim fld As Field
    Dim f As String
    
    Set rst = CurrentDb.OpenRecordset("Select * From testq")
    rst.MoveFirst
    
    Counter = 0
    f = ""
    
    For Each fld In rst.Fields
        
        If Len(fld.Value & "") <> 0 or fld.Name <> "g" Then
            Counter = Counter + 1
            f = f & ", " & fld.Name
        End If

    Next
    
    	rst.edit
		rst!g=Counter
	rst.update

	rst.close : set rst=nothing

    MsgBox Counter & vbCrLf & "حقول فيها بيانات، وهي" & vbCrLf & Mid(f, 3)
    
End Sub

 

جعفر

[محمد احمد لطفى]

17 hours ago, ابوخليل said:

5 hours ago, jjafferr said:

السلام عليكم أخونا العود

 

الظاهر تم استبدال قواربنا مال Bit و Byte ، بسفن اكبر حجما ، ولكننا صامدون ان شاء الله 

 

جعفر

 

في هذه الحالة الكود سيصبح:

Private Sub cmd_Filled_Fields_Click()

    Dim rst As DAO.Recordset
    Dim fld As Field
    Dim f As String
    
    Set rst = CurrentDb.OpenRecordset("Select * From testq")
    rst.MoveFirst
    
    Counter = 0
    f = ""
    
    For Each fld In rst.Fields
        
        If Len(fld.Value & "") <> 0 or fld.Name <> "g" Then
            Counter = Counter + 1
            f = f & ", " & fld.Name
        End If

    Next
    
    	rst.edit
		rst!g=Counter
	rst.update

	rst.close : set rst=nothing

    MsgBox Counter & vbCrLf & "حقول فيها بيانات، وهي" & vbCrLf & Mid(f, 3)
    
End Sub

 

جعفر

ممكن تطبيقها على المثال لانه لم يضبط معى 

ممكن تطبيقها على المثال لانه لم يضبط معى 

[jjafferr]

تفضل

534.Test.mdb.zip

[محمد احمد لطفى]

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