ابوخليل

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

جرب على مثالك المرفق ، فقد تكون تنسيقات المستند الاصل تختلف بالنسبة عندي تمت العملية بنجاح وأجرى 60 استبدالا

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

السلام عليكم وهذه صورة لما ذكره أخونا أبو رشا على 2003

وعليكم السلام ورحمة الله وبركاته من خصائص الحقل اكتب في التنسيق yyyy/mm

لا اعلم ما ذا تعني بهذه الارقام لحذف الرابط استخدم الاستبدال من شريط الادوات العلوي اختر : تحرير / استبدال ستفتح لك نافذة الاستبدال ضع المؤشر داخل حقل : البحث عن ، ثم انقر على : أكثر ، انقر على تنسيق واختر : خط ستفتح لك نافذة الخطوط ، من الخط اللاتيني اختر Arial ثم موافق انقر على تنسيق مرة اخرى واختر : اللغة ستفتح لك نافذة اللغة ، اختر اللغة الانجليزية ثم موافق الآن ضع الموشر داخل حقل : استبدال بـ من لوحة المفاتيح اضغط زر المسافة مرة واحدة ( لاننا سنستبدل الرابط بمسافة فارغة ) بقي التنفيذ وذلك بنقر زر استبدال أو زر استبدال الكل ملحوظة : خذ نسخة احتياطية قبل التنفيذ

ابدأ / جهاز الكمبيوتر / اضغط بزر الفأرة الأيمن ثم نختار : تعيين محرك اقراص الشبكة اختر حرفا ثم استعراض لتختار ملف البرنامج من الشبكة بعد اختيار المجلد ثم الموافقة سترى ملفات برنامجك ظاهرة / حينها قم بعمل اختصار لقاعدة بباناتك على سطح المكتب القرص ستراه ظاهرا بجانب الاقراص c والـــ D بنفس الحرف الذي اخترته

نشكرك على هذه الفائدة جزاك الله خيرا

هناك طريقتين : اما ان تقوم بعمل محرك اقراص وهمي في الجهاز الآخر ( جهاز الكميوتر : كلك يمين ) تجلب اليه ملف البرنامج ومنه تنشء الاختصار الطريقة الثانية : ان تنسخ قاعدة الواجهات وتلصقها في اي مكان من الجهاز الآخر ثم تعمل ربط لقاعدة الجداول والموجودة في الجهاز الرئيس

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

لو ارفقت جزأ من الملف كمثال حتى يتسنى للزملاء مساعدتك ، وتحصل على الاجابة الوافية

السلام عليكم تم تعديل مربعات التحرير حسب طلبك اما الطلب الآخر فيبدو ان هناك استعلام الحاق غير موجود يلزم التأكد ؟ 1213.rar

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

عن نفسي : المرفق احدث من 2003 ولا يمكنني فتحه . ايضا لا بد ان تختار لموضوعك عنوانا مناسبا والا عرضت موضوعك للاغلاق

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

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

خدمك المال والبنون الشرح وافي وكافي بل أجمل من الكود نفسه

Option Compare Database Private StLevelDir As String Private NdLevelDir As String Private RdLevelDir As String Private Sub Command0_Click() Dim dlgOpenFile As FileDialog Dim vDBFile As String Set dlgOpenFile = Application.FileDialog(msoFileDialogFilePicker) With dlgOpenFile .Filters.Add "All Files", "*.*", 1 .ButtonName = "ÃÎÊÑ ÇáÃáÝ" .Title = "ÝÖÜÜáÇ ÃÎÊÑ ÇáÃáÝ" .AllowMultiSelect = False If .Show Then For Each MyFileName In .SelectedItems vDBFile = MyFileName [StrNew] = vDBFile StLevelDir = Left([StrNew], InStrRev([StrNew], ".") - 1) NdLevelDir = Left([StLevelDir], InStrRev([StLevelDir], "\") - 1) RdLevelDir = Left([NdLevelDir], InStrRev([NdLevelDir], "\") - 1) picNm = Mid(StLevelDir, InStrRev(StLevelDir, "\") + 1, 10) gropNm = Mid(NdLevelDir, InStrRev(NdLevelDir, "\") + 1, 10) folderNm = Mid(RdLevelDir, InStrRev(RdLevelDir, "\") + 1, 10) Next Else Set dlgOpenFile = Nothing End If End With End Sub السلام عليكم هذا هو التمكن والاحتراف استاذنا العزيز ولكن طلابك لا يستوعبون غالب ما تحويه هذه الاسطر وعلى رأسهم كاتب هذه السطور فحبذا كرما منك وفضلا شرح هذا الكود وما تعنيه هذه الرموز والارقام وفقك الله لكل خير

انظر هذا الرابط لعلك تجد ما يفيدك http://www.google.co...MM5sm94G-c7KXwQ

السلام عليكم انقل الدالة من تذييل الصفحة الى تذييل التقرير db1.rar

اخي الكريم لا اعتقد ان قسم الوورد سيلبي طلبك قد تجد بغيتك في المنتديات الاخرى الاكسل او الاكسس

السلام عليكم ورحمة الله وبركاته قبل فترة قريبة راودتني فكرة إنشاء موقع متخصص بهذه الخدمة ، ولكني بعد الاستشارة وإعمال الفكر والتروي استطعت أن استشف ما سيترتب على ذلك وأني سأكون بين حجري الرحى فالناس غايات لا تدرك ألا ترون أن أهل المنتديات المجانية قد يطالهم نصيب من النقد والاتهام وعدم الرضا بلهجات ودرجات متفاوته في الحدة ، وممن استشرت في هذا الصدد أستاذنا الكريم محمد طاهر حيث المح حول هذا الباب , ففضلت أن اشتري الراحة والدعة ، فراحة النفس لا تقدر بثمن . . وهنا .. في هذا المنتدى .. فالفكرة جميلة من ناحية ومقلقة من ناحية أخرى ، فخدمة المنتسبين إلى هذا المنتدى ووجود من يحقق رغبتهم بدلا من غلق مواضيعهم شيء جميل ، ولكن القلق من توقع حدوث خلاف بسبب تأخر أو مماطلة ونحو ذلك يوقع في الحرج ويثير أمورا نحن في غنى عنها . وبفرض حسن النية وبنظرة تفاؤلية : فعندي في هذا الشأن رأي يخصني احتاج فيه لمؤيدين وهو في حال تمت الموافقة وتم افتتاح القسم وكما ذكر الأستاذ محمد ستعرض أسماء النشطاء ووسائل الاتصال بهم ؛ فأرى آن للمنتدى حق على الجميع وخاصة من سيستفيدون فنشترط عليهم وضع نسخة مفتوحة لهذا المنتدى من كل عمل يقومون به . والمؤمنون عند شروطهم __ كما أرى قبول وعرض اسم كل من يريد التصدي والعمل من النشطاء في هذا المنتدى ، فالكثرة مؤشر صحي وذو فائدة عظيمة سيجنيها من يطلب البرنامج حيث سينتقي أفضل المواصفات الفنية مع ما يناسبه من السعر . وقد يجد من يعملها مجانا . بالنسبة لما ذكر الأستاذ محمد :" مثلا شخص لديه مشكلة و يريد حلها ولو بمقابل " حقيقة هذه هي مربط الفرس ، أو هي القشة التي ستقصم ظهر المنتدى استشارة : الآن أين أضم صوتي ؟ لــ نعم أم لـــ لا

تفضل هذا التعريف من المنبع : http://office.micros...A010030643.aspx

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