مربع الرسالة تكفون ياجماعة

انظر مثالا على الوصلة التالية

http://mypage.ayna.com/harith55/Quit-1.zip

(انقر بالزر الأيمن واختر حفظ باسم)

ولا تتعب نفسك ولا تزعل أبدا هذا برنامج أكتب به ما تريد من رسائل وضعها بكل سهولة على الأكسيس .

http://mypage.ayna.com/ashrafk/msgbuilder_zip.exe

الأخ الحارث أنت الحارث بتاع زمان عودة حميدة إن شاء الله .

أشرف خليل

الاخ الفاضل اشرف

البرنامج اكثر من رائع ولكن بقي ان نعرف كيف ننقل ذلك على الاكسس وشكرا

أخي أبو غدير :

بعد كتابة العنوان والرسالة يوجد زر على اليمين رقم (2) مكتوب عليه copy اضغط عليه ستجد أن البرنامج قد قم بالتصغير تلقائيا بعدها إذهب إلى مكان وضع الرسالة على الأكسيس واضغط Ctrl+v أو الصق بأي شكل تعرف ... فقط لا غير

أشرف خليل

الأخ أشرف : وفقك الله إلى كل خير

البرنامج رائع جدا ، ويوفر الكثير من الوقت

ولدي سؤال : هل يمكن الاستفادة من هذا البرنامج في الرسائل الشرطية التي نكتبها عادة مبتدأة بالعبارة

If MsgBox . . . .

أم أن هذا يكتب يدويا ؟؟

شكرا أخي حارث

هذا البرنامج للرسائل العادية فقط دون الشرطية .

أشرف خليل

الاخ اشرف شكرا وجزاك الله خيرا

السلام عليكم

بالنسبة للبرنامج الذي وضعه أشرف مشكورا

اختار

Function

فيكتب لك صيغة الجملة الشرطية

انا يمكنني أن أجيبك أيضا يا أشرف عن سؤالك هل حارث 77 هو حارث السابق و الاجابة نعم ( لاحظ اسم صفحة أين الخاصة به - نفس الاسم السابق );) ;)

و نحن سعداء بعودتك يا أخ حارث و عودة مشاركاتك و نرجو الا تغيب عنا ثانية (f)

شكرا يا بو حميد

أشرف خليل

لدي سؤال حول الرسالة الشرطية ذات الثلاثة خيارات ، مثل :

vbYesNoCancel

كيف أجعل لكل من هذه الخيارات حدثا

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

vbYesNo

يكفي أن أستخدم

Else

لكن في حالة الثلاث خيارات ، ماذا أكتب ؟

السلام عليكم

Dim x As Variant
x = MsgBox("TTTT", vbYesNoCancel, "GGGGG")

If x = vbYes Then
 MsgBox "ok"
ElseIf x = vbNo Then
 MsgBox "NO"
ElseIf x = vbCancel Then
 MsgBox "Cancel"
End If

ما قصرت

جزاك الله خير