ابوخليل

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

السلام عليكم تم تعديل مربعات التحرير حسب طلبك اما الطلب الآخر فيبدو ان هناك استعلام الحاق غير موجود يلزم التأكد ؟ 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

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

تم حذف الرابط وارفاق الملف هنا مشكلة المسافات.rar

سلمت أناملك الابداع تجلى في : الضبط والاتقان بأقل عدد من الاسطر

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

هذا من فضل الله عليك ان وفقك فحمدا له وشكرا

لا ادري ما تقصد بقولك لم يفلح هذا كودك الذي ارفقت انظر المثال المرفق فهو يستخرج رقم الهارد db12.rar

بعد البحث والتنقيب وجدت هذا المثال ولكني لم اهتد الى مصممه . فله منا الشكر والدعاء ، فجزاه الله خيرا . SpicFormInterFace.rar

اهلا بك وسهلا وكل عام وانت بخير مطلوبك يمكن تحقيقه فقد رأيت مثل ذلك

موقع الاوفيس ليس له تأثير وواضح انك لا تكتب اسم القرص ضمن الكود فهذه الكلمة بين القوسين (Drive) يكتب بدلها القرص المراد اظهار رقمه ليصبح الكود هكذا : If Hex$(GetSerialNumber("c:\")) <> "E4C09E1F" Or Hex$(GetSerialNumber("c:\")) <> "E4C09E1F" Then

الا يتم ذلك بتطبيق أول 20 سجل مع وضع فرز تنازلي للدرجة ؟

كلامك مقبول لكن نفرض ان العميل في بلد آخر وسترسل البرنامج عبر الايميل وبرنامجك محمي ؟ واعذرني كان الكود ناقصا شيئا ما وهذا هو التصحيح : جرب ووافني بالنتيجة If Hex$(GetSerialNumber(Drive)) <> "48f63d0f" Or Hex$(GetSerialNumber(Drive)) <> "f034ad8b" Then