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

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

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

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

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

السلام عليكم سيدي الفاضل ، عاشت ايدك ، اكواد بسيطة ونتائج رائعة التغييرات اللي انا عملتها: 1. اذا كتبت شيء ، وغيرت رأيك ، فتستطيع ان تضغط على الزر Esc (Escape) ، وسوف يختفي النموذج الفرعي ، Private Sub text76_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then SubFrm.Visible = False Else SubFrm.Visible = True End If End Sub 2. اذا كتبت شيء ، فارتفاع النموذج الفرعي يطول ويقصر مع عدد السجلات الموجودة ، اكثر عدد هو 3 ، Private Sub text76_Change() On Error Resume Next Dim x As String SubFrm.Visible = True x = Me.text76.Text Me.Text11.Value = x Me.SubFrm.Requery 'تغيير ارتفاع النموذج الفرعي حسب عدد سجلاته Dim rst As DAO.Recordset Set rst = Me.SubFrm.Form.RecordsetClone rst.MoveLast RC = rst.RecordCount If RC > 3 Then Me.SubFrm.Height = Me.SubFrm!FldText.Height * 3 Else Me.SubFrm.Height = Me.SubFrm!FldText.Height * RC End If rst.Close: Set rst = Nothing End Sub 3. اذا كتبت شيء ، ونقرت على الاسم في النموذج الفرعي ، فسيتغير سجل النموذج الرئيسي حسب الاسم المختار ، وهنا فانت لست بحاجة الى زر البحث Private Sub FldText_Click() 'Forms!formS1.ITEM_NEM = Me.FldText Me.Parent.text76 = Forms!formS1!SubFrm.Form.FldText.Text 'اظهر نتيجة البحث Me.Parent.Form.Requery 'Me.Parent.text76.SetFocus Forms!formS1!SubFrm.Form.Visible = False End Sub جعفر 624.test.mdb.zip

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

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

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

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

جميل وحدة القياس هي Twips وتساوي 576 سنتيمتر ، ومثل ما قلت لك ، في البدايه خلينا نشتغل على ارتفاع القسم ، ثم نرجع للحقول ، فالمعادلة لقسم Detail هي: Me.Section(0).Height= 23.9 * 576 / Number_of_Records جعفر

شو يا ابوعبدالله ، كيف تتوقع اني اعرف هذا النموذج هو طلبك؟؟ انا يا اشتغل مبرمج ويا ساحر ، بس ما يصير الاثنين مع بعض المبرمج يقول: استعمل هذه المعادلة: =Sum(Nz([حد الرسوب]+[حد النجاح],0)) جعفر

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

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

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

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

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

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

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

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

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

ما شاء الله رائع أستاذ محمد كل عام وانت بخير وسعاده ورضا

هلا والله أخوي ابوعبدالله 1. هذا الكلام الزين ، تجربتك للبرنامج وجوابك كان على طول عملنا تغيير ، ووصلنا الى: النموذج الرئيسي: - عملت وحدة مستقله للجمع ، اسميته sTotal ، ولاحظ انه مب Private ، وإنما Public ، مما يعني اقدر اناديه من اي كائن (نموذج/تقرير/وحدة نمطية) في البرنامج ، - الحدث "في الحالي" يرسل طلب للوحدة sTotal بأن تقوم بالعمل ، والسبب اني اخرجت كود الحساب الى وحدة مستقلة هو ، لاحقا في البرنامج قد تضيف مجموعة اوامر اخرى في حدث الحالي ، وعندما تريد ان تقوم بعملية الجمع ، فلن تستطيع القيام بعملية الجمع بدون القيام بالاوامر الاخرى (ما عليه ، الموضوع بيتضح لك بعديييين ان شاء الله ، هذه خطوة استباقية) : Private Sub Form_Current() Call sTotal End Sub Public Sub sTotal() Me.Sum_Total = DSum("[الدرجة]+[حد الرسوب]", "qry_sfrm", "[رقم الطالب]=" & Me.[رقم الطالب]) End Sub والآن لما تضيف او تعدل الدرجة في النموذج الفرعي ، نريد ان نقوم بالعملية الحسابية ، فنقوم بحفظ السجل ، ثم مناداة الوحدة sTotal : Private Sub الدرجة_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord Call Form_نموذج_الطالب.sTotal End Sub جعفر 623.stu new.accdb.zip

السلام عليكم طريقة العرض اللي انا اتبعها في برامجي بوجه عام: وفي حالات: فالطريقة اللي اتبعها علشان المستخدم يشوف كل البيانات ، او حتى اذا اراد ادخال بيانات واراد ان يرى المعلومة كامله ، فأعمل على حدث النقر المزدوج لذلك الحقل الكود التالي: DoCmd.RunCommand acCmdZoomBox والذي يفتح نافذة ZoomBox (كما يمكنك فتحها يدويا ، فلما تكون على اي حقل ، استخدم الزرين Shift + F2) ، وسيرى كامل البيانات جعفر

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

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

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

كم انت طيب القلب شكرا لك

وعليكم السلام @عبد الله قدور نعم بالإمكان.. والقاعدة التي أرقتها بالمثال تتضمن جداول إذا كانت الحماية على مستوى قاعدة البيانات فإن أكسس يحثك على إدخالها.. أما إذا كانت على مستوى محرر الشفرة فإن أكسس يتجاهلها! الشفرة التاليه هي أخصر شفرة للإضافة والحذف.. الأولى للإضافة والثانية للحذف Public Sub addRef() On Error Resume Next Application.VBE.ActiveVBProject.References.AddFromFile "C:\Program Files\Microsoft Office\Office11\MSO11.DLL" End Sub Public Sub removeRef() Dim ref As Object On Error Resume Next Set ref = Application.VBE.ActiveVBProject.References("Office") Application.VBE.ActiveVBProject.References.Remove ref End Sub

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

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

هذا كود لنفس فكرة الكود باول مشاركة ولكن باختصار وتخفيف على الذاكره Private Sub ÃãÑ7_Click() DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone: rs.MoveFirst If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub 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 الله يبارك فيك عزيزي

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

وعليكم السلام البطء في الاستعلام . 1. انت تستخدم امر VBA في SQL ، مما يبطئ العملية ، 2. من المعروف ان Dlookup (كذلك امر VBA) بطيئ ، وانت محظوظ ان بياناتك قليلة ، وإلا فالبطء سيكون اكثر ، 3. انت تنتظر الحقل SumOfin و SumOfOut ليحصلوا على نتائج الجمع ، ثم تأخذ النتائج منهم وتطرحهم من بعض. والتعديل: . إضافة الجدول Item Names الى الاستعلام ، 1. تم تغيير الامر الى احد اوامر SQL وهو is Null (وليس IsNull امر VBA) ، 2. لسنا بحاجة الى اي معادلة ، لأننا جلبنا الجدول الى الاستعلام ، ثم وضعنا الحقل Products في الاستعلام مباشرة ، 3. نقوم بعملية الجمع مباشرة في الحقل جعفر

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

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

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

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