ابوخليل

بسم الله الرحمن الرحيم يفهم من العنوان انه جزء من البرنامج المدرسي وهو كذلك كبداية ولكنه هو الصلب والاساسات وما يرد لا حقا انما هو تبع وهذا الدرس اجابة لطلب اختنا الكريمة هنا http://www.officena.net/ib/index.php?showtopic=55102 وحسب الانظمة التعليمية المبينة في الطلب تنويه : استخدم في جهازي الاصدار 2003 ولا يمكنني فتح المرفقات الا على صيغة mdb ايضا قد الجأ في الشرح الى عرض بعض الصور وهذا سيصعب فهمه بالسرعة المطلوبة لمن لا يملك في جهازه الاصدار المذكور . ( آمل تحميل الاصدار المذكور لمن يريد المتابعة والمشاركة ) نبدأ : الجداول : نقاط تؤخذ بالاعتبار : - تكتب اسماء الجداول واسماء الحقول بحروف انجليزية والظهور العربي سيكون من خلال التسمية التوضيحية . - لا يسمح بالمسافات الفارغة بين الكلمات في التسمية . - تبدأ اسماء الجداول بـ tbl والاستعلامات بـ Qry والنماذج بـ frm والتقارير بـ Rep للتفريق بينها ومعرفتها من اول نظرة

المعمول به والمتوفر الآن هو الارسال عبر بوابة مزود الخدمة بمعنى ان الخدمة مدفوعة وليست مجانية اي تشتري كمية من الرسائل ثم تعيد ارسالها ويوجد الكثير من البوابات تقوم بتزويد الخدمة نذكر منها عندنا مثلا لا على سبيل الحصر : سعودي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

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

حيث ان الدروس في هذا الباب شحيحة في المنتديات ، خاصة التوسع في عمليات ادخال الدرجات ، وما يستلزم ذلك من بناء البرنامج حسب القواعد السليمة المتبعة من اجل ذلك يمكن ان نفتح درسا جديدا لشرح خطوات العمل ، شريطة المتابعة للمناقشة والتطبيق

يوجد الكثير من البوابات تقوم بتزويد الخدمة نذكر منها عندنا مثلا لا على سبيل الحصر : سعودي اسمس ومملكة الرسائل و موبايليوز وتختلف كل واحدة عن الاخرى ببعض الاختلافات حسب اللغة البرمجية للموقع فمثلا البوابة الثانية والثالثة تفرض وجود الاداة InetCtls.Inet داخل الفورم بينما البوابة الاولى يتم الارسال بدون هذه الاداة الوسيطة . سأقوم بعرض درس خاص بهذا وسأعطي الموضوع حقه مبينا بالامثلة ان شاء الله تفضلوا من هنا http://www.officena.net/ib/index.php?showtopic=55135

اخي ايمن احرص دوما على عدم ترك مسافات خالية في التسميات From_Date_one_month = DateAdd("m", -1, [the_Date]) Date2.rar

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

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

المشكلة عندك نقص في المكتبات اتبع الخطوات التالية بعد فتح القاعدة على التصميم : 1-افتح محرر الفيجوال ؛ ( Alt+F11) 2- Tools / References 3- سيظهر لك مربع حوار المكتبات المفعلة انظر ان كانت المكتبة التالية موجودة : microsoft office 11.0 object library اذا لم تكن موجودة انقر زر المستكشف سيفتح لك آليا على مجلد النظام ابحث عن ملف باسم Mso.dll انقر عليه نقرتين تجد انه اضاف المكتبة الى برنامجك موافق ثم اخرج ملحوظة : اذا لم تجد المكتبة في مجلد النظام system تجدها في : c:\programfiles\microsoftsharad\office11\Mso.dll

سأجيب واحدة واحدة كل هذا مفهوم من الشرح ومن البيانات المرفقة الشيء الجديد هو تخصيص ادخال الدرجات حسب معلم المادة هو مفتوح وقد ذكرت لكم ذلك قاعد البيانات موجودة في مجلد البرامج واسمه school والبرنامج داخله باسم " مدرسة " لفتح القاعدة على التصميم انقري على البرنامج واصبعك على shift نعم يمكن نعم صحيح هذه مكتبة تخص التحكم بالفأرة كإيقاف العجلة ، غير موجودة في جهازك يمكن ايقاف عمل الكود فيتوقف ظهور الرسالة الافضل عدم الاستعجال انما رفعت البرنامج للدراسة والاطلاع وفهم عمل اكسس لمن لم يمارسه والا انت بحاجة اولا الى تصور العمل ( المدخلات والمخرجات ) والجداول اللازمة لذلك اولا التأسيس الصحيح والاساسات هي الجداول اعانك الله ووفقك ،،،

برنامج مدارس اليمن الرقم السري= 1975 وجدته في مكتبتي مفتوح المصدر العيوب = الكائنات والحقول كتبت بحروف عربية وهذا فيه صعوبة على من يريد تعلم اللغة البرمجية المكتوبة قد لا يحقق كامل المطلوب : ولكن يفتح الذهن ويعطي تصور لكيفة العمل داخل بيئة اكسس school.rar

الرسالة تعني ان اعدادات اللغة في الجهاز غير متوافقة مع البرنامج اضبط اعدادات اللغة في وندوز من لوحة التحكم في xp الاعداد الاقليمية وفي win7 المنطقة واللغة

المشكلة عندك انت لوحدك والسبب طريقتك في التصميم انظر بعد حذف الكائنات التي ليس لها لازم ادراج وحذف الصور5.rar

اللهم فارج الهم , و كاشف الغم , و مجيب دعوة المضطرين , رحمان الدنيا و الآخرة و رحيمهما ، ان تفرج لعبدك الفقير اليك ابو البراء همه وغمه ، وان تهب له من فضلك ما تقر به عينه ، يا واسع الكرم .

بل انزل المرفق الخاص بحضرتك بعد التعديل ملحوظة : مجلد الصور photo ضروري يبقى بجانب البرنامج داخل مجلد الصور صورة اسمها (0) بقاؤها في المجلد مهم جدا بمجرد ما تجلب صورة للطالب يصبح اسمها هو رقم القيد للطالب نفسه ادراج وحذف الصور4.rar

انت لم تطبق كما في مثالي المرفق المثال يقوم باعادة تسمية الصورة بما يطابق المعرف انظر الكود المسؤول عن جلب الصورة في مثالي يختلف عن الموجود في تقريرك

يوجد اكثر من طريقة خذ هذه المجموعة أمثله للبحث .rar

يبدو ان الخلل عندك في الاوفيس ومع ذلك ننتظر رأي من يمر من هنا من الاخوة

وجدت احد المكتبات مفقودة تم تعديل المرفق السابق جرب الآن

في خصائص الماكرو وفي الاجراء OpenForm غير وضع الاطار من : مربع حوار إلى : عادي

ارفق مثالك لنرى اين الخطأ اجعله على صيغة mdb

السؤال غير مفهوم ، يلزم زيادة الايضاح وماهو الماكرو الذي تتكلم عنه ؟

يبدو ان المشكلة التي تظهر عندك سببها التسمية العربية للمقطع داخل التقرير جرب الآن حيث تم اصلاح المرفق اعلاه ووافني بالنتيجة

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