محمد احمد لطفى قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 ممكن مساعدة فى مجموع عدد الخلايا بالاستعلام 1+2+5 = 3 Test.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 السؤال غير مفهوم حاول تشرح المطلوب اكثر رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 عندنا مثلا 3 خلايا الخلايا الى فيها بيانات يتم جمعها مثلا count a+b+c=d d=3 عد الخلايا فى الاستعلام رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 حتى الآن ما وصلت الفكرة لان الحقول في الاستعلام ستكون ثابته ومعلومة كما هي في الجدول اشرح لي الفكرة ولماذا تريد عد هذه الحقول ؟ رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 (معدل) هذا هو المطلوب عدد الخلايا التى بها بيانات Test.rar تم تعديل يناير 15, 2017 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 عدد الحقول التي تشتمل على بيانات تفضل الحل في المرفق Test2.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 15, 2017 مشاركة قام بنشر يناير 15, 2017 وعليكم السلام بعد إذن أخي ابوخليل عملت زر في النموذج ، اسمه 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 . جعفر رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 15, 2017 الكاتب مشاركة قام بنشر يناير 15, 2017 (معدل) جزاكم الله خيرا تم تعديل يناير 15, 2017 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 16, 2017 الكاتب مشاركة قام بنشر يناير 16, 2017 (معدل) 4 hours ago, ابوخليل said: عدد الحقول التي تشتمل على بيانات تفضل الحل في المرفق Test2.rar ممكن لو سمحت النتيجة تكون فى حرف g لتكون داخل الجدول كده انشأ خلية غير g المجموع مد خلش الجدول تم تعديل يناير 16, 2017 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 16, 2017 مشاركة قام بنشر يناير 16, 2017 علمونا في السابق عدم ادراج حقل محسوب داخل الجدول قالوا : للتقليل من حجم القاعدة ولأن الاستعلام يقوم مقام الجدول وايضا امكانية استخراج النتيجة بالكود علما انهم اوجدوا في جدول القواعد الجديدة لأكسس حقول محسوبة فإذا انت مصمم على جعل الناتج في الجدول فعليك تطبيق الكود الذي تفضل به الاستاذ جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 16, 2017 مشاركة قام بنشر يناير 16, 2017 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 جعفر رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 16, 2017 الكاتب مشاركة قام بنشر يناير 16, 2017 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 جعفر ممكن تطبيقها على المثال لانه لم يضبط معى ممكن تطبيقها على المثال لانه لم يضبط معى رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر يناير 16, 2017 أفضل إجابة مشاركة قام بنشر يناير 16, 2017 تفضل 534.Test.mdb.zip رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 16, 2017 الكاتب مشاركة قام بنشر يناير 16, 2017 جزاكم الله خير وبارك الله فيكم وجعله الله في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.