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

مشكور أستاذ ( أحمد الفلاحجى ) على ردك و إهتمامك يعمل بشكل سليم . جزاك الله خيرا

الأمر بسيط جدا فقط عليك اضافة أخرى End If

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم واخواننا واساتذتنا لايقصرون وكل منا على حسبه وقته وجهده وعلمه فارجو منك التماس العذر لاخوانك ولعلى اولهم ولكنى لست اعلمهم فاننى مبتدء واتعلم من اخوانى واساتذتى واجيب على قدر معرفتى واخى محمد حلبى وخالد قد جاوبوك فى موضوعك الاخر ولم ترد على اخر مشاركه لاخى واستاذى خالد ولم يقصروا وكل منا يسعى للاجر والثواب من الله واقتبس من اخى واستاذى خالد ولا نريد سوى دعوه في ظهر الغيب قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : ( مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا فَقَدْ أَبْلَغَ فِي الثَّنَاءِ ) صل الله عليه وسلم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

اخى الفاضل فضلا لا امر عدل اسمك بالموقع لمنادتك به وعدم رفع المواضيع القديمه بل افتح موضوع جديد خاص بك ان لم تستطع عمل ذلك وقم بارفاق الموضوع القديم بموضوعك ارجوا ان تتقبل كلامى بصدر رحب وانا اخوك الصغير نعم يمكن ذلك استعنت بالمثال الاخير بمشاركه اخى الفاضل محمد ندى جزاه الله خيرا هو واخى @Bluemind انظر للجدول قد قمت باضافه حق باسم ADm افتح الاستعلام SELECT Table1.ID, Table1.Start_Date, DateAdd("m",[ADM],[Start_Date]) AS [End Date], [End Date]-Date() AS Remarks FROM Table1; ستجد قمت باسبدال الرقم بالاستعلام للحقل بالجدول DateAdd("m",[ADM],[Start_Date]) تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق dayslife.rar

وممكن استخدام الدالة DateAdd DateAdd("d";[المدة باليوم];[d1]) ولها ثلاث وسيطات d تعني اننا نرغب في اضافة ايام المدة وهي الحقل الذي يحتوي عدد الايام d1 حقل التاريخ وفقا للمثال دالة DateAdd تستخدم في الاستعلام ومنشئ التعبير وفي الاكواد التاريخ.accdb

اعتقد انك قلت اعلاه مطروحا على كل حال بدلنا علامة - بعلامة + انظر المرفق النموذج 2 التاريخ.accdb

جرب هذا الماكرو Option Explicit Sub MY_SUM() Dim sh As Worksheet, m As Worksheet Dim t As Long Set m = Sheets("mine") For Each sh In Sheets If sh.Name Like "[a-zA-Z]" & "*#" Then _ t = t + Application.CountIf(sh.Range("I:I"), m.Range("A8")) Next m.Range("B8") = t End Sub

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

وعليكم السلام 🙂 اضف هذا المتغير الى القائمة: Public Const msoControlPopup = 10 جعفر

السلام عليكم لقد قمت ببعض التغييرات فألغيت ارتباط النموذج Sub form Safety Valve وغيرت اسم حقل Certificate No إلى CertificateNo وقمت بحفظ الماكرو خاصتك بصورة منفصلة غير مضمنة. أرجو أن يكون هذا ما تبحث عنه. MOPCO_be2.rar

أستاذ أبو سلطان فهد أين الضغط على الإعجاب ؟!💙

تفضل أخي 55555.xlsx تفضل أخي

بعد إذن أستاذ / علي يتم وضع End If قبل end sub

أحسنت أستاذ منير شرح ووافى وكافى بارك الله فيك

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

محاولة منى مع اسفى لتغير اسم الحقول بالانجليزية التاريخ.accdb

يكتب هكذا If TextBox1.Value > 100 And TextBox1.Value <= 500 Then Label5 = TextBox1.Value / (100) * 100 End If المبيعات-1.xlsm

في نهاية الروتين Sub Get_Info() يمكن اضافة Cells.Columns.AutoFit لضبط اتساع الأعمدة الأ اذا كنت تريد عدم الضبط ففلاتضيفها

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

وعليكم السلام اخى الفاضل فضلا لا امرا ارجو تغيير اسمك حتى نستطيع منادتك باسمك هل هذا ما تريد ؟ DB500.rar

كل المحبة و الاحترام

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

السلام عليكم ورحمة الله وبركاته اللي يعتقد بأننا نستخدم الاكسس في الحسابات فقط ، فاليلقي نظرة على برنامج القافية هذا برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما ونظرا لكبر حجم البرنامج ، فهو موجود في الرابط التالي: جعفر

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

رائع يامعلم

السلام عليكم ورحمة الله وبركاته بداية اود ان ارسل شكر خاص لكل القائمين على هذا المنتدى الذي دائما ما يبدع بنفس قيمة ابداع منتخب مصر الوطني والموضوع يختص بمحاسبة الفنادق وهو عبارة عن اربع ملفات تقوم بعمل جزئيات متخصصة فقط في الفنادق -والملف الاول هو عبارة عن مراقبة حركة ايرادات قسم الغرف : وفيه سنجد حركة تسجيل ال RC وما ينتج عنه من كافة التقارير المرتبطة بحركة التسكين مثل Guest In house و Travel agent reports , Arrival & departure reportوكذلك كافة التعاملات التي تخص الغرف من F&B Posting , Room Change , Room rate change All debits to room & all credits to room وغيره من التقارير ذات الصلة بتسكين الغرف وقد وفقت والحمد لله في معالجة جزئية هامة جدا وهي دخول غرفة في تاريخ خلال شهر معين وفترة اقامتها خلال شهرين متتاليين . - والملف الثاني يختص بقسم مراقبة التكاليف وايضا هو شامل لكل ما يخص هذا القسم وفيه يتم عمل تحليل لحركة دخول وخروج البضائع من والى المستودعات والاوتليتس وايضا تحليل حركة البيع في كل الاوتليتس وتحليل الاوفيسر وكل مايهم مراقب التكاليف من تقارير - والملف الثالث هو ملف يختص بقسم المدفوعات من تحليل لحركة الخزينة بالعملات المختلفة واثبات كافة التعاملات بشكل قيد يومية يتم الترحيل منه الى حسابات الاستاذ والحسابات التحليلية المختلفة والى موازين المراجعة ومنه الى الحسابات الختامية.وعمل General Cashier Report وايضا كافة التقارير المرتبطة بحركة البنك والخزينة. - اما الملف الاخير فهو ملف يجمع كافة الملفات السابقة بالاضافة الى Receivable في شيت واحد يمكن من خلاله عمل كشف حساب مبسط لاى حساب تم انشاؤه مسبقا وكل ملف يخرج منه JV منفصل يعتمد على Chart موضوع مسبقا وكل حساب يتم كتابته عن طريق الكود وليس باسمه. وارجو ان يساهم كل من له راى او اضافة في هذا الموضوع الشيق وسوف اقوم باذن الله تعالى برفع هذه الملفات تباعاوفي انتظار ملاحظاتكم . هاني بدر

لابد من إرفاق ملف بالمطلوب وتحديد الخلية التي تريد زيادتها أو نقصانها زر زيادة ونقصان.xlsx.xls

الله يجزيك خيرا استاذ جعفر.. دائما سباق للخير وتقديم كل ماهو جديد

ما شاء الله عليك استاذنا جعفر إبداع جميل ربنا يعطيك الصحه والعافبه

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

على كده احاول كتابة الشعر من الان بسببك اخي @jjafferr 😁

السلام عليكم اخوي خلف شكرا على هذه الكلمات الجميلة ، وهذا من حُسن ظنك فيني ذكرتني ببرنامج قديم عملته من زمان ، فرفعته بالشرح جعفر

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

اتفضل Database8 (1).accdb

يقولون لايفتى ومال في المدينة ما دام الاستاذ @jjafferr دخل على الموضوع فيجب علينا ان نصمت فكرتي عن الموضوع تتلخص بالتالي عندما سألت السؤال في مشاركتك الأولى كان يخطر في بالي نفس الحل الذي قدمه لك الاخ @AlwaZeeR وهو يعتمد نفس المبدأ الوقوف على كل سجل بالنموذج وبما ان هذه الطريقة لا تريدها دعنا نترك التعامل مع الحقل غير المنظم الموجود بالنموذج ونقوم ونتعامل معه مباشرة عن طريق الاستعلام لاستخلاص نفس النتيجة لذلك سنقوم بعمل جدول مؤقت بأسم Table1_Temp ونعمل زر أمر بالنموذج ونضع خلفه هذا الكود Private Sub cmd_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Table1_Temp.* " & vbCrLf & _ "FROM Table1_Temp;" DoCmd.RunSQL "INSERT INTO Table1_Temp ( name11, frequency ) " & _ " SELECT Table1.name11, Count(Table1.ID) AS CountfromID " & _ " FROM Table1 LEFT JOIN Table1_Temp ON Table1.ID = Table1_Temp.ID " & _ " GROUP BY Table1.name11;" DoCmd.RunSQL "UPDATE Table1 INNER JOIN Table1_Temp ON Table1.name11" & _ "= Table1_Temp.name11 SET Table1.frequency = [Table1_Temp]![frequency];" Me.Refresh End Sub ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم Database88-906.rar

العفو استاذ عبدالله وهذه فكرة اخرى sumdebit2: DSum("[debit]","entry","left([code]," & Len([code]) & ")=" & [code]) بالتوفيق

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

sumdebit: DSum("[debit]","entry","[code] like '" & [code] & "*'")

السلام عليكم الآن ننتقل الى كود XML وكيفية انشاءه. كود XML لتخصيص شريط ادوات يبدأ ب <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> هنا نضع الكود الخاص بانشاء شريط الادوات <tabs> </ribbon> </customUI> طبعا انا هنا لن اتطرق لمفاهيم لغة XML لان هذا ليس موضوعنا كما اننى لا اعرف عنها الكثير ساشرح فقط ما نحتاجه لتخصيص شريط الادوات اولا نفتح CustomUI ونغلقه كما بالكود اعلى وبداخله نفتح Ribbon ونغلقه وننتبه لحالة الاحرف فى بداية Ribbon نكتب "StartFromScratch="false وهذه الخاصية اذا ضبطت على False تقوم بعمل الشريط بعد الاشرطة الافتراضية اما True تقوم باخفاء الاشرطة الافتراضية بعد ذلك نكتب الكود التالى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> rRibbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true"/> </tab> </tabs> </ribbon> <CustomUI> هذا الكود يقوم باضافة tab جديد حيث customTb1 المعرف الخاص بالشريط MY NEW TAB الاسم الذى يظهر للمستخدم Visible="true" عملية اظهار الشريط الجديد ثم نقوم باضافة المجموعات الخاصة بالشريط بنفس الطريقة حيث نستبدل TAB ب Group <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true" > <Group id="CustomGR1" Lable="My Group"> </Group> </tab> </tabs> </ribbon> </customUI> نضيف المجموعة customGR1 المعرف الخاص بالمجموعة MY Group الاسم الذى يظهر للمستخدم قوموا بتنفيذ هذه الخطوات ثم اغلاق قاعدة البيانات ثم اعادة فتحه و قوموا بالذهاب الى options واختيار Current DataBase ومن ثم فى جزء Ribbon And Tool Bar Options اختار الشريط الذى قمنا بتصميمه ان شاء الله فى المشاركة القادمة نشرح كيفية اضافة الادوات والازرار الى الشريط والمزيد من خصائصها وبعدها ان شاء الله نشرح كيفية التحكم فى وقت فتح هذه الاشرطة سواء تخصيصها لفورم معين او فتحها عند فتح البرنامج وهذه القاعدة تنفيذ لما تعلمناه وهذا الكود النهائى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> </group> </tab> </tabs> </ribbon> </customUI> Ribbon Customization Using XML.rar ملاحظات : 1- يجب الالتزام بحالة الاحرف الكبيرة والصغيرة 2- <ribbon>,<tab>,<group> هذه الاشياء تسمى فى لغة XML الاوسمة ومعظمها يفتح ثم يغلق ويفتح <الاسم> ويغلق <الاسم/> 3- لغة XML ليس لها اوسمة مخصصة شجعونى بآرائكم ومن كانت عنده زيادة او انتقاد او سؤال فلا يبخل علينا به

تفضلي اختي الشرح موجود بالصوره في المرفق ارجوا ان يكون واضح

إخواني الأعزاء نظراً لتزايد الحاجة إلى استعمال أدوات أقرب ما تكون إلى ثابتة للتحكم في مسار البرامج الخاصة بالأكسس وخاصة التجارية منها .. لذلك افردت جزء من اهتمامي لتطوير أدوات إدارية خاصة بي للتحكم في جميع برامجي بها .. وقد أرفقت هذا المثال في مشاركة خاصة بالحماية ولكن من الحكمة فصلها حتى تكون مرجع مناسب للبحث عن مثل هذه الأدوات . المثال الجامع للأدوات الإدارية 1- ربط البيانات 2- النسخ الاحتياطي 3- توجيه المسار لنسخة سابقة 4- حماية البرنامج من النسخ 5- صلاحيات المستخدمين 6- نسخ المراجع وإضافتها 7- إخفاء الجداول 8- معلومات النظام 9- وضع صورة في الخلفية مع الأخذ في الاعتبار أنني بدلت وغيرت بعض الأشياء وتم تبسيط بعض الأمور حتى لا تتعارض مع برامجي المنشورة وخاصة أنها خاضعة لشركة تجارية . ونظراً لضيق الوقت سأقوم بتفسير بعرض الأدوات باختصار شديد الدخول اسم المستخدم : 1 كلمة المرور : 1 1- ربط البيانات : عند فتح البرنامج يعمل الماكرو التنفيذي على فتح شاشة بدء التشغيل وكذلك نموذج الربط التلقائي وفي حالة فقد الرابط تخرج شاشة الربط التلقائي لتحديد المسار بالنقر المزدوج داخل المسار . 2- النسخ الاحتياطي يكون لقاعدة البيانات المرتبطة فقط أي للجداول فقط بنفس تاريخ يوم النسخ 3- توجيه المسار لنسخة أخرى شبيه بالربط التلقائي ولكن يستخدم لربط نسخة سابقة أو تالية 4- حماية البرنامج من النسخ تستخدم نفس الأسلوب الذي أشرت إليه في مشاركة الخاصة بالحماية للأخت زهرة مع ملاحظة وضع الكود التالي في حدث عند الفتح للنماذج الهامة التي نريد بدء الحماية عليه DoCmd.OpenForm "serial" من قائمة أدوات – تسجيل نسخة شرعية – استخدم المعادلة الأتية الرقم العلوي + 12305+( مدة التشغيل إما 15 يوم أو 30 أو 90أو 366 أو 1000 أو 10000 يوم ) الناتج يضرب × 2 والناتج يطرح منه 9999999 ومن السهل معرفة المعادلة من داخل الكود 5- صلاحيات المستخدمين تستخدم أسلوب اقرب ما يكون لأسلوب ابن مسقط مع مهند عبادي وقد قمت ببنائه بالمشاورة مع أبو عبد الله ولكن به بعض الاختلافات الجوهرية عن ما سبق الإشارة إليه == تم تقسم الصلاحيات إلى مسئول له جميع الصلاحيات == مستخدم يقوم المسئول بمنحه الصلاحيات == يمكن إنشاء أكثر من مسئول وتم التقسيم السابق لمنح المرونة للمسئول في منح الصلاحيات وتفويضها إن احتاج الأمر . == الجدول AdForToUse يستخدم لتحديد النماذج التي سيتم تركيب صلاحية لها ( ليس كل النماذج نرغب في وضع صلاحية عليها أو عرضها في شاشة منح الصلاحيات ) مع وضع اسم النموذج أو وظيفته باللغة العربية ليتمكن مسئول النظام من فهم كيفية منح صلاحية لمستخدم لأن استخدام أسماء النماذج كما هي لا يفيد إذا تم توزيع البرنامج وخاصة إذا كانت باللغة الأجنبية . == في نفس الجدول يجب تحديد مستوى النموذج من حيث الصلاحية a.b.c.g - المستوى a النماذج العامة - اختبار ( فتح ، تعديل ، حذف ، إضافة ) - المستوى b النماذج الفرعية - اختبار ( تعديل ، حذف ، إضافة ) - المستوى c النماذج الخاصة بالمسئول فقط - اختبار ( فتح فقط )لمسئول فقط - المستوى g النماذج التي يتم استدعاء التقارير منها - اختبار ( فتح فقط ) == في حدث عند الفتح يتم وضع الكود التالي فقط دون وضع أي أدوات أخرى على النموذج ... فقط هذا الكود .... Call allaw([Form]) أما باقي الأدوات فسأترك لكم استكشافها . وسيعجبكم كثيراً بإذن الله أداة إخفاء الجداول أيضاً أو التنويه على أن ما سبق ليس مطلقاً ولكنه خاضع للتطوير باستمرار مثل تشفير الصلاحيات والاستغناء عن الاستعلام في الصلاحيات وتطوير الحماية لتكون أكثر مرونة ولكن لن أستطيع أرفاق إلا ما سبق للأمانة العلمية . ===== في حالة وجود أي خطأ فني اعذروني للسرعة . مع خالص تحياتي رضا عقيل GeneralTols.rar

الأخ كمال بالنسبة لسؤالك هل بامكاني استخدام ADO في الاكسس ؟ الجواب نعم وهي من الأدواة القوية جداً وهي أداة إتصال بقواعد البيانات ويمكنك الإتصال من خلالها بقواعد بيانات أوركال و إس كيو إل سيرفر ( Oracle & SQL Server ) وقواعد أخرى كما يمكنك الإتصال بقاعدة بيانات أكسيس غير التي تعمل عليها والتعامل مع بياناتها من حيث الحذف والإضافة والتعديل واستعراض البيانات الطريقة : لمحركات Jet أي قواعد أكسيس هي : 1. أولاً يجب ضبط المكتبة المسماة : Microsoft ActiveX Data Objects2.7 Library وقد تختلف في رقم الإصدار تأكد منها لديك. بالنسبة للمثال فهذه الطريقة : 1. الجدول اسمه ( Tbl1 ) 2. الحقول في الجدول هي (FirstName ) و (LastName ) 3. مربعات النصوص هي ( Txt FirstName ) و (LastName ) 4. في حدث عند النقر للزر نكتب الكود التالي : Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "Tbl1", CurrentProject.Connection, _ adOpenDynamic, adCmdTable rst.AddNew rst!FirstName = txtFirstName rst!LastName = txtLastName rst.Update rst.Close طبعاً النموذج بدون مصدر نظيف الكود التالي لمسح البيانات من مربعي النص بعد حفظ المعلومات في الجدول لتهيئتهما لإضافة بيانات جديدة Me.txtFirstName = "" Me.txtLastName = "" أيضاً الكود التالي الإضافة بواسطة لغة Sql ولكن يجب ضبط مكتبة DAO Dim db As Database, rsCust As Recordset, strsql As String Set db = CurrentDb strsql = "select * from tbl1" Set rsCust = db.OpenRecordset(strsql, DB_OPEN_DYNASET) strsql = "INSERT INTO tbl1(FirstName,LastName)Values ('" & Me!txtFirstName & "','" & (Me!txtLastName) & "');" db.Execute strsql وبإمكانك إضافة نموذج فرعي في النموذج الذي تدخل البيانات عن طريقه العرض الإفتراضية له " ورقة بيانات" وتستخدم أمر Requery أو Refresh لكي يعرض السجل الذي تم حفظه0 بالنسبة لسؤالك : هل يوجد اداة اظهر فيها البيانات للمستخدم(كجدول مثلاً) في الاكسس الجواب : هناك النماذج التي يتم تغيير طريقة العرض فيها من نموذج إلى ورقة بيانات أو نموذج مستمر وكذلك يوجد MSFlexGrid ولكنها تحتاج إلى أوامر برمجية لملؤها بالبيانات ولكن الأسهل لك هو : النماذج التي يتم تغيير طريقة العرض فيها من نموذج إلى ورقة بيانات أو نموذج مستمر. أرجو أن أكون قد أفدتك