ابوخليل

جهازي 32 بت يوجد مشكلة عند فتح المشروع .. انظر الصورة

الخلل لديك عجيب وهو في لون خلفية الحقول الأساسي ، بمعنى ان الخلل فني وليس برمجي انظر baseT2.rar

الحمد لله اعانك الله ووفقك

حتى مع فصل الدرجات لن تتمكن من عرض النتيجة في التقرير كما رسمت الا بعد عمليات طويلة يدخل فيها انشاء جداول مؤقتة او استعلامات توحيد . لا اخفيك حاولت بشتى الطرق واخذ مني وقتا طويلا .. خلصت فيه ( حتى احقق الفكرة) الى وجوب ترحيل البيانات الى جدول مؤقت يتم فيه تحويل الاعمدة الى حقول افقية (( معلومة مهمة جدا للمبرمج : لا يتم الشروع في بناء الجداول حتى يستوفى العلم التام عن المخرجات وصيغتها )) ------------------------------- على كل حال الحل القريب لطلبك وهو يسير ايضا ويمكنك انت عمله وتريح راسك هو: ان تجعل كل من النظري - التطبيقي - الامتحان كل واحد منها في تقرير مستقل ويمكنك جمعها في ورقة واحدة بشرط ان تجعل كل واحدة في تقرير فرعي داخل التقرير الاساسي

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

من اجل تحقيق طلبك يجب عمل احد الامور التالية : اما الغاء الدرجة من الاختيار في النموذج ( لأنها لا تتطابق مع ما في الجدول ) وإما ترفق الجدول الأصل قبل الدمج للعمل عليه واعتماد النتيجة

بل حسب اجتهادك .. وليس بالضرورة ان يكون الاجتهاد صوابا الاستعلام يقوم بمثل هذه المهام .. ويمكنك جعله مصدرا

حاجة جميلة .. عائلة ميكروسوفت يساعدوا بعض 😊 لزوم نضبط العنوان بما يتناسب مع هذا الابداع

هو كذا دوما في غالب طلباته مقصر في الشرح والايضاح .. من شرحه الاخير اعتقد فهمت له ------------------------------------------------ استاذ عبدالقدوس لا يصلح تربط بين المفاتيح في الجدولين كعلاقة تم تحقيق طلبك انظر المرفق الحقل الذي اعتقد لا يمكن تكراره بين الاشخاص هو الرقم الخاص لذا اعتمدته في البحث والعد Dim i1, i2 As Integer Me.Form.Filter = "numt Like '" & textsearch & "'" Me.Form.FilterOn = True i1 = Nz(DCount("*", "tabl1", "numt = '" & textsearch & "'"), 0) i2 = Nz(DCount("*", "tabl2", "numt = '" & textsearch & "'"), 0) t1 = i1 t2 = i2 tt = i1 + i2 مثال2.rar

موضوعك غير مهيأ 1- في التقارير تريد اظهارها حسب الدرجة ، والدرجة في الجدول مدمجة ، بينما في الفورم يتم الاختيار مفرد 2- المفترض طلبك يكون حول نقطة واحدة فقط ، حتى لا يتشتت فكر من يتصدى للإجابة ملاحظة مهمة : عملك الدمج اصلا في الجدول خطأ فادح .. وانما يتم حسب الحاجة في الاستعلام او التقرير

ياسلام استاذ عمر البساطة حقيقة في جمال التصميم .. اعشق مثل هذا الترتيب .. التناسق في الألوان والأحجام والأدوات اضف الى ذلك تحكم الخبير في جميع المفاصل

في نموذج التصدير تسمية الازرار = حفظ وورد ، حفظpdf فأنا اتكلم من هذا المنطلق .. فالحفظ يختلف تماما عن عملية تصدير فقط اذا الملفات غير مهمة ( ويمكن التصدير في اي وقت) .. ولست بحاجة الى الرجوع لها مستقبلا .. فلا مشكلة سر في طريقك

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

عندي استفساران الأول لأخوتي واحبتي الخبراء الى تكفي الدالة NOW لوحدها بدون تنسيقات مصاحبة .. لأن التنسيقات موجودة بها فعلا ... انا لم اجرب فقط استفسار الثاني لصاحب الموضوع : لماذا تفتح مربع الحوار لحفظ الملفات .. عادة الحفظ يكون في مجلد محدد مسبقا .. وهذا المجلد سيعرفه اكسس فيما لو اردنا مستقبلا الطباعة او الفتح غالبا مربع الحوار نحتاجه عند الجلب

تفضل بيانات الطلبة4.rar

ضع مرفق مختصر حنى تمكن الاعضاء من مساعدتك

انظر هل هذا مطلوبك ؟ بيانات الطلبة3.rar

الملف مضغوط بعد تنزيله تفك الضغط عنه وعلى كل حال هذا الملف بدون ضغط فقط خففت من حجمه بازالة الصور egypt 2.accdb

عليكم السلام .. وحياك الله بين اخوانك هذا كود فتح نموذج من نموذج آخر على حقل محدد Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "passenger=forms!srch!t" stDocName = "data1" DoCmd.OpenForm stDocName, , , stLinkCriteria ويمكن اختصاره هكذا وسيعمل DoCmd.OpenForm "data1", , , "passenger=forms!srch!t" egypt 2.rar

اخي العزيز الغالي ابو بسملة .. جميلة جدا هذه الاستعارة .. في ردي السابق نسيت ان اربط النموذج بالبيانات .. تجدون ادناه تعديل لمرفقي السابق test12.rar

اخوي احمد .. الله يكون بعونك .. ستتعب كثيرا test11.rar

يستفيد الباحث لا شك ولكني لم اجد اجابة شافية انظر هنا في الرابط الأخر وأقرأ آخر مشاركة ستصيبك بالاحباط .. اجابته كانت في رأسي قبل طرحي السؤال ولكن الفائدة وجدتها في هذه الصفحة

ابشركم قبضت عليه .. المشكلة انه امامنا ولكن لم ننتبه له عثرت عليه بعد ان تم حذفه .. حزورة فزورة .. في آخر الخطوات سوف اخبركم كيف العثور عليه اولا هذا الكود يستخرج قائمة كاملة بأسماء قوائم أكسس وهي كثيرة جدا .. وواضحة من مسمياتيها ( تسمية عامة تحمل الصفة) .. وانما انا ابحث عن اسم خاص Sub ListCustomCommandBarControls() Dim x For Each bar In CommandBars x = bar.Name Debug.Print x Next End Sub وطبعا عثرت على ثلاثة : 1- طباعة 2- (print) 3- (prscs ) والثالث هذا هو المطلوب ادخلت الاسم الثالث هذا في امر الحذف هذا : Private Sub Command1_Click() Application.CommandBars("prscs").Delete End Sub فطار من غير رجعة .. الآن نرجع .. كيف وجدته بعد حذفه ؟ لما حذفته اعدت تشغيل المثال فخرجت لي رسالة خطأ بان القائمة prscs غير موجودة هنا ذهبت الى خصائص قاعدة البيانات من ملف فوجدت صاحبنا متربع في الحقل مع اختصار أخر بجانبه يستأنس به انظروا الصورة طبعا بدلته الى الافتراضي ثم موافق فاختفى هو وأثره للأبد TNDT2.mdb

اذا لم تصل لحل !! هل تنتظر مني ان اصل ؟ 🤔 هذا الملف الاصل بصيغة mdb TNDT.mdb

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