osn قام بنشر يناير 25 مشاركة قام بنشر يناير 25 السلام عليكم أقوم برصد مواد دراسية محتاج اعمل مربع نص يحسب عدد المواد المرصودة رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 25 مشاركة قام بنشر يناير 25 تفضل أخي حسب مافهمت ووافني بالرد DD457.rar رابط هذا التعليق شارك More sharing options...
osn قام بنشر يناير 26 الكاتب مشاركة قام بنشر يناير 26 10 ساعات مضت, kkhalifa1960 said: تفضل أخي حسب مافهمت ووافني بالرد DD457.rar 51.8 kB · 0 downloads ليس هذا ما اريده .. أرسلت لك مرفقا به مواد درجاتها مرصودة وأخرى غير مرصودة للتمييز رصد المواد.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر يناير 26 أفضل إجابة مشاركة قام بنشر يناير 26 (معدل) 9 ساعات مضت, osn said: 20 ساعات مضت, kkhalifa1960 said: ليس هذا ما اريده .. أرسلت لك مرفقا به مواد درجاتها مرصودة وأخرى غير مرصودة للتمييز مشاركة مع الاساتذة ..... ضع هذا الفانك في النموذج Function CountFields() Set db = CurrentDb() Set RS = db.OpenRecordset("SELECT tb_1.[لغة عربية], tb_1.رياضيات, tb_1.علوم, tb_1.[تربية إسلامية], tb_1.[دراسات اجتماعية] FROM tb_1;") RS.MoveFirst Do While Not RS.EOF Countt = 0 For Each Item In RS.Fields If RS.Fields(Item.Name).Value <> "" Then Countt = Countt + 1 Next Item RS.MoveNext Loop [نص35] = Countt End Function واستدعيه من حدث الحالي للنموذج بهذا الشكل CountFields جرب واعلمنا هل هذا هو المطلوب <<<<<<<<<<<<<<<<<< تم تعديل يناير 26 بواسطه kanory 1 رابط هذا التعليق شارك More sharing options...
osn قام بنشر يناير 26 الكاتب مشاركة قام بنشر يناير 26 5 ساعات مضت, kanory said: مشاركة مع الاساتذة ..... ضع هذا الفانك في النموذج Function CountFields() Set db = CurrentDb() Set RS = db.OpenRecordset("SELECT tb_1.[لغة عربية], tb_1.رياضيات, tb_1.علوم, tb_1.[تربية إسلامية], tb_1.[دراسات اجتماعية] FROM tb_1;") RS.MoveFirst Do While Not RS.EOF Countt = 0 For Each Item In RS.Fields If RS.Fields(Item.Name).Value <> "" Then Countt = Countt + 1 Next Item RS.MoveNext Loop [نص35] = Countt End Function واستدعيه من حدث الحالي للنموذج بهذا الشكل CountFields جرب واعلمنا هل هذا هو المطلوب <<<<<<<<<<<<<<<<<< تمام الله ينور عليك ... شكرا جزيلا لكم جميعا على سرعة الاستجابة رابط هذا التعليق شارك 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.