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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...إخوتي الكرام السلام عليكم ورحمة الله وبركاته أحببت أن أعرض عليكم بعض إمكانيات الإكسيل الرائعة في تنسيق الأشكال في حال عدم توفّر الفوتوشوب أو البرامج الرسومية الأخرى ليظهر الملف بشكل أنيق ... حبث أنه يتمتع بجماليات في الخط والشكل وتناسق الألوان لكنه بعود على الملف بشيءٍ من البطء وزيادة حجم الملف .. الارتباطات التشعبية تظهر على شكل شفاف كقطرات الندى في صباح ربيعي مزهر..عند وضع المؤشر عليها تدلك على الورقة الهدف. راجياً من الله تعالى أن ينال إعجاب حضراتكم. اسم المستخدم :admin كلمة السر 123 ...بعض أوراق العمل محمية دون كلمة مرور ... والسلام عليكم ورحمة الله وبركاته. مكابس بلوك.rar

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

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

وعليكم السلام سهلة المحاولة التالية للتغلب على هذه المعادلة ، والحصول على معادلة صحيحة: If Me.mycount <= 39 Then Me.StuName.Height = Me.StuName.Height * 1.33 ابدأ بالتالي: اجعل حقول قسم التفصيل Detail قصيرة جدا ، شوي اكبر من خط مستقيم ، في التقرير عندك مجموعة اقسام ، وجميع الاقسام ارتفاعاتها ثابته وغير متغيرة ، القسم الوحيد الذي يتغير هو قسم التفصيل Detail ، عندك ارتفاع التقرير النهائي على حجم A4 مثلا ، واحسب ارتفاعات جميع الاقسام ، واطرح هذا من ذاك وبتحصل على المسافة المتبقية للقسم Detail ، تقدر تحسب عدد السجلات اللي بتكون في كل فصل ، وفي حدث فتح التقرير اقسم المسافة المتبقية من التقرير على عدد السجلات ، وتحصل على ارتفاع قسم Detail ، وهو المطلب الاول الاصل (والتغييرات تصير عليه بعدين) ، وبعد عدة تجارب ستصل الى الارتفاع الصحيح ، وعليه تغير ارتفاع الحقول الى نفس ارتفاع قسم Detail قلت لك سهلة جعفر

كانت حتى تركز على ارتفاع القسم فقط ، وبعدها تستطيع انت ترجع للحقول وتعطيها الحجم الصحيح تفضل وانزل المرفق من هنا : http://www.lebans.com/autosizefont.htm بس حسب تجربتي مع الكود ، فتستطيع ان تضيف الى الحجم النهائي (في الكود) نقطة او نقطتين ، بالتجربة سترى قصدي ، ولا داعي لـ len جعفر

بعد اذن اخي زيزو بدون حلقات تكرارية هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False On Error GoTo exit_sub If Target.Column <> 2 And Target.Cells.Count > 1 Then GoTo exit_sub Sheets(Target.Value & "").Activate exit_sub: Err.Number = 0 Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله انسخ الكود التالى وضعه فى حدث شيت العملاء Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Target.Value = sh.Name Then sh.Activate End If Next Application.ScreenUpdating = True End Sub

هلا والله أخوي وائل حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اذا اتفقنا ، شوف الحل التالي: مشكلتك في طريقة طباعتك للتقرير انك تجلب وتفرز وتصفي 34 الف سجل 3 مرات ، بينما الطريقة التالية تخليك تجلب وتفرز وتصفي 34 الف سجل مرة واحدة فقط ، ولكن تطبع التقرير 3 مرات: DoCmd.OpenReport "Rreceipt", acViewPreview, , , acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر

جرب هذا الملف اصنافform salim.rar

السلام عليكم ورحمة الله وبركاته الموضوع هذا بدأ بسؤال الرابط التالي: http://www.officena.net/ib/topic/65783-البحث-عن-اي-جزء-من-الكلمة-عنوان-معدل/ ولكن لأني غيرت الكود وجعلته يبحث في اي عدد من الحقول في السجل ، لذا رأيت ان اجعل له موضوعا مستقلا يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل او جزء منها ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها. الشئ المهم في الكود هو طريقة إضافة حقول جديدة للبحث فيها: هذا اول حقل يتم البحث فيه fld = "[كلمات ارشادية]" لما نريد ان نضيف حقول إضافية للبحث فيها ، يجب ان يكون الكود كالتالي fld = fld & " & ' ' & " & "[موضوع الخطاب]" fld = fld & " & ' ' & " & "[my other field]" وكل ما عليك الآن هو ان تطبع وترى نتيجة بحثك: . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_Multiple_Fields_jj.mdb.zip

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

السلام عليكم ورحمة الله وبركاتة في النموذج الفرعي وضعة =Nz(Sum([Expr1])) وفي النموذج الرئيسي جعلت الحقل يساوي حقل النموذج الفرعي لكن عندما لاتكون هناك قيم مدخلة =Nz([Frm_Month].[Form]![sh])

جزاك الله خيرا هدية مقبولة - جعلها الله من الصدقات الشافية , فقد قال رسول الله (صلى الله عليه وسلم : داووا مرضاكم بالصدقة) وإن هبة العلم صدقة. اللهم اشفى زاهرا شفاءا لا يغادر سقما - وارفع قدر والديه واجزهما خيرا. آمين

في نموذج_المواد حقل Sum_Total

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

سلامتك الف سلامه ان شاء الله الكود وانت لا اضحك الله سنكم دائما

ههههههههههههههههههههههههه

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

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

سهله واسهل من السهوله

تهنئة من القلب لجميع اخواننا المحترفين الترقية الى مجموعة الخبراء الف مبروك

الف مبروك و تستاهلون اكثر من ذلك

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

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

جزاكم الله خيرا استاذى القدير ومعلمى الجليل ووالدى الحبيب استاذ @jjafferr تم التعديل على الكود كما تفضلتم اتمنى ان اكون طبقت بالطريقة الصحيحة اختنا الكريمة @Rawannnna السبب ان حضرتك اضفتى على الازرار فى نموذج مواعيدك هذا السطر بعد كود فتح النموذج DoCmd.Close acForm, "مواعيدك" ولذلك يتم اغلاق هذا النموذج فمن المنطقى بعد ان تظهر الرسالة يغلق النموذج هناك حلان الاول ازالة هذا السطر من كل ازرار ااوامر فى نموذج المواعيد فيظل مفتوحا دائما والحل الاخر فى هذا المرفق لو اردتى اغلاق النموذج مواعيدك يتم فتح النموذج مرة اخرى بعد الرسالة | لك مطلق الحرية فى اختيار ما يناسبك طبعا وتم اضافة الكود الخاص بعد سجلات النماذج كما تفضل واشار استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr نظام متابعة مواعيد مرضى السكر .rar انا مش عارف ايه المشكله عند حضرتك بصراحة انا شغال عندى تمام قبل التحويل وبعد التحويل

وعليكم السلام امر NZ لا يُكتب هكذا: =Nz(Sum([sum0])) وانما هكذا =Sum(NZ([sum0],0)) ولكنه لا فائدة له في كون النموذج الفرعي جدولي. طريقة العمل: 1. نأخذ مصدر بيانات النموذج الفرعي ، والذي هو عبارة عن استعلام لجدولين ، ونحفظ هذا الاستعلام كإستعلام خارجي مستقل ، انا اسميته qry_sfrm ، 2. في حدث "الحالي" للنموذج الرئيسي ، عملت هذا الكود لحساب المجموع: Me.Sum_Total = DSum("[الدرجة]+[حد الرسوب]", "qry_sfrm", "[رقم الطالب]=" & Me.[رقم الطالب]) لا يمكن عمل الجمع من جدول واحد ، وذلك لأن الحقلين [الدرجة] و [حد الرسوب] موجودين في جدولين مستقلين ، لذا عملنا الجمع من الاستعلام الذي ربط الجدولين، والسبب الذي عملنا Dsum للحقلين [الدرجة]+[حد الرسوب] ، وذلك لأنك لا يوجد لديك حقل في الاستعلام يجمع [الدرجة]+[حد الرسوب] جعفر 623.stu new.accdb.zip

يجب ان تقوم بحساب القيمة الى داخل حقل في الجدول حتى يستطيع الجمع بالتوفيق

السلام عليكم ورحمة الله تفضل ayman.rar

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عودة إلى فيديوهات الشروح المبسطة والتي تحتوي على الكثير من التريكات tricks والحيل التي يرغبها المحترفون الجزء الثاني من خيارات إكسل 365 و إكسل 2016 جاري مونتاج الفيديو ورفعه وهذه بعض محتوياته إن شاء الله شرح خيارات إكسل 2016 وإكسل 365 بالتفصيل من الصفر إلى الاحتراف تبويب الصيغ Formulas تغيير طريقة حساب المصنف workbook calculation إضافة خيارات الإكسل لشريط الوصول السريع add excel options to QAT فهم الحساب التكراري وخطأ المرجع الدائري Iterative calculation and circular reference فهم نمط المراجع R1C1 reference style الإكمال التلقائي للمعادلات في شريط الصيغة formula auto complete تفعيل فحص الأخطاء ولون تأشير الخطأ error checking & error indicator colorr قواعد فحص الأخطاء error checking rules خيارات الإكمال التلقائي auto correct options صيغة الحفظ الافتراضية default file format حفظ معلومات الاسترداد التلقائي كل 1 دقيقة save auto recovery تحديد مكان الاسترداد التلقائي auto recover file location تحديد مكان الحفظ والفتح الافتراضي default save , open location إضافة وحذف لغات التحرير add & remove editing languages إضافة لغات العرض والمساعدة add display and help languages تغيير لغات العرض والمساعدة change display and help languages والكثير اترككم مع الفيديو وهذا هو الجزء الأول من شرح خيارات إكسل وهذا رابط لسلسلة الفيديوهات لتعليم أساسيات إكسل 2013 وما بعدها وفقنا الله وإياكم لكل خير يا ترى كام حبيب في الله سيجعنا من أجل الاستمرار

كل الشكر والتقدير لك

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

انا عندي قاعدة بيانات خذت من موقع اجنبي تقدر تختار صور من سكانر او من الكومبيوتر او من القمر راح يحولك الى ملف pdf\ لكن هناك سؤال هل تريد كل الصور يحولك الى ملف واحد من بي دي ئيف او كل صور ملفه خاص تقبل تحياتي

@jjafferr تم حل المشكلة اخي جعفر قمت بعمل المطلوب بشكل لابأس به انظر المرفق .. الربط الذي اعطيتنياه للأسف يختلف نوعا ما عما كنت اريده .. على العموم توصلت الى حل جيد نوعا ما ينقصني فيه امر بسيط وهو عند الضغط على سجل من النموذج الفرعي كيف انقل قيمته لمربع النص على النموذج الرئيسي؟ المرفق مثال للطريقة .. طبعا بالتأكيد يحتاج الى لمسات جمالية وابداعات منك test.zip

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

هلا والله بالاستاذ رمهان حياك الله أخوي محمد جعفر

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

نعم لا تستطيع بكود واحد ، يعني لا يمكن لكود واحد ان يعمل لك جميع المجلدات دفعة واحدة ، وانما الكود يجب ان جعفر

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

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

السلام عليكم هذه الفكرة وبشكل بسيط جدا وعبارة عن كل ماحاول المستخدم تغيير عرض العمود او ارتفاع الصف يرجع كما هو محدد بالكود يمكن تطويرها فالبرمجة عالم مفتوح ضع الكود التالي عند رفع الماوس للنموذج الفرعي وليصبح الكود كاملا بالشكل التالي Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.الموديل.ColumnWidth = 1500 Me.سعر_البيع.ColumnWidth = 1500 Me.العدد.ColumnWidth = 1500 Me.نص19.ColumnWidth = 1500 Me.RowHeight = 300 End Sub بالتوفيق

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

كل الشكر الى اساتذتي في المنتدى وعلى رأسهم الاستاذ الكبيراخي الفاضل ..dream works والاستاذ منذر عساج وباقي الاخوان ... هذا مثال بسيط للمبتدئين .. أمثالي .. اقدمه الاخوان .. لعل .. هناك من يستفيد منه ... والمثال عبارة ... استخدام ماكرو ..لحفظ التاريخ والوقت داخل ( مربع نص) في النموذج بحيث اذا حدث أي تعديل لهذا السجل .. يتم كتابة التاريخ والوقت في هذا المربع .. الفكرة بسيطة جدا ... 1- في الجدول الرئيسي يتم اضافة ( حقل ولنسمه مثلا ( آخر تعديل ) ويكون نوعه ( تاريخ طويل ) شامل التاريخ والوقت 2- نضع هذا الحقل الجديد في النموذج الرئيسي بأي مكان وتنسيق الحقل ( تاريخ طويل شامل التاريخ والوقت ). 2-نعمل ( ماكرو ) جديد ونختر SETVALUE في العمود اجراء ...وفي منطقة الوسائط( في الاسفل ) ندخل أ- اسم عنصر التحكم يعني اسم الحقل ( آخر التعديل ) الموجود في النموذج ... شرط (محاطا بقوسين ) ضروري جدا ب- في منطقة الوسيط تعبير ... ندخل التعبير NOW() ( يعني ناو بعدها قوسين بعدها وليس قبلها ) شرط اساسي لا تضع قبلها علامة=4-احفظ الماكرو باي اسم مثلا ( ماكرو اخر تعديل ) 5- ا فتح النموذج الاساسي في عرض التصميم 6- من خصائص ..النموذج .. أقول خصائص النموذج وليس خصائص الحقل آخر تعديل 7- اختر التبويب ( حدث ) والخاصية ( قبل التحديث ) واختر الماكرو السابق 8-احفظ النموذج مع التعديل .. 9- جرب الفكرة . 10- حاول التعديل في السجل في النموذج واخرج ثم ارجع اليه تلاحط وجود تاريخ وساعة والدقيقة التي تم التعديل فيها .. 11- المثال موجود في نموذج ( الجشعمي ) 12- يمكنك جعل هذا الحقل ( غيرممكن ) يعني تغير اعداد التمكين الى ( لا).. 12- ملاحظة : يمكنك اضافة كود برمجة بدلا من الماكرو 13- يوجد مثال مرفق .. وشكرا لكم .... أرجو الاستفادة من هذه الفكرة .. _______.rar

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

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

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

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

ابداع واى ابداع نفسى ارى برنامج كامل ولوصغير من اعمالك انا عارف انى انت مش محاسب كبرنامج عملاء موظفين برنامج محاسبة كامل

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