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

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

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

Test.rarFetching info...

[ابوخليل]

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

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

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

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

[ابوخليل]

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

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

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

 

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

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

Test.rarFetching info...

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

[ابوخليل]

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

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

 

Test2.rarFetching info...

[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 بواسطه محمد احمد لطفى

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

  في 15‏/1‏/2017 at 20:16, ابوخليل said:

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

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

 

Test2.rarFetching info...

Expand  

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

 

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

[ابوخليل]

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

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

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

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

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

[jjafferr]

  في 16‏/1‏/2017 at 06:53, ابوخليل said:

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

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

Expand  

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

 

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

 

جعفر

  في 16‏/1‏/2017 at 06:53, ابوخليل said:

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

Expand  

 

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

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

 

جعفر

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

  في 15‏/1‏/2017 at 20:16, ابوخليل said:

  في 16‏/1‏/2017 at 08:26, 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

 

جعفر

Expand  

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

Expand  

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

[jjafferr]

تفضل

534.Test.mdb.zip

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

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