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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...إخوتي الكرام السلام عليكم ورحمة الله وبركاته أحببت أن أعرض عليكم بعض إمكانيات الإكسيل الرائعة في تنسيق الأشكال في حال عدم توفّر الفوتوشوب أو البرامج الرسومية الأخرى ليظهر الملف بشكل أنيق ... حبث أنه يتمتع بجماليات في الخط والشكل وتناسق الألوان لكنه بعود على الملف بشيءٍ من البطء وزيادة حجم الملف .. الارتباطات التشعبية تظهر على شكل شفاف كقطرات الندى في صباح ربيعي مزهر..عند وضع المؤشر عليها تدلك على الورقة الهدف. راجياً من الله تعالى أن ينال إعجاب حضراتكم. اسم المستخدم :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

السلام عليكم مرفق ملف يشرح داله subtotal subtotal.rar

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

السلام عليكم اخواني واساتذتي الكرام تحية طيبة وبعد .. سؤالي هو كيف يمكنني استعمال هذا الامر في مربع النص text2.AutoCompleteMode = AutoCompleteMode.SuggestAppend كما تجدوه عندما تبحثون في مربع نص google وجدت فيديو يوضح الطريقة لكنه بلغة ال Csharp وهذا هو رابط الفيديو .. بصراحة شرح جميل وتطبيق ممتاز لكني لم استطع تطبيقه https://www.youtube.com/watch?v=Jnye77emTbo وشكراً

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

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

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

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

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

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

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

1. ما فهمت قصدك ، اعطني تفصيل بالارقام واسماء الحقول لوسمحت والمرفق اللي انت ارفقته هو نفس اللي انا ارفقته!! 2. تم حذف هذا الحقل اصلا ، ولا يوجد في المرفق ، فكيف طبقت عليه !! جعفر

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

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

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

اقصد حليت مشكلتين في ردك الاخير .. تحياتي

هاذي اجابة 2 × 1 مرفقك الاخير اشتغل تمام

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

السلام عليكم أخي ابا جودي ، الكود التالي سيعطيك النتيجه الصحيحه ، اذا عدد السجلات صفر : ولكن اذا اردت حساب عدد السجلات ، فلن يعطيك النتيجة الصحيحة ، وذلك ان نتيجة حساب عدد السجلات RecordCount يكون قبل ان يكتمل جلب جميع السجلات ، لذلك يجب عليك ان تأمر البرنامج للذهاب لآخر سجل ، وعليه سيعرف البرنامج عدد السجلات ، هكذا: Me.RecordsetClone.movelast Me.RecordsetClone.movefirst For i = 1 to Me.RecordsetClone.RecordCount جعفر

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

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

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

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

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

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

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

نعم تقدر (لدرجة ما) ، ولكن بتعب 1. نعمل طريقة للبحث ، في حقل النص ، مثل الربط التالي: 2. نأخذ أول نتيجة من النموذج الفرعي ونضعه في حقل نص البحث ، 3. نغير شكل النموذج الفرعي الى ListBox ، يطول ويقصر على اساس عدد الكلمات اللي تأتي من البحث ، وفي النهاية بيصير عندنا كما هو الحال في ComboBox ، فليش التعب جعفر

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

جربت .. ذهبت للسجل 4 ثم حذفت ثم مباشره نقرت على زر الاضافة اعطاني رقم 4 هنا تعديل بسيط فقط في الذهاب للسجل الاول Private Sub ÃãÑ7_Click() DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي يمكن نحتاج Me.Requery في بداية الكود Private Sub ÃãÑ7_Click() Me.Requery DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي

شكرا لك اخوي @SAROOK الله يبارك فيك عزيزي

اي نص تقصد ؟ عنوان العمود في ورقة البيانات ؟ ام القائمة المنسدلة في مربع التحرير ؟

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

بسم الله الرحمن الرحيم تكملة لما سبق انجازه من برنامج المرتبات العام السابق 2014 م لقد قام بتحديث البرنامج اخى وصديقى / الاستاذ عبدالجابر اسماعيل غنام برنامج المرتبات 2015 م وقد ابلى فيه بلاءا حسن جعله الله فى ميزان حستانه .... امين ******* مميزات البرنامج ( يحسب السنة المالية 2015م /2016 م آلى ) 1- البرنامج يحتوى على 12 شهرا من يناير الى ديسمبر ،كل ما عليك هو كتابة البيانات فى شهر يناير فقط والبرنامج يقوم بتوزيع البيانات على باقى الشهور الى ديسمبر واذا وجد تعديل بيانات فى شهر ما تدخل على الشهر الذى تريد التعديل به وهكذا 2- تحديد البنوك من صفحة الرئيسية كما تريد 3- حساب الاجور السنوية وحساب التكملة ثم تصفيرها عند بلوغ الحد الاقصى للاجور وبالتالى لا يكون لك متبقى تحصل عليه من قسم الاجور بديوان الادارة التعليمية 4- حساب المكافأة السنوية 5- حساب انتقالات الامتحانات 6- صفحة للدفع الالكترونى للعاملين الذين يستخدموا الفيزا كارت *******أنواع الطباعة : (يوجد ازرار للطباعة آلى ) 1- طباعة المرتبات على صفحات A3 وتسليمها لديوان الادارة وخلف اخر ورقة طباعة المرايا 2- طباعة كشوف الترحيل يسمى " طباعة الميزان" 3- طباعة اوراق التأمين والنعاشات 4- طباعة المقترضين للبنوك 5- طباعة الاقساط والاستقطعات 6 - طباعة الاجور الشهرية 7- استمارة مفردة 8- مفردات مرتب للموظف البرنامج يحسب مرتبات المنتدب و نصف المدة او نصف الاجر واوائل الخريجين اختار مدرس كى يتعامل مثل الادارى والسلام عليكم ورحمة الله وبركاته لاتنسوا دعواتكم لنا بحسن الخاتمة تحميل البرنامج

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

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

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

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

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

جزاك الله خيرا وبارك فيك

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

اعزائي الكرام السلام عليكم ورحمة الله وبركاته اليكم ملفات تعليم الاكسيس بالصوت والصوره ( فيديو) بأحجام صغيرة جدا تشرح لكم الاكسيس من البداية وحتى الاحتراف . كل ما عليك هو الضغط بالماوس الايمن على الملف واختيار حفظ بأسم . وتستطيع ترتيب الملفات في مجلد خاص بك بإسم تعليم الاكسيس بالفيديو ومن ثم ادراج مجلدات بداخله مثل الجداول والحقول - التقارير - النماذج - الاستعلامات ............ الخ ملاحظة : جميع الملفات ملفات تعليميه بالفيديو والصوت تحتاج الى برنامج كويك تايم لتشغيلها الجداول والحقول http://files9.atomiclearning.com/movielib/...efield_001x.mov http://files9.atomiclearning.com/movielib/...efield_002x.mov http://files9.atomiclearning.com/movielib/...efield_003x.mov http://files9.atomiclearning.com/movielib/...efield_004x.mov http://files9.atomiclearning.com/movielib/...efield_005x.mov http://files9.atomiclearning.com/movielib/...efield_006x.mov http://files9.atomiclearning.com/movielib/...efield_007x.mov الاستعلامات http://files9.atomiclearning.com/movielib/...ueries_001x.mov http://files9.atomiclearning.com/movielib/...ueries_002x.mov http://files9.atomiclearning.com/movielib/...ueries_003x.mov http://files9.atomiclearning.com/movielib/...ueries_004x.mov http://files9.atomiclearning.com/movielib/...ueries_005x.mov النماذج http://files9.atomiclearning.com/movielib/..._forms_001x.mov http://files9.atomiclearning.com/movielib/..._forms_002x.mov http://files9.atomiclearning.com/movielib/..._forms_003x.mov http://files9.atomiclearning.com/movielib/..._forms_004x.mov http://files9.atomiclearning.com/movielib/..._forms_005x.mov http://files9.atomiclearning.com/movielib/..._forms_006x.mov التقارير http://files9.atomiclearning.com/movielib/...eports_001x.mov http://files9.atomiclearning.com/movielib/...eports_002x.mov http://files9.atomiclearning.com/movielib/...eports_003x.mov http://files9.atomiclearning.com/movielib/...eports_004x.mov الرسوم البيانية http://files9.atomiclearning.com/movielib/...charts_001x.mov http://files9.atomiclearning.com/movielib/...charts_003x.mov http://files9.atomiclearning.com/movielib/...charts_002x.mov الماكرو http://files9.atomiclearning.com/movielib/...macros_001x.mov http://files9.atomiclearning.com/movielib/...macros_002x.mov http://files9.atomiclearning.com/movielib/...macros_003x.mov http://files9.atomiclearning.com/movielib/...macros_004x.mov http://files9.atomiclearning.com/movielib/...macros_005x.mov http://files9.atomiclearning.com/movielib/...macros_006x.mov http://files9.atomiclearning.com/movielib/...macros_007x.mov http://files9.atomiclearning.com/movielib/...macros_008x.mov لوحة التبديل http://files9.atomiclearning.com/movielib/...switch_001x.mov http://files9.atomiclearning.com/movielib/...switch_002x.mov http://files9.atomiclearning.com/movielib/...switch_003x.mov تصدير بيانات خارج قاعدة البيانات http://files9.atomiclearning.com/movielib/...xports_001x.mov http://files9.atomiclearning.com/movielib/...xports_002x.mov http://files9.atomiclearning.com/movielib/...xports_003x.mov استيراد بيانات خارجيه لقاعدة البيانات http://files9.atomiclearning.com/movielib/...import_001x.mov http://files9.atomiclearning.com/movielib/...import_002x.mov http://files9.atomiclearning.com/movielib/...import_003x.mov http://files9.atomiclearning.com/movielib/...import_004x.mov انواع العلاقات http://files9.atomiclearning.com/movielib/...ations_001x.mov http://files9.atomiclearning.com/movielib/...ations_002x.mov http://files9.atomiclearning.com/movielib/...ations_003x.mov http://files9.atomiclearning.com/movielib/...ations_004x.mov الادوات واعمال الصيانه لقاعدة البيانات http://files9.atomiclearning.com/movielib/..._tools_001x.mov http://files9.atomiclearning.com/movielib/..._tools_002x.mov http://files9.atomiclearning.com/movielib/..._tools_003x.mov http://files9.atomiclearning.com/movielib/..._tools_004x.mov http://files9.atomiclearning.com/movielib/..._tools_005x.mov http://files9.atomiclearning.com/movielib/..._tools_006x.mov http://files9.atomiclearning.com/movielib/..._tools_007x.mov العناوين وبدء التشغيل والمساعدة http://files9.atomiclearning.com/movielib/...iscend_001x.mov http://files9.atomiclearning.com/movielib/...iscend_002x.mov http://files9.atomiclearning.com/movielib/...iscend_003x.mov معلومات للمبتدئين http://files2.atomiclearning.com/movielib/...1_dbwizardx.mov http://files2.atomiclearning.com/movielib/..._tblwizardx.mov http://files2.atomiclearning.com/movielib/...3_newtablex.mov http://files2.atomiclearning.com/movielib/..._primrykeyx.mov http://files2.atomiclearning.com/movielib/..._flddtatypx.mov http://files2.atomiclearning.com/movielib/..._instdelflx.mov http://files2.atomiclearning.com/movielib/..._tblrecordx.mov http://files2.atomiclearning.com/movielib/...08_rowcolmx.mov http://files2.atomiclearning.com/movielib/..._rearngcolx.mov http://files2.atomiclearning.com/movielib/..._hidefieldx.mov http://files2.atomiclearning.com/movielib/...11_tblfontx.mov http://files2.atomiclearning.com/movielib/..._fmtgrdcelx.mov http://files2.atomiclearning.com/movielib/..._findreplax.mov http://files2.atomiclearning.com/movielib/..._sortrecdsx.mov http://files2.atomiclearning.com/movielib/..._fltrselcnx.mov http://files2.atomiclearning.com/movielib/...6_fltrformx.mov http://files2.atomiclearning.com/movielib/...7_qrywizrdx.mov http://files2.atomiclearning.com/movielib/..._qryscratcx.mov http://files2.atomiclearning.com/movielib/..._criteriaqx.mov http://files2.atomiclearning.com/movielib/...20_qrysortx.mov http://files2.atomiclearning.com/movielib/..._multitblqx.mov http://files2.atomiclearning.com/movielib/..._hidefldqrx.mov http://files2.atomiclearning.com/movielib/...3_andoropsx.mov http://files2.atomiclearning.com/movielib/...4_autoformx.mov http://files2.atomiclearning.com/movielib/..._formwizarx.mov http://files2.atomiclearning.com/movielib/..._admddelfrx.mov http://files2.atomiclearning.com/movielib/..._wrkdsnfrmx.mov http://files2.atomiclearning.com/movielib/...028_addfldx.mov http://files2.atomiclearning.com/movielib/...30_autorptx.mov http://files2.atomiclearning.com/movielib/...31_dsnvrptx.mov http://files2.atomiclearning.com/movielib/..._reszmovctx.mov http://files2.atomiclearning.com/movielib/..._addfldrptx.mov http://files2.atomiclearning.com/movielib/..._spellchckx.mov http://files2.atomiclearning.com/movielib/..._autocrrctx.mov معلومات للمتوسطين في استخدام الاكسيس http://files2.atomiclearning.com/movielib/..._freezefldx.mov http://files2.atomiclearning.com/movielib/...02_fldsizex.mov http://files2.atomiclearning.com/movielib/..._inputmsktx.mov http://files2.atomiclearning.com/movielib/..._fieldcptnx.mov http://files2.atomiclearning.com/movielib/...5_nbrdttypx.mov http://files2.atomiclearning.com/movielib/...6_currencyx.mov http://files2.atomiclearning.com/movielib/..._dttmedtypx.mov http://files2.atomiclearning.com/movielib/...8_yesnodtpx.mov http://files2.atomiclearning.com/movielib/...9_defvaluex.mov http://files2.atomiclearning.com/movielib/...0_requrfldx.mov http://files2.atomiclearning.com/movielib/..._advncfltrx.mov http://files2.atomiclearning.com/movielib/..._hyperlnkfx.mov http://files2.atomiclearning.com/movielib/..._subdatashx.mov http://files2.atomiclearning.com/movielib/..._tblrelatix.mov http://files2.atomiclearning.com/movielib/..._prttblrelx.mov http://files2.atomiclearning.com/movielib/..._deltblrelx.mov http://files2.atomiclearning.com/movielib/..._appendqryx.mov http://files2.atomiclearning.com/movielib/..._deleteqryx.mov http://files2.atomiclearning.com/movielib/..._updateqryx.mov http://files2.atomiclearning.com/movielib/..._maktblqryx.mov http://files2.atomiclearning.com/movielib/..._paramrqryx.mov http://files2.atomiclearning.com/movielib/..._expresbldx.mov http://files2.atomiclearning.com/movielib/..._calcfldqyx.mov http://files2.atomiclearning.com/movielib/..._totalsbtnx.mov http://files2.atomiclearning.com/movielib/..._topbotmvlx.mov http://files2.atomiclearning.com/movielib/..._concatentx.mov http://files2.atomiclearning.com/movielib/..._028_ANDORx.mov http://files2.atomiclearning.com/movielib/...9_betwnandx.mov http://files2.atomiclearning.com/movielib/...0_wildcardx.mov http://files2.atomiclearning.com/movielib/..._pgmgoritnx.mov http://files2.atomiclearning.com/movielib/..._lblrptwizx.mov http://files2.atomiclearning.com/movielib/..._stdrptoptx.mov http://files2.atomiclearning.com/movielib/...4_pgnbrrptx.mov http://files2.atomiclearning.com/movielib/..._todaydatex.mov http://files2.atomiclearning.com/movielib/...6_groupingx.mov http://files2.atomiclearning.com/movielib/...37_sortingx.mov http://files2.atomiclearning.com/movielib/...8_calcctrlx.mov http://files2.atomiclearning.com/movielib/..._repeathdrx.mov http://files2.atomiclearning.com/movielib/...0_frcpggrpx.mov http://files2.atomiclearning.com/movielib/...041_grpftrx.mov http://files2.atomiclearning.com/movielib/..._rptscrathx.mov http://files2.atomiclearning.com/movielib/..._043_pgbrkx.mov http://files2.atomiclearning.com/movielib/...44_cangrowx.mov http://files2.atomiclearning.com/movielib/..._frmscrathx.mov http://files2.atomiclearning.com/movielib/..._frmproptyx.mov http://files2.atomiclearning.com/movielib/...7_cgdftvalx.mov http://files2.atomiclearning.com/movielib/..._cmbboxwizx.mov http://files2.atomiclearning.com/movielib/..._lstboxwizx.mov http://files2.atomiclearning.com/movielib/...0_cmdbuttnx.mov http://files2.atomiclearning.com/movielib/...51_optngrpx.mov http://files2.atomiclearning.com/movielib/..._togoptchkx.mov http://files2.atomiclearning.com/movielib/..._frmhdfootx.mov http://files2.atomiclearning.com/movielib/...4_taborderx.mov http://files2.atomiclearning.com/movielib/..._calcfldfmx.mov http://files2.atomiclearning.com/movielib/..._ctrldtsrcx.mov http://files2.atomiclearning.com/movielib/..._inpufrmtxx.mov http://files2.atomiclearning.com/movielib/..._autofrmatx.mov http://files2.atomiclearning.com/movielib/...9_frmtpntrx.mov http://files2.atomiclearning.com/movielib/..._addpictrex.mov http://files2.atomiclearning.com/movielib/...1_rectlinex.mov http://files2.atomiclearning.com/movielib/...2_arrgctrlx.mov http://files2.atomiclearning.com/movielib/..._addlblctrx.mov http://files2.atomiclearning.com/movielib/..._rlrsnapgdx.mov http://files2.atomiclearning.com/movielib/..._fntpropctx.mov http://files2.atomiclearning.com/movielib/...66_clipartx.mov معلومات متقدمة للخبراء والمطورين http://files2.atomiclearning.com/movielib/..._idxfldprox.mov http://files2.atomiclearning.com/movielib/..._idxmtpfldx.mov http://files2.atomiclearning.com/movielib/..._validtionx.mov http://files2.atomiclearning.com/movielib/..._lookupfldx.mov http://files2.atomiclearning.com/movielib/...5_valuelstx.mov http://files2.atomiclearning.com/movielib/..._oledatatyx.mov http://files2.atomiclearning.com/movielib/...7_junctionx.mov http://files2.atomiclearning.com/movielib/...8_unionqryx.mov http://files2.atomiclearning.com/movielib/...9_crosstabx.mov http://files2.atomiclearning.com/movielib/..._IIFfunctnx.mov http://files2.atomiclearning.com/movielib/...11_fnddupsx.mov http://files2.atomiclearning.com/movielib/...2_fndunmtcx.mov http://files2.atomiclearning.com/movielib/...13_subformx.mov http://files2.atomiclearning.com/movielib/..._sbfrmtotlx.mov http://files2.atomiclearning.com/movielib/..._opnsbfmwnx.mov http://files2.atomiclearning.com/movielib/...16_ctrldefx.mov http://files2.atomiclearning.com/movielib/...17_tabctrlx.mov http://files2.atomiclearning.com/movielib/...8_frmviewsx.mov http://files2.atomiclearning.com/movielib/...9_nbrgroupx.mov http://files2.atomiclearning.com/movielib/..._multicolrx.mov http://files2.atomiclearning.com/movielib/...1_rpttemplx.mov http://files2.atomiclearning.com/movielib/...2_labelwizx.mov http://files2.atomiclearning.com/movielib/...3_chartwizx.mov http://files2.atomiclearning.com/movielib/...24_instchtx.mov http://files2.atomiclearning.com/movielib/..._editchartx.mov http://files2.atomiclearning.com/movielib/...26_crtmcrox.mov http://files2.atomiclearning.com/movielib/..._mcrobuildx.mov http://files2.atomiclearning.com/movielib/..._mcrocondnx.mov http://files2.atomiclearning.com/movielib/..._asnmcrfrmx.mov http://files2.atomiclearning.com/movielib/...0_mcrtoolsx.mov http://files2.atomiclearning.com/movielib/...31_grpmcrox.mov http://files2.atomiclearning.com/movielib/..._autoexecmx.mov http://files2.atomiclearning.com/movielib/..._sngstpmcrx.mov http://files2.atomiclearning.com/movielib/...4_swtbdintx.mov http://files2.atomiclearning.com/movielib/...35_swthmgrx.mov http://files2.atomiclearning.com/movielib/...6_swtchsrax.mov http://files2.atomiclearning.com/movielib/...37_export1x.mov http://files2.atomiclearning.com/movielib/...38_export2x.mov http://files2.atomiclearning.com/movielib/...39_export3x.mov http://files2.atomiclearning.com/movielib/...040_impobjx.mov http://files2.atomiclearning.com/movielib/...041_impCSVx.mov http://files2.atomiclearning.com/movielib/...2_impExcelx.mov http://files2.atomiclearning.com/movielib/...43_linktblx.mov http://files2.atomiclearning.com/movielib/..._cascddeltx.mov http://files2.atomiclearning.com/movielib/...5_CASCDUPDx.mov http://files2.atomiclearning.com/movielib/..._refintgjnx.mov http://files2.atomiclearning.com/movielib/...refinttestx.mov http://files2.atomiclearning.com/movielib/...8_cmptreprx.mov http://files2.atomiclearning.com/movielib/...9_backupdbx.mov http://files2.atomiclearning.com/movielib/...0_docmntdbx.mov http://files2.atomiclearning.com/movielib/..._replicatex.mov http://files2.atomiclearning.com/movielib/...2_syncrplcx.mov http://files2.atomiclearning.com/movielib/...53_cnvrtdbx.mov http://files2.atomiclearning.com/movielib/..._objdependx.mov http://files2.atomiclearning.com/movielib/..._smarttagsx.mov http://files2.atomiclearning.com/movielib/...56_startupx.mov http://files2.atomiclearning.com/movielib/...3_057_helpx.mov اختكم زهره