ابوخليل

هذا ليس كلامي بل هو كلام استاذنا نارت لبزو اقتبسته من موضوع لك سابق ويقصد : قبل الشروع في تنفيذ أي مشروع لا بد من دراسة تحليلية وتصور لكامل المشروع والنتائج المطلوبة ولم اعرض كلام استاذنا الا لانك في مشاركتك الاخيرة طلعت بفكرة جديدة , والافكار كلها واعطاء معلومات عن طبيعة العمل تكون قبل انشاء الجداول بل قبل الشروع في العمل . معلومة أمل ان تجد فيها فائدة

المسألة : فكرة نتصورها ثم يتم تطبيقها وحسب تصوري لا بد من حقل ترقيم آخر إما دائم في جدول أو مؤقت في استعلام وان كان لديك فكرة اخرى اعرضها

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

اخي العزيز المهندس طارق جعلها الله سلامة دائمة لك ولأهل مصر

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

اشرح لك اول فقرة وهي الخاصة بالباسبورد في 2007 وهي حين تقسيم القاعدة / انا ليس لدي الاصدار 2007 ولكني اتذكر هناك شيء اسمه تشفير قاعدة البيانات باستخدام كلمة المرور في 2010 تجدها في : ملف / معلومات هذه الخاصية تتيح لك الاتصال بقاعدة البيانات وهي محمية بكلمة مرور

حقيقة .. منتدى أكسل .. خطيييييييييير تسلم اخي يحياوي .

تم تعديل السطر أعلاه الوحدة النمطية تنقل النص من text1 وتضعه في text3 بدون مسافات وعمليات الجمع تتم استنادا الى text3

هذه الأوامر ستقوم بالمهمة ، الصقها في صفحة الفورم وقم بانشاء مربع نص 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