بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'vba'.
تم العثور علي 107 نتائج
-
السلام عليكم و رحمة الله و بركاته اريد ان اظهر رسالة خطأ يكون فيها عدة سجلات Array ارجو المساعدة Dim rSEL, rSUM, rDes As DAO.Recordset Dim vItem_id, vQnty, vSum As Integer Dim vDes As String If Not IsNull(itemId) And Not IsNull(qnty_in) Then If qnty_in <= 0 Or qnty_in > balance Or IsNull(balance) Then Cancel = True End If Set rSEL = CurrentDb.OpenRecordset("SELECT item_id,item_qnty FROM basketQnty_tbl WHERE basket_id=" & basketId) 'Check to see if the recordset actually contains rows If Not (rSEL.EOF And rSEL.BOF) Then rSEL.MoveFirst Do Until rSEL.EOF 'Save itemId into a variable vItem_id = rSEL!item_id vQnty = (rSEL!item_qnty) * qnty_in Set rSUM = CurrentDb.OpenRecordset("SELECT sum(qnty_in*qnty_type) as QN FROM sales_tbl WHERE itemid=" & vItem_id) Set rDes = CurrentDb.OpenRecordset("SELECT itemDesc FROM items_main WHERE itemId=" & vItem_id) vSum = rSUM!QN vDes = rDes!itemDesc 'Move to the next record. Don't ever forget to do this. If vQnty > vSum Then MsgBox "لديك فقط ( " & vSum & " ) من مادة ( " & vDes & " ) في المستودع" Cancel = True End If rSEL.MoveNext Loop End If rSEL.Close End If ArrayQT.rar
-
السلام عليكم احتاج الى مساعدتكم بتعديل الكود التالي : Sub CopyPriceOver() If Range("A1").Value > Range("B1").Value Then Sheet1.Range("A1").Copy Sheet1.Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Calculate Calculate ElseIf Range("A1").Value < Range("C1").Value Then Sheet1.Range("A1").Copy Sheet1.Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Calculate Calculate End If Call ScheduleCopyPriceOver End Sub ما اريد عمله هو التالي اذا القيمة في الخلية A1 اكبر من القيمة في الخلية B1 فيقوم بنسخ القيمة من A1 الى B1 و اذا القيمة في الخلية A1 اصغر من القيمة في الخلية C1 فيقوم بنسخ القيمة من A1 الى C1 خلية A1 خلية متغيرة فالغرض من الكود هو استخراج اعلى قيمة سجلتها الخلية A1 واستخراج اصغر قيمة سجلتها الخلية A1 اريد الكود ان يقوم بتطبيق العملية على الخلايا A1:A100 فينظر بكل خلية من A1 الى A100 اذا اي خلية في A اكبر من الخلية B يقوم بنسخها الى B واذا اي خلية في A اصغر من الخلية C يقوم بنسخها الى C مثال للتوضيح فقط: نفترض ان الخلية A79 اكبر من الخلية B79 فيجب ان يقوم الكود بنسخ A79 الى B79 نفترض ان الخلية A88 اصغر من الخلية C88 يقوم بنسخ خلية A88 الى الخلية C88 نفترض ان الخلية A45 اصغر من الخلية B45 لا يقوم بالنسخ ولا بمسح الخلية B45 لانها اصغر من A45 وليست اكبر نفترض ان الخلية A99 تساوي B99 او C99 لا يقوم بعمل شي ولا يمسح B99 و C99 ياليت اجد منكم المساعدة ولكم مني جزيل الشكر Test.zip
-
بسم الله الرحمن الرحيم بناء على طلب أخينا الكريم عبد الله المجرب (أبو أحمد) يتم هنا مناقشة دالة الرسائل التي تظهر لمدة محددة بالثواني ثم تختفي تلقائياً الصيغة العامة لها intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) شرح البارامترات object : كائن wscript الذي تم إنشاؤه strText : نص الرسالة (مطلوب) nSecondsToWait : عدد ثواني بقاء الرسالة على الشاشة (اختياري) القيمة الافتراضية 0 وتعني عدم اختفاء الرسالة إلا بعد الضغط على زر فيها strTitle : عنوان الرسالة (اختياري) إذا لم يتم كتايته يظهر "Windows Script Host" nType : رقم يحدد الأزرار والأيقونات المستعملة في الرسالة (اختياري) وترجع الدالة رقم intButton الخاص برقم الأزرار التي ضغطها المستخدم حتى يخفي الرسالة ويهمنا في هذا المقام الأزرار والأيقونات وهي كالتالي وهي مثل دالة msgbox العادية في أنه يمكنك جمع قيمتين أو أكثر سواء بعلامة + أو بكتابة حاصل الجمع الفعلي فمثلا لعمل رسالة بها زر نعم أولا وأيقونة علامة الاستفهام نكتب 4+32 أو 36 نأتي الآن للقيمة التي ترجعها الدالة نأخذ مثالاً set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("This is a popup box!", 10, "Title", 65) ويمكن تنفيذ الأمر بدون وضع القيمة الراجعة في متغير set WshShell = CreateObject("WScript.Shell") WshShell.Popup "This is a popup box!", 10, "Title", 65 ويمكنك استعمال هذه الدالة من تصميمي للتعامل مع popup Function msg(strText As String,nSecondsToWait as integer, strTitle As String, nType As Integer) CreateObject("WScript.Shell").Popup strText,nSecondsToWait,strTitle,nType End Function طريقة استعمالها Sub mas() msg "text", 2, "title", 4+256 End Sub .... وفي الأخير لا ينقصني سوى دعاؤكم وفقنا الله وإياكم لكل ما يحب ويرضى
-
اخواني الكرام بعد التوكل على الله ثم الاستشارة وحسب رغبة بعض الاخوة نبداء على بركة الله هذه الدورة شروط الدورة: تقتصر الدورة على شرح الفيجول بيسك للتطبيقات VBA ولا علاقة للمعادلات بهذه الدورة لذا نرجو ان يقتصر السؤال والاستفسار حول الاكواد فقط. عدم إضافة عبارة الشكر (نشكر الجميع على تقدير الجهود) حتى لا يحتاج الموضوع الى تنقيح فإن أعجبك شرح أو رد يمكنك تقييمه من خيار أعجبني شكراً. ان يكون موعد الاستفسارات حول الجزء المطروح للشرح خلال 24 ساعة فقط ويتم الانتقال الى جزء أخر لتعميم الفائدة. سيكون الشرح بشقين كتابي ومرئي. على الاساتذة الذين يشاركون في الشرح اخذ الشرط الثالث بالاعتبار (مشكورين). * سيتم حذف أي مشاركة لا يتم التقيد فيها بالشروط. == تم نقل جميع مشاركات النقاش الى هنا =============================== دروس الدورة ============================= الدرس الاول1 الدرس الاول2 الدرس الثاني الدرس الثالث الدرس الرابع 1 الدرس الرابع 2 الدرس الرابع 3 اساسيات لغة VBA كلغة برمجة (نظري) الفصل الثالث ج1 الفصل الثالث ج2 اسئلة الدورة (الجزء الاول)
- 213 replies
-
- 22
-
-
بسم الله الرحمن الرحيم ............ والصلاة والسلام على رسولنا الكريم ............ أحببت أن أقدم هدية لأحبابي أعضاء وزوار منتدى أوفيسنا ملتقى مبرمجي الأوفيس العرب المدرسة الأولى التي تعلمت منها اساسيات برمجة الأوفيس وخاصة الإكسل فتوكلت على الله وقمت بعمل أبسط كود لتخفيض أمان الأكسس برمجياً لجميع إصدارات الأوفيس حتى التي لم تصدر منها بعد **************** ولقد تعلمت في هذا الصرح أن المبرمج الحق الذي يؤدي ما هو مطلوب بأقل كود ممكن بل قل بأقل عدد لحروف الكود إن أمكن //////////////////////// وكنت قد أصدرت قبل ذلك ملفات كثيرة صغيرة الحجم جداً وتؤدي مهام كبيرة جداً سميت هذه السلسلة ما خف وزنه وغلا ثمنه كان منها على سبيل المثال القرآن بالصوت والصورة إرسال البريد من الأكسس مباشرة أصغر كود لقراءة وتغيير دقة الشاشة وغيرها الكثير +++++++++++++++++ وأخيرا وليس بآخر أتقدم بالشكر لكل من ساهم في حل هذه المشكلة على كل ما قدموه في هذا المجال //////////////////////////////////////// وبناء على النقاشات الممتعة للإخوة الذين ظهرت معهم رسائل خطأ في بعض الأحيان تم اختصار الكود أكثر مما هو عليه ليصبح سطرا واحداً CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" ........... ويوجد مرفق جديد به الملف بعد اختصار الكود وجعله سطرا واحدا ولا تنسوا أخاكم محمد صالح من صالح دعائكم MasAcessSecurity_mdb.rar MasAcessSecurity2.rar -
بسم الله الرحمن الرحيم تحت شعار كنت قد رفعته سابقا "أتمنى وجود جيل من المبرمجين العرب قادر على الابتكار والمنافسة" أبدأ معكم إخوتي وأحبابي نظرا لما وجدته في الإخوة والأساتذة المهتمين (مثلي) ببرمجة وتصميم المواقع وبرمجة الأكسس والفيجوال بيسك من الاهتمام بالأداة التي تقوم بتحويل قواعد البيانات أكسس إلى ملف sql يمكن استيراده من داخل phpmyadmin ويتم التعامل معه على أنه قاعدة بيانات mysql ونظرا لما لاحظته من الرغبة في عمل البرنامج كمحول لقواعد بيانات mysql المتمثلة في ملف sql وتحويله إلى قاعدة بيانات أكسس توكلت على الله واستعنت به على قضاء حاجتي وحوائج إخواني وأخواتي واليوم أعرض لكم برنامج محول الماس لقواعد بيانات أكسس و ماي إس كيو إل (الإصدار الأول) حيث يحول البرنامج قواعد بيانات أكسس إلى mysql بمجرد الضغط على الزر واختيار قاعدة البيانات المطلوب تحويلها ويقوم أيضا بتحويل ملف sql إلى قاعدة بيانات أكسس وبها الجداول والسجلات الموجودة في ملف sql وبانتظار ملاحظاتكم واقتراحاتكم لتطوير هذه الأداة حجمها 208 كيلو بايت التي تقوم بعمل برنامج DBConvert for Access & MySQL والذي ثمنه 79 دولار وحجمه 17.5 ميجا بايت تقريبا وهذه صفحته وفقنا الله وإياكم إلى كل ما يحبه ويرضاه أخوكم أبو عبد الله محمد صالح mas-access&mysql-converter.rar
-
هل ترغب بوضع ساعة في ورقة العمل الخاصة بك؟؟ يتم تحديثها كل ثانية مثل ساعة النظام تماما الحل تجده في المرفق لا تنسوا أخاكم محمد صالح من صالح دعائكم clock.rar الإصدار الأحدث ويوجد في المشاركة 14 من الموضوع clock3.rar والآن تم تطوير الملف بصورة أكثر احترافية ليعرض ساعة رقمية وساعة عقارب وإذا رغب أحبابي في الله يتم شرح فيديو للطريقة وخصوصا الساعة العقارب لا تحكم في رغبتك لعمل شرح إلا بعد مشاهدة هذا المرفق mas digital and analog clock.rar
