اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

جدول و مربعات نص


ابو فتحى

الردود الموصى بها

السلام عليكم و رحمة الله وبركانه

عندى جدول به اكتر من 3000  طالب و نموذج به 120 مربع نض ( غير منضم ) 

المطلوبة جلب أسم 120 طالب الى 120 مربع نصى فى النموذج حسب استعلام ( بالشهادة - بالعنوان - بدرجة النجاج)

طبعا بالكود  

مع الشكر ....

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله وبركانهرد

اخى العزيز عبد الرحمن 

اولا : شكرا على الرد

ثانيا :السؤال هو  هل يوجد كود برمجة لجلب اسماء طلاب من جدول الطلاب الى نموذج به 120 مربغ نص غير منضم بحيث كل اسم طالب فى مربع نص للواحد؟؟؟؟؟؟؟؟؟؟

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله وبركانه

يوجد مثل فى المرافق 

اولا حدول Students اسماء الطلاب بالمجموعة

ثانيا نموذج as به 120 مربع نص  

السؤال هل ممكن جلب بياتات طلاب مجموعة 1 الى نموذج as بالكود البرمجة كمثال او مجموعة 2 او 3 

ثالثا : شكرا لكم الرد 

db1.rar

رابط هذا التعليق
شارك

حياك الله اخي الكريم ابو فتحي ..

الق نظره على المرفق ... اتمنى يفيدك  .. واذا كان ماتبحث عنه ولك سؤال فحاضرين.

افتح form1 واختر المجموعة واستعرض بياناتها من خلال الأمر استعراض والذي سيقوم بفتح form2 ..

وفقنا الله واياك ...

db1.rar

db1.rar

رابط هذا التعليق
شارك

حياك الله اخي الكريم ...

العفو .. 

هل ممكن توضيح الموضوع اكثر ..

بناء على القاعدة المرفقة .

 ماهي المعايير التي بناء عليها سنوزع الطلبة على مربعات النص ..

 

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله وبركانه

يوجد مثل فى المرافق 

اولا حدول Students اسماء الطلاب بالمجموعة

ثانيا نموذج as به 120 مربع نص  

السؤال هل ممكن جلب بياتات طلاب مجموعة 1 الى نموذج as بالكود البرمجة كمثال او مجموعة 2 او 3 

ثالثا : شكرا لكم الرد 

db1.rar

رابط هذا التعليق
شارك

تفضل وفي حدث عند التحميل للنموذج و بعد ان تضع مصدر سجلات للنموذج :

Private Sub Form_Load()
 For I = 1 To 120
 Me("code" & I) = Me.Recordset(0): Me.Recordset.MoveNext
Next
End Sub

بالتوفيق

رابط هذا التعليق
شارك

اسف لم انتبه الى الطلاب حسب المجموعة

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

Private Sub Form_Load()
 Me.Recordset.MoveFirst
 For I = 1 To Me.Recordset.RecordCount
 Me("code" & I) = Me.Recordset(0): Me.Recordset.MoveNext
Next
End Sub

بالتوفيق

تم تعديل بواسطه رمهان
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information