نجوم المشاركات

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

اليك هذا الكود لكن لازم انت تكتب الاسم اي بأي اسم تريد تصديره DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)" هذا والله اعلم

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

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

..... شاهدوا المرفق أخوكم عماد الحسامي

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

السلام عليكم احتاج كود يقوم بادراج صف في نهاية الورقة في ورقتين عمل مختلفي الاولى التي تكون فعالة والثانية في ورقة "احصائية المدارس على ان تقوم بنسخ الصيغ والتنسيق من الصف العلوي وشكراً

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

اتمنى ان اكون فهمت الموضوع انا اضفت لك هذا الكود Me.p_centage = Nz(Me.nbr_annee) * Nz(Me.p_centiep) بس اليك ان تكتب عدد سنوات جرب ووافيني بالنتيجة

اتفضل New Microsoft Office Access Application (2).rar

السلام عليكم هذا مثال متوسع على الدالة NZ جعفر

استخدم هكذا NZ([forms]![NameMyForm]![NameMyfeild]) Nz(me.myfeild) نايم ماى فورم = اسم النموذج نايم ماي فايلد = اسم المربع النصي والا ارفق قاعدة بياناتك لكي نعمل العملية عليه او اكتب كودك بالصحيح وهناك ملاحظة ابتعد من تسميات باللغة العربية

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

فيما يختص بشرح كود طباعة الشهادة ' بدء الكود بتحديد النطاقات الثابة ' const تستخدم لتحديد الثوابت ' اسم ورقة الشهادات Const ShName As String = "Certificates" ' رقم اول صف للشهادة Const FirstRow As Integer = 6 ' عدد صفوف الشهادة Const CountRow As Integer = 17 'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة Const CountColumn As Integer = 17 ' خلية موقع الطالب لمعادلات الشهادة Const Range_Index As String = "A6" ' اسم ورقة البيانات Const Sh As String = "Data" ' نطاق الاسماء في ورقة البيانات Const MyNSearch As String = "C5:C44" ' الخلية التى بها عدد كل الطلاب تجدها بشيت الشهادة Const CountAll As String = "E1" ' متغيرين نعلن عنهم Dim MZM_Test As Boolean Dim MySheet As Worksheet Sub MZM_ALL() ' إيقاف تحديث الشاشة Application.ScreenUpdating = False ' استدعاء الكود MZM_ClearContents With MySheet ' اسم النطاق الثابت المعلن عنه سابقا (Range_Index)خلية موقع الطالب لمعادلات الشهادة .Range(Range_Index).Value = 1 ' استدعاء عمل الكود التالى مع الأخذ فى الاعتبار الثابت الذى قمنا بتعريفة وهى الخلية التى عدد اجمالى الطلاب Call MZM_Test_Fill(.Range(CountAll)) ' اذا كان المتغير المعلن عنه بأول الكود به بيانات بناء على خلية معادله الشهادة تم تنفيذ المطلوب مع استدعاء الكود بالسطر السابق اذن يتم تطبيق التالي ' يتم مسح النطاق للكتابه فيه مع عرض الطباعة If MZM_Test Then .PrintPreview Else .Range(Range_Index).ClearContents End With ' اعادة تحديث الشاشة Application.ScreenUpdating = True End Sub Sub MZM_Delete() ' إيقاف تحديث الشاشة Application.ScreenUpdating = False ' استدعاء عمل الكود التالى MZM_ClearContents ' اعادة تحديث الشاشة Application.ScreenUpdating = True ' حفظ العمل واظهار رسالة تفيد ذلك ThisWorkbook.Save MsgBox "تم مسح الشهادات وحفظ نطاق عمل الشهادة الرئيسية", vbMsgBoxRight, "الحمد لله الذى بنعمته تتم الصالحات" End Sub Sub MZM_ClearContents() ' متغير نعلن عنه Dim T As Long ' تخصيص متغير أعلن عنه سابقا Set MySheet = Sheets(ShName) With MySheet ' خلية موقع الطالب لمعادلات الشهادة وهو من الثوابت المعلن عنها سابقا يتم المسح مع الحفاظ على النموذج ( الشهادة الرئيسية) الذى يستخدم للنسخ كما هو .Range(Range_Index).ClearContents T = .UsedRange.Rows.Count .Rows(FirstRow + CountRow).Resize(T).Delete ' نطلب منه الوقوف على الخلية التى تم الاعلان عنها كثابت وهى خلية موقع الطالب لمعادلات الشهادة Application.GoTo .Range(Range_Index), True End With End Sub ' الكودين التاليين يختصوا بنسخ نطاق الشهادة بما فيها من معادلات وتنسيق مع رسالة توضح اذا كان لا يوجد معادلات Sub MZM_Test_Fill(MyCel As Range) If IsNumeric(MyCel) And MyCel.Value > 0 Then MZM_Test = True If MyCel.Value <> 1 Then Call MZM_AutoFill(MyCel.Value) Else MZM_Test = False MsgBox MyCel.Offset(0, -1) & Chr(10) & Chr(10) & MyCel, 524288 + 1048576 + 16, "بيانات غير متوفرة" End If End Sub Sub MZM_AutoFill(R As Integer) Dim SourceRange As Range, fillRange As Range Dim RR As Long RR = (R * CountRow) With MySheet Set SourceRange = .Rows(FirstRow).Resize(CountRow) Set fillRange = .Rows(FirstRow).Resize(RR) SourceRange.AutoFill fillRange, xlFillDefault .PageSetup.PrintArea = .Range("B" & FirstRow).Resize(RR, CountColumn).Address End With End Sub

انت لم توضح المطلوب من بداية الامر قلت فقط في الخلايا B2 & B3 اليك المطلوب Book2 salim.rar

والله ما أعرف كيف أشكرك . ولكن أقول اللهم إجعل هذا العمل في ميزان حسناتك

اتفچل انا غيرت نوع البحث لنموذج فورم فاميليس عملت مصدر النموذج الى استعلام و عطيته شروط forms!form_familys!sid ' هذا لحقل اي دي forms!forms_familys!sname ' هذا لحقل نايم الاسم واستخدمت بعد تحديث لكومبوبوكس البحث هذا الكود ' sid هذا لكومبوبوكس برقم البحث اي لكومبوبوكس me.sname = "" Docmd.Requery ' sname وهذا لكومبوبوكس بالاسم اي لكومبوبوكس me.sid = "" Docmd.Requery لكن هناك ملاحظة لا تستخدم الاسماء المحجوزة لقاعدة بياناتك مثل name واليك قاعده‌ بياناتك بعد تعديل على نموذج form_familys Mini.rar

السلام عليكم هناك طرق متعدده للبحث من خلال شرطين او اكثر اذكر منها ثلاثه طرق بالملف التالي khaled.rar ولمعرفة المزيد عن الدالة اليك الملف التالي به شروحات عن بعض استخداماتها VLOOKUP Rasheedy.rar

الخطأ في ترحيل البيانات من الى خارج الجمعية في هذه الكود strSQL = "INSERT INTO ALMOSTABADIN ( ID, Type_Osra, Number_afrad,total_payment,total_massarif,Name,Qawmi,Date_Birthday,Age,Gender,Healthy,sick,Type_Sick,Address1,Address2,Count_Wife,Mobile,Name_Mother,Social,work,job,Cash,Not_work,Smoking,Notes,Sons,Count_Sons,Picture,Ael,He_Ael,Sabb_ElEstbad,Date_ElEstbad ) SELECT Tbl_Familys.ID, Tbl_Familys.Type_Osra,Tbl_Familys. Number_afrad,Tbl_Familys.total_payment,Tbl_Familys.total_massarif,Tbl_Familys.Name,Tbl_Familys.Qawmi,Tbl_Familys.Date_Birthday,Tbl_Familys.Age,Tbl_Familys.Gender,Tbl_Familys.Healthy,Tbl_Familys.sick,Tbl_Familys.Type_Sick,Tbl_Familys.Address1,Tbl_Familys.Address2,Tbl_Familys.Count_Wife,Tbl_Familys.Mobile,Tbl_Familys.Name_Mother,Tbl_Familys.Social,Tbl_Familys.work,Tbl_Familys.job,Tbl_Familys.Cash,Tbl_Familys.Not_work,Tbl_Familys.Smoking,Tbl_Familys.Notes,Tbl_Familys.Sons,Tbl_Familys.Count_Sons,Tbl_Familys.Picture,Tbl_Familys.Ael,Tbl_Familys.He_Ael,Sabb_ElEstbad,Date_ElEstbad" هو فراغ بين اسم الجدول والحقل المطلوب Tbl_Familys. Number_afrad وغيرت كود لترحيل من خارج الجمعية الى الجمعية من السابق الى هذا strSQL = "INSERT INTO Tbl_Familys ( ID, Type_Osra, Number_afrad, total_payment, total_massarif, Name, Qawmi, Date_Birthday, Age, Gender, Healthy, sick, Type_Sick, Address1, Address2, Count_Wife, Mobile, Name_Mother, Social, [work], job, Cash, Not_work, Smoking, Notes, Sons, Count_Sons, Picture, Ael, He_Ael )SELECT ALMOSTABADIN.ID, ALMOSTABADIN.Type_Osra, ALMOSTABADIN.Number_afrad, ALMOSTABADIN.total_payment, ALMOSTABADIN.total_massarif, ALMOSTABADIN.Name, ALMOSTABADIN.Qawmi, ALMOSTABADIN.Date_Birthday, ALMOSTABADIN.Age, ALMOSTABADIN.Gender, ALMOSTABADIN.Healthy, ALMOSTABADIN.sick, ALMOSTABADIN.Type_Sick, ALMOSTABADIN.Address1, ALMOSTABADIN.Address2, ALMOSTABADIN.Count_Wife, ALMOSTABADIN.Mobile, ALMOSTABADIN.Name_Mother, ALMOSTABADIN.Social, ALMOSTABADIN.work, ALMOSTABADIN.job, ALMOSTABADIN.Cash, ALMOSTABADIN.Not_work, ALMOSTABADIN.Smoking, ALMOSTABADIN.Notes, ALMOSTABADIN.Sons, ALMOSTABADIN.Count_Sons, ALMOSTABADIN.Picture, ALMOSTABADIN.Ael, ALMOSTABADIN.He_Ael FROM ALMOSTABADIN;" ملفك بعد تعديل Mini.rar

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

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

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

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

الحمد لله تم الوصول الى المطلوب ... پێدڤى ب سوپاسیێ ناکەت

أخى الغالى الأستاذ // جلال الجمال الأستاذ الكريم // ناصر سعيد الأستاذ الفاضل // محمد الدسوقى شاكرا لكم حسن تعاونكم على إهتمامكم ورأيكم وتشجيعكم ومناقشاتكم المثمرة أتمنى من السادة المهتمين والمتخصصين ورواد الكنترول أن يفيدونا بشكل للجداول لأنى لست مدرس أو متخصص لا أعرف المواد ولا الدرجات ولى رجاء أن يكون هناك حرص على تقليل عدد أوراق مصنف الشيت فحاليا أعمل على فكرة شيت درجات الناجحين بعد فصل الناجحين والراسبين على أن يكون نفس الشيت يصبح أربع شيتات فى شيت واحد ( شيت الناجحين & شيت درجات & شيت تقديرات & شيت درجات وتقديرات ) وقريبا سأرفق الفكرة وتقبل منى وافر الاحترام والتقدير

المعادلة الصحيحة =IF(A8="","",IF($B8="مهن",IF(10%*SUM(H8:W8)>=243,243,ROUND(10%*SUM(H8:W8)-1,IF($B8="ادارى",IF(10%*($G8+$I8-$D8)>=243,243,10%*($G8+$I8-$D8)),2))),""))

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

=================================================================================================== بدايه قويه لدخول الكبير ياسر خليل ونرجوه ان يدعو من يراه من الافذاذ للمشاركه

نعم هذا ما اريد اخى شفان ، لا اعرف كيف اشكرك .... زۆرسوپاس بۆ هه‌موو يارمه‌تيا ته‌

الكود الذي ينسخ كل شيء Sub Get_names1() m = 0 For i = 2 To Sheets.Count t = Application.CountA(Sheets(i).Range("b:b")) - 1 Sheets(i).Range("b2:b" & t + 1).Copy Sheets("sheet1").Range("b" & m + 2) m = m + t Next End Sub

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

عفوا اخي على التأخير الرد لكن انا جربت على اوفيس 2013 و اشتغل بالضبط لكن هل عندك برامج لفتح ملفات pdf ؟ وبالنسبة اكسس 2007 ما يشتغل عليه لانه الكائن pdf ليس موجود بين الصيغ اللي حولناه التقرير هذا والله اعلم

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

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

اتفضل اخي اليك هذا الكود Dim X As String X = Me.name_amel & ".pdf" DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)", "D:\" & X وهذا ملفك بعد التعديل اذا تريد غير مسار الملف من قرص دي الى اي مكان تريد db1 (7).zip

تفضل Shaaban Flaifel.rar

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function يمكنك وضع هذا الكود في وحدة نمطية وتستدعيه بالكود التالي فيقوم بربط جدول واحد ويمكنك تكرار كود الاستدعاء لربط اكثر من جدول Call CreateTableLink(data path, "table name", "password") بحيث يكون data path هو مسار قاعدة البيانات و table name هو اسم الجدول المراد ربطه و password هي كلمة مرور قاعدة البيانات واخيرا لا بد من ذكر صاحب الفضل في هذا الكود هو معلمنا الكبير ابو ادم تحياتي له

السلام عليكم قرأت الموضوع على عجالة , و الحقيقة جهد مشكور للأخ شيغان على هذا العمل و الصبر أيضا على اتمام العمل و هنا أود الاشارة الى أنه في حالة تصميم البرامج فان أول خطوة دائما هي وضع مخطط تدفقي للمشروع فعلى صاحب المشروع سرد جميع متطلبات العمل ثم يتم وضع تصور للجداول المطلوبة و هل هي تلبي الطلب أم لا ثم البدء بتصميم تلك الجداول و ياحبذا صاحب المشروع أن يقدم توضيحا كاملا لجميع محتويات العمل و لا تستعجل مطلقا بالنماذج فآخر شيء تتحدث عنه هو النماذج المهم هو بناء الجداول بشكل صحيح و حسب مافهمت من متطلبات العمل , و الشرح هنا غير مستوفي بشكل كامل من قبل صاحب المشروع فأنا أضع تصورا للجداول المطلوبة 1- جدول الأسر : و يتكون من رقم مسلسل + أية بيانات مطلوبة عن الأسرة كأسرة محتاجة مثل تاريخ الاعانة و ماشابه 2- جدول نوع أفراد الأسر : رقم مسلسل - نوع الفرد ( زوج - زوجة - ابن ,, ) - 3- جدول الحالة الاجتماعية : مسلسل - نوع الحالة ( أعزب - متزوج - أرمل - مطلق ) 4- جدول حالة الحياة : مسلسل - نوع الحالة ( حي - متوفي ) 5- جدول أفراد الأسرة : مسلسل - - رقم الأسرة - مرتبط بحقل رقم الأسرة ف يجدول الأسر - الجنس ( ذكر / أنثى ) - نوع الفرد ( رقم - مرتبط مع حقل رقم في جدول نوع أفراد الأسر ) - الحالة الاجتماعية ( نوع رقم - مرتبط مع حقل رقم في جدول الحالة الاجتماعية ) حالة الحياة ( رقم - مرتبط مع حقل رقم في جدول حالة الحياة ) - نوع الفرد ( معيل - غير معيل ) و أرجو قبل تصميم الجداول الاطلاع على الوصايا السبع للمبتدئين للمساعدة في كيفية ربط الحقول هذا بشكل أساسي أما بالنسبة لبقية البيانات فحبذا صاحب السؤال أن يقوم بتوضيح المطلوب منها بشكل مفصل بالتوفيق

روعة يا استاذ انا جربت و نجحت 100% وهذا الملف بها ذاك الكود خلي يجربون بيفتحون اكثر من مرة في ان واحد تشغيل برامج اكسس لمرة واحدة على جهاز في ان واحد.rar

السلام عليكم هناك كود قريب من فكرتي السابقة وبالرابط http://access.mvps.org/access/api/api0041.htm ولكن طلعت بفكرة اخرى لا اعلم جدواها وهي عبارة عن ان برنامجي لايعمل الا لوحده ! اي لايمكن ان يعمل مع نسخ اخرى من الاكسس وبكذا لن يقبل ان افتح اكثر من نسخة واصبح الكود بشكل سهل والى حد ما رمهاني وهو بوضعه في حدث عند التحميل للنموذج الرئيسي وطبعا سيكون اول اسطر الاكواد ان وجدت بنفس الحدث Private Sub Form_Load() If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_Process where Name ='msaccess.exe'").Count > 1 Then MsgBox ("i can work alone"): DoCmd.Quit acQuitSaveAll End Sub هذا واتمنى ان حصلت الفائدة اخ سلمان واحبتي جميعا وهذا ويمكن تدوين ملاحظات او اقتراحات للنحسين تحياتي للجميع

السلام عليكم أخي الكريم هذه الدالة Weekday تعطيك ترتيب اليوم في الأسبوع (حالتها الإفتراضية غربية أي اول أيام الأسبوع هو الأحد عندهم) أي أن Weekday(A ) حيث A رقم يدل علي تاريخ ، ستعطينا رقم من 1 إلي 7 1 يعني الأحد ، 2 يعني الإثنين ... 7 يعني السبت كما أن هناك جزء في الدالة إختياري يتيح لك أن تعتبر بداية الأسبوع مختلفة إذا كتبتها بالصيغة التالية Weekday(A,B) حيث A التاريخ ، B رقم شكل الأسبوع الذي تريده ومتاح الأشكال التالية 1 الحالة العادية أول الأسبوع هو الأحد 2 أول الأسبوع هو الإثنين 3 أول الأسبوع هو الإثنين ولكن تعطي 0 لأول الأسبوع ، 1 للثلاثاء ، ... 6 للأحد 11 حالة عامة أول الأسبوع هو الأثنين 12 حالة عامة أول الأسبوع هو الثلاثاء 13 حالة عامة أول الأسبوع هو الأربعاء 14 حالة عامة أول الأسبوع هو الخميس 15 حالة عامة أول الأسبوع هو الجمعة 16 حالة عامة أول الأسبوع هو السبت 17 حالة عامة أول الأسبوع هو الأحد

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

السلام عليكم تفضل اخي وائل أتمنى ان يكون هذا هو المطلوب wael.rar