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

الاخوه فى هذا الصرح العلمى الكبير اعتذر عن قلة تواجدى فى الاونه الاخيره ولكن يعلم الله انى مشغول جدا هذه الايام اسالكم الدعاء لى بالتوفيق والسداد اليوم بأقدم لكم شرح مبسط عن النسخ والقص أو الترحيل بواسطة Destination وهى تعنى هدف الوصول أو مكان الوصول أو المكان المقصود هنعرف 1 - أزاى نعمل ده بدون اكواد من خلال التعامل مع الشيت مباشرة 2- أزاى نعمل ده بالاكواد نبدأ بسم الله عايزك تفتح شيت اكسيل وتكتب فى الخليه A1 مثلا اى شئ مثلا اكتب " اوفيسنا " المطلوب بعد ما تكتب فى الخليه A1 نقوم بنسخها الى اى خليه اخرى طبعا زى ما حضراتكم عارفين بيكون من خلال تحديد الخليه المطلوب نسخها وهى A1 تم نعمل Ctrl+C ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها وليكن الخلية D1 ثم نعمل Ctrl+V وفى طريقه تانية وهى الوقوف على الخليه A1 وكليك يمين بالماوس واختيار نسخ ثم تحديد الخليه D1 وكليك يمين ونعمل لصق لكن اليوم هنعمل عملية النسخ بطريقه Destination طيب ازاى ؟؟؟ حدد الخليه A1 ثم حرك الماوس الى اى ضلع من اضلاع الخليه ستجد فى سهم مثل هذا السهم دا صوره مكبره منه عندما يظهر هذا السهم على ضلع من اضلاع الخلية اضغط من الكيبورد على زر Ctrl ومع الاستمرار بالضغط على الزر اضغط على زر الماوس الايسر واسحب الماوس الى الخليه D1 مكان اللصق اللى احنا عايزينه طيب ده بالنسبه لعملية النسخ طيب عملية القص ؟؟ الطريقه الاولى تحديد الخليه المطلوب قصها وهى A1 تم نعمل Ctrl + X ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها وليكن الخلية D1 ثم نعمل Ctrl+V الطريقه التانية وهى الوقوف على الخليه A1 وكليك يمين بالماوس واختيار قص ثم تحديد الخليه D1 وكليك يمين ونعمل لصق الطريقه الثالثه اللى هى اساس موضوعنا هنعمل عملية القص بطريقه Destination طيب ازاى ؟؟؟ حدد الخليه A1 ثم حرك الماوس الى اى ضلع من اضلاع الخليه ستجد فى سهم عند ظهوره يمكنك الضغط على زر الماوس الايسر والسحب الى المكان المراد اللصق فيه الخلاصه الطريقه عملية النسخ عملية القص 1- من خلال الكيبور اضغط Ctrl+C ثم انتقل الى الخلية اضغط Ctrl+X ثم انتقل الى الخلية المراد النسخ بها واعمل Ctrl+V المراد اللصق بها واعمل Ctrl+V --------------------------------------------------------------------------------------------------------------------------------------------- 2- من خلال الماوس قم بتحديد الخلية وكليك يمين بالماوس قم بتحديد الخلية وكليك يمين بالماوس واختار نسخ ثم انتقل الى الخليه المراد واختار قص ثم انتقل الى الخليه المراد اللصق بها واعمل كليك يمين بالماوس اللصق بها واعمل كليك يمين بالماوس واختار لصق واختار لصق --------------------------------------------------------------------------------------------------------------------------------------------- 3-Destination حدد الخلية المطلوب نسخها واتجه بالماوس حدد الخلية المطلوب نسخها واتجه بالماوس ( المكان المقصود) الى اى ضلع من اضلاع الخليه هيظهر سهم الى اى ضلع من اضلاع الخليه هيظهر سهم اضغط من الكيبورد على زر Ctrl ومع الاستمرار اسحب الماوس الى المكان المطلوب اللصق به بالضغط اسحب الماوس الى المكان المطلوب اللصق به ----------------------------------------------------------------------------------------------------------------------------------------------------- طيب ازاى نعمل الطريقه رقم 3 Destination ( المكان المقصود) بالاكواد Sub Alsaqer1() Range("A1").Copy Destination:=Range("d1") End Sub طبعا السطر الاول والثالث معروف وهو الاعلان عن بداية الكود ونهايته السطر اللى فى المنتصف بقى هو اللى هنوضحه كتبت اسم الخلية A1 المطلوب نسخها من خلال الخاصيه Range كالتالى ("Range("A1 وبعدين كتبت . اللى هى الضغط على حرف ز بالعربى من الكيبور ثم Copy وتعنى نسخ وبعدين مسافه وكتبة Destination متبوعه =: ثم الخلية المراد اللصق بها ("Range("D1 طيب الكود هيكون ازاى لو عايز اعمل قص وليس نسخ بسيطه جدا نفس الكود مع استبدال Copy Sub Alsaqer2() Range("A1").Cut Destination:=Range("d1") End Sub طيب الكلام كله عن نسخ او قص خليه واحده ماذا لو كان المطلوب نسخ نطاق من الخلايا مثلا من A1:C5 الى الخلايا H1:J5 اولا من خلال شيت الاكسل حدد الخلايا من A1:C5 وحرك الماوس الى اى ضلع من اضلاع التحديد سيظهر امامك السهم عند ظهوره اضغط على زر Ctrl ومع الاستمرار بالضغط حرك الماوس الى الى الخلية H1 ستجد تم نسخ الخلايا طيب ولو عملية القص هيكون نفس الخطوات ولكن بدون الضغط على زر Ctrl يعنى عند ظهور السهم اسحب الماوس الى الخليه H1 طيب ومن خلال الكود لو نسخ شاهد الكود Sub Alsaqer3() Range("A1:C5").Copy Destination:=Range("h1") End Sub نفس الاكواد السابقه الفرق فقط هو بدل ("Range("A1 جعلتها ("Range("A1:C5 ولو قص الخلايا يبقى الكود كالتالى استبدل Copy بــ Cut Sub Alsaqer4() Range("A1:C5").Cut Destination:=Range("h1") End Sub ماذا لو كان المطلوب نسخ الخلايا الى شيت اخر شاهد الكود نفس السابق ولاحظ انت الفرق Sub Alsaqer5() Range("A1:C5").Cut Destination:=Sheet2.Range("h1") End Sub استبدلت ("Range("h1 بــ ("Sheet2.Range("h1 لو احنا عايزين ننسخ عمود A كله مثلا الى العمود F طبعا من خلال الشيت يبقى تحدد العمود كله واذهب الى اى ضلع من العمود هيظهر السهم اضغط على زر Ctrl ومع استمرار الضغط اسحب الماوس الى العمود المطلوب وهو F ولو قص يبقى نفس الخطوات بدون الضغط على زر Ctrl ولو عايزين نعمله بالكود شاهد الكود Sub Alsaqer6() Columns("a:a").Copy Destination:=Columns("f:f") End Sub ------ ماذا لو كان عندى نطاق متغير مثلا من جدول من العمود A الى C ولكن عدد صفوف الادخال غير محدد فى زياده او نقصان فى الحاله دى هعمل سطر لتحديد اخر صف به بيانات فى العمود A شاهد الكود Sub Alsaqer7() lr = Cells(Rows.Count, "A").End(xlUp).Row Range("A1:C" & lr).Copy Destination:=Range("h1") End Sub واخيرا الفائده من هذه الطريقه هى افضل بالاكواد نظرا لسرعه تنفيذ الكود وبساطه كتابته وفهمه كدا انا خصلت كل الامثله باقى انك بس تجرب بنفسك اسال الله تعالى لى ولكم التوفيق والسداد تقبلوا تحياتى

حياكم الله اخواني الكرام استاذ جعفر انا لا اقصد فتح الجدول بمعنى استخدامه فعليا للإضافة !!! اقصد ان يكون النموذج غير منضم بمعنى ليس مصدره الجدول unbound form استاذ عبد الفتاح الحكمة وهذا ما اعرفه وقابل للنقاش والتعديل كما اشرت سابقا 1- التحكم الكامل في ادخال السجلات الى القاعدة .. بدلا من الإدخال والتعديل على مصدر السجلات مباشرة . بمعنى عند التحقق من جميع البيانات يتم الحفظ ... ولكن بالنماذج المنضمة فأنت تضيف مباشرة الى الجدول . 2- عند استخدام القاعدة على الشبكة لأكثر من مستخدم .. يمنع حدوث التكرار .. او عدم حفظ السجل نتيجة التكرار ... كذلك عدم فتح مصدر السجلات كاملا مما يسبب بطء في عمل القاعدة. 3- نحن نريد ان نحفظ سجل جديد فقط ,, لماذا احضر جميع بيانات الجدول . المثال : DoCmd.RunSQL "insert into table1 (id,Nname,Age) values (txtId,txtNname,txtAge)" فكرة ممتازة جدا بارك الله فيك استاذ عبد الفتاح بالتوفيق للجميع

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

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

الف مبروك عودة ميمونة لهذا الصرح العظيم

اتوفع انزل نسخة اخرى فيه ملاحظة ولا اعلم مدى جدواها لاحظت ان الرقم 2 الاحق لاسم النموذج كتب بالشكل العربي والهندي الاصل ! الاكسس النسخة العربي لديه القدره على التفريق بين "نموذج" و "form" وعند استخدام الكائنات المبنية مثل "نماذج" يفهمها "forms" ولكن ياترى لديه القدرة على التفريق بين الارقام العربية وهندية الاصل كما بصورة الكود لديك وبين الارقام لنظام التشغيل ؟؟ وخاصة اثناء التحويل لانه يمكن لم يتعرف على الرقم ! حاول ان تكون الاسماء حروف انجليش كاملة للازرار وللنماذج ! وهذا مالدي و اتمنى ان افدتك اخي الاستاذ كرار ولم اضيع وقتك ! وكلمة حق اقولها في العراقيين : بانهم تربعو على عرش الابداع والتميز والاتقان في جميع العلوم في العالم العربي ويمكن الاخوة الاردنيين اصبحو قريبين من هذا العرش في وقتنا الحاضر ! اجمل التحايا

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

حياك الله استاذ محمد وزادك الله تواضعا وعلما وجهة نظري ان النقاش مازال في الحلقة الأولى ولم يتسع الى ابعد من ذلك . استاذ عبد الفتاح هذا المثال ولا اعتقد ان هذا المثال بغريب على استاذ مثلك !! بالتوفيق جميعا SQLdemo.rar

استاذ عبدالفتاح احنا الاثنين نعمل بطرق مختلفة وقد واجهت الكثير من الصعوبات في هذه المسألة بالذات ، لهذا السبب قدمت هذا الاقتراح جعفر

حياك الله استاذ كرار حصر المشكلة هو نصف الحل فمارايك نحصر المشكلة بتجارب معينة 1. اذهب الى انشاء ماكرو جديد ولا تدرج شيئا ومن نافذة فئات الاحداث قد تكون على اليمين او اليسار حسب اصدارك >> يوجد فئة "في هذه القاعدة" طبعا بالانجليش "in this database" >> قم بتوسيع الفئات حتى تصل للماكرو المضمن بالنموذج المحدد >> اختر بالماوس اليمين اضافة الى الماكرو >> سيتم ادراجه كماكرو منفصل وفي نافذة الماكرو طبعا المفتوحة >> هنا اصبح الامر ماكرو منفصل ولم يحفظ بعد >> انقر الامر تحويل الى كود من شريط الادوات اعلى >> طبعا سيطالبك بحفظ الماكرو واحفظه ثم ستاتي رسالة التحويل >> قم بالتحويل هنا هل تم التحويل او ماهي النتائج ؟؟ ويتبع بعد النتائج !! بالتوفيق

السلام عليكم إخوتي الكرام حريٌّ بنا مراجعة الأكواد وتطبيقها بشكل عملي كتمرين لأن الفهم لا يقاس بالنسبة لنا بل التحصيل والتمرين والتجربة والخطأ مرة ثم إصلاحه جزاكم الله خيراً والسلام عليكم.

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

عَوِّد لِسانَكَ قَولَ الخَيرِ تَنجُ بِهِ مِن زَلَّةِ اللَفظِ بَل مِن زَلَّةِ القَدَمِ وَاِحرِز كَلامَكَ مِن خِلٍّ تُنادِمُهُ إِنَّ النَديمَ لَمُشتَقٌّ مِنَ النَدَمِ

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

السلام عليكم انا سوف انظر الى ملاحظاتكم ، واعلّق عليها ، اما البرنامج فاترك لكم النظر فيه 1. ياريت يُكتب هذا الكلام بحروف من ذهب ، ويُعلق في منتدى الاكسس تسلم ايدك أخوي ابو خليل على التبسيط وللأسف ، هناك من المبرمجين من يبدأ بالعلاقات ، و وايلاه ، يتعقد الموضوع عنده وووو ، وهو في الاصل ليس بحاجة الى علاقة بين الجداول اصلا 2. طبعا هذا من الشروط الاساسية لعمل قاعدة البيانات ، فعن طريق النموذج ، تسيطر على بيانات الادخال ، ورجاء ، رجاء ، لا تعمل Dlookup في الجدول لأي من الحقول ، وانما اعملها في النموذج ، بحيث تكون البيانات في الجدول واضحة ، دون اللجوء الى جدول آخر 3. وهذه هي الطريقة الصحيحة وأخي كرار له وجهة نظر صحيحة في بعض البرامج ، إلا انه لا يُفضل عمله لمثل هذا البرنامج واعطيك سببين لأهمية هذه الجداول من تجربتي: أ. وبعد استعمال احد البرامج في احد المؤسسات بفترة ، اخبرني المستخدم بأن احد المسميات تم تغييرها رسميا !! فاذا كانت الجداول مثل ما اقترح اخوي ابو خليل ، فما كان عليّ إلا ان اغير المسمى في سجل واحد في جدول الخدمية فقط ، وإلا ، فيجب تغيير المسميات في جميع السجلات في الجدول ، واذا كانت هذه المسميات في جداول اخرى فنعمل نفس الشئ ، والمشكلة الكبرى تكون في الكود ، بحيث يجب ان يتم تغييرها هناك ايضا ، وفي الاستعلامات والتقارير وووو ، إن وُجدت ب. من السهل عمل اكثر من لغة للمسمى ، كذلك في جدول الخدمية ، وبدون تغيير اي شئ في الجدول الاصل جعفر

حسب ما فهمت دا المطلوب الاول : كل ما هاتفتح الشيت هتلاقى الخلية النشطة هى اللى متحددة فى الكود Sheet1 : zz3000 Sheet2 : AS20 Sheet3 : A7 sss.rar

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

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

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

وعليكم السلام ورحمة الله تفضلي أختنا الفاضلة هذه الطريقة ويفضل مستقبلا الابتعاد عن المسميات العربية =DCount("[تم]";"sdad";"[تم]=-1 and [رقم]=forms![a]![sdad نموذج فرعي]![رقم]") تجميع علامه صح.rar

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

بسم الله الرحمن الرحيم الحمد لله الذي أخرجنا بالإسلام من ظلمات الجهل والوهم إلى أنوار المعرفة والعلم ، ومن وحول الشهوات إلى جنات القربات ، والحمد لله الذي أنزل على عبده الكتاب ولم يجعل له عوجا ، وشرع الإسلام وجعل له منهجاً ، وأعز أركانه على من غالبه ، فجعله أمناً لمن تمسك به ، وسلماً لمن دخله ، وبرهاناً لمن تكلم به ، وشاهداً لمن خاصم عنه ، ونوراً لمن استضاء به ، وفهماً لمن عقل ، ولباً لمن تدبر ، وآيةً لمن توسم ، وتبصرةً لمن عزم ، وعبرة لمن اتعظ ، ونجاة لمن صدق ، وثقة لمن توكل ، وراحة لمن فوض ، وجنة لمن صبر . اما بعد اضع اليوم بين ايديكم احد البرامج التي تستخدم لفك حماية المصنفات من الخارج وشرحه بسيط كل ما عليك ان تحدد كلمة المرور اما حروف او ارقام او الاثنين معا او اضافة لهم علامات وطول كلمة المرور بمعني اذا كنت لاتعلم طول الكلمة فتضع مثلا تخمين من رقم الى 10 ارقام مثلا حسب ما تريد اما اذا كنت تعرف طول الكلمة مثلا 10 ارقام يبقي تكتب من 10 الى 10 لتختصر في وقت البحث وكلما كانت الكلمة سهلة كان الوصول لها اسهل وكلما كانت مركبة كلما تأخر الحصول عليها شرح الطريقة / يتم تنصيب البرنامج ويتم وضع الباتش بداخل مسار البرنامج ويتم فتح الباتش والضغط على كلمة باتش لجعل البرنامج كامل ملحوظة يرجى اغلاق برنامج الحماية اثناء نقل الباتش لانه يعتبره فيرس وبعدها قم بحذف الباتش عادي واعادة تشغيل الحماية انا عارف ان دا مخالف بس انا نزلت احد البرامج عشان الاخوة اللي بيعانو من فقد كلمات المرور يوجد برامج عدة من هذا النوع وانواع اخرى واذا جمعت بعض منها ويكون كامل سأضعه لكم باذن الله نجح مع ملفات xls شرح طريقة فك ملف اكسيل مرفق فيديو به الشرح تقبلو تحياتي ياسر العربي yasser1.rar Excel Password Unlocker v4.0.2.3 + PATCH [Win 32+64 Bits].rar

مبارك العودة - وزاده الله من فضله

على راسي استاذنا الحبيب فورا

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

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

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

منك انت يعجبنى العجب والصيام فى رجب هههههههه حبيبى يا ابواسيل على فكره بقا انا لسه مجبتش بسمله ههههههههههههههههه

يبدو انها اختلطت عليك الجداول فقط الجداول الخدمية ( التي نجلب منها الاسماء ) لاحظ الخطأ الذي حصل : هنا 3 جداول : tbl_Vacations tbl_Vacations_3rda tbl_Vacations_Type فالجدول الخدمي هو الاخير بينما انت عدلت على الجميع في الجدولين الاولين الكود يجب ان يكون قابلا للتكرار والمفتاح يمكن ان تجعله ترقيما آليا وقس باقي الجداول على ذلك

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

في الجداول الخدمية : جميع الاكواد في الجداول الآن تبدأ من الرقم واحد وبهذا الاسلوب ستواجه مشكلات مستقبلية عند المعايير والتصفية الحل : اجعل الاكواد تبدأ من 3 ارقام على الأقل

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

في جدول الموظفين اجعل الحقل Emp_Code هو مفتاحا اساسيا فقط يجب ان يكون رقما فريدا لا يتكرر في بقية الجداول الخدمية : يمكنك حذف حقل الترقيم التلقائي ويكفي ان تجعل الكود مفتاحا للجدول

حياك الله ابو مصطفى من خصائص النموذج - تنسيق - الاتجاه اذا كان الاتجاه من اليمين الى اليسار ظلل جميع محتويات النموذج ctrl+a واسحبها الى اقصى النموذج جهة اليمين بعد ذلك اسحب نهاية النموذج من اليمين الى اقصى اليسار .. اذا كان الاتجاه العكس ... اعمل العكس ==================== هنا شرح على مثالك قم بنقل مربعات النص في اقصى يسار النموذج form1 لديك الى الوسط ثم قم بسحب النموذج من اليمين الى اقصى اليسار بالتوفيق

http://www.officena.net/ib/topic/68283-فك-حماية-ملف-الاكسيل-من-الخارج/

في هذه الحالة ، استخدم هذا السطر: Path1 = me.parent.pate & "\" بدلا عن Path1 = Application.CurrentProject.Path & "\" جعفر

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

أخي الفاضل اجعل في لكل سؤال مشاركة.. هذا مخالف لقوانين المنتدى وأيضاً ليتسنى لأساتذتنا الكرام الرد على سؤالك

طيب ممكن من فضلكم نوسع دائرة النقاش خطوة خطوة حتى لا يفقد طلاب العلم البسطاء تركيزهم وتتشتت افكارهم اولا على هذا الوضع للقاعدة المرفقة الجداول الخدمية والرئيسية قمت بعملها ماعدا جدول المواظبة وجدول الاستدعاءات للعمل فى الاوقات الغير رسمية تقريبا اريد من فضلكم ان تتسع صدوركم لى وتتحملوا جهلى وفضلا ليس امرا اتمنى تضييق دائرة النقاش حتى لا تتسع فى نقاش خطوه متقدمة فى أوقات غير وقت مناقشتها النقاط المطروحة للنقاش فى تلك الفترة هى الجداول ومسمياتها والحقول بداخلها - هل تلك الجداول باسمائها وكذلك الحقول داخل تلك الجداول بأسمائها كذلك عليها تعقيب - قمت بالغاء كل العلاقات بين الجداول التى قد قمت بوضعها فى المرفق الاول بناء على ما تفضلتم به ولكن لا أعلم كيف ستسير الأمور بدون هذه العلاقات ولكن لن استبق النقاش وأتطرق الى هذه الخطوة - هل هناك حقول لم اقم بإضافتها وكان من المفروض اضافتها - هل هناك حقول اضافتها لا فائدة منها فى الجداول - الجداول التى تنقص تلك القاعده حتى يكتمل النظام ليكون هناك تناغم حقيقى ما هى ؟ وما هى الحقول التى تنبغى ان تكون موجوده بها ؟! اعتذر اساتذتى ولكن عهدت منكم النزول الى مستوى اقل فهم طالب علم ولن تجدوا اقل من هذا المستوى عندى فتحملونى بحلم وصححوا لى خطأى بعلم جزاكم الله تعالى عنى وعن كل اخوانى خيرا Emp_Database.rar

هديــة قيمة لكل إخوانى الكرام فى هذا الصرح الشامخ إضغط هنا لتري الهدية

الله يسعد أوقاتكم جميعا زيادة الخير خير - بدون أن أتخطى - حدودي مع أساتذتي الكرام تحياتي لكم جميعا و دوما منك نستفيد حل بطريقة أخرى بالمعادلات - أرجو أن يكون المطلوب معادلة لحساب عدد كل جنسية مع اهمال التكرار من خلال استخدام Student ID.rar

أخى الجموعى اتفضل شوف الرابط لعلك تستفيد منه http://www.officena.net/ib/topic/68265-شرح-مبسط-عن-النسخ-والقص-أو-الترحيل-بواسطة destination/ تقبل تحياتى وبالتوفيق

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

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

حياك الله اخي الكريم بالنسبة للأداة فلا حاجة لعمل قاعدة جديدة لها .. انا كنت اقصد مشروعك نفسه .. بالنسبة لل accdb فهي الآن تفتخ قمت بتعديل ان شاء الله يكون مناسب . عموما الآن جرب الأداة كما هي اضغط على agree واتبع الخطوات .. الله ييسر امرك FixBadAOIndexACCdb.rar

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

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

وعليكم السلام و رحمة الله و بركاته ... If DCount("*", "tp") = 0 Or DLast("[id]", "tp") = 11 Then txt1 = 1 Else txt1 = DLast("[id]", "tp") + 2 txt1.Requery End If . . . كرار ...

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

يمكن استخدام طريقة تغيير خاصية قابل للتعديل وبالقيمة =نعم ! مع افتراض ان الخاصية تاخذ القيمة لا عند تحميل النموذج فعند تحميل النموذج يكون الحدث وعند التحميل للنموذج Me.AllowEdits = False وعند الضغط على الزر يكون الحدث Me.AllowEdits = true وهنا يظهر استفسار : ماذا بعد التعديل في النموذج هل يتم عودة عدم السماح بالتعديل ام يظل التعديل متاح ؟ فاذا يعود الاقفال اكتب الحدث التالي وعند بعد التحديث للنموذج Me.AllowEdits = False هنا اصبح السناريو : عند تحميل النموذج اول مرة غير متاح .... عند النقر على الزر متاح ... بعد التعديل يعود عدم السماح بالتوفيق