سمير الجبالي

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

السلام عليكم ورحمة الله وبركاته أستاذي الغالي ابوخليل : أولاً أشكرك على الرابط الذي أفدتني به ولكن حاولت أن أطبقه على النموذج الذي عندي لكن دون فائدة عدلت به ليكون التغيير والانتقاء ضمن القائمة المنسدلة دون أن يتم إدراج ما أريده في القائمة بمربع نص جديد أي أن يكون في نفس القائمة لأن كافة التقارير والاستعلامات مرتبطة بالقائمة المنسدلة دون مربع النص الذي تحتها كما في المثال الذي بالرابط الذي أرشدتني إليه حبذا أستاذي إن تفضلتم أن تتكرموا برؤية مثالي المرفق و أرجو أن يكون الاختيار وفق اي كلمة ضمن القائمة المنسدلة يعطي الخانة المطلوبة منها دون اللزوم لكتابة الكلمة الأولى من الخانة المطلوبة (دون ظهور الرقم ) قاعدة البيانات1.accdb

UP

السلام عليكم ورحمة الله وبركاته أستاذي الغالي ابوخليل : أولاً أشكرك على الرابط الذي أفدتني به ولكن حاولت أن أطبقه على النموذج الذي عندي لكن دون فائدة عدلت به ليكون التغيير والانتقاء ضمن القائمة المنسدلة دون أن يتم إدراج ما أريده في القائمة بمربع نص جديد أي أن يكون في نفس القائمة لأن كافة التقارير والاستعلامات مرتبطة بالقائمة المنسدلة دون مربع النص الذي تحتها كما في المثال الذي بالرابط الذي أرشدتني إليه حبذا أستاذي إن تفضلتم أن تتكرموا برؤية مثالي المرفق و أرجو أن يكون الاختيار وفق اي كلمة ضمن القائمة المنسدلة يعطي الخانة المطلوبة منها دون اللزوم لكتابة الكلمة الأولى من الخانة المطلوبة (دون ظهور الرقم ) قاعدة البيانات1.accdb

وعليكم السلام ورحمة الله وبركاته أستاذي الغالي ابوخليل : نعم إن ما تفضلت به هو ما قمت به ولكن سؤالي : حين أكتب كلمة مؤسسة تظهر المؤسسة التي ترتيبها الأبجدي قبل سواها أولاً على سبيل المثال : مؤسسة الطرق مؤسسة المعادن مؤسسة المياه * فعندما يكون المطلوب مؤسسة المياه تكون هي في آخر القائمة وبالمعيار ( LIKE ) الذي استخدمه في نموذج البحث عم اسم معاملة يكون الفرز سريع وتظهر العبارة المطلوبة بشكل أسرع هل من وسيلة بحيث أنه حين تتم كتابة كلمة (مياه ) أو ( طرق ) أو ( معادن ) ((في القائمة المنسدلة من نموذج ملئ الإستمارة)) تظهر المؤسسة المقصودة من القائمة المنسدلة ويتم اختيارها مباشرةً دون الحاجة لكتابة كلمة (مؤسسة) من قبل المستخدم . ولكم جزيل الشكر والإمتنان

up

عحup

up

السلام عليكم ورحمة الله وبركاته أساتذة المنتدى وأعضاؤه المميزين سؤالي : التعبير : Like "*" & [Forms]![...........]![.........].[Text] & "*" نستخدمه لعرض النص الذي نبحث عنه بكتابة أي أحرف منه في مربع نص ليظهر في نموذج الاستعلام . ولكن إذا كانت لدينا قائمة منسدلة في نموذج ملء بيانات وتحوي هذه القائمة على سبيل المثال 225 بنداً فيها على سبيل المثال : المؤسسة العامة للطاقة الكهربائية - المؤسسة العامة لمياه الشرب - المؤسسة العامة للطرق والجسور .... وغيرها على نفس المنوال العديد من المسميات التي تختلف فيما بينها فقط بنشاط هذه المؤسسة . وعند كتابة كلمة مؤسسة في القائمة المنسدلة يظهر بالإكمال التلقائي الأسم الموافق للترتيب الأبجدي . كيف يمكن الاستفادة من تعبير like حيث عند كتابة كلمة مياه يظهر مباشرة المؤسسة العامة لمياه الشرب أو كتابة كلمة طرق يظهر اسم المؤسسة المقصودة وبضغط ( انتر ) يتم الاختيار . ولكم جزيل الشكر والامتنان

هل يوجد نقاط لم أقم بتوضيحها ؟؟؟؟؟

أساتذة المنتدى الأفاضل والأعضاء الكرام السلام عليكم ورحمة الله وبركاته عندي برنامج تم تصميمه على أكسس وهو واجهة مستخدمين موزعة على 6 أجهزة وقاعدة بيانات على السيرفر البرنامج يعمل بشكل نظامي دون مشاكل ولكن تم اضافة بأحد الفورمات زر إدراج صورة كارتباط تشعبي من مجلد من السيرفر تم حفظ الصور فيه وزر عرض الصورة . المشكلة أنه حين يقوم أحد بإدراج صورة ( كإرتباط تشعبي ) يظهر الارتباط عند الجميع ولكنه لا يعمل إلا من خلال الجهاز الذي تمت من خلاله إدراج هذا الارتباط . واجهة البرنامج لكل موظف موجودة بالسيرفر أي عندي 6 مجلدات بداخلها واجهة البرنامج الذي تم مشاركته مع الموظفين الستة أي أنه لكل موظف واجهته التي لا يشاركه بها أحد. قاعدة البيانات واحدة تم ربطها بالواجهات . مجلد الصور الذي يتم إدراج الصور منه كاراتباط تشعبي بمربع النص المحدد أيضاً مشترك عند الموظفين ؟ وهذا هو الكود للادراج Private Sub Command4_Click() Dim OFN As OPENFILENAME On Error GoTo Err_cmdInsertPic_Click With OFN .lpstrTitle = "صورة" If Not IsNull([صورة]) Then .lpstrFile = [صورة] .Flags = &H1804 .lpstrFilter = MakeFilterString("Image files (*.bmp;*.gif;*.jpg;*.wmf)", "*.bmp;*.gif;*.jpg;*.wmf", _ "All files (*.*)", "*.*") End With If OpenDialog(OFN) Then [صورة] = OFN.lpstrFile SysCmd acSysCmdSetStatus, "Afbeelding: '" & [صورة] & "'." End If Exit Sub Err_cmdInsertPic_Click: MsgBox Err.Description, vbExclamation End Sub وهذاكود عرض الصورة والراسلة التي تظهر إذا لم يتم إدراج صورة Private Sub Command5_Click() On Error Resume Next If Not IsNull(Me.صورة) Then Application.FollowHyperlink Me.صورة Else MsgBox "لم يتم إدراج صورة للتأشيرة مرفقة بالمعاملة" Me.صورة.SetFocus End If End Sub ....... أرجو الإطلاع للمساعدة

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

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

السلام عليكم ورحمة الله وبركاته تم حل المشكلة بوضع الكود (إعادة كتابته) في : عند الضغط على الماوس . ولكن المشكلة الجديدة : رسالة تحذير أمان عند الضغط على زر عرض ليتم فتح الصورة المرتبطة كأرتباط تشعبي عدلت في مركز التوثيق وأعطيت الوثوقية للمجلد الذي تم إدراج الصورة منه . أعتقد أن الجل يكمن في الريجستري الخاص بالوندوز تبويب أوفيس /أكسس . بحث عن حل المشكلة لإيقاف رسالة التحذير هذه رأيت العدد ممن يشتكون منها وجميع الحلول لم تنجح معهم . أما من حل ؟؟؟؟

أساتذة المنتدى الأفاضل والأعضاء الكرام السلام عليكم ورحمة الله وبركاته عندي فورم فيه مربع نص مرتبط بزرين : الأول إدراج مسار صورة كارتباط تشعبي - الثاني عرض الصورة التي بالمسار عبر مستعرض الصور المشكلة أنه يتم إدراج المسار على جميع الكمبيوترات ولكن عندما أضغط على زر (عرض) على بعض الكمبيوترات لا يتم العرض ولا الاستجابة علماً بأنه على الكمبيوتر الذي لا تحدث به الاستجابة عندما لا يكون هنالك مسار صورة تظهر رسالة تفيد بأنه لم يتم إدراج صورة مع إن برنامج الأوفيس هو نفسه عند جميع الاجهزة أوفيس 2013/32bit وهذا هوالكود المستخدمPrivate Sub Command5_Click() On Error Resume Next If Not IsNull(Me.صورة) Then Application.FollowHyperlink Me.صورة Else MsgBox "لم يتم إدراج صورة للتأشيرة مرفقة بالمعاملة" Me.صورة.SetFocus End If End Sub

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

أستاذي العزيز ابو ياسين المشولي أشكرك جزيل الشكر اثابك الله واتمنى لكَ دوام الصحة والعافية

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

أستاذي العزيز ابو ياسين المشولي الفاضل لم ينجح الأمر

أستاذي العزيز ابو ياسين المشولي الفاضل أستاذي الذي أدرجته بالصورة المرفقة هذا بيت القصيد الذي لا أريده أن يظهر فالأعمدة من ( منرقم count التاشيرة) لآخر عمود هذه بالتقرير تم إعادة كتابتها بشكل صحيح كما ملفي المرفق ومن ثم عمدت إلى إخفائها فلا تظهر بالتقرير . وبالأمر الأول الذي أرفقه الأستاذ Shivan Rekan تم التصدير كما هو التقرير ولكن دون هيكلة الجدول ودون أرقام الصفحات . الذي أريده بعد إذن حضرتكم إن كان بالامكان تصدير التقرير بهيكل الجدول دون إعادة تشغيل الاستعلام حيث إنه بالكودات التي أرسلتها إلي يعيد تشغيل الاستعلام ويطلب إدخال تاريخ البداية والنهاية مجدداً . ولا يظهر ما هو فوق الجدول بالتقرير . أرجو منكم المعذرة

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

أستاذي العزيز Shivan Rekany أرفق لحضرتكم هذا الجزء من البرنامج به تقريرين .... لاحظتُ أستاذي أنه يتم كتابة رقم الصفحة بملف الورد ثابت كما الصفحة الأولى أي أن الصفحة الأولى بالتقرير مثلاً يكون رقم الصفحة بها : صفحة 1 من 5 يكون ثابت بالوورد على كل الصفحات صفحة 1 من 5 أشكرك مثال 1.zip

التقرير نجح بالتصدير إلى الوورد ولكن دون أن يكون الجدول موجود أي فقط البيانات جميعها انتقلت نعم ولكن دون رسم الجدول ؟؟!!! إن كان الجدول لا يمكن نقله فلا مشكلة . أما إذا كان هنالك إمكانية بنقل الجدول والبيانات التي بداخله حبذا لو ترشدني للطريقة وشكراً لكَ مرة ثانية أستاذ Shivan Rekany

شكراً لك أستاذ Shivan Rekany ممنون لكَ بارك الله بكَ وجازاكَ بكل خير

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