رمهان

مشاركة مع اخي جعفر لي محاولة هنا هي شبيهه لماتريد وباختصار : عمل مربع رديف واستخدام الدالة iserror تحياتي للجميع

حياك الله ابو نادر لا اعتقد انه سيسبب مشكلة ولكن لاحظ انه يحتاج اضافة المرجع دائما بكل جهاز جديد تحياتي

السؤال مكرر وتمت الاجابة بمكان اخر

جزيت خيرا اخينا ابو زاهر اخي السائل انا فكرت خارج الصندوق واعطيك فكرة سهلة هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب Private Sub Text21_AfterUpdate() DoCmd.GoToRecord , , acGoTo, Month(Text21) Me.DateMTarget_Subform.SetFocus DoCmd.GoToRecord , , acGoTo, Day(Text21) End Sub جرب وان شاء الله تمام

مشاركة مع الاستاذ اباخليل جرب حدث عند التحميل للنموذج الثاني بالكود التالي: Private Sub Form_Load() Me.أمر13.Visible = Forms!tabl1!مهمة1 Me.أمر15.Visible = Forms!tabl1!مهمة2 Me.أمر16.Visible = Forms!tabl1!مهمة3 End Sub بالتوفيق

اخي ابا نادر شكرا على ثقتك باخوتك هنا اكثر من الغرب وبالموقع السابق جرب الكود التالي وبعيدا عن اين المشكلة بكودك السابق وسنعود للمشكلة بعد التاكد من نجاح المطلوب Private Sub print_Click() Set obj = CreateObject("Word.Application") obj.Visible = True obj.Documents.Open "path" obj.ActiveDocument.Shapes("nnnn").Fill.ForeColor.RGB = RGB(0, 0, 0) obj.ActiveDocument.Close SaveChanges:=wdSaveChanges obj.Quit End Sub تنبيهات قبل التنفيذ: 1. حاول ان تغير الثيم او الخلفية للمربع المقصود nnnn حيث اكتشفت ان به مشكلة تتطلب اعادة اللون عن طريق التنسيق او اعادة الانشاء ثم احفظ المستند 2. غير المسار الصحيح بديلا للكلمة path في الكود اعلاه ان شاء الله يتم المطلوب وبالتوفيق

عزيزي انت تحاول وضع الخلفية اسود حاول ان تغير ثيم المربع الى اي لون ثم جرب نفس كودك واسم المربع nnnn حاول وهناك حل مختصر ان شاء الله تحياتي

هل تم المطلوب اخ ايمن ؟

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

العفو @ Jomolaar ولكن علشان يتم تطبيق الحل لابد من انشاء النموذج والنموذج يحتاج الجداول فالهدف من انشائك للجداول ورفع الملف هو توفير وقتنا والاولى ان يتم ذلك من صاحب السؤال وكذلك الجداول توضح فكرة السائل بالتمام بالتوفيق

مرحبا بك اخينا @ w111 هل لديك خبرة بالاكسس ؟ بالنسبة للعمليات الحسابية تنعمل بلاستعلام بالنسبة للطباعة تنعمل بالتقرير ومصدر التقرير الاستعلام اتمنى ان حصلت الفائدة وبالتوفيق

اخي عمرو لم تجب على سؤالي . لانه الموضوع باختصار " كان غيرك اشطر " بالعربي "كانت ميكروسوفت اشطر" فاذا جاوبت سولفت معاك . ماهو البرنامج وفكرة البرنامج ؟ تحياتي

ممكن تعطينا الحل اللي توصلت له للفائدة مع الشكر الجزيل

حيا الله اخينا عمرو انا حستخدم نظرية "لكل مقام مقال" حنسميها نظرية .. معليش مشيها فهنا سؤال بسيط : لو تكرمت ماهو التطبيق الحالي او المستقبلي الذي تريد تشغيله على الاندرويد؟ او فكرة البرنامج كامل ؟ تحياتي

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

جرب الاتي عزيزي تم اضافة حقل تشك بالتوفيق Select test.rar

لا عذر بين الاخوان ابا خليل والله يعافيك شكرا اخواني عبدالفتاح وشيفان على مشاركاتكم المميزة كل عام وانتم بخير وتقبل الله منا ومنكم الصيام والقيام

عزيزي خليك معي خطوة خطوة بهذا الحل المبدئي وبعدين نشوف حل افضل فهم المطلوب وهو تحديد سجلات بخيار تشك بوكس ولكن احنا بنعملها ببديل اخر وهي الفلتره لذلك نتبع الاتي 1. غير اسم العنصر section الى xsection لانه اسم محجوز 2.اذهب للنموذج المنقسم واختر السهم للفلتره عند العمود id واختر مثلا الرقم 1 و 3 و 5 ثم موافق وهنا ستتم الفلتره على هذه السحلات فقط 3. ضع الكود التالي Private Sub Command6_Click() For i = 1 To Me.RecordsetClone.RecordCount Me.xSection = Text4 DoCmd.GoToRecord , , acNext Next DoCmd.GoToRecord , , acFirst End Sub هنا راح نلف على السجلات الظاهرة فقط ونسند القيم للسكشن حسب القيمة في مربع النص تحياتي

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

جرب Private Sub SearchCmd_Click() For Each itm In Item_List.ItemsSelected xt = xt & Item_List.ItemData(itm) & "','" Next xt = "'" & Left(xt, Len(xt) - 2) Me.tt.Form.Filter = "[Item]in(" & xt & ")" Me.tt.Form.FilterOn = True End Sub بالتوفيق

مرحبا اخ عمرو الحقيقة وجدت كود لا يجاد رسالة الباسسوورد ثم تمرير القيمة لها وهي اول ما خطر في بالي وهذا الرابط http://www.siddharthrout.com/2013/04/24/unprotecting-vba-project-password-using-a-password-that-you-know/ ولكن قلت اجرب فكرة تمرير القيمة باستخدام sendkeys ونجحت معي ولا اعلم معكم لانه تعتمد على اختصار القوائم واعتقد ان جميع الاصدارات لن تختلف لانه واجهة المشروع متشابهة ولو حصل اختلاف نغير فقط في حروف الاختصار الممررة الان جرب التالي ضع دالة عامة كالتالي (طبعا قبل وضع الحماية): Function ramhan(pass) SendKeys "%{F11}%TE" & pass & "~~%{F11}", True DoEvents End Function ثم تنادي الدالة من زر الامر الذي به حذف الكائن ممرا كلمة المرور وكاتالي مثلا حيث الباسسور=1 واسم التقرير rep1 به حدث عند التحميل Private Sub Command0_Click() Call ramhan("1") DoCmd.DeleteObject acReport, "rep1" End Sub الان احفظ ثم ضع باسسورد للمشروع =1 اغلق القاعدة وحاول الحذف عن طريق النافذة لن يقبل وسيقبل من خلال الزر هنا ولو زبطت التجربة اعتقد انه موضوع جديد كليا وحماية جديدة نتمتع بها تحياتي

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

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

حياك اخ ايمن احب الاسئلة من النوع ده هذا كود يفلتر النموذج وليس هناك حاجة لفلترة الاستعلام . هذا حسب فهمي Private Sub SearchCmd_Click() For Each itm In Item_List.ItemsSelected xt = xt & Item_List.Column(2, itm) & "," Next Me.tt.Form.Filter = "[no]in(" & xt & ")" Me.tt.Form.FilterOn = True End Sub بالتوفيق

عزيزنا عمرو مع ني لم افهم المطلوب تمام وما المقصود بكيف تشغيل الكود وهناك باسس وورد على الوحدة النمطية ولكن اشارك هنا بحل مشكلة تعريف المتغبر db . جرب dim db as dao.database تحياتي