Moosak

لاحظت شي 🙂 DoCmd.RunSQL "DELETE sanduk.yat , sanduk.DAT , sanduk.SAH FROM sanduk WHERE " & myCriteria & ";"

كذاك تبغاه الأخ سعيد ؟ 🙂 مدة عمل الموظف.rar

صارت لدي حاجة لمثل هذا .. 🙂 عندي برنامج يقوم بحفظ ملفات PDF بنفس أسماء الأشخاص حسب الموجود في الجدول .. كل شخص له ملف PDF باسمه .. لكن أحيانا يتم إدخال الاسم هكذا : " الفاضل / محمد أحمد سلامة " واللويندوز يرفض علامة الـ / في أسماء الملفات وعلامات أخرى مثل : #$%^<> حسب ما أذكر .. لذلك أنشأت دالة تقوم بتتبع هذه العلامات في الاسم قبل حفظ الملف واستبدالها بالرمز " - " أو مسافة فارغة " " (ويمكنك تحديد البديل كما تشاء ) .. بدون تغيير البيانات في الجدول طبعا .. وهذه هي الدالة التي أنشأتها .. ويمكن تعديلها حسب الحاجة وتغيير الرموز المطلوبة فيها وتعيين البديل .. Public Function RemoveSymbolsFromText(strGivenTxt As String, Optional ReplacmentTxt As String = "") As String Dim Txt As String Dim R As String R = ReplacmentTxt Txt = strGivenTxt Txt = Replace(Txt, "!", R) Txt = Replace(Txt, "@", R) Txt = Replace(Txt, "#", R) Txt = Replace(Txt, "$", R) Txt = Replace(Txt, "%", R) Txt = Replace(Txt, "^", R) Txt = Replace(Txt, "*", R) Txt = Replace(Txt, "\", R) Txt = Replace(Txt, "|", R) Txt = Replace(Txt, "/", R) Txt = Replace(Txt, ".", R) Txt = Replace(Txt, "?", R) Txt = Replace(Txt, """", R) Txt = Replace(Txt, "'", R) Txt = Replace(Txt, "<", R) Txt = Replace(Txt, ">", R) Txt = Replace(Txt, "؟", R) Txt = Replace(Txt, "~", R) Txt = Replace(Txt, "&", R) RemoveSymbolsFromText = Txt End Function وتستدعيها هكذا : RemoveSymbolsFromText(strGivenTxt, "_")

الاستعلامات تفعل ذلك .. أليس كذلك ؟ 🙂

أعتقد أن المثال الذي يريده الأخ قاسم يتعلق ببرنامج يتم توزيعه على أفرع المؤسسة في عدة مدن مختلفة .. وبعد مدة معينة يتم تجميع البيانات الموزعة على الأفرع في البرنامج الرئيسي لإدارة المؤسسة .. والمثال الذي ذكره الأستاذ @ابوخليل يعالج هذه القضية وهي فكرة إبداعية .. فقط يحتاجله بعض البهارات من الـVBA لجعل العملية تصير بشكل أوتوماتيكي 🙂 ..

انظر هنا أخي هيثم : 🙂

عدلت شي في الملف الأخير ؟

نعم يحتاج تعدل اسم الفورم الجديد في الكود أخي رعد 🙂

جربته وهو شغال معي طبيعي 🙂 أيش يطلع عندك ؟

تفضل أخي رعد 🙂 هذا الكود عند فتح التقرير : If Forms!emp!d1 = False Then Me.sname.Visible = False: Me.sname.Width = 0 If Forms!emp!d2 = False Then Me.grade.Visible = False: Me.grade.Width = 0 If Forms!emp!d3 = False Then Me.idcard.Visible = False: Me.idcard.Width = 0 If Forms!emp!d4 = False Then Me.cart1.Visible = False: Me.cart1.Width = 0 If Forms!emp!d5 = False Then Me.cart2.Visible = False: Me.cart2.Width = 0 If Forms!emp!d6 = False Then Me.cart3.Visible = False: Me.cart3.Width = 0 If Forms!emp!d7 = False Then Me.passport.Visible = False: Me.passport.Width = 0 If Forms!emp!d8 = False Then Me.blod.Visible = False: Me.blod.Width = 0 all-by-yesno.rar

أنظر لهذا المرفق أخي قاسم 🙂 يعمل بنفس الفكرة .. هذا النموذج فيه كل ما تحتاجه بداية من جلب الصور + وإنشاء المجلدات المتتالية إذا كانت غير موجودة ( يعمل لكل سجل أو موظف مجلد خاص به ) + نسخ الصورة بجانب قاعدة البيانات + إمكانية نقل البرنامج إلى أي مكان آخر مع ضمان عمل الصور + حذف الصورة من المجلد . << تضغط على الصورة لفتحها >> إدارة المرفقات.rar

الخطأ أنك كتبت اسم مربع النص في الكود هكذا : DoCmd.OpenForm "TypeNam2", , , "[ID]= " & Me.ID والصحيح أن تكتب اسم الحقل كما هو في الجدول هكذا : DoCmd.OpenForm "TypeNam2", , , "[typeID]= " & Me.ID

أنا شكلي استعجلت ودخلت بالعرض 😅

ماشي ما أحبه 😂😁

تفضل أخي @أكسس وبس 🙂 تضع هذا الكود في حدث قبل الإدراج للنموذج الفرعي ( وهو نفس كود الأستاذ جعفر بتصرف ) : Private Sub Form_BeforeInsert(Cancel As Integer) Me.Number = Nz(DMax("[Number]", "[tblName]", "[typeID] =" & [Forms]![TypeNam]![ID] & ""), [Forms]![TypeNam]![ID]) + 1 End Sub Code.rar

الحقيقة أني لم أعمل على جداول SQL سابقا وهذا الكود مخصص لفحص اتصال الجداول عندما تكون الجداول أكسس ولكن مفصولة في ملف لوحدها ... وقلت لعله يعمل على جداول SQL .. لذلك أقترح عليكِ بعدما جربتِ طريقة الأخ @حسين العربى أن تطبقي الخطوات التي ذكرها لك .. والرسالة ستكون حسب ظهور البيانات من عدمه ..

وجدت أيضا هذا الكود وظيفته أن يحظر لك اللغة المحلية للجهاز ولكنه لا يذكر الدولة .. ' 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 ... عودا حميدا 🙂 🌹 << مطول الغيبات جايب الغنايم 😊 >>

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