البحث في الموقع
Showing results for tags 'رسالة'.
تم العثور علي 14 نتائج
-
السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻 يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁 استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية . من مميزات هذه الرسائل: - تصميم جميل وألوان جذابة. - خاصية ذاتية الاختفاء. - عنوان رئيسي + عنوان فرعي - تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار) - سهلة الاستخدام . الشرح على اليوتيوب : التحميل 🙂 Moosak MsgBox.accdb ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹
- 33 replies
-
- 12
-
-
-
بسم الله الرحمن الرحيم بناء على طلب أخينا الكريم عبد الله المجرب (أبو أحمد) يتم هنا مناقشة دالة الرسائل التي تظهر لمدة محددة بالثواني ثم تختفي تلقائياً الصيغة العامة لها 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 ان تخرج رسالة تخبرني ان العميل فلان اقترب من السداد وباقي عليه مبلغ ..... واذا كان هناك كود معين أين يوضع ؟؟ وهل يوضع قبل التحديث ام بعد التحديث ؟؟ يعني مثلا if x2 < 10 then msgbox "هذا العميل اقترب من السداد " x2 هي المطان الذي نضع عليه الكود وه ويمثل باق يالمبلغ المطلوب من العميل جزاكم الله خيرا
-
السلام عليكم احبتي الكرام احبتي دوما عندما انسخ قاعده لازام اضغط علي تمكين المحتوي كيف الحل لعدم ظهورها عند نسخ اي قاعده تحياتي
-
الأخوة الأعزاء ...... السلام عليكم ورحمة الله وبركاته كل عام والجميع بخير وسلام سؤالى فى المرفق برنامج عند الضغط على أى زر به تظهر لى الرسالة المرفقة ولا يفتح البرنامج ....... لماذا
-
السلام عليكم ورحمة الله وبركاتة هل بالامكان ارسال ايميل من الاكسس مرفق به ملف ورد او بي دي اف ؟
-
السلام عليكم هل من الممكن ان ترسل كلمة المرور من اكسس إلى ياهوو ؟ ربما عندي كثير مستخدمين ، و ربما واحد مستخدم نسيت كلمة المرور ، أنا اريد اربطها مع ياهوو ، لما نسيت كلمة المرور سوف يدخل اسم المستخدم و ياهوو الخاص به اكسس سوف يرسل كلمة المرور خاص به إلى ياهوو علما كلمة المرور = 12345 علما ياهوو مربوط مع الانترنت ، إذا ما عندي انترنت لا استطيع استخدم ياهوو ، لكن اكسس يشتغل بدون انترنت هذه الرابطة Database6.rar
-
نظرا لعدم تلقى السادة الاخوة المشرفين أية رسائل عبر المنتدى اتقدم بخالص الشكر والعرفان للسيد الاستاذ / حماده عمر " ابوسما " لوعده بحل مشكلتى المطروحة على الرابط وإن كان هناك عتاب اخى الفاضل وهو عتاب بين الاحبة ياأخى الفاضل**** ياأبو سما**** إعطينى فرصة اقول لك فيها كلمة شكر لاهتمامك بحل المشكلة حتى ولو بكلمة " جزاكم الله خيرا " لوعدكم الحر ومن بعدها إغلق الموصوع كما تشاء عموما انا فى انتظار حل المشكلة كما وعدت سيدى الفاضل شاكر فضل حضرتك **** وجزاكم الله خيرا -
السلام وعليكم ورحمه الله وبركاته الاخوة الزملاء واساتذة اكسس انا بداية مع اكسس بداية جديدة يعني مبتدى وكنت اطبق درس للاستاذ الكبير سيد بدران بارك الله في عمره وجزاه الله الف خير لكن ظهر بعض المشاكل رغم ان اتبعت الخطوات بشكل صحيح وسوف ارفق لكم الصور واتمنى مساعدتكم لي لتجاوز رسالة الخطاء وبارك الله فيكم وكل عام وانتم بخير وصحة وعافية للمعلومية انا اعمل على ويندوز 10
-
السلام عليكم ورحمة الله وبركاته كيف حال الاخوة الاعضاء و المشرفين اريد ان اعرف كيف اعمل فورم تاكيدي لعمل اكمر معين مثال عند كبس العميل لزر حذف تظهر له رساله " هل انت متاكد من حذف الفاتووره " اذا اختار "نعم" يطبق الامر و اذا اختار "لا" يختفي فورم الرسالة مع كامل تحياتي
-
السلام عليكم ورحمة الله وبركاته اعضاء منتدانا الكرام هذه محاولة لعمل رسالة تلميحية لخلية بالاكواد ارجوا ان تنال اعجابكم. اعلم انه يمكنك عملها عن طريق اضافة تعليق و لكن هذه محاول عبر الكود بحيث يظهر التلميح عند اختيار الخلية المناسبة. الفكرة هى وضع شكل Shape و تنسيقه و من ثم تسميته بما تشاء (اسميته هنا بـ CellTip) بعدها يمكنك التحكم به كما في الكود التالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With ActiveSheet.Shapes("CellTip") If Not Intersect(Target, Range("B3:D12")) Is Nothing And Target.Count = 1 Then .Top = Target.Top + 20 .Left = Target.Left With .TextFrame2.TextRange.Characters Select Case Target.Column Case 2: .Text = "الاسم الأول متبوع بأسم العائلة" ' B = الاسم Case 3: .Text = "العمر بالسنوات" ' C = العمر Case 4: .Text = "عنوان الاقامة الحالي" ' D = العنوان End Select End With .Visible = True Else .Visible = False End If End With End Sub لمزيد من التوضيح انظر الملف المرفق. الحمد لله وحده الذي بنعمه تتم الصالحات Cell Tip.zip
-
عند حفظ ملف من إصدار 2003 إلى 2013 تظهر هذه الرسالة عند كل فتح كيف يمكن التخلص من هذه الرسالة
.jpg.6b5b04b6d0e997a1ee3fcaf41ad47cc8.thumb.jpg.069585fc00dc3cb0ad9ccc5d0a5fa12f.jpg)
