أ / محمد صالح

بدون مجاملات هل استفدت من هذه السلسلة؟! وهل تود أن يتم استكمالها وشرح التبويبات والأوامر الموجودة بها واحدا بعد الآخر؟! في رعاية الله

حفظكم الله من كل سوء دائما أنتم في قلوبنا حتى وإن باعدتنا شواغل الحياة شكرا لمرورك الكريم وإياكم أستاذ حمادة وفقكم الله وسدد خطاكم شكرا لمرورك الكريم أستاذ محمود بالتوفيق للجميع في كل خير

بسم الله الرحمن الرحيم لكل الأعضاء الجدد والقدامي أقدم هديتي المتواضعة قائمة فيديوهات لأساسيات الإكسل ومازالت السلسلة لم تنته بعد بإذن الله تعالى نكملها إلى الاحتراف هذا الجزء الأول منها وأنصح بمشاهدتهم جميعا وبهدووووء ولا ننتقل للحلقة التالية إلا بعد التطبيق والمراجعة تشجيعكم يدفعنا للاستمرار كيف يشجع العضو صاحب القناة أو المنشور؟ بعمل لايك للحلقة والتعليق ولو بكلمة ومشاركة المحتوى على صفحات التواصل الاجتماعي #اللهم_علمنا_ما_ينفعنا_وانفعنا_بما_علمتنا وفقنا الله جميعا لكل ما يحبه ويرضاه

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته بناء على رسالة من أخي الفاضل / محمد طاهر واعتماد طريقة جديدة وبسيطة في التفكير بصورة عملية ربما يفيدكم هذا الملف بإذن الله وفقنا الله وإياكم لكل ما يحب ويرضى حذف الصفوف والأ‘عمدة بالكود.rar

اللهم اغفر له وارحمه رحمة واسعة وأسكنه الفردوس الأعلى حق ما قدّم في خدمة إخوانه وأحبابه على مستوى العالم دون تمييز بينهم وبخالص الود والكرم إنك ولي ذلك والقادر عليه

وإياك أخي الكريم الشرف لي ويسعدني انضمامك وانضمام كل من يهمك أمرهم يوجد في وصف الفيديو رابط للموضوع ورابط للملف المستعمل في الفيديو وفيك بارك أخي الكريم وفقنا الله وإياكم لكل ما يحب ويرضى

جرب هذا الفيديو

العلامة / علامة قسمة عادية تظهر ناتج القسمة صحيح وعشري مثلا 7/2=3.5 والعلامة \ علامة ناتج القسمة الصحيح مثلا 7\2=3 وهي عكس الدالة mod والتي تعطي باقي القسمة mod(7,2)=1

نعم هي من تأليفي فبعض الأوقات تجود قريحتي ببعض الشعر والزجل وفقنا الله لكل ما يحب ويرضى

آمين يا رب العالمين

أكرمك الله أستاذ قنديل

لتطبيق دالة Int على النموذج يمكنك الدخول على تصميم النموذج وفي خاصية record source مصدر السجل عدّل الاستعلام ليصبح حقل x x: Int([dnr]/[s2r]) وإذا لم يكن الحقل المطلوب هو x يمكنك عمل نفس التعديل على أي حقل تريده ثم احفظ التغييرات في الاستعلام وفي تصميم النموذج

كلمة بدون كسور غير واضحة هل تعني بدون كسور مع التقريب مثلا 2.3 تصير 2 وكذلك 2.6 تصير 3 أو بدون كسور وبالتقريب لأسفل مثلا 2.3 أو 2.6 تصير 2 أو بدون كسور وبالتقريب لأعلى مثلا 2.3 أو 2.6 تصير 3 يفضل توضيح المطلوب تماما وتحديد الحقول التي سيتم التعامل معها في الملف

أعتقد أنه لا توجد امكانية في الأكسس لاعتماد نظامي تقويم في نفس الوقت والحل في ذلك يمكنك اختيار نوع التقويم في بداية تسجيل كل تاريخ ولا تقلق من تحويل التاريخ المكتوب بالميلادي إلى الهجري أو العكس باستخدام الأمر التالي Private Sub Text69_GotFocus() Application.SetOption "use hijri calendar", True End Sub Private Sub Text71_GotFocus() Application.SetOption "use hijri calendar", False End Sub في حدث عند امتلاك التركيز

تفضل أخي الكريم لاحظ كود زر عودة أصبح لإغلاق النموذج وليس الخروج من الأكسس لاحظ مصدر التقرير ستجد أنه تم إضافة معيار لقراءة رقم ىالطالب من النموذج المفتوح لاحظ كود فتح التقرير الأول في نموذج التقارير ويمكنك تنفيذ نفس الخطوات مع باقي الأزرار StudentsRegister1.rar

الإعدادات الإقليمية تخص الويندوز حاول تضيف اللغة العربية في الويندوز التركي يعني لوحة المفاتيح تكتب عربي وتركي وانجليزي مثلا وحاول من تبويب administrative أو الإدارة استعمال اللغة العربية كلغة الترميز Unicode يا ريت تصور الرسالة

ربما تحتاج لترقية المتصفح الخاص بك لأحدث إصدار لا يوجد مشاكل معي

يا ريت توضح أكثر ما المشكلة؟ مع العلم أن أي نسحة ويندوز يمكن إضافة لغات تحرير لها

بسم الله السلام عليكم ورحمة الله وبركاته أحبابي في الله بفضل الله انتهت التجربة بنجاح في استعمال موقع http://www.batelcosms.com.bh/ لإرسال رسائل sms في دولة البحرين الشقيقة وهي خدمة مدفوعة الأجر تم التوصل لكود يقوم بفتح موقع الشركة وإرسال الرسالة منه باستعمال بيانات المستخدم المزودة من الشركة ووضعها في الكود الكود يحتوي على إجراس الإرسال ودالة لتحويل نص الرسالة للترميز العالمي الموحد utf8 هذا هو الكود لمن يريد إرسال رسائل باستخدام نفس الشركة في الأكسس أو الإكسل Sub sndSMS() customerID = "" UserName = "" userPassword = "" originator = "" MessageType = "ArabicWithArabicNumbers" 'Latin, ArabicWithArabicNumbers, ArabicWithLatinNumbers recipientPhone = "" smsText = "" sURL = "http://www.batelcosms.com.bh/bms/Soap/Messenger.asmx/HTTP_SendSms?customerID=" & customerID & "&userName=" & UserName & "&userPassword=" & userPassword & "&originator=" & originator & "&smsText=" & UTF8Encode(smsText) & "&recipientPhone=" & recipientPhone & "&messageType=" & MessageType & "&defDate=" & Format(Now() - TimeValue("04:00"), "yyyymmddhhnnss") & "&blink=0&flash=0&Private=0" Set oh = CreateObject("Microsoft.XMLHTTP") oh.Open "get", sURL, False oh.send If InStr(oh.responseText, "OK") > 0 Then MsgBox "Message sent." Else MsgBox "Error." End If Set oh = Nothing End Sub Function UTF8Encode(ByVal sStr As String) As String Dim i As Integer Dim thisChar As String Dim sUtf8 As String For i = 1 To Len(sStr) thisChar = AscW(Mid(sStr, i, 1)) If thisChar < 128 Then sUtf8 = sUtf8 + Mid(sStr, i, 1) ElseIf ((thisChar > 127) And (thisChar < 2048)) Then sUtf8 = sUtf8 + Chr(((thisChar \ 64) Or 192)) sUtf8 = sUtf8 + Chr(((thisChar And 63) Or 128)) Else sUtf8 = sUtf8 + Chr(((thisChar \ 144) Or 234)) sUtf8 = sUtf8 + Chr((((thisChar \ 64) And 63) Or 128)) sUtf8 = sUtf8 + Chr(((thisChar And 63) Or 128)) End If Next i UTF8Encode = sUtf8 End Function ومرفق الكود في ملف إكسل وفقنا الله وإياكم لكل ما يحب ويرضى Mas_Send SMS.rar

جاري التواصل مع الحبيب عبد الله (أبو أحمد) بخصوص إرسال رسائل sms من خلال الأكسس وسيتم وضع الكود بعد تجربته ونجاح التجربة بإذن الله

حقا من لم يشكر الناس لم يشكر الله فجزى الله الباشمهندس محمد طاهر خيرا على تطويره الدائم للمنتدى ولفريق العمل الذي لا يبخل بما علم على كل طالب علم اللهم وفقنا جميعا لما فيه خير الدنيا والآخرة

بسم الله يا جماعة الخير تم ترقية المنتدى للإصدار الرابع وهو الأفضل من حيث الشكل والأمان والإمكانيات ولكن ينقصنا بعض الصبر حتى يتم ضبط كل ما هو غير منضبط وستجدون بعدها أن الجديد هو الأفضل بإذن الله

مبروك الترقية وأنا من المرحّبين بالتطوير وهذه ملاحظاتي حتى الآن: روابط الفيديو من يوتيوب لا تعمل وتظهر كنص عادي النسخة رائعة على الموبايل والتابلت وأنصح الزملاء بعدم التعجل في الحكم على الإصدار الجديد