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

انظر الى الورقة 3 تجريبي salim 1.rar

Private Sub UserForm_Activate() For i = 1 To 200 Step 0.1 With Me DoEvents .Height = i: .Width = i * 2 .Top = .Top - (i / 2000): .Left = .Top - (i / 2000) End With Next End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For ii = 1 To 20 Step 0.005 With Me DoEvents .Height = .Height - ii: .Width = .Width - ii * 3 End With Next End Sub مرحبا هذه محاولة شبيهة بما قام به الاستاذ الصقر

السلام عليكم ورحمة الله وبركاته إخواني في الله الموضوع ليس جديد وقد تم طرح الكود في مشاركات فرعية بموضوعات مختلفة بالمنتدى ، ولكن لأهميته رأيت ان أقوم بطرح موضوع مستقل ليسهل الوصول إلى الموضوع باستخدام خاصية البحث في المنتدى فكرة الكود هي استخراج القيم الغير مكررة أي استخراج القيم الفريدة في نطاق محدد .. والكود مشروح لمن أرد الشرح لعل وعسى أن يتعلم الجميع كيفية استخدام الأكواد بشكل جيد وهذا هو الكود مصحوب بالشرح ... أرجو أن ينال إعجايكم Sub UniqueByDictionary() 'يقوم الكود باستخراج القيم الفريدة أي الغير مكررة باستخدام الكائن قاموس '---------------------------------------------------------------------- 'المتغير الأول لتخزين قيم النطاق والمتغير الثاني لتخزين مفاتيح القاموس 'الثالث متغير للكائن القاموس والرابع متغير يستخدم في عمل حلقة تكرارية Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long 'ليساوي الكائن المسمى القاموس والذي يعتبر أداة قوية للتعامل مع القيم الفريدة [Obj] تعيين المتغير Set Obj = CreateObject("Scripting.Dictionary") 'ليساوي قيم النطاق في العمود الأول [myData] تعيين المتغير myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value 'حلقة تكرارية تبدأ من أول عنصر في مصفوفة القيم إلى آخر عنصر في المصفوفة For I = 1 To UBound(myData) 'هذا السطر هو أهم سطر في الكود حيث يتم تمرير القيمة للقاموس 'فيقوم القاموس بتخزينها إذا كانت القيمة تصادفه لأول مرة 'أما إذا كانت القيمة مكررة فلا يقوم بتخزينها مرة أخرى Obj(myData(I, 1) & "") = "" Next I 'ليساوي مفاتيح القاموس والتي تمثل القيم الغير مكررة [Temp] تعيين المتغير Temp = Obj.Keys 'حيث يتم تحديد عدد الصفوف [E1] وضع عناصر القاموس الغير مكررة في الخلية 'والتي تقوم بعد عناصر القاموس التي تم تخزينها [Count] من خلال كلمة 'عبارة عن مصفوفة بالقيم تكون على شكل أفقي لذا نستخدم [Temp] المتغير 'لتحويل القيم من الشكل الأفقي إلى الشكل الرأسي ليناسب وضع النتائج في عمود [Transpose] كلمة Range("C1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub وإليكم الملف المرفق مطبق فيه الكود مع مثال بسيط حمل الملف من هنا تقبلوا تحياتي

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

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

بارك الله فيك يا غالي على الدّروس الهامّة و المفيدة و الشّرح البسيط .. لم نشبّع .. و لا نشبع من علمك أبدًا واصل و فّقك الله .. و هأنذا بصدد محاولة فهم الكود ..

السلام عليكم الشكر لجميع الاخوة الكرام تم تعديل الكود ليتوافق مع احجام مختلفة اختر الحجم المناسب و اكتبه في التصريح مثل Const iHeight As Integer = 150 Const iWidth As Integer = 600 الكود '---------------------------------------------------- Const iHeight As Integer = 150 Const iWidth As Integer = 600 '---------------------------------------------------- Private Sub UserForm_Activate() Ap_H = Application.Height Ap_W = Application.Width With Me For iHH = 1 To iHeight .Height = iHH: .Top = ((Ap_H - .Height) / 2) DoEvents Next For iWW = 1 To iWidth .Width = iWW: .Left = ((Ap_W - .Width) / 2) DoEvents Next End With End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub

لما لا تقوم بجمع الشروط في دالة واحدة؟! صراحة لم أجرب قبل استدعاء دالة من دالة أخرى ، رغم أنه من المنطقي أن تتم بسهولة ، ربما الخطأ يرجع إلى أنك تستخدم نفس المتغيرات في الدالتين .. طيب جرب تغير في المتغيرات في الدالة الثانية يعني بدلاً من a, x, y, d, e خليها a1,x1,y1,d1.e1

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

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

بعد اذن اساتذنا الكرام هذا حل بسيط وممكن يوذي الغرض ضع هذا الكود في الفورم الواجهة في حدث عند التحميل للفورم If Dir("j:\sndesk\MOVI.txt") = "" Then MsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "67749199*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*" DoCmd.Quit End If شرح الكود If Dir("j:\sndesk\MOVI.txt") = "" Then هي مسار الفلاش عندي اي ان الفلاشه علي برتشن ال ( j ) ويوجد ملف تكست اسمة MOVI داخل ال (الجي) في فولدراسمه sndesk طبعا لو انت مش موصل الفلاش الي عليها الملف ده علي الكمبيوتر مش هيفتح البرنامج وتظهر لك الرسالة MsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "67749199*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*" DoCmd.Quit ثم يغلق البرنامج

انسخ هذه المعادلة الى الخلية B2 واسحب نزولاً =IFERROR(INDIRECT("'"&A2&"'!E4"),"") اذا لم تعمل معك المعادلة استبدل الفاصلة بالفاصلة المنقوطة

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

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

الثوابت تنقسم الثوابت في لغة الفيجوال بسيك إلى ثلاثة اقسام رئيسية وهي نصية او رقمية ومنطقية ويمكننا تعريف ثابت في البرنامج من خلال الكلمة المحجوزة const ولاحظ هنا اخي الكريم في الفيجوال بيسك لا يمكنك تعريف ثابت إلا من خلال المبدأ التالي Const name as type = value Const اسم الثابت as قيمته = نوعه عند كتابة الثابت لا يمكنك نسب قيمة له إلا في نفس السطر الذي قمت بكتابة الثابت فيه . اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر وهذا من الاشياء التي تميز المتغير عن الثابت امثلة على تعريف ثوابت جديدة لاستخدامها في البرنامج Const name As String = "Yasser" ثابت من نوع نص Const age As Integer = 30 ثابت من نوع عدد صحيح Const marry As Boolean = True ثابت من نوع قيمة منطقية الطرق التي من خلالها تستطيع تعريف ثوابت لبرنامج الطريقة التقليدية تعريف ثابت ونسب قيمة له مثل Const name As String = "Aseel" كتابة الثابت بدون تحديد نوع له مثل Const name = "Mohamed" كتابة اكثر من ثابت مع تحديد القيمة لها في سطر واحد :- مثل Const name As String = "Mohamed", age As Integer = 30 كتابة اكثر من ثابت بدون تحديد نوع الثابت مثل Const name = "Mohamed", age = 33, marry = False لاحظ هنا اننا لم نستخدم كلمة تعريف الثابت إلا في بداية الجملة فقط الأخطاء المتوقع حدوثها عند تعاملك مع الثوابت تغيير قيمة الثابت في البرنامج او اثناء التشغيل مثال لذلك Const age As Integer = 20 age = 22 تعريف الثابت في سطر ونسب القيمة له في سطر اخر كما قلنا سابقاً مثال لذلك Const age As Integer age = 18 ملاحظة هامة عند تعاملنا مع الثوابت يجب علينا ادخال القيمة للثابت في نفس جملة تعريف الثابت تقبلو تحياتي ياسر العربي يتبع

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

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

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

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

هذا استعلام الحاقي مصدره INSERT INTO ParentsCom ( Stu_eSIS, TheWay, Comu_Reasone, Comu_Date, Mobil_F ) SELECT StudentsNames.eSiS, [Forms]![ParentsCom]![Combo25] AS Expr1, [Forms]![ParentsCom]![Comu_Reasone] AS Expr2, [Forms]![ParentsCom]![Comu_Date] AS Expr3, StudentsNames.Mobil FROM StudentsNames WHERE (((StudentsNames.Section)=[Forms]![ParentsCom]![StuSection])); احفظ الاستعلام وتقدر تشغله اخ علي في الحدث المناسب لك وليكن خلف زر امر جديد ولكن مع وجود شرط ان القائمة مطابقة للنوع المطلوب! فمثلا لو اسميت الاستعلام ب query2 وخلف زر امر نكتب If Me.Combo25 = "إرسال اخطار مع الطالب" Then DoCmd.OpenQuery "query2" بالتوفيق

يا حوسو بلاش تواضع ..إنت عديت بمراااااااااااااحل كبيرة ربنا يبارك فيك ويزيدك من علمه ..بس متنساش تعدي على موضوعات أخوك ! مرورك بأي موضوع شرف كبير لنا يا كبير

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام انشغلنا قليلاً ولم يذكرني أحد بموضوع الأسبوع الخامس .. عموماً كموضوع للبحث : بفرض أن لديك الأرقام 1 ، 2 .. المطلوب عمل معادلات أو أكواد لاستخراج كل القيم المحتملة لهذين الرقمين النتائج المتوقعة ستكون كالتالي : 1111 1112 1121 1122 1211 1212 1221 1222 2111 2112 2121 2122 2211 2212 2221 2222 تقبلوا تحياتي

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

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

بارك الله فيك أخي العزيز ياسر دائما انت مبدع وفقك الله لكل خير

وجزيت خيراً يا أخي الغالي أحمد ربنا يجبر بخاطرك زي ما جبرت بخاطري .. يبدو أنني سأكتفي من الموضوعات الجديدة ، حيث أن الأعضاء أصبح لديهم تشبع من العلم .. !!!

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

ولكنه عندي يعمل استبدل الرقم وجرب db1.rar

هل تقصد مثل هذه الشيء vlooup_dif_sheets.rar

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

راااااااااااااااااااااااائع يا ابو المفهوميه يا استاذ ياسر خليل الكود سريع وسهل .. الله يحفظك ويبارك لك .. الله يحفظك ويبارك لك .. الله يحفظك ويبارك لك ... ولكن بعد اجراء الكود الصفحات تظهر باللون الداكن كأنها محده فممكن لو تكرمت نزيل هذا التحديد ممكن شرح لهذه الاسطر Ws.Range("A" & sRow + 1).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents Application.CutCopyMode = False هذه الاكواد ستعمل مع اكواد حمايه .. لعدم التعارض فقط

السلام عليكم ورحمة الله اتمنى يكون هو هذا ماتقصده خلاصة بمشتريات الزبون - استاذ زيزو العجوز.rar

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

السلام عليكم ورحمة الله اليك الحل خلاصة بمشتريات الزبون.rar

تأثيرات قمة في الجمالية مشكور أخانا الكريم

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

وجزيت خيراً بمثل ما دعوت لي والحمد لله أولاً وأخيراً والحمد لله الذي بنعمته تتم الصالحات .. كل هذا بفضل الله وبرحمته وكرمه وواسع فضله قل الحمد لله لعلها تكتب في صحيفتي مع صحيفتك

الحمد لله تم بفضل الله ثم بمساعدتك يا ابوالبراء جزاك الله كل خير

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

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

بسم الله الرحمن الرحيم اعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاتة فى هذا الدرس من درووس اكسيل 2010 سنتعرف على كيفية البحث بين اكثر من ملف اكسل والجداول المختلفة سواء كانت بيانات العملاء او الموردين او المبيعات وذلك با ستخدام دالة من دوال البحث وهى الدالة vlookup بطريقة متقدمة وسهلة باذن الله . لمشاهدة الفيديو من هنا https://youtu.be/RSmF4imHCJM رزيارة موقعنا للتعرف على مزيد من الدرورس من هنا http://etalmfree.blogspot.com.eg/ البحث بين اكثر من ملف.rar

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

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

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

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

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

المثال المطلوب + نموذج كشف حساب بنفس المتغيرات وافر جزيل الشكر مثال.rar كشف حساب.rar

السلام عليكم اخواني لدي تقرير مبني على استعلامين مرتبطين والمطلوب اذا كان الحقل فارغ لايوجد به اي بيانات (( لايظهر في التقرير )) الحقل+أسم الحقل , وايضا مكان الحقل يحل مكانه الحقل المجاور اذا كان فيه قيمة ولكم جزيل الشكر