AlwaZeeR

السلام عليكم ورحمة الله وبركاته ،،، اخي الكريم كل عام وانت بالف خير على حسب ما فهمت ... جرب ووافني بالنتيجة :: تحياتي Alwazeer-listBox.rar

وعليكم السلام ورحمة الله وبركاته ،،، ولماذا تقوم بتسجيل العلامات من اكسل؟ لماذا لا يتم تسجيلها من نفس البرنامج؟

تفضل اخي الكريم ،،، اسال ما تريد :: تحياتي

وعليكم السلام ورحمة الله وبركاته رمضان كريم ،،، وتقبل الله منك اخي الكريم في المرفق : - يتم انشاء ملف اكسل على سطح المكتب يحتوي على جميع قوائم الصفوف كل حسب صفه - الملف الناتج فيه خلايا محمية وانا قمت بتحديد خلايا العلامات فقط وتستطيع التغيير حسب ما تريد من الوحدة النمطية - لا حاجة لاختيار القسم قبل التصدير كما هو معمول في مثالك -وضعت لك وحدة نمطية للتحكم بتنسيق ملف الاكسل تستطيع تصميمه حسب ما تريد -لحماية الورقة بكلمة سر فقط فعل امر الحماية الموجود في الوحدة النمطية الخاصة بالتنسيق -اي استفسار انا في الخدمة ... :: تحياتي Alwazeer-Tangeet.rar

اخي الكريم: هل تقصد بالحماية: حماية الملف المصدر بكلمة سر؟؟؟ أم حماية خلاية محددة من الكتابة فيها؟؟؟ اذا كان حماية خلايا محددة تستطيع ذلك باستخدام امر : objWkb.Worksheets(اسم الورقة).Range("A1:B1").Locked = False ولحماية الورقة تستطيع استخدام امر: objWkb.Worksheets(اسم الورقة).Protect "", True وللحماية بكلمة سر نستطيع استخدام امر: wrkbk.Sheets("اسم الورقة").Protect Password:="كلمة السر", DrawingObjects:=True, _ Contents:=True, Scenarios:=True wrkbk.Protect Structure:=True, Windows:=False وهكذا ... ان لم تستطع التطبيق ارفق ملفك وسوف اقوم باجراء اللازم :: تحياتي

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

اخي الكريم ،،، انا اعمل ما استطيع فهمه من المطلوب!!! لم افهم ما قصدك ان تقوم بسحب رقم ID السجلات لديك اصلا فارغة عموما تفضل هذا تعديل على ما فهمته 3Dai-ttt811.rar

Public Function gRound(ByVal TheNo As Single) As Single If Not IsNull(TheNo) Then If IsNumeric(TheNo) Then Dim x As Single x = Round(TheNo) If x < TheNo Then gRound = Round(x + 1, 0) Else gRound = Round(x) End If End If End If End Function ضع هذا الكود في وحدة نمطية جديدة ثم استخدم اسم الدالة على اي حقل تريد تقريبه هكذا =gRound(Nz([YourField],0)

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

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

3Dai-ttt.rar

وعليكم السلام ورحمة الله وبركاته استخدم دالة Nz([Field Name],0) فهي تعمل على ارجاع قيمة الحقل الى صفر للحقول الفارغة

تفضل اخي الكريم Expr1: IIf([Fieldname] Is Null, 0, Val([Fieldname])) هذه هي الدالة المستخدمة في تحويل مربع النص الى رقم للفرز تم التعديل على ملفك تحياتي Hotel_sort.rar

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

عمل رائع اخي مارد تم الاتصال وتم اضافة الاسم بنجاح تحياتي

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

اذا كان الامر مستعصي لهذه الدرجة فأرجو التوضيح والرد سواء كان هناك حلاً أم لا كي نبحث عن بديل اخر تحياتي

نعم اخي الكريم تستطيع

السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير يرجى التعديل على الكود الذي كتبه الأستاذ المبدع (عبد الله مجرب) في موضوع للأخ (alshamal) ما اريده فضلاً لا أمراً: التعديل على الكود بتعبئة يومي الجمعة والسبت بحرف (F) ارفق لكم نفس مثال الأخ مع بعض التعديلات التي تماشت مع ما احتاج :: تحياتي Date_shamal.rar

بارك الله فيك اخي الكريم (عبد الله) مجهود رائع

وايضا برجاء تعديل امر معاينة التقرير ضمن معيار ID مرفق مثال للتوضيح تحياتي REP_ID.rar

السلام عليكم ورحمة الله وبركاته فتح نموذج ضمن معيار SourceObject شيء عادي وسهل يكمن تحت عبارة : ما أريده فضلاً لا أمراً ان يتم فتح نموذج معين ضمن معيار رقم_الطالب مثلا اذا لم يُفهم طلبي فسوف ارفق قاعدة للتوضيح لانني حاليا لست في البيت شكرا لكم جميعا