ابوخليل

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

هل الصورة توضح المطلوب أم الحل ؟

انظر الصورة

السلام عليكم : ان كان التصويت مسموح فأنا اختار الثانية

عجيب ! انت تضع رقم القرص الصلب بنفسك ، والمتبع ان أكسس هو من يستخرج هذا الرقم ولاجابتك حسب سؤالك سيكون الامر هكذا ى: ' If Hex$(GetSerialNumber(Drive)) <> "48f63d0f" OR "00000000" Then وان اردت اشمل من ذلك ففي هذا الموضوع مثال للتوضيح http://www.officena....showtopic=29928

روائع ... والرفقة مباركة .. وانما يقطع الطريق بالحديث نحن بالانتظار ...

جزاكم الله خبرا

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