Moosak

وجدت أيضا هذا الكود وظيفته أن يحظر لك اللغة المحلية للجهاز ولكنه لا يذكر الدولة .. ' Written: March 01, 2012 ' Author: Leith Ross ' Summary: Converts a Language Code Identifier (LCID) into the language name. Private Declare PtrSafe Function GetLocaleInfoA _ Lib "kernel32.dll" _ (ByVal Locale As Long, _ ByVal LCType As Long, _ ByVal lpLCData As String, _ ByVal cch As Long) _ As Long Function GetLanguageName(ByVal LCID As Long) As String Const LOCALE_SENGLANGUAGE As Long = &H1001 Const LOCALE_SENGCOUNTRY As Long = &H1002 Dim Buffer As String Dim BuffSize As Long Dim RetVal As Long BuffSize = GetLocaleInfoA(LCID, LOCALE_SENGLANGUAGE, 0, 0) Buffer = String(BuffSize, Chr(0)) RetVal = GetLocaleInfoA(LCID, LOCALE_SENGLANGUAGE, Buffer, BuffSize) If RetVal > 0 Then GetLanguageName = Left(Buffer, BuffSize - 1) End Function Function GetLanguage() As String GetLanguage = GetLanguageName(Application.LanguageSettings.LanguageID(msoLanguageIDUI)) MsgBox GetLanguage End Function قم باستدعاء الدالة التالية لمعرفة اللغة : Call GetLanguage()

جربي الآن أختي : اسعار.zip

جرب الآن أخي العزيز Language 2.accdb

ولزيادة الخير 🙂 .. هذه دالة لفتح المجلدات أو الملفات أو صفحات الانترنت بدون رسائل التنبية المزعجة : Public Sub OpenPath(strPath As String) Shell "explorer.exe" & " " & strPath, vbNormalFocus 'You can also Change it to: 'Shell "explorer.exe" & " " & strPath, vbHide 'Shell "explorer.exe" & " " & strPath, vbMaximizedFocus 'Shell "explorer.exe" & " " & strPath, vbMinimizedFocus 'Shell "explorer.exe" & " " & strPath, vbMinimizedNoFocus 'Shell "explorer.exe" & " " & strPath, vbNormalNoFocus End Sub طريقة الاستدعاء : OpenPath "C:\Windows" ' <--- مجلد OpenPath "C:\Document\File.PDF" ' <--- ملف OpenPath "http:\\www.google.com" ' <--- موقع

اسم ولي الأمر موجود عندك بالفعل في الجدول .. لكن (الرقم القومي - الوظيفة - رقم الهاتف ) للأب كلها فارغة لا يوجد بيانات .. من أين ستأتي بها لتغذي الجدول ؟

😍😍😍😍😍🥰🥰😍😍😍🥰🥰😍😍😍😍😍

مثل ما قال أخي عمر .. 🙂 أقترح عليك جعل الجدول للبيانات الأساسية للطلاب .. ثم تعمل جدول منفصل للصفوف والفصول الدراسية .. وجدول ثالث للدفعات والأقساط .. وتربط بين الجداول الثلاثة إما برقم الملف أو رقم الطالب .. وأنت وضعت رقم الملف هو المفتاح الأساسي لذلك ممكن تربط الجداول به . ولعمل التقسيم بطريقة سهلة قم بنسخ الجدول لنسختين إضافيتين Copy/Paste مع البيانات .. ثم أحذف الحقول الزائدة من كل جدول وتبقي على الحقول المطلوبة .. مع الإبقاء على حقل رقم الملف في الجداول الجديدة .. بعد ذلك تضيف حقل ترقيم تلقائي في جدول الصفوف وجدول المدفوعات .. ويكون هو المفتاح الأساسي .. وتربط جدول البيانات الأساسية بجدول الصفوف وجدول الدفعات بحقل رقم الملف .

الحمدلله على سلامتك معلمنا الكبير @jjafferr ... عودا حميدا 🙂 🌹 << مطول الغيبات جايب الغنايم 😊 >>

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

الأفضل أن تكتبها هكذا أخي العزيز .. ERR: If ERR.Number = 3078 Then MsgBox "الجدول المصدر ( " & Me.txt1 & " ) غير موجود !!", vbInformation + vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "خـطـأ" DoCmd.RunSQL "DROP table [" & Me.txt2 & "]" Exit Sub ElseIf ERR.Number = 0 Then Exit Sub Else MsgBox ERR.Number & vbCrLf & ERR.Description, vbInformation End If السطر الذي ذكره أخي العزيز @Barna مهم جدا ومفيد لتعقب الأخطاء .. وهو الذي أعطاك أن رقم الخطأ = 0 .. ويشير رمز الخطأ 0 إلى عدم وجود حالة خطأ... لذلك نضع له حالة خاصة به بأن يتم تجاهل الرسالة .

تم ضبط الدالة ولله الحمد : Public Function MidText(strText As String) As String Dim x As Integer Dim t As String Dim s As Integer Dim L As Integer If IsNull(strText) Or strText = "" Then MidText = "": Exit Function s = InStr(1, strText, "عن") For x = 1 To Len(strText) t = Mid(strText, x, 1) If t = ChrW(10) And x > s Then L = x Exit For End If Next If L = 0 Then L = Len(strText) ' Debug.Print s, L MidText = Mid(strText, s, L - s + 1) End Function Short text.rar

سأعالجه لك لاحقا بإذن الله

الموضوع صار بسيط الآن أخي @nssj 🙂 يمكن تطبيق فكرتك في الدالة الرئيسية .. Public Function MidText(strText As String) As String Dim Txt as String Dim x As Integer Dim t As String Dim s As Integer Dim L As Integer Txt = "@@@" & strText s = InStr(1, Txt, "عن") For x = 1 To Len(Txt) t = Mid(Txt, x, 1) If t = ChrW(10) And x > s Then L = x Exit For End If Next 'Debug.Print s, L MidText = Mid(Txt, s, L - s + 1) End Function جرب وقلي .. لأني أكتب من الهاتف ..

أهلا أخي @nssj الكود السابق لم يعمل بسبب أن الرمز chr(10) ورد أكثر من مرة في النص .. وهو يحضر أول ورود له .. وأول ورود له يقع قبل كلمة "عن" لهذا السبب لم تعمل دالة mid.. لذلك قمت بعمل دالة تبحث عن ال chr(10) التي تقع بعد "عن" .. هذه هي الدالة ضعها في محرر الأكواد : Public Function MidText(strText As String) As String Dim x As Integer Dim t As String Dim s As Integer Dim L As Integer s = InStr(1, strText, "عن") For x = 1 To Len(strText) t = Mid(strText, x, 1) If t = ChrW(10) And x > s Then L = x Exit For End If Next 'Debug.Print s, L MidText = Mid(strText, s, L - s + 1) End Function ثم استدعها في مربع نص النتيجة هكذا : =MidText([Text1]) حيث ان [Text1] هو اسم خلية المصدر

أعذرني أخي @nssj .. بعيد عن الجهاز هذي الأيام .. سأحاول إيجاد فرصة للإصلاح

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

لا يوجد بها جداول مخفية غير جداول النظام

هل حملته من مكتبة الموقع أخي @Barna ؟ أم من رابط خارجي ؟ هل حاولت تنزله بطرق أخرى ؟ حجب برنامج الفيروسات مثلا ؟ مستغرب أن كم شخص اشتكوا من حجب برامج الفيروسات له ؟ ما السبب ياترى ؟

شكرا أخي عمر 🌹 الحمدلله

سؤال يا إخوان : 🙂 هل واجه أحد منكم أية مشاكل عند تحميل الملف ؟ أو ظهر له بأنه فيروس ؟

تفضل أخي العزيز هذه هي الدالة 🙂 =Mid([Text1];InStr(1;[Text1];"عن");InStr(1;[Text1];".")-InStr(1;[Text1];"عن")+1) تضعها في مصدر مربع النص الذي سيظهر النتيجة .. و Text1 هو مربع النص المصدر .. أعتذر لعدم التطبيق في ملفك .. ليس لدي إنترنت في الجهاز. اختصار الوقت.accdb

اللهمّ آمين يارب العالمين🌹 شكرا لكم جميعا 🌹😊

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

اللهم آمين أخي حسين

غريب .. أنا يفتح لدي بشكل طبيعي .. مع جعل خاصية التوسيط التلقائي = نعم