ابوخليل

هنا دروس تعليمية بالصوت والصورة يمكنك المتابعة والتطبيق من خلالها http://www.officena.net/ib/index.php?showtopic=51157 وهذا الدرس طازج يقام الآن http://www.officena.net/ib/index.php?showtopic=55142 يمكنك المتابعة والمناقشة والتطبيق اتوقع في كلا الطريقين انك ستخرج بفائدة مرضية

تفضل وجدت لك هذا في مكتبتي SmallStore.rar

بالنسبة لعدد الاعمدة عدد الاعمدة = 2 هذا يعني ان الاستعلام سيتعامل مع العمودين الاولين فقط حتى لو وجد داخل الاستعلام اكثر من ذلك وبالنسبة لعرض الاعمدة : عرض الاعمدة = صفر فنحن لدينا عمودين في الاستعلام فقط فإذا جعلنا القيمة صفر فنعني به العمود الأول لذا سيختفي العمود الاول الذي هو عمود الرقم ويظل عمود الثاني ظاهرا فلو فرضنا ان لدينا اكثر من عمودين ونريد اظهار بعضها واخفاء البعض الآخر فكل الذي علينا عمله ان نعطي القيمة صفر لمن نريد اخفاءه ونعطي الاعمدة الاخرى مقاس الظهور المطلوب ونفصل بين ها بفاصلة منقوطة كالتتالي : 0سم؛2.5سم؛1سم؛0سم لاحظوا ان كلمة سم سيكتبها اكسس نيابة عنا ، نحن فقط نكتب الارقام والفاصلة المنقوطة

لا يمكنني الاطلاع على المرفق احيانا ولظروف السائل الجأ الى نقل المرفق الى جهازي المحمول للاطلاع على المشكلة وقد اقوم بتحويله الى 2003 الاستفسار الاول يجب التأكد من هذه الفقرات في خصائص الحقل - عمود منضم = 1 - عدد الاعمدة = 2 رؤوس الاعمدة = لا عرض الاعمدة = صفر عرض القائمة = تلقائي التزام بالقائمة = نعم اما بالنسبة لحفظ النسخة بـ 2003 والعمل على 2010 فلا انصح به الافضل العمل على بيئة الدرس والعمل على جهاز يحتوي 2003 فقط لان المسألة لن تقف على الجداول فقط ، المسألة اطول من ذلك

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

الرابط http://www.gulfup.com/Xnht2gsa69vk0c Serial : GWH28-DGCMP-P6RC4-6J4MT-3HFDY

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

لا مشكلة اجعل الحدث قبل التحديث واجعل الغاء الحدث بعد نهاية الشرط وليس قبله Private Sub a1_BeforeUpdate(Cancel As Integer) If [a1] > 50 Then Beep MsgBox "درجة أكبر من الدرجة المطلوبة " End If Undo DoCmd.CancelEvent End Sub

بعد اذن الاستاذ علي استبدل الكود الموجود في حقل 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] )

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

يبدوا لي ان الطريقة في الشرح السابق غير ممتعة وغير مشوقة وعلى ذلك سأسلك طريقة اخرى : الخطوة الاولى : سأرفق الجزء الاول من المشروع وهو انشاء الجداول ، وقد صنعتها على عجل والنقص فيها سنتداركه لاحقا المطلوب : مطالعة المرفق وتفحصه بدقة . ثم طرح الاسئلة حول ما يشكل فهمه لن ننتقل الى الخطوة التالية حتى نتأكد من فهم واستيعاب هذه الخطوة SCH1.rar

المشكلة عندك في المعايير داخل الاستعلام Database5.rar

لا يمكنني فتح المرفق للتعديل عليه ولكن يبدو مشكلتك تظهر عند عمليات الجمع جرب اذا كانت لديك مثل هذه expr:[a]+[b]-[c] استخدم الدالة NZ لتصبح الجملة هكذا expr:Nz([a])+Nz([b])-Nz([c]) الدالة NZ تحول القيمة الفارغة الى صفر

عودة الى الجدول1 : نريد ان نربط حقلي المرحلة والشعبة في جدول الاسماء بجدولي المراحل والشعب عن طريق البحث او ما يسمى بمربع السرد والتحرير نفتح جدول الاسماء على التصميم ثم نحدد على الحقل المرحلة وفي الخصائص بالاسفل نفتح لسان التبويب بحث ثم من عرض عناصر التحكم نختار مربع تحرير وسرد فتظهر قائمة قيم : - نوع مصدر الصف = جدول/استعلام - مصدر الصف = ننقر النقاط الثلاث التي الى يسار الحقل فيظهر لنا استعلام فارغ ننقر باليمين على الفأرة ونختار جدول فيفتح لنا مربع حوار نختارمنه جدول المراحل ثم موافق ثم اغلاق الآن استقر جدول المراحل داخل الاستعلام ، ننقر على حقل معرف المرحلة ثم المرحلة فيظهران داخل الاستعلام نغلق الاستعلام حفظ = نعم - عمود منضم = 1 - عدد الاعمدة = 2 رؤوس الاعمدة = لا عرض الاعمدة = صفر عرض القائمة = تلقائي التزام بالقائمة = نعم نعمل بحقل الشعبة مثل ما عملنا بحقل المرحلة خطوة خطوة ( طبعا سيتم ربطه بجدول الشعب ) الاخت ( morestud ) يسعدنا انها تختار لها اسم عربي يسرها ان نناديها به حتى يحسن النقاش من هنا http://www.officena.net/ib/index.php?showtopic=41520

حياك الله اختنا الكريمة مطلوبك سنصل اليه بإذن الله بحيث يدخل كل مدرس مادة درجات الفصول الخاصه به ويمكن لمدير البرنامج الدخول على الجميع الجدول2 جدول المراحل tblMrahel يحتوي على حقلين معرف المرحلة mrID رقم وحجمه عدد صحيح طويل المرحلة mrhla نص وحجمه 15 الجدول3 جدول الشعب tblShoab يحتوي على حقلين : معرف الشعبة shbID رقم وحجمه عدد صحيح طويل الشعبة shoba نص وحجمه 1 لان الشعبة حرف واحد

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

احسنت استاذ علي المثال يعمل 100% وحسب الطلب الاخير

الجدول1 جدول اسماء الطلاب وبياناتهم اسم الجدول tblAsma وحقوله كثيرة متنوعة يهمنا منها اربعة : معرف الطالب UserName نوعه نص وحجمه 10 بدون تكرار (على اساس الهوية 10ارقام) اسم الطالب studNm نوعه نص وحجمة 50 المرحلة mrhla نوعه رقم وحجمه عدد صحيح طويل الشعبة shoba رقم مثل سابقه خلطت الحابل بالنابل العربية بالانجليزية فهذا للتمثيل وكل يأخذ ما يصلح له

بسم الله الرحمن الرحيم يفهم من العنوان انه جزء من البرنامج المدرسي وهو كذلك كبداية ولكنه هو الصلب والاساسات وما يرد لا حقا انما هو تبع وهذا الدرس اجابة لطلب اختنا الكريمة هنا 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