ابو البشر

انظر هنا ....

هل هذه الصورة مرضية لك ....

تفضل ..... DD: DCount("[cat]";"Table1";"[cat]=" & [cat] & "") New Microsoft Access Database (1).accdb

لاحظ الصور حتى تفهم كيف تمت العملية .... New Microsoft Access Database (1).accdb

هل هذه الصورة هي المطلوبة ...

جرب كدة ..... com.rar طبعا هناك تنسيقات عملتها انت لا يتم التعامل معها في اوفيس 2007

او الملف الذي تريد انشاء جدول وبه حقل محسوب قديم اي تم اصدارة بالكسس قديم .... افتح الملف وحاول حفظة مرة اخرى بالتنسيق الخاص بالاكسس 2010

اكتبها بهذا الشكل ..... If Not IsNull(me.combobox1) Then

نعم استاذي الكريم .... هو المطلوب .... بارك الله فيكم اساتذتي الكرام @أبو عبدالله الحلوانى و @Eng.Qassim جزاكم الله خيرا وكتب اجركم ...

ربما لم اوضح الفكرة ... الفكرة ان هناك كمبو بكس لعرض اسماء الازرة فيه .... وكمبو اخر لعرض اسماء بعض النماذج الكود الموجود في الكمبو الخاص بالنماذج يعمل جيدا ولكن عند كتابة اسم النموذج فيه مباشرة عن طريق محرر الاكواد ... ولكن المطلوب هو ان يقوم المستخدم باختيار اسم النموذج من الكمبو لعرض اسماء الازرة في الكمبو الاخر تلقائيا وعند تغيير اسم النموذج تتغير اسماء الازرة في الكمبو حسب الموجود في داخل النموذج ...

بارك الله فيكم اخواني الاساتذدة @Eng.Qassim و @أبو عبدالله الحلوانى جزاكم الله خيرا .... زيادة في الايضاح ايد عند الاختيار في الكمبو بكس مثلا Form1 يظهر تلقائيا اسماء الازرة الموجودة في النموذج form1 في الكمبو الثاني وهكذا عند اختيار نموذج محدد تظهر اسماء الازرة الموجودة في ذلك النموذج .... مرفق مثال مبسط للمطلوب وعساني وفقت في الشرح ... بارك الله فيكم ووقتكم ... DDD.accdb

السلام عليكم ورحمة الله وبركاته : لدي كمبوبكس تحوي اسماء النماذج الموجودة في القاعدة ..... اريد عند الاختيار من الكمبو اسم نموذج معين يقوم بامرار اسم النموذج داخل هذا الكود بشكل يعمل مع الكود Dim frm As Form Dim fc As Control Dim SS As String Set frm = Form_Form1 For Each fc In frm.Controls If fc.ControlType = 104 Then Me.list_2.AddItem (fc.Caption) End If Next fc Set frm = Nothing Me.Requery اريد اسم النموذج مكان عذه العبارة Form_Form1 ولكم تحياتي ................

وعليكم السلام ممكن كرما مرفق للمطلوب للتطبيق عليه ....

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

جرب هذا البرنامج .....................................

ماذا تقصد بمخفي ؟؟؟

برنامجك يعما دون مشاكل ...... اين تظهر المشكلة ؟؟؟

بارك الله فيك اخي عمر كل كائنات القاعدة (جداول . نماذج . تقارير . وحدات نمطية ..... الخ ) يمكن معرفة اسمائها بنفس الطريقة مع تعديل بسيط

!!!!!!!!

في الجدول T1 اخر درجة للطالبين هي 70 .... صحيح بادكتور حسين هل نبدلها بهذا .... Expr1: DMax("[Per_Degree]";"[T1]";"[Per_Name] Like '" & [T2]![Per_Name] & "'")

وعليكم السلام انت تريد تصدير التقرير من الاكسس الى الاكسل ... صحيح ... طيب فين ملف الاكسس حتى نجرب عليه ؟؟؟

اخي الكريم عادة هذه الملصقات لاعدادها تحتاج منك المحاولات العديدة حتى تصل للمطلوب .... يعني تحاول تعديل حجم التقرير أقصد حجم الملصق الموجود في التقرير وتطبع على ورق A4 ثم تقارن مع اوراق الملصقات وهكذا حتى تصل للتقرير الذي يرضيك ..... وايضا يمكن استخدام المعالج الموجود في الاكسس لطباعة الملصقات لصنع التقرير المناسب ثم تعدل عليه حسب التقرير الذي تريد .... جرب المرفق واظهر المعالج واختر مايناسبك حتى تصل للمطلوب ثم انقل تلك الاعدادا الى تقريرك .... طباعة ملصقات نهائي (1).mdb

ضع هذا .... Me.Text0 = "" me.Text0.SetFocus

ضع في حدث عند التغيير هذا الكود .... Me.TextBox1.SetFocus