اذهب الي المحتوي
أوفيسنا

نجوم المشاركات

  1. sandanet

    sandanet

    الخبراء


    • نقاط

      9

    • Posts

      1,366


  2. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      9

    • Posts

      3,491


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      7

    • Posts

      9,814


  4. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      4

    • Posts

      6,818


Popular Content

Showing content with the highest reputation on 22 فبر, 2017 in all areas

  1. السلام عليكم ورحمة الله وبركاته أخى العزيز جرب المرفق ... الرقم السرى 1111 تحياتى سيريال الهارد.rar
    3 points
  2. تفضل أخي هاني .. لقد قمت باضافة دالة الى الوحدة النمطية واضافة حقل نصي في الجدول لحساب العمر بالتفصيل مع اضافة كود في الاستعلام لاستدعاء الدالة السابقة لكي تتم عملية حساب العمر باليوم والشهر والسنة ملاحظة : جميع الاكواد الموجودة مأخوذة من عدة أمثلة لعباقرة في البرمجة تحياتي فصل الاسم وتاريخ الميلاد.zip
    3 points
  3. اعتذر منك أخي هاني فأنا لا أعرف كيفية عملها وسأفسح المجال لعباقرتنا للتدخل الفوري في هذه المسألة تحياتي
    2 points
  4. جرب الكود التالي Option Explicit Dim rng As Range Private Sub SpinButton1_SpinDown() If Val(TextBox1.Value) <= 1 Then Exit Sub TextBox1.Value = Val(TextBox1.Value) - 1 End Sub Private Sub SpinButton1_SpinUp() If Val(TextBox1.Value) >= Cells(Rows.Count, 1).End(xlUp).Row - 1 Then Exit Sub TextBox1.Value = Val(TextBox1.Value) + 1 End Sub Private Sub TextBox1_Change() On Error Resume Next Set rng = Range("A2:D" & Cells(Rows.Count, 1).End(xlUp).Row) TextBox2.Value = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), rng, 2, 0) TextBox3.Value = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), rng, 3, 0) TextBox4.Value = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), rng, 4, 0) End Sub
    2 points
  5. السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip
    1 point
  6. المشروع الكبير: شرح برنامج المخزون و الفواتيرالشامل الاصدار الثالث هذا البرنامج هو النسخة الثالثة من برنامج المخزون و الفواتير الشامل وهو من الممكن اعتباره اكثر من برنامج فى برنامج واحد يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين مع ميزانية عامه توضح الربح و الخساره يمتاز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت البرنامج به الكثير من الاضافات عن الاصدارات السابفة البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها ربما لم تشاهدها من قبل البرنامج بواجهة تطبيقية كاملة مما يسهل من استخدامه ويسرع من ادائة ويحافظ على ثباته البرنامج يعمل على نسختي اوفيس 2007 و 2010 وان كنت انا افضل النسخة الأخيرة من حيث السرعة ** اليوم وانا على وشك انتهاء مرحلة تجربة هذاالاصدار احببت ان اقدم لكم الشرح الوافى لهذا البرنامج البرنامج يحتوى على الكثير و الكثير من الاختصارات التي تساعدك في انجاز مهامك بسرعه عالية وهى افكار جديده على الاكسيل ** تم تصميم البرنامج بمواصفات خاصه وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية بغرض التعلم او استخدامهم الشخصىعلى شرط ان لن يقوم اى شخص بتقديم هذا البرنامج الى اى جهه او شركة بغرض الربح. فحقوق ملكيتة محفوظة لى و الله الشاهد على ذلك البرنامج سوف يتم نزوله مفتوح المصدر فليس غرضى هو الاحتكار ولكنى اريد هذا العمل خالصا لوجه الله تعالى لكى يستفيد ويتعلم الجميع Ø يمكن التعديل في البرنامج على حسب ظروفي ومدى انشغالي اذا كانت تغييرات غير جوهريه Ø اليوم اقدم لكم شرح وافى للبرنامج لطلب كثير من الاعضاء و ايضا لضرورة التعرف على بعض النقاط الهامه داخل البرنامج كما يمكنك الحصول على ملف تنفيذى به شرح كامل للبرنامج حجم الملف 7 ميجابايت يمكنك مراسلتى على الايميل لطلب الشرح amroomo@gmail.com # فى الاسبوع القادم بمشيئة الله سوف اقوم بتنزيل البرنامج على المنتدى و عندما تنتهى فترة تجربة البرنامج ليكون كاملا و الكمال لله وحده سبحانه وتعالى ...... لن اطيل عليكم فلنبدأ على بركة الله بالشرح وهو عباره عن صور تشرح كافة تفاصيل البرنامج
    1 point
  7. حدثت معي هذه المشكلة عند فتح قاعدة البيانات على جهاز اخرينتج عن التعبير عند الفتح الذي ادخلته كإعداد خاصية الحدث الخطأ التالي : حدثت مشكلة أثناء اتصال ( Microsoft Access ) بخادم OLE أو عنصر تحكم ActiveX.* قد لا ينتج عن هذا التعبير اسم ماكرو اسم دالة معرفة بواسطة المستخدم أو [إجراء حدث].* قد يكون هناك خطأ في تقييم الدالة, الحدث, الماكرو.علما ان نسخة الوندوز في الجهازين 10 اصلية وان الاوفيس 10 من نفس النسخةارجو المساعدة
    1 point
  8. اخي ابحث في منتدى الاكسس عن كلمة OLE ، وسترى العديد من المواضيع ، وهذا له علاقة بتغير إعدادات لغة الكمبيوتر الذي تم عمل البرنامج عليه ، عن اعدادات الكمبيوتر الذي تظهر له المشكلة جعفر
    1 point
  9. نعم الطريقة والنتيجة واحدة في الاول حاولت توظيف استعلام التوحيد ولكني وصلت الى طريق مسدود وكان الحل قريب جدا استخدمت معالج استعلامات اكسس في البحث عن غير المتطابقات
    1 point
  10. الله يسعد ايامك استاذ سليم Sub hide_some_columns() Sheets("sheet1").Columns.Hidden = True Range("b1,c1,d1,r1").EntireColumn.Hidden = False Range("b1").Select End Sub
    1 point
  11. اضف الى الكود هذا السطر ليصبح هكذا
    1 point
  12. حاضر والدى الحبيب واستاذى القدير
    1 point
  13. وعليكم السلام ورحمة الله وبركاته
    1 point
  14. جزاكم الله خيرا استنى الله يرضى عليك هو حضرتك جربت المرفق والنتيجه واحده ؟؟ جرب المرفق النتيجه مظبوطه هنا 100% حساب تأخير الموظفين.rar وهذه الصورة تأكد ان النتيجة مظبوطه
    1 point
  15. للتجربة ، شيل هذه الجملة \" & Environ("Username") & "\ واستبدلها باسم المستخدم ، حتى يكون المسار كله واضح ، مثلا اذا كان اسم المستخدم jjafferr Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\jjafferr\Desktop\123.mdb", 1) وقرأت هذا في احد المنتديات الاجنبية: net use "\\xxx.xxx.xxx.xxx\Some Folder" /user:domain\user_name p@ssw0rd xcopy "\\xxx.xxx.xxx.xxx\Some Folder\New.txt" "D:\new.txt" والامر Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) سيصبح Call Shell("net use \\192.168.20.1\123.mdb /user:UserName myPassword" "xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) ويجب ان تغيّر UserName myPassword الى الاسماء الحقيقية جعفر
    1 point
  16. الاخ ناصر سعيد الملف به صفحة رئيسية ممكن وضع فيها بيان للمدرسة والمديرية .... شيت واحد مع فورم واحد ينتقل الى بيان الطلاب / الفصل الاول / الفصل الثانى الفورم.rar
    1 point
  17. احنا نحاول نعرف الخطأ فين خلينا نستعين بادوات الوندوز ، لذا رجاء تفتح: . ثم اضف السطر الاول من xcopy ، ورجاء كتابة المسار كاملا لشخص واحد ، للتجربة ، وانظر الى سبب عدم النسخ (السطر التالي ، والذي بجانبه السهم الاحمر) . من هنا سنعرف اذا كانت المشكلة في الشبكة ، او محتاج اسم المستخدم و الباسورد جعفر
    1 point
  18. أخي هاني افتح النموذج واختار السنة التي تريد وانظر للجدول تحياتي فصل الاسم وتاريخ الميلاد.rar
    1 point
  19. اخي الكريم لكي لا تفهم بالغلط انا ما عملت شي للوحدة النمطية فقط في استعلام التحديث انا غيرت #01/10/2017# الى "01/10/" & Year(Date()) اي يعني غير الكود من هذا CalcAge3(#01/10/2017#;[birth_date]) الى هذا CalcAge3("01/10/" & Year(Date());[birth_date]) والواحدات النمطية هي نفسه
    1 point
  20. تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مرفق الملف و الشرح فورم ادخال بيانات بسيط.rar و لا تنسونا من صالح الدعاء تحياتى
    1 point
  21. اخى الحبيب ممكن ترفع القاعدة لعد ضغطها على اى موقع لرفع الملفات مثل ميديا فاير او فورشيرد اضم صوتى لاخى واستاذى الحبيب شيفان
    1 point
  22. اتفضل اخي الكريم فصل الاسم وتاريخ الميلاد (1).zip
    1 point
  23. اسف انا عملت تاريخ الولاده‌ مع تاريخ اليوم هسه‌ راح ارجع لك ان شاء الله مع المطلوب
    1 point
  24. انت عملت شي كبير يا استاذ sandanet شكرا كثيرا شوف المشاركتي السابقه‌ هل هو المطلوب
    1 point
  25. عفوا منك استاذ sandanet على التدخل اتفضل سيد haniameen شوف هذا هل هو ماتريد فصل الاسم وتاريخ الميلاد (1).zip
    1 point
  26. اخي الكريم احرص على اختيار عنوان مناسب يصف الموضوع .. حتى لا تعرض موضوعك للغلق تم تعديل العنوان
    1 point
  27. تمام هل جربت ذاك الكود بعد الصق ذاك الكود في محرر فيجوال بعد تحديث كومبوبوكس اختيار المشرف
    1 point
  28. اجعل الكود الخاص بك هكذا: Total: DCount("ID","main","sex ='انثى' And age between 1 And 5")
    1 point
  29. ربنا يبارك فيك ... عندي سؤال طبعا انت بتسال هذا السؤال عشان تعمله على برنامج انت عامله وخايف عليه هل افدتنا بمعلومه فذه من معلوماتك التي جعلتك تخاف على برنامج .. اريد ان اتعلم ليس الا
    1 point
  30. أيها الأفاضل توصلت إلى ما أريد ( بفضل الله ) ، ثم بالاستفادة من كود أخي أبي البراء لكن بطريقة بدائية ومعوجة فلو تفضل أحد أخواني بإعادة تنسيق وتقويم هذه الطريقة لتصبح أكثر احترافية خلايا متغيرة2.rar
    1 point
  31. اخي هاني اعتقد ان هنالك سوء فهم من حضرتك فحقل ال age هو لحساب عمر الشخص كرقم يعني اذا كان مواليد شخص ما في حقل birth_date هو 2010/2/21 فان عمره سيكون 2017/2/21 - 2010/2/21 ويساوي 7 سنين وهذا الناتج يوضع في حقل age عندما يسألك شخص ما عن عمرك فانك ستجيبه بان عمرك 30 سنة مثلاً وليس 30 سنة وستة اشهر وواحد وعشرين يوم تحياتي
    1 point
  32. استخدم هذا الكود لعل بها المطلوب وغير MYTABLE باسم جدول المشرفين DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.OpenTable "MYTABLE", acViewNormal, acAdd DoCmd.RunCommand acCmdPaste
    1 point
  33. اخي هاني العمر محسوب باليوم والشهر والسنة .. ارجو منك التأكد جيداً تحياتي
    1 point
  34. الإخوة الكرام وجدت هذا الحل: أضعه هنا تعميما للفائدة: Private Sub Worksheet_Change(ByVal Target As Range) Dim ict1 As Range Set ict1 = Intersect(Target, Range("D18:F86")) If ict1 Is Nothing Then Exit Sub With Application .EnableEvents = False .Undo .EnableEvents = True End With End Sub
    1 point
  35. استعمل هذا الماكرو الصغير Sub Move_sheet() Sheets("Repport").Move After:=Sheets(Sheets.Count) End Sub
    1 point
  36. السلام عليكم الأخ الكريم: ياسر خليل أبو البراء جزاك الله خيرا واتابك الجنة فقد اتبعت نصائحك ونحج معي الأمر مرة أخرى جزاك الله خيرا واتابك الجنة
    1 point
  37. السلام عليكم ورحمة الله تعالى وبركاته اخباركم ايه ... عسى ان تكون على ما يرام ندخل الى الموضوع بسم الله الرحمن الرحيم كنت قد انشأت هذا الموضوع من قبل وهو عن كيفية تثبيت البرامج المصنعة بالاكسس داخل نظام التشغيل ويندوز فى الحقيقة كان الموضوع شيقا الى ان سالنى احد الاخوة كيف يمكن تطبيق ذلك على برامجى فجاوبته بان يقوم بنسخ تلك النماذج باكاوادها واضافة لمساتها الفنيه عليها على حسب ما يحلو لك ثم وضعها داخل برنامجك ومحاولة توفيق الاكواد لتعمل بالشكل المطلوب فى الواقع كان الوضع صعبا واحتمال وجود اخطاء فى ذلك بنسب كبيرة ففكرت كثيرا كيف يمكن انشاء معالج لتركيب نظام التثبيت هذا على اى برنامج اكسس دون الحاجة الى النسخ واللصق فجائت الفكرة الى انشاء ذلك المعالج مع اضافة بعض اللمسات وبعض الخيارات التى قد تفيد اى مبرمج مثلا امكانيه جعل البرنامج ينشئ اكثر من مجلد اثناء التثبيت امكانية حفظ ملفات داخل البرنامج مثلا الايقونات وملفات dll واى شء اخر وحتى قواعد اخرى داخل البرنامج لاستخرجها اثناء التثبيت والاهم من كل هذا هو انه يمكنك تصميم نماذج التثبيت بالشكل الذى تريده ثم استخدامها من قبل المعالج لتركبيها على برنامج والتثبيت من خلالها وعلى هذا الاساس قمت بانشاء صفحة خاصة للبرنامج على فيس بوك تستطيع من خلالها تنزيل قوالب تثبيت خاصة ببرنامج هذا هو الرابط https://www.facebook.com/A2P-1140671855968254/photos/ والان مع شرح البرنامج =================== 1 ) ---------------------- اولا وقبل كل شئ اسمى ههههههه ثانيا والاهم هو البروجرس بار البروجرس بار هذا غير متوفر فى اكسس ثم انى خفت من اخطاء عناصر Activex لو قمت بادراج بروجرس بار فقمت بتصمميم هذا الشريط التفاعلى ليكون لمسة فنية رائعة اتمنى ان تعجبكم من خلال هذا البروجرس اقوم بانشاء جداول التثبيت المؤقت الذى تساعدنى فى التثبيت 2 ) --------------------------- الشروط والاحكام الاهم هنا هو الاسمايلى (الوجه الضاحك ) الذى قمت باستبدال Chekbox به اتمنى ان تستمتعوا 3 ) ------------------- اختيار قاعدة البيانات التى تريد تركيب معالج التثبيت لها 4) ------------------------------ خطوة الفنانين قمت بتفعيل ميزة التصميم لتمكنك من تصميم نماذج التثبيت بنفسك واضافتك لمساتك الفنية عليها او يمكنك تنزيل قوالب التثبيت الخاصة بك من صفحة البرنامج عن طريق رابط التحميل المدرج فى هذا النموذج 5) -------------------------- مرجلة فحص نماذج التثبيت تذكر انه لا يمكنك ادراج اى اكواد داخل نماذج التثبيت التى قمت بتصميمها تذكر انه لا يمكنك تغيير اى من مسمياتها اذا وجد اى خطأ بها سيرفضها البرنامج 6 ) ------------------------ 7 ) -------------------------------------- 8 ) -------------------------- التعريف بالبرنامج الخاص بك وادراج الملفات التى تحتاجه عند التثبيت ليقوم البرنامج باستخراجها اثناء التثبيت فى نفس مجلد التثبيت واخد بالك انت من chekbox دى ههههههههههههه 9 ) ------------------------ تفعيل اكواد التفعيل شفت ال chekbox هههههههههههه سارقها من موبايلات سامسونج هههههههه اسم المجلد الذى سيتم التثبيت فيه اسم البرنامج الذى سيظهر فى قائمة ابدأ واختصار سطح المكتب مسار الحفظ وهو المسار الذى سيتم حفظ البرنامج فيه بعد تركيب المعالج له نماذج التثبيت 10) --------------- الشروط والاحكام الذى سيوافقع عليها المستخدم لاتماام التثبيت قد تحتاج من برنامجك اثناء التثبيت انشاء مجلدات اضافية قم بتفعيل الخاصية وكتابة اسماء المجلدات مع مراعات الرموز الذى لا يجب استخدامها فى اسماء المجلدات 11) ------------------------ مرحلة التثبيت والان مع البرنامج البرنامج حتى الان لنسخ اوفيس فوق 2003 فى انتظار ارائكم
    1 point
  38. السلام عليكم ورحمة الله تعالى وبركاته اعتقد ان هذا عقاب من الله لى لتحفظى الشديد على اخفاء الاكواد ولكن والله ما قمت بتحويل القاعدة الى accde لاخفاء الاكواد عنكم ولكن حولتها حتى استمع الى ملاحظتكم حول البرنامج ثم اقوم بالتعديل عليه بنفسى ولكن استغفر الله على سوء نيتى الغير مقصودة هذا هو المعالج مفتوح المصدر ... ويمكنك استخدام نماذج التثبيت المدرجة فى المشاركة الاولى
    1 point
  39. اتفضل كما تريد Picture (1).rar
    1 point
  40. وعليكم السلام لأني انا اثرت الموضوع ، فراح ادلو بدلوي بإختصار 1. الخطأ A problem occured while MyDB was communicating with the OLE server or Active X Control احد اسبابه هو لغة الكمبيوتر ، وهذا رابط ماكروسوفت يشرح الموضوع http://support.microsoft.com/kb/907337/ar وببساطة ، اذا عملت برنامجك وفي VBA حروف عربية (UniCode) او اسم احد الكائنات او اسم الحقول او اسم المسميات في النماذج و.... ، الآن اذا اراد شخص لا يملك اللغة العربية في كمبيوتره (يعني لا دعم للعربية او Fonts) ، فكيف سيتعامل مع حروف برنامجك؟ لذلك ، يظهر لك الخطأ ، وعلشان تصلحه: أ. يا انك تنصب اللغة ، ب. تحذف اي مسميات غير انجليزية من برنامجك ، وهذه الطريقة الافضل ، لأن الحروف العربية تقلب الكود سواء في VBA او فالاستعلام او في اي مكان تكتب فيه كود. 2. صيغة التاريخ: معظم العرب يستخدمون صيغة dd/mm/yyyy ، لهذا السبب نستخدم هذه الصيغة في عرض التاريخ في النماذج والتقارير و... ، ولكن عندما يريد ان نستخدم صيغة التاريخ في كود ، ستلاحظ ان الاكسس لا يحترم صيغتك ، وانما يستخدم صيغة التاريخ في الوندوز ، وما دمنا على موضوع التاريخ ، فالحقيقة ان صيغة التاريخ في الاكسس هو بضيغة امريكية mm/dd/yyyy ، بغض النظر عن الصيغ الاخرى ، وبعد معاناة طويلة معه في الكود (لا تنسى ، ان برنامجك الاكسس سيعمل على كمبيوترات مختلفة ، والكثير منها لم يتم تغيير صيغة التاريخ فيه ، فالكود لن يعمل بطريقة صحيحة الى ان رأيت الوحدة النمطية في المادة رقم 2 في الرابط http://allenbrowne.com/ser-36.html للمبرمج Allen Browne ، وبها والحمدلله ما عندي مشاكل جعفر
    1 point
  41. اخى صلاح كل ما اعرفه حول هذا الموضوع ان كلا الامتدادين يضمن ويسمح باستخدام vba ----------------------------------------- وان excel binary يقلل من حجم الملف ----------------------------------------------------- والله اعلم
    1 point
  42. لم ارى اشخاص كثر بهذه المواصفات الرائعة التي بك شكرا ودت بود
    1 point
  43. إخواني السلام عليكم ورحمة الله لو سمحتوا ابي أعرف طريقة عمل شريط معلومات متحرك في نموذج بحيث ادخل المعلومة وتظهر في الشريط
    1 point
×
×
  • اضف...

Important Information