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

الاخوه فى هذا الصرح العلمى الكبير اعتذر عن قلة تواجدى فى الاونه الاخيره ولكن يعلم الله انى مشغول جدا هذه الايام اسالكم الدعاء لى بالتوفيق والسداد اليوم بأقدم لكم شرح مبسط عن النسخ والقص أو الترحيل بواسطة 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

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

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

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

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

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

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

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

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

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

أخواني الأحبة كما يمكن تنفيذ المطلوب بالكود التالي والذي وللأسف لا أذكر من أفادني به من إخواني وأساتذتي الأحبة في هذا المنتدى المميز له أيا كان كل الدعاء بالتوفيق والشكر ولكم كذلك هذا الكود يلزم ملف الإكسل أن يفتح على صفحة محددة - في هذا الكود اسم الصفحة welcome ويحدد الخلية A1 و هذا هو الكود كل شكري وتقديري لكم جميعا ()Sub Auto_open showWelcome End Sub ()Sub showWelcome Sheets("Welcome").Select Range("A1").Select End Sub

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

اخي الكريم الحق نفسك والحق باقي ملفاتك من التشفير لا حول ولا قوة الا بالله http://www.officena.net/ib/topic/68116-حد-يلحقنى-جزاكم-الله-خيرا/?page=1 الموضوع دا نفس مشكلتك ياريت تلحق تعمل اسكان بانتي فيرس كويس وياريت اي حد عنده معلومات او طريقة للحل يتكرم ويساعدنا لان الموضوع دا كتر اوي والكل يعمل نسخ احتياطية في مكان بعيد عن الجهاز

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

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

عفوا ... الاخ ابو مصطفى هو صاحب المشكلة و ليس انا ...

اخى الفاضل فى المرفق الملف المطلوب ومعه ملف وورد يجب قراءته بعناية شديدة قبل العمل على البرنامج CHEQUE.rar

شرح ولا اروع أستاذي ابدعت أخي الصقر شرح مفصل ودقيق لك كل الاحترام والتقدير

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

وعليكم السلام ورحمه الله وبركاته حسب ما فهمت من سؤالك تحتاج الى تسجيل المادة من داخل النموذج دون الخروج والدخول الى نموذج المادة اذا كان ما فهمت صحيح استخدم الكود التالى فى حدث عن الضغط مرتين فى خانة كود الدواء مثلا DoCmd.OpenForm "form-items", , , , , acDialog, "GotoNew"

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

أخي الكريم وائل لما لم ترفق ملف ؟ لما لم تضع الكود بين أقواس الكود؟! ما هو الخطأ الذي يظهر معك عند النقر على كلمة Debug؟ هل الاسم users الاسم البرمجي لورقة العمل المراد ربط الباسورد بها؟ هل جربت استخدام كلمة Sheets يليها قوس مفتوح ) ثم أقواس تنصيص " ثم اسم ورقة العمل users ثم إغلاق أقواس التنصيص " ثم إغلاق القوس ( ...؟ تقبل تحياتي

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

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then Call kh_Show_UFormChang1 End If '********************************************************** If Target.Column = 5 Then Target.Value = Date Selection.NumberFormat = "yyyy/mm/dd" Target.Offset(0, 1).Select End If If Target.Column = 6 Or Target.Column = 8 Then Target.Value = Target.Offset(-1, 0) Target.Offset(0, 1).Select End If ThisRow = Target.Row If Target.Column = 7 And Range("f" & ThisRow) = "قيد يومية" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("f4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("f4").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "استلام شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g1").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g1").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "قبض نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g2").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g2").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g3").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g3").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g4").Value Target.Offset(0, 1).Select End Select End If End Sub وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل .. أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر وفي النهاية كل واحد له مطلق الحرية لفعل ما يريد ولن أطلب فتح موضوع جديد مرة أخرى إذا كان هذا يضايق الأعضاء ، وسأدعهم يفعلوم ما يريدون ..

اخي الكريم يرجى توضيح الحماية علي ايه بالتحديد اذا كانت على محرر الاكواد او علي اوراق العمل فدي امرها سهل اما اذا كانت على الملف من الخارج فهتبقي صعبة علينا الا اذا كان الملف بامتداد xls مثلا ممكن افك حمايته ولكن المساحة تشترط ان تكون صغيرة وانت ذكرت 40 ميجا؟!!! وضح المطلوب واي حماية؟؟ وهذه مواضيع فك الحماية لاوراق العمل محرر الاكواد http://www.officena.net/ib/topic/66742-فك-حماية-محرر-الاكواد-وحماية-اوراق-العمل/ http://www.officena.net/ib/topic/66951-فك-حماية-محرر-الاكواد-xlsm-xlsb-بدون-تحويل-الملفات-ل-xls/ دي ثقة كبيرة حبيبي الغالي عبد العزيز اعتز بها ومن الممكن ان نجد من هو افضل مني في مجال تكسير وضرب ملفات الاكسيل تقبل فائق احترامي

السلام عليكم تفضل أخي الملف وبه ورقة للشرح نقل التركيز.rar عذرا أخي سليم ، لم أقرأ ردك

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

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

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

القي نظره هنا http://arabteam2000-forum.com/index.php?/topic/293030-%D9%83%D9%8A%D9%81-%D9%8A%D9%85%D9%83%D9%86-%D9%85%D9%86%D8%B9-%D8%A5%D8%B6%D8%A7%D9%81%D8%A9-%D8%B3%D8%AC%D9%84-%D8%AC%D8%AF%D9%8A%D8%AF-%D8%AA%D9%84%D9%82%D8%A7%D8%A6%D9%8A-%D9%81%D9%8A-%D8%A7%D9%84%D9%86%D9%85%D9%88%D8%B0%D8%AC/#comment-1397314 ولي عودة تحياتي

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