ابو جودي

بعد الاذن الاستاذ ابو خليل بارك الله فيه استاذ المتفائل بالله بعد كل عام وانتم بخير لى سؤال مهم حضرتك عامل ربط بين حقلين كل منهم فى جدول والحقلين مفتاح اساسى فى الجدول اى كل منهم لا يقبل التكرار ولكن هناك نقطة هامة ماذا يحدث لو قمت بحذف احد السجلات قطعا يحدث خلل بسبب حذف هذا السجل هذا والله اعلم السؤال الثانى ليه حضرتك متعملش حقل باسم id_dawra على سبيل المثال ويكون مفهرس غير قابل للتكرار وتكود كود فريد لكل اسم الدورات اللى عندك وتربطه باسم الدوره فى الجدول التانى على اعتبار ان التكويد اللى حضرتك هتعمله يكون فريد يونيك غير قابل للتكرار ؟1 فى الحالة دى الربط ممكن يكون منطقى لانى بصراحه حاولت افهم واحلل ناتج الربط هيكون ايه او لما نعالج البيانات فى القاعده ازاى حيكون شكل النتائج بعد معالجتها طبعها انا بأتعلم منكم جميعا وعلى ايدى اساتذتنا الافاضل وكما تعلمون احبو على اول الطريق فقد اكون مخطئ فيما تعليقى سالف الذكر ولكن هو تصور فهمى الضئيل لهذا الموقف فإن اصبت فلله تعالى الفضل وله الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه ثم لاساتذتنا الافاضل فى هذا الصرح الشامخ وان اخطأت فمن هوان نفسى وقلة حيلتى فتقبلوا خطأى بحلمكم وصححوه لى بعلمكم جزاكم الله خيرا

اتفضل طالبك يا استاذ mydata-UP.rar

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

الله يسلم حضرتك جزاكم الله كل الخير استاذى القدير ومعلمى الجليل التغيير من يمين الى الى يسار عن طريق قناع الادخال dd/mm/yyyy لليسار 1/9/2015 yyyy/mm/dd لليمين 2015/9/1 طيب دى انا فهمتها تمام الحمد لله ووصلت لها لكن السؤال الحيويى هنا وهو لب الموضوع كيف تظهر الارقام بالتنسيق العربى وليس هذا الاجنبى كما تم الشرح فى الصورة المرفقة

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

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

بعد التعديل باضافة الميل والمشرفه للجداول والاستعلام والنموذج امممممممممم انا بصراحه مش عارف الميل هيبعت ايه مجربتش على العموم حضرتك جربى تغيرى الميل وتبعتى لنفسك وجربى ووافينى بالنتيجة لان النت سئ جدا جدا جدا عندى ومش عارف اعمل اى شئ 7gz.rar

انا اسف لسه واصل من الشغل حالا افتح واقوم بالتعديل استاذه

الحل كما تفضل به الاستاذ مارد وبعد اذن الاستاذ مارد المشكله كانت تكمن فى جدول تسجيل الدورات حيث ان خصائص رقم الموظف كانت غير مفهرسة ولا تقبل التكرار ولكى تتم العلاقة بالشكل المطلوب يجب ان تكون الخصائص Yes (Duplicates OK) مفهرس ويقب التكرار

وكما قلت دائما وابدا هناك طريقة رمهانية http://www.officena.net/ib/index.php?showtopic=61621&p=397839 New-up- بالطريقة الرمهانية.rar كل الشكر والتقدير استاذ رمهان جزانا الله واياكم خير الجزاء ولكن انت الاستاذ انا اقل طالب علم فى هذا الصرح الشامخ

حتما هناك طريقه رمهانية لاختزال الكــــــود ونحن فى الانتظار

اتفضل New تطبيق-up.rar اتمنى تجد ضالتك كما تتمنى ان شاء الله

انا لى راى يا استاذ ahmedabuzena انت حددت عدد فتحات للقاعده بتاعتك طيب لو النور قطع راحت واحده من العدد ولو الجهاز هنج وقفل وفتح القاعده راحت واحده ولو قفل الجهاز وفتحه كذلك راحت واحده لو القاعده اتقفلت واتفتحت بالغلط راحت واحده برضو اعتقد لو تم من خلال التاريخ وتحديد عدد ايام افضل من عدد فتحات للقاعده صح واللا كلامى غلط ؟!

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

ده مثال لاظهار واخفاء جميع كائنات الاكسس بما فى ذلك الجداول المرتبطه إخفاء جميع كائنات أكسس.rar

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

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

طب ممكن نقول دى بداية ونعدل براحتنا بعد كده لو البدايه مقبوله nor.rar

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

طيب ع العموم استنى المرفق اهو انا اسف انا كنت لاغى القوائم كل الاكواد داخل الفورم mainfrm إخفاء واظهار الجداول والكائنات.rar

ولكن ينقصه أنه غير مفتوح للسورس كود ؟ ازاى اومال ده ايه ؟ Option Compare Database Private Sub Command27_Click() Dim msg, style, title, result msg = "ÓíÊã ÊæÞíÝ ÇáÔíÝÊ" style = vbYesNo title = " ÊÍÐíÑ - ÅíÞÇÝ ãÝÊÇÍ" result = MsgBox(msg, style, title) If result = vbYes Then ChangeProperty "AllowBypassKey", DB_BOOLEAN, False MsgBox "Êã ÅíÞÇÝ ÇáÔíÝÊ", vbInformation, "ÅÊãÇã ÇáÚãáíÉ" ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "Êã ÇáÊÑÌÚ Úä ÇíÞÇÝ ÇáÔíÝÊ", vbInformation, "ÅáÛÇÁ ÇáÚãáíÉ" End If End Sub Private Sub Command28_Click() Dim msg, style, title, result msg = "ÓíÊã ÊÝÚíá ÇáÔíÝÊ" style = vbYesNo title = " ÊÍÐíÑ - ÅíÞÇÝ ãÝÊÇÍ" result = MsgBox(msg, style, title) If result = vbYes Then ChangeProperty "AllowBypassKey", DB_BOOLEAN, True MsgBox "Êã ÊÝÚíá ÇáÔíÝÊ ", vbInformation, "ÅÊãÇã ÇáÚãáíÉ" ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "Êã ÇáÊÑÌÚ Úä ÊÝÚíá ÇáÔíÝÊ", vbInformation, "ÅáÛÇÁ ÇáÚãáíÉ" End If End Sub Private Sub ÅÎÝÇÁ_ÇáÊÞÇÑíÑ_Click() On Error Resume Next Dim obj As AccessObject Dim dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllReports SetHiddenAttribute acReport, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 End Sub Private Sub ÅÎÝÇÁ_ÇáãÇßÑæÇÊ_Click() On Error Resume Next Dim obj As AccessObject Dim dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllMacros SetHiddenAttribute acMacro, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 End Sub Private Sub ÅÎÝÇÁ_ÇáäãÇÐÌ_Click() On Error Resume Next DoCmd.Close Dim db As Database Dim obj As AccessObject Set dbs = Application.CurrentProject For Each obj In dbs.AllForms SetHiddenAttribute acForm, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 DoCmd.OpenForm "mainfrm" End Sub Private Sub ÅÎÝÇÁ_ÇáæÍÏÇÊ_Click() On Error Resume Next Dim obj As AccessObject Dim dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllModules SetHiddenAttribute acModule, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 End Sub Private Sub ÅÙåÇÑ_ÇáÊÞÇÑíÑ_Click() Dim obj As AccessObject Dim dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllReports SetHiddenAttribute acReport, obj.Name, False Next obj End Sub Private Sub ÅÙåÇÑ_ÇáãÇßÑæÇÊ_Click() On Error Resume Next Dim obj As AccessObject Dim dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllMacros SetHiddenAttribute acMacro, obj.Name, False Next obj End Sub Private Sub ÅÙåÇÑ_ÇáäãÇÐÌ_Click() On Error Resume Next DoCmd.Close Dim obj As AccessObject Dim dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllForms SetHiddenAttribute acForm, obj.Name, False Next obj DoCmd.OpenForm "mainfrm" End Sub Private Sub ÅÎÝÇÁ_ãÚ_ÅÙåÇÑ_ÈÇáÎíÇÑÇÊ_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables If Left(obj.Name, 4) <> "MSys" Then SetHiddenAttribute acTable, obj.Name, True Next obj End Sub Private Sub ÅÎÝÇÁ_ãÚ_ÚÏã_ÅÙåÇÑåÇ_ÈÇáÎíÇÑÇÊ_Click() Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next Set tbl = Nothing db.Close Set db = Nothing End Sub Private Sub ÅÙåÇÑ_ÇáæÍÏÇÊ_Click() On Error Resume Next Dim obj As AccessObject Dim dbs As Object Set dbs = Application.CurrentProject For Each obj In dbs.AllModules SetHiddenAttribute acModule, obj.Name, False Next obj End Sub Private Sub ÅÙåÇÑ_ãÚ_ÅÎÝÇÆåÇ_ÈÇáÎíÇÑÇÊ_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables If Left(obj.Name, 4) <> "MSys" Then SetHiddenAttribute acTable, obj.Name, False Next obj End Sub Private Sub ÅÙåÇÑ_ãÚ_ÚÏã_ÅÙåÇÑåÇ_ÈÇáÎíÇÑÇÊ_Click() Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If Next tdf Set dbs = Nothing End Sub Private Sub ÃãÑ14_Click() On Error GoTo Err_ÃãÑ14_Click DoCmd.Close Exit_ÃãÑ14_Click: Exit Sub Err_ÃãÑ14_Click: MsgBox Err.Description Resume Exit_ÃãÑ14_Click End Sub Private Sub ÃãÑ16_Click() Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 Set tdf = Nothing db.Close Set db = Nothing End Sub Private Sub ÃãÑ17_Click() Dim db As Database Dim obj As AccessObject, dbs As Object Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.Name, False Next obj Set tdf = Nothing db.Close Set db = Nothing End Sub Private Sub ÃãÑ18_Click() Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 Set tdf = Nothing db.Close Set db = Nothing End Sub Private Sub ÃãÑ20_Click() Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.Name, True Next obj DoCmd.Close Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 Set tdf = Nothing db.Close Set db = Nothing End Sub Function hiddenobj() Dim obj As AccessObject Dim dbs As Object Dim qry As QueryDefs Set db = CurrentDb Set dbs = Application.CurrentProject For Each obj In dbs.AllReports SetHiddenAttribute acReport, obj.Name, True Next obj For Each obj In dbs.AllMacros SetHiddenAttribute acMacro, obj.Name, True Next obj For Each obj In dbs.AllModules SetHiddenAttribute acModule, obj.Name, True Next obj DoCmd.Close For Each obj In dbs.AllForms SetHiddenAttribute acForm, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 End Function Function TQ_hidden() Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.Name, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 Set tdf = Nothing db.Close Set db = Nothing End Function Private Sub ÃãÑ21_Click() Call hiddenobj Call TQ_hidden DoCmd.OpenForm "mainfrm" End Sub Function TQshow() Dim db As Database Dim obj As AccessObject, dbs As Object Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.Name, False Next obj Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If Next tdf Set dbs = Nothing db.Close Set db = Nothing End Function Function objshow() Dim obj As AccessObject Dim dbs As Object Dim qry As QueryDefs Set db = CurrentDb Set dbs = Application.CurrentProject For Each obj In dbs.AllReports SetHiddenAttribute acReport, obj.Name, False Next obj For Each obj In dbs.AllMacros SetHiddenAttribute acMacro, obj.Name, False Next obj For Each obj In dbs.AllModules SetHiddenAttribute acModule, obj.Name, False Next obj DoCmd.Close For Each obj In dbs.AllForms SetHiddenAttribute acForm, obj.Name, False Next obj End Function Private Sub ÃãÑ23_Click() Call objshow Call TQshow DoCmd.OpenForm "mainfrm" End Sub Private Sub ÃãÑ24_Click() Dim db As Database Dim obj As AccessObject, dbs As Object Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.Name, False Next obj Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If Next tdf Set dbs = Nothing db.Close Set db = Nothing End Sub Public Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) Dim dbs, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ChangeProperty = False Resume Change_Bye End If End Function

ههههههههههههههههههههه ابتسم فأنت فى عالم مارد على فكره عجبنى قوى الشغل برغم انه زى مبتقول بسيط لكن من وجهة نظرى انا مش بسيط بالعكس الفكرة رااااااااااااااااائعه جدا جدا جدا

راعى الغنم اخ جميل واستاذ عزيز جدا جدا على قلوبنا ونسيت التوقيع عالم مارد تسلم ايدك

طيب اولا المساعده لله ولوجه الله 11 قاعه هل لهم اسماء ؟! 14 معمل نفس السؤال المطروح هل لهم اسماء - مواعيد الحجز هل كل الايام ؟ - اسماء المحاضرين او قدد تتغير الاسماء ولكن يمكن عمل جدول باسماء المحاضرين وربطه باسماء المواد العلمية التى سيتم محاضرتها داخل القاعات - كذلك نفس السؤال مطروح للمعمل اختنا الغاليه رجاء اسردى فى مشاركتك القادمه كل ما يخص هذا الموضوع سواء كان من قريب او من بعيد تفصيلا سأقدم المساعده قدر امكانى وحسب توفيق الله لى ولن يتخلى عنكى اساتذتنا الكرام فى هذا الصرح الشامخ فكما عهدناهم اهل الجود والكرم

اتمنى تجد مرادك ان شاء الله كما تتمنى