ابوخليل

هذه الأوامر ستقوم بالمهمة ، الصقها في صفحة الفورم وقم بانشاء مربع نص text3 مخفي هذه الوحدات النمطية استللتها من مشاركة للأخ الاستاذ ابو حمود غفر الله له ولوالديه . Private Function NeatSplit(ByVal Expression As String, _ Optional ByVal Delimiter As String = " ", _ Optional ByVal Limit As Long = -1, _ Optional Compare As VbCompareMethod = vbBinaryCompare) _ As Variant Dim varItems As Variant, i As Long varItems = Split(Expression, Delimiter, Limit, Compare) For i = LBound(varItems) To UBound(varItems) If Len(varItems(i)) = 0 Then varItems(i) = Delimiter Next i NeatSplit = VBA.Strings.Filter(varItems, Delimiter, False) End Function Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String) Dim vSearchLine As String, found As Integer Dim Swords found = InStr(SearchLine, SearchFor) vSearchLine = SearchLine If found <> 0 Then vSearchLine = "" If found > 1 Then vSearchLine = Left(SearchLine, found - 1) vSearchLine = vSearchLine + ReplaceWith If found + Len(SearchFor) - 1 < Len(SearchLine) Then _ vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1) End If found = InStr(vSearchLine, SearchFor) Swords = vSearchLine Do While found <> 0 vSearchLine = Left(vSearchLine, found - 1) vSearchLine = vSearchLine + ReplaceWith vSearchLine = vSearchLine + Right$(Swords, Len(Swords) - found - Len(SearchFor) + 1) found = InStr(vSearchLine, SearchFor) Swords = vSearchLine Loop sReplace = vSearchLine End Function Private Sub Text1_AfterUpdate() Dim x As Variant x = NeatSplit(sReplace([Text1], " ", "")) For i = LBound(x) To UBound(x) Text3 = x(i) Next i End Sub Private Sub Command6_Click() Text1.Requery If Not IsNull(Text3) Then Dim m Text2 = 0 For m = 1 To Len(Text3) Text2 = Text2 + DLookup("num", "AbjadHawwaz", "tex = '" & Mid(Text3, m, 1) & "'") Next m End If End Sub

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

تحية لك اخي ابوعمر : انت على رأي اخينا خويلد ام يختلف ؟

تم تعديل النقاط الثلاث الاول ، أما الرابع فيحتاج الى عملية خاصة تحتاج بعض الوقت اولا : في مربعات التحرير انظر ماذا عملت بالجداول وانظر العلاقة بينهما ، ومعنى هذا يجب عليك اعادة النظر في النماذج الخاصة بها ، لانك لست بحاجة الى وضع ايقونات بجانب مربعات التحرير للاختيار .وانما هذه بيانات ثابته لاتتغير (كروؤس مواضيع ) ويتم الاختيار منها عبر مربعات التحرير ثانيا : اسقاط التاريخ في الحقول واليوم كذلك قمت باستبدال مربع التاريخ بكائن خاص للتقويم فلست بحاجة الى نموذج التقويم ، ولكن عليك تحميل الاداة واتباع الخطوات كما في الرابط http://www.officena.net/ib/index.php?showtopic=30753 ثالثا : تنسيق حقل المجموع من خصائص الحقل / تنسيق اختر ما يناسبك عملة او قياسي او عام ...... تقبل تحيتي .،، MyBooks2.rar

الحجم 27 ميجا بايت لو قمت بإصلاحه لتناقص الى 1 ميجا . جاري الاطلاع ...

كلام ابي ياسر في محله ولكن هناك مشكلة ايضا في تنسيق التاريخ تم التعديل والتجربة db1.rar

ايضا اوافقك ان تكون قاعدة البيانات أكسس ولكن قد تكون الواجهات عملت على غير أكسس

نموذج الدخول المفترض ان يتم اغلاقه عند الدخول حينما ندخل البيانات الصحيحة وهذا كفيل بمسح الارقام ، ثم حين تريد العودة تجد الحقول فارغة ولكن المشكلة لديك الآن بعد الاطلاع على المرفق : ان الكود المسؤول عن ذلك يحتاج الى اعادة نظر جرب وأدخل في مثالك المرفق اي رقم ستجد انه يتم الدخول وفتح النموذج الرئيسي . تم حذف الاسطر الزائدة وترتيب الكود واضافة سطر الاغلاق ، مع الشرح لكل سطر Private Sub Button27_Click() On Error GoTo Err_Button27_Click Dim Rs As Integer 'عرفنا متغير كرقم Rs = 0 'وقيمته صفر عند فتح النموذج If User = "1" And PassW = "1" Then 'شرط : اذا كان حقل الاسم يساوي 1 وحقل الرقم يساوي واحد إذا Rs = 1 'قيمة المتغير تساوي 1 End If ' نهاية الشرط If Rs = 0 Then 'شرط : اذا كانالمتغير يساوي صفرا MsgBox "كلمة المرور او اسم المستخدم خطأ...حاول مرة اخرى" Exit Sub ' الخروج من الامر End If ' نهاية الشرط If Rs = 1 Then 'شرط : اذا كان المتغير يساوي واحد DoCmd.OpenForm "main_screen" 'افتح النموذج المذكور DoCmd.Close acForm, Me.Name 'واغلق النموذج الحالي End If ' نهاية الشرط Exit_Button27_Click: Exit Sub Err_Button27_Click: MsgBox Err.Description Resume Exit_Button27_Click End Sub الخطة الفصلية2.rar

لاشيء اخي ولكن من باب المبالغة في النقد ، ويكفيك رأي اخواننا المشرفين في عملك هذا اغبطك على هذا الخلق الرفيع وعلى هذه الهمة العالية ، ونحن بالخدمة ما قدرنا .

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

اهلا بك اخي وتسعدني خدمتك : هذا كود لحذف المجلد الفارغ وطبعا لن يسألك ولن يمر على سلة المحذوفات RmDir (CurrentProject.Path & "\myfolder") نضع مجلدا في نفس مسار قاعدة البيانات باسم myfolder

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

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

كافيك لذة الانتصار والاكتشاف لكن كلمة : " احصائية " الا ترى انها تستحق ان تفرد في عنوان جديد . اعانك الله ووفقك

اخي الكريم : هذا منتدى تعليمي متخصص في برامج الاوفس وهذا القسم خاص بالاكسس ، فإن كان برنامجك تم تصميمه على أكسس فيمكن ان تجد من يساعدك هنا . للعلم امتدادات الاكسس هي : mdb or mde or Accdb or Accde فإن كان احد هذه الامتدادات موجود ولا تعمل كما ذكرت فأكيد انت بحاجة الى تنصيب الاوفيس على حهازك والله اعلم ،،،

دالة الجمع ستعتمد على القيم في جدول الثوابت وتكون كهذه : Dim m Text2 = 0 For m = 1 To Len(Text1) Text2 = Text2 + DLookup("num", "tbl1", "tex = '" & Mid(Text1, m, 1) & "'") Next m

التوفيق هو تواجدك بعد هالغيبة الله يحفظك

ادوات / ادوات مساعدة لقواعد البيانات / انشاء ملف mde هذا بالنسبة للاصدار 2003 والاصدارات الاحدث يتم تحويل لقاعدة كذلك في الخيارات من accdb الى accde

نعم لقد اتضح ما تريد تفضل هذا الكود يقوم بادخال تواريخ متتابعة حسب تاريخين محددين Dim date1 As Date, date2 As Date Text1.SetFocus date1 = CDate(Text1.Text) Text2.SetFocus date2 = CDate(Text2.Text) If date1 > date2 Then MsgBox "The initial date is after the finish date!" Exit Sub End If DoCmd.SetWarnings False Do Until date1 >= date2 DoCmd.RunSQL "insert into text1 (dateField) values (#" & date1 & "#);" date1 = DateAdd("d", 1, date1) Loop DoCmd.SetWarnings True

تقصد من ليس لك صلاحية انك لم تستطع ؟ اذا كان كذلك فقم بضغط الملف قبل ارفاقه بأحد برامج الضغط winrar or winzip ايضا : الجمع معروف وأمره ميسور بإذن الله ولكن عدد ورود الحرف في الجملة لا اعلم كيف تريد ظهوره ؟ هل تريد ان تظهر الحروف كلها وتجعل امام كل حرف عدد تكرار وروده في الجملة ؟ ام تريد الحروف المكررة فقط وعدد تكرارها ؟

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

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

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

الخطأ كما ذكرت لك في التسميات فأنت تستخدم علامة الناقص - للفصل بين الكلمات والصحيح ان تضغط الشفت لتكون العلامة هكذا _ فعلى تسميتك السابقة عند كتابة الاكواد يقوم الاكسس بعملية الطرح لانك وضعت علامة الطرح بين الاسماء آمل ان يكون هذا واضحا

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