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

مافي مشكلة ممكن نعملها بطريقة اخرى ما شاء دائما مبدع استاذي الفاضل @kanory الحقيقة انا فكرت باستخدام نموذج يحتوي على حقل لعدد البوليصات المتاحة وحقل للعد المطلوب استخدامه وحقل للنص المطلوب كتابته ونموذج فرعي مصدر سجلاته استعلام بمعيار السجلات التي يكون حقل البوليصة فارغ ثم عمل زر امر لتنفيذ العدد المطلوب New Microsoft Access Database.mdb

السلام عليكم ورحمة الله استخدم هذا الكود Sub Work_Day() Dim ws As Worksheet, Sh As Worksheet Dim C As Range, LR As Long, i As Long Dim x As Integer, Dy As String Dim WF As Object Set ws = Sheets("ورقة2") Set Sh = Sheets("ورقة1") Set WF = WorksheetFunction LR = ws.Range("A" & Rows.Count).End(3).Row i = 2 Do While i <= LR For Each C In Sh.Range("A2:A" & ws.Range("A" & Rows.Count).End(3).Row) If ws.Cells(i, 1) = C.Value Then Dy = C.Offset(0, 1) x = WF.Match(Dy, ws.Range("B1:G1"), 0) ws.Cells(i, 1).Offset(0, x) = Dy End If Next i = i + 1 Loop End Sub

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

اتفضل لعله يفى بالغرض المصنف2.xlsx

الاستاذ عبد الله الصارى اشكرك شكرا كثييييرا بارك الله فى علمك ونفعك ونفع الناس به

يعد مجال استراتيجيات المؤسسات من المجالات التي يمتزج فيها علم الإدارة والتحليل الفني، حيث أن الاستراتيجية هو إعداد خطط طويلة المدى للوصول نحو هدف سامي تحققه المؤسسة. وسيتم التطرق في هذه المقالات إلى النقاط التالية لتوضيح المفاهيم الأساسية في علم استراتيجيات المؤسسات. 1- تعريف الاستراتيجية 2- الهوية المؤسسة، الرؤية، المهمة، القيم المؤسسية والممكنات 3- خطوات إعداد استراتيجية 4- اختيار الاستراتيجية المناسبة للمؤسسات 5- أنواع التحليل الداخلي لاستراتيجية للمؤسسات ( العمليات، والإجراءات، والموارد) 6- أنواع التحليل الخارجي والأدوات المستخدمةPESTEL, Porter’s five force 7- تحليل SWOT and TOWS 8- عملية تقسيم الاستراتيجية إلى أهداف ذكية وربطها بمؤشرات في البداية، يجب توضيح بأنه لا يوجد تعريف واحد ثابت لكلمة استراتيجية وهو أمر نسبي يعتمد على منظور المؤسسات والأفراد لأهمية الاستراتيجية ودورها في دعم مجالات عمل المؤسسة. وفي هذا السياق يوجد عدة مفاهيم تغطي الاستراتيجيات ومنها: 1- إعداد خطط طويلة المدى Long term plan قد تصل إلى 30 عاماً شاملة للموارد المطلوبة بهدف تحقيق اهداف طويلة المدى (Goals and Objectives) بهدف تحقيق الغاية الرئيسية بتشكل المؤسسة. 2- هي الطريقة التنافسية (Competitive approach) التي تتّبعها المؤسسة لتحقيق غاياتها ومكانة ضمن بيئة الأعمال ذات العلاقة (Business Area) 3- وهناك تعريف الأكثر شيوعاً، وقد تم من قبل Mintzberg، حيث عرف استراتيجيات المؤسسات من خلال نموذج (5Ps) والذي سيتم توضيحه في الجزء التالي. تعريف Mintzberg للاستراتيجية (نموذج 5P’s) عرف Mintzberg مفهوم الاستراتيجية من خلال ما يلي: 1- المفهوم العام للمؤسسة/ منظور المؤسسة Perspective: يتم تحديد المفهوم العام للمؤسسة من خلال الاطلاع على الهوية المؤسسية التي تشمل الإطار العام للمؤسسة مثل الرؤية، المهمة، القيم المؤسسة والممكنات. 2- النمط Pattern: الخطوات والأحداث التي تم عملها بالماضي في المؤسسة في مجال العمل وإدارته، نذكر من ذلك طريقة العمل، الموارد، ونقاط التركيز في الماضي. وبالتالي يتم تحديد تصور عام لمفهوم المؤسسة بناء على مجال عملها في الماضي. 3- التخطيط والمناورة Plan and Ploy: تشمل الخطط والإجراءات المتخذة في الوقت الحاضر بهدف الوصول إلى هدف بالمستقبل. 4- مركز أو موقع Position: يعبر عن الهدف المستقبلي أو المكانة المستقبلية التي تطمح المؤسسة للوصول لها. وللحديث يقية في الجزء القادم

حياك الله .... الحمد لله رب العالمين

مشاركة مع استاذي الغالي @kha9009lid استخدم هذا الكود Dim db As DAO.Database Dim rs As DAO.Recordset Dim str As String str = "SELECT Table1.ID, Table1.barcode, Table1.police, Table1.FindBarcod, Table1.countBarcod FROM Table1 WHERE (((Table1.police) Is Null));" Set db = CurrentDb Set rs = db.OpenRecordset(str) Dim i As Integer For i = 1 To Me.Text0 rs.Edit rs!police = Me.Text2 rs.Update rs.MoveNext Next i rs.Close Set rs = Nothing تفضل .... New Microsoft Access Database.mdb

اذا كانت بياناتك قليلة فاستخدم معادلة المصفوفة بالضغط ctrl+shift+enter =IF(ISNUMBER(MATCH($A4&C$1,sheet1!$A$1:$A$7&sheet1!$B$1:$B$7,0)),"يوم المبيت","") اما اذا اردت كود فلا حاجة للحلقات التكرارية Sub ctr() With Range("B2:G6") .Formula = "=IF(ISNUMBER(MATCH($A2&B$1,SHEET1!$A$1:$A$7&SHEET1!$B$1:$B$7,0)),""يوم المبيت"","""")" .FormulaArray = .FormulaR1C1 .Formula=.value End With End Sub

شاكر لكم تم حل المشكلة في التعديل

وعليكم السلام ورحمة الله وبركاته جرب المرفق التالي Test_It.rar تخياتي

جرب هذا الماكرو عليك بوضع ملفاتك في مجلد محدد يقوم الماكرو بفتح المستعرض حدد المجلد الذي به الملفات ثم قم يتحديد كامل الملفات وسيقوم بدمجها في ملفك مع مراعاة اسم الورقة بالانجليزي في ملف التجميع Worksheet Sub Consolidation() Dim CurrentBook As Workbook Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("Worksheet") Dim IndvFiles As FileDialog Dim FileIdx As Long Dim i As Integer, x As Integer With WS If Len(.Range("a2")) Then Intersect(.UsedRange, .UsedRange.Offset(0)).Clear 'removes old data End If End With Set IndvFiles = Application.FileDialog(msoFileDialogOpen) With IndvFiles .AllowMultiSelect = True .Title = "Multi-select target data files:" .ButtonName = "" .Filters.Clear .Filters.Add ".xlsx files", "*.xlsx" .Show End With Application.DisplayAlerts = False Application.ScreenUpdating = False For FileIdx = 1 To IndvFiles.SelectedItems.Count Set CurrentBook = Workbooks.Open(IndvFiles.SelectedItems(FileIdx)) For Each Sheet In CurrentBook.Sheets Dim LRow1 As Long LRow1 = WS.Range("A" & WS.Rows.Count).End(xlUp).Row + 2 Dim LRow2 As Long LRow2 = CurrentBook.ActiveSheet.Range("A" & CurrentBook.ActiveSheet.Rows.Count).End(xlUp).Row Dim ImportRange As Range Set ImportRange = CurrentBook.ActiveSheet.Range("A2:F" & LRow2) ImportRange.Copy WS.Range("A" & LRow1 + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next CurrentBook.Close False Next FileIdx Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

هذه طريق اخرى تم استخدام هذا الكود ... On Error Resume Next If DCount("ID", "تذيل المبيعات", "[رقم_الباركود_ت] = '" & xxx1 & "' And [رقم الفاتورة] = " & kan & "") > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE [تذيل المبيعات] SET [تذيل المبيعات].العدد = [تذيل المبيعات].[العدد]+1 WHERE ((([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" Me.Undo DoCmd.RunSQL "DELETE DISTINCTROW [تذيل المبيعات].العدد, [تذيل المبيعات].رقم_الباركود_ت, [تذيل المبيعات].[رقم الفاتورة] FROM [تذيل المبيعات] WHERE ((([تذيل المبيعات].العدد)=1) AND (([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" DoCmd.SetWarnings True Else Me.سعر_البيع.Requery Me.سعر_البيع = Me.سعر_البيع.ItemData(0) [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد] DoCmd.Requery End If تجربة_7652.accdb

وعليكم السلام ورحمه الله وبركاته عدل حرف ال "E:\"الى حرف الفلاشة لديك Sub File_Save_As() ActiveWorkbook.SaveAs Filename:="E:\" & "new", FileFormat:=52 End Sub

اخي الكريم السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير هل يراودك شك احيانا في بعض الكلمات او الرموز عند تسمية الحقول هل هي محجوزة أم لا ؟ اليك الحل هدية العيد : في المرفقات تطبيق بحثي يشتمل على جميع كلمات ورموز الاكسس المحجوزة والتي يجب أخذ الحيطة عند تسمة الحقول واجتناب التسمية بها لان ذلك يؤدي الى ظهور أخطاء أمام المبرمج يخفى عليه سببها . آمل ان تجدوا الفائدة ،،، dbx.rar

السلام عليكم ورحمة الله وبركاته اخوتي الاكارم تحية طيبة وبعد المثال المرفق يبين كيف نتمكن من جلب اكثر من صورة دفعة واحدة تأخذ كل صورة منها رقما متسلسلا في الجدول الفرعي ضمن رقم المعرف الرئيسي . يوجد في المثال : جدول tbl1 باعتباره جدولا فرعيا منبثقا من الجدول الرئيسي نموذج photo يمكن جعله نموذجا فرعيا لمن يجيد تحوير الكود المصاحب علما ان الافضل استخدامه كما هو ويتم جلب المعرف الرئيسي اليه في حقل خاص غير منضم مع الاخذ بالاعتبار فيما لو وجد صور سابقة بمعنى ان المثال يضيف صورا جديدة الى الصور القديمة ان وجدت وفي المثال تطبيق للمقال اكثر من صورة.rar

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

السلام عليكم ورحمة الله وبركاته في المثال ما يغني عن المقال changePic.rar

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

السلام عليكم ورحمة الله وبركاته في المثال غنية عن المقال فتح الصورة بالمستعرض.rar

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

اهداء الى كل من تعلمت منهم كل جديد كل من قام بمساعدتى لوجه الله ولرغبته فى مساعدة الاخرين اهداء الى صاحب هذا الصرح العظيم الاستاذ محمد بارك الله فيه الاستاذ الكبير / خبور خير الاستاذ الكبير / الخالدى الاستاذ الكبير / الحسامى الاستاذ الكبير / كيماس الاستاذ الكبير / احمد حمور الاستاذ الكبير / ياسر حافظ الاستاذ الكبير / مهندس طارق الاستاذ الكبير / جمال الفار الاستاذ الكبير /دعيدى الاستاذ الكيبير / يحياوى الاستاذ الكيبر / عادل حنفى الاستاذ الكبير / احمد فضيلة الاستاذ الكبير / بن عليه الاستاذ الكبير / هشام شلبي الاستاذ الكبير / احمد زمان الاستاذ والعلامه / يحيى حسن والى من لم تسعفنى زاكرتى الضعيفة لزكر افضالة اهديكم هذا العمل المتواضع برنامج شئون الطلبة متوافق مع القرار 313 ومتطلبات الجودة فى المدارس المصرية وارجوا من الاساتذة مراجعته ومعرفه هل به اخطاء ام لا والرنامج به كميه كبيرة من الشيتات والمخرجات المفيدة والتى تساعد فى اعمال شئون الطلبة فى المدارس المصرية ومنها التالى اولا قوائم الفصول 1/ قائمن فصل بناظام لبنون ثم البنات ومعهم الرقم الكودى للمتعلم + الرقم القومى 2/ قائمة فصل النون فى نصف الورقة والبنات فى النصف الثانى ومعهم الرقم الكودة والرقم القومى 3/ قائمة فصل ومبين امام كل متعلم الانسطة الاختيارية التى اختارها 4/ سجل مدرسي كامل للفصل 5/كشوف حالات القيد الاجمالية 6/كشوف حالات القيد التفصيلية 7/الكارنيهات المدرسية 8/بطاقة بيانات تفصيلية لكل طالب يتم لصقها على ملفات الطلبة 9/التحويلات من والى المدرسة 10 /المتعلمون بدون رقم قومى 11/ احصاء تفصيلى عام للمدرسة ثانيا الغياب : 1/ كشف اجمالى لتسجيل عدد مرات الغياب 2/ سجل 5 سلوك 3/ سجل اجمالى مرات التأخر والغياب ثالثا : المصرفات 1/ شيت تسجيل المصروفات 2/ كشوف للطباعة بالطلبة المسددين للمصروفات كلى او جذئي 3/ احصاء عام لسداد المصروفات رابعا : الاخصائي الاجتماعى 1 / عمل دعوة لمجلس الاباء 2 / بيانات الاتصال باولياء الامور 3 / كشوف لتوقيع اولياء الامور باستلام الدعوات 4 / كشوف بالحالات الخاصة خامسا : الاعمال المساعدة فى الامتاحانات 1 / ادارة قياس الجانب المهارى او الوجدانى فكرة جيدة 2 / بطاقات تتبع المستوى 3 / رصد تتبع المستوى 4 /تجميع درجات اعمال السنه للصفوف الاول والثانى والثالث 5 /تجميع درجات اعمال السنه للصفوف الرابع والحامس والسادس 6/ تجميع درجات امتحان عملى العلوم 7 / تجميع درجات الامتحانات الشفوية 8 /تجميع درجات الانشطة ******************************************* هذا والبرنامج قابل للتعديل فى اى وقت حسبما يشاء اى مستخدم وقابل للتعديل الى اى مدرسة بارك الله فيكم جميعا وكل عام وانتم بخير انتظر رأى الاساتذة الكبار برنامج شئون الطلبة .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

اخوتي الكرام السلام عليكم ورحمة الله وبركاته العنوان ينطق بالمعنى كيف يعمل مستخدمون كثيرون ضمن نموذج واحد ولكن كل حسب صلاحيته وتطبيقه على ارض الواقع في البرنامج المدرسي حيث يتسنى لكل معلم ادخال درجات طلابه لا يشاركه في ذلك احد الا المسؤول عن البرنامج وهو جزء من درس احببت افراده ارفقت مثال بسيط عبارة عن جدولين ونموذجين يشتمل على 13 معلما ومسؤول واحد كلمات المرور للمعلمين تبدأ من 101 وحتى 113 وكلمة مرور المسؤول = 222 بيت القصيد والذي تدور عليه العمليه هو حقل رقم المعلم ويوجد مخفيا في حقل داخل النموذج لللاستزادة ورؤية التطبيق من هنا http://www.officena.net/ib/index.php?showtopic=55142&page=4#entry350160 آمل ان تجدوا الفائدة myUser.rar