نجوم المشاركات

بسم الله الرحمن الرحيم إخوتى فى الله السلام عليكم ورحمه الله وبركاته أقدم لكم اليوم هدية متواضعه من أخيكم الفقير لله ثمينه المضمون التفسير الميسر للقرآن الكريم كاملا فى اكسل أسأل الله عز وجل أن يتقبلها خالصه لوجه الكريم وأتقدم بخالص الشكر والتقدير لكل من تعلمت منه حرفا وأدعو الله لهم أن يحفظهم من شرور خلقه أجمعين وللجميع حق نشرها وتقبلوا منى وافر الاحترام والتقدير التفسير الميسر .rar

الكثير منا يلجأ لاستخدام التبويب في النماذج ولكن مشكلة هذه التبويبات كلها تكون بنفس لون الخلفية فإليكم الفكرة التالية منقول من احد المواقع الاجنبية ( تم تعريب بواسطتي ) انظر المرفقات Colored Tabs.rar

برنامج نظام الوثائق : إضافة - تعديل - حذف - بحث - تقارير لأخي الفاضل وأستاذنا أبوعبدالله اقترح الاخ ابو شرف في مشاركته في موضوع برنامج الوثائق مع التقدم الرقمي باضافة صور الوثائق مع الفورم لذلك وبعد اذن اخي ابوعبدالله صاحب الموضوع الاصلي قمت بتعديل بسيط علي برنامج نظام الوثائق ليشمل صور الوثائق الحماية (( 123)) بناء علي طلب بعض الاخوة الذين يستخدمون التقويم الهجري تم اضافة نسخة للتعامل بالتاريخ الهجري بالمشاركة رقم 18 برنامج الوثائق مع الصور.rar

المعمول به والمتوفر الآن هو الارسال عبر بوابة مزود الخدمة بمعنى ان الخدمة مدفوعة وليست مجانية اي تشتري كمية من الرسائل ثم تعيد ارسالها ويوجد الكثير من البوابات تقوم بتزويد الخدمة نذكر منها عندنا مثلا لا على سبيل الحصر : سعوديsms ومملكة الرسائل و موبايليوز وتختلف كل واحدة عن الاخرى ببعض الاختلافات حسب اللغة البرمجية للموقع فالطريقة الاولى مثلا في البوابة الثانية والثالثة تفرض وجود الاداة InetCtls.Inet داخل الفورم ويصاحبها مكتبة لتشغيل الاداة وهي msinet.ocx يتم تسجيلها داخل ملفات النظام في وندوز ، بينما الطريقة الثانية في البوابة الاولى يتم الارسال بدون هذه الاداة الوسيطة . وحيث انه يوجد من تطرق للطريقة الاولى وقام بعرضها في بعض منتديات اكسس الشقيقة ، لذا يطيب لي ان اعرض الطريقة الثانية مع الامثلة : في البداية يلزم الاشتراك في الموقع مقدم الخدمة ويوجد شرط الزامي وهو تسجيل رقم جوال المستخدم كمعرف له وعن طريقه يتم تفعيل الاشتراك بعد الاشتراك تحصل على ثلاث رسائل مجانية للتجربة رابط التسجيل : http://saudisms.net/p/method_register يهمنا النتيجة المحصلة بعد التسجيل وهي : 1- اسم المستخدم 2- كلمة المرور 3- اسم المرسل الآن يمكنك تجربة ارسال رسالة واحدة من الموقع الى جوال آخر للتأكد ورؤية بيانات الرسالة وكيف يظهر اسم المستخدم والاحتفاظ بالرسالتين الاخريين لتجربتهما من خلال اكسس بعض البوابات تشترط ان يكون في رصيدك اكثر من 50 رسالة حتى تتمكن من تغيير اسم المرسل الآن جاء دور التطبيق وهو مثال قام الموقع بعمله وانظر ايضا من الموقع نفسه لدعم المبرمج http://saudisms.net/p/api ومع اني املك امثلة اكثر تقدما لاكثر من بوابة الا ان هذا اقرب الى فهم المتعلم ويمكنه تطويره بنفسه . الكودات الموجودة في المثال : وحدات نمطية عامة لكشف الرصيد ولارسال الرسائل ولتحويل البيانات Option Compare Database Public Function UrlEncoding(str As String) As String ' تحويل البيانات إلى تشفير الآسكي قبل إرسالها Dim strResult As String Dim i As Integer For i = 1 To Len(str) strResult = strResult + " " & Asc(Mid(str, i, 1)) Next i UrlEncoding = strResult End Function Public Function GetCredits(strUserName As String, strUserPassword As String) As Integer ' للحصول على الرصيد On Error GoTo ErrHandler Dim intFinalResult As Integer Dim WinHttpReq As New WinHttpRequest Dim strResponseBody As String WinHttpReq.Open "GET", "http://saudisms.net/gw/Balance.php?userName=" & strUserName & "&userPassword=" & strUserPassword WinHttpReq.Send strResponseBody = WinHttpReq.ResponseText intFinalResult = CInt(Replace(Left(strResponseBody, 50), " ", "")) GetCredits = intFinalResult Exit Function ErrHandler: MsgBox Err.Number & ": " & Err.Description, vbExclamation, "sms error" End Function Public Function SendSMS(strUserName As String, strUserPassword As String, strNumbers As String, strOriginator As String, strMessage As String) As String ' ارسال الرسالة On Error GoTo ErrHandler Dim intFinalResult As Integer Dim WinHttpReq As New WinHttpRequest Dim strResponseBody As String Dim strSendResult As String WinHttpReq.Open "GET", "http://saudisms.net/gw/?userName=" & strUserName & "&userPassword=" & strUserPassword & _ "&numbers=" & strNumbers & "&userSender=" & strOriginator & "&msg=" & strMessage & "&By=API" WinHttpReq.Send strResponseBody = WinHttpReq.ResponseText intFinalResult = Replace(Left(strResponseBody, 10), " ", "") Select Case intFinalResult Case 1: strSendResult = "SMS Sent Successfully." Case 1010: strSendResult = "Missing Data, Message content or Numbers." Case 1020: strSendResult = "Wrong Login Combination." Case 1030: strSendResult = "Same message with same destinations exist in queue, Wait 10 seconds befoure resending it." Case 1040: strSendResult = "Unrecognized Charset." Case 1050: strSendResult = "Msg Empty. Reason, message fileration remove message content." Case 1060: strSendResult = "Insufficient Credits to procces sending." Case 1070: strSendResult = "Your Credits is 0, Insufficient to procces sending." Case 1080: strSendResult = "Message Not Sent, Error Sending Message." Case 1090: strSendResult = "Repetition filter catch the message." Case 1100: strSendResult = "Sorry, Message Not Sent. Try later." Case 1110: strSendResult = "Sorry, Bad Originator (Sender Name) you used. Try another Originator." Case 1120: strSendResult = "Sorry,The country you are trying to send to is not covered by our network." Case 1130: strSendResult = "Sorry, Consult our network administrator regarding defiend netowrk for you account." Case 1140: strSendResult = "Sorry, You exceeded maximum messages parts. Try sending fewer parts." End Select SendSMS = intFinalResult Exit Function ErrHandler: MsgBox Err.Number & ": " & Err.Description, vbExclamation, "sms error" End Function ثم نموذج وحيد ويشتمل على اكواد لتطبيق الوحدات النمطية اعلاه Private Sub cmdGetCredits_Click() 'اظهار الرصيد On Error GoTo ErrHandler Dim strUserName As String, strUserPassword As String strUserName = UrlEncoding(txtUserName) strUserPassword = UrlEncoding(txtUserPassword) txtCredits = GetCredits(strUserName, strUserPassword) Exit Sub ErrHandler: MsgBox Err.Number & ": " & Err.Description, vbExclamation, "sms error" End Sub Private Sub cmdSendSMS_Click() On Error GoTo ErrHandler Dim strUserName As String, strUserPassword As String Dim strNumbers As String Dim strOriginator As String Dim strMessage As String strUserName = UrlEncoding(txtUserName) strUserPassword = UrlEncoding(txtUserPassword) strNumbers = UrlEncoding(txtNumbers) strOriginator = UrlEncoding(txtOriginator) strMessage = UrlEncoding(txtMessage) 'ارسال txtSendingResult = SendSMS(strUserName, strUserPassword, strNumbers, strOriginator, strMessage) Call cmdGetCredits_Click Exit Sub ErrHandler: MsgBox Err.Number & ": " & Err.Description, vbExclamation, "sms error" End Sub Private Sub Form_Load() DoCmd.Restore End Sub ملحوظة : رغم ان المثال يحتوي على الجمل البرمجيه اعلاه الا ان البيانات المكتوبة غالبا تبقى خلافا للمرفقات التي قد تعتريها العوارض . saudisms2.rar

من سوريا دمشقي ... شامي الأصل .. عربى اللسان يعمل تحت مسمى وظيفي مدير مالي انتظروا ذلك الفارس السورى فى مشاركاته القيمة المتنوعة المتقدمة

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

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

بعد اذن الاستاذ علي استبدل الكود الموجود في حقل date2 بهذا : date2: (SELECT MAX(A2.S_date) FROM Absent As A2 WHERE A2.S_date < A1.S_date and A2.[emp no]=A1.[emp no] )

اليوم انضم إلينا أخ كريم أتابعة من فترة وتابعوه معى فى الفترات القادمة

الاستاذ الفاضل // محمد نصرى السلام عليكم ورحمته الله وبركاته بداية أود أن أشكر عميد عائلة منتديات اوفسينا العميد والاب الروحى الحاج / جمال دغيدى على هذه الروح الخلاقة فأهلا وسهلا بفرسان الشقيقة سوريا التى هى دائما فى وجداننا وفى عقولنا ولاأنسى أبدا الفارس السورى الغائب الحاضر الاستاذ الكبير // ياسرالحافظ " أبا الحارث " حفظه الله ورعاه تقبل وافر احترامى وتقديرى ....... وجزاكم الله خيرا

اهلا وسهلا ومرحبا باخى وصديقى محمد نصرى اعرفه جيدا انسان متميز ومبدع وسنرى منه كل جديد ان شاء الله

شكرا لك اخى شوقى

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

أخى الكريم اليكم الملف بالمرفقات لعله المطلوب وتقبل منى وافر الاحترام والتقدير Attendance_1.rar

أخى الكريم اليكم نموذج للترحيل التلقائى به أكثر من 50 عمود وتقبل منى وافر الاحترام والتقدير نموذج للترحيل التلقائى أكثر من 50 عمود.rar

بعد إذن أخى الكريم الأستاذ الكريم / محمد يوسف اليكم الملف بطريقة أخرى ترحيل مباشر بمجرد كتابة ناجح أو راسب يتم الترحيل تلقائيا وتقبلوا منى وافر الاحترام والتقدير الشيت11.rar

أخى الكريم بداية الشكر موصول للاستاذ الكريم / حسام عيسى فيما يختص بأمر الفورم الخاص بكشف الحساب راجع هذا الرابط به دروس هامه جدا بالتفصيل وهى للأستاذ القدير / حماده عمر http://www.officena.net/ib/index.php?showtopic=46129 وهذا رابط مباشر خاص بأمر العدد 2 فورم فورم خاص بالكشف وفورم خاص بالنتيجه مع امكانيه الطباعه http://www.officena.net/ib/index.php?showtopic=46129&page=4#entry275137 وتقبلوا منى وافر الاحترام والتقدير

أخى الكريم راجع هذا الرابط للأستاذ القدير // شوقى ربيع http://www.officena.net/ib/index.php?showtopic=48065&hl= وتقبل منى وافر الاحترام والتقدير

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

بعد إذن الأستاذ الكبير // ابراهيم ابو ليله أخى الكريم / الاستاذ / عاشق الاسلام قم بتغيير جزء معين من الكود الى الآتى ListBox1.List(V, 0) = Q.Offset(0, 3).Value ListBox1.List(V, 1) = Q.Offset(0, 2).Value ListBox1.List(V, 2) = Q.Offset(0, 1).Value ListBox1.List(V, 3) = Q.Offset(0, 0).Value ListBox1.List(V, 4) = Q.Offset(0, -1).Value وتقبل منى وافر الاحترام والتقدير

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

أخي الكريم // MKAREEM بارك الله فيك وجزاك خيرا اولا: لك دعوة كريمة بتغيير اسم الظهور الي اللغة العربية حسب سياسة منتدانا ولسهولة التعامل والمتابعة . ثانيا :- بالنسبة للملف عذرا لم انتبه ان محرر الكواد مغلق لاني بصفة عامة اتركه مفتوح المصدر للاستفادة منه وتطويعه لاي عمل اخر مرفق الملف مفتوح مع تحياتي الشيكات الأصدار الثاني.rar

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

السلام عليكم "المرسول باين من عنوانو" ستشاهدون في المرفق حركات جميلة طبقتها على الفورم بوسطة الاكواد ارجو ان ينال اعجابكم يوزرفورم كل حركات.rar