أبو هادي

السلام عليكم لازالت المشكلة قائمة : وتم اختبارها من جديد بعد التالي : تحياتي .

السلام عليكم لقد شخصت المشكلة وهي تحدث فقط عندما يقل عرض الأداة عن 6.429 سم . تحياتي .

السلام عليكم Private Sub Form_Open(Cancel As Integer) Me.MagicText0.Text = "وَبَشِّرِ الَّذِين آمَنُواْ وَعَمِلُواْ الصَّالِحَاتِ أَنَّ لَهُمْ جَنَّاتٍ تَجْرِي مِن تَحْتِهَا الأَنْهَارُ كُلَّمَا رُزِقُواْ مِنْهَا مِن ثَمَرَةٍ رِّزْقاً قَالُواْ هَـذَا الَّذِي رُزِقْنَا مِن قَبْلُ وَأُتُواْ بِهِ مُتَشَابِهاً وَلَهُمْ فِيهَا أَزْوَاجٌ مُّطَهَّرَةٌ وَهُمْ فِيهَا خَالِدُونَ" End Sub تحياتي .

السلام عليكم أخي مهند عبادي .. لقد قمت بوضع الأداة فقط في نموذج وعينت لها قمية جديدة عبارة عن آية طويلة فلم يفتح معي النموذج وكأنما دخلت في Loop لا نهاية له حتى أضطررت أن أغلق الأكسس عن طريق الـ End Task . تحياتي .

السلام عليكم الأخ حسام نور .. بارك الله فيك ، برنامج جميل جدا . تحياتي .

السلام عليكم ويمكن اختصارها كالتالي : لتحويل الـ Null إلى "" : myVar = Nz(Me.textBox1) لتحويل الـ Null إلى صفر : myVar = Nz(Me.textBox1,0) تحياتي .

السلام عليكم من موقع www.BazarSoft.com تستطيع إنزال نسخة ديمو لبرنامج محاسبة ومخازن و .. الخ ، يمكن من خلاله الحصول على أكثر من دليل محاسبي مقترح عن طريق البرنامج . قد يكون مفيدا . تحياتي .

السلام عليكم هنا الخدعة :d عند اختيار صفحة انقر مرة أخرى على رأس الصفحة أي اسمها حتى ترى أنه تم تحديد اسمها بمستطيل منقط . الآن فقط كل ما تعمله سوف يكون خاص لهذه الصفحة . تحياتي .

السلام عليكم وللحصول على نتيجة الإختصار بالكود .. في حد DblClick أكتب التالي : SendKeys "^(')", True تحياتي .

السلام عليكم الأخ مهند عبادي .. لقد عمل معي الإختصار الآن وكنت سابقا أطبقه بشكل خاطئ باعتقاد أن "+" من ضمن الإختصار :d تحياتي .

السلام عليكم شكرا لكل من : سامي زغلول ابن مسقط مهند عبادي محمد طاهر على مشاركتهم الكريمة وعلى تفضلهم بإبداء آرائهم . كما أشكر كل من تكرم وقام بإنزال المثال . كان من المفترض أن أبدأ بتوضيح سبب الحصول على السجل الأخير ولكني كالعادة لا أوفي المواضيع حقها في الشرح والتفصيل . عموما كثير هم من مدخلي البيانات الكثيرة يلاحظون تشابه في أكثر حقول السجلات أثناء الإدخال فيضطروا إلى إعادة إدخال كل البيانات مرارا متعددة مما يتسبب في ضياع الوقت وهذه العملية سوف تختصر عليه المسافة كثيرا فعند اللصق ما عليه إلا القيام بتعديل القليل من الحقول . على كل ملاحظة الأخ الأخ سامي زغلول ممتازة ولكنها بعيدة عن هذه الفكرة وتحتاج إلى إجراءات أطول . أما ملاحظة الأخ ابن مسقط فقد قمت بعمل نسخة من الكود القديم وتم التعديل عليه ليناسب مطلبه ويمكن اختبارها عن طريق حقل Name . الأخ مهند .. الاختصار هو Ctrl+' لم يعمل معي هذا الإختصار ، هل لك أن تشرح عنه أكثر وفي أي نسخة يتوفر ؟ . تحياتي . GetLastRecord.rar

السلام عليكم لاحظت أكثر من مرة طلب نسخ بيانات السجل الأخير ولصقه في سجل جديد ، وقد توصلت إلى طريقة بسيطة قد تكون حلا كافيا لهذا الموضوع . لاختبار المثال .. انقر نقرا مزدوجا Dbl Click على حقل الهاتف Telephone . كما يمكن طلب الإجراء باستخدام نفس الحدث لكل الحقول أو من زر في حالة وجود نموذج رئيسي وآخر فرعي . بانتظار تجاربكم وآرائكم . تحياتي . GetLastRecord.rar

السلام عليكم أخي العزيز مصلح الحريصي .. لم آخذ في خاطري ولكني أردت تنبيهكم في استقطاب كل المشاركين حتى ولو كانت مشاركته بسيطة بدلا من نفورهم أو عزوف الكثير منهم . أخي العزيز لقد أرسلت لك رسالة خاصة . أخي مصلح ذكرت الشاهي ولم تذكر نوعه :d تحياتي .

السلام عليكم شكرا لأخي فتى الوادي . وشكرا لأخي أشرف . كما أحب أن أنوه أنه لابد من : أن لا يقل طول الحقل عن 10 حروف . تحياتي .

السلام عليكم تراني لما وضعت مشاركتي لم أكن غلطانا باختيار الموضوع :d وأيضا لم تكن من باب الدعاية لمواضيعي :lol: ، حتما هناك سبب . وفقكم الله جميعا . تحياتي .

السلام عليكم يمكن التعديل باستخدام استعلام تحديث حسب المرفق . تحياتي . NewZeroCorrect.rar

السلام عليكم تقويم أم القرى والتقويم الهجري نموذج التقويم ( النتيجة ) أداة لإدخال تاريخ أم القرى تحياتي .

السلام عليكم أحسنت أخي ابومؤنس وبارك الله فيك وفي علمك . تحياتي .

السلام عليكم أخي ابومؤنس ، لقد وردت كلمة صفيف في ردودك فهل هي نفس معنى مصفوفة (Array) أم أنه مصطلح خاص بالأكسل؟. تحياتي .

السلام عليكم لا أعرف طريقة لذلك ولكن هناك طريق لتظليل لمرة واحدة فقط باستخدام التالي : SelStart لتحديد بداية التظليل . SelLength لتحديد طول التظليل . تحياتي .

السلام عليكم سجلات إسم مستعار "Alias" لحقل التاريخ ويمكن تبديله مثلا بإسم مستعار آخر كـ "عدد السجلات" أو تركه بدون إسم مستعار بعد حذف كلمة "سجلات:" . الأخ نشوان .. أنا آسف لم أفهم سؤالك ، لو توضح أكثر . تحياتي .

السلام عليكم جرب هذا السطر بدون كلمة Format : Greg2Um(Day([Text1]),Month([Text1]),Year([Text1])) تحياتي .

السلام عليكم لا بأس ، تم التعديل على المثال . تحياتي . db7.zip

السلام عليكم تحياتي الخالصة لأخي ابومؤنس . بغض النظر عن فصل الكسر عن الرقم وللتخلص من العبارة المذكورة يمكن استخدام المعادلات التالية وهي مثال لمحاولة قسمة 1000 على قيم A1 : =IF(OR(A1="";A1=0);0;1000/A1) أو =IF(VALUE(A1)=0;0;1000/A1) تحياتي .

السلام عليكم 151 سنة لأم القرى عن طريق : كود في الوصلة التالية : http://www.officena.net/ib/index.php?showt...557&hl=أم+القرى ونتيجة في الوصلة التالية : http://www.officena.net/ib/index.php?showt...726&hl=أم+القرى تحياتي .