Shivan Kurdi

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

الحل الوحيد امامي هو ان تضيف هذا الكود في اسفل الكود السابق اي في اسفل كلمة نيكست لكن انا مش راضي لهذا الكود لان لازم تكتب لكل ليبل لنفسه If Me.m1.Visible = False Then Me.Label1.Visible = False مثلا اسم عنوان حقل مي 1 هو ليبل 1 لذا كتبنا اذا مى 1 بيكون مخفي خلي ليبل 1 بيكون مخفي ولازم تكتب لكل حقول هكذا احنا نكدر ان نخفي كل ليبل بسوى لكن بها اسماء لذا انا اجد بس هذه الطريقة لذا ارجوا من اساتذنا من لدية طريقة افضل ان يخبرنا مع تقدير اسف استاذي جعفر القدير بعد انا عملت مشاركة رأيت مشاركتك

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

الليبل العناوين مش خاليه‌ لذا ما يضبط ذاك الكود عليه لكن انتظرني لعل اجد له الحل

استخدم NZ انا حذفت كل الاكواد وشوف المصدر وايظا تكدر تستخدم نفس الاكواد لكن بزيادة NZ اليك نموذجك بعد تعديل إجمالي المصاريف.rar

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

اذا تشوف نظرة الى استعلام الاول راح تشوف ان بها عدد 2 من كومبوبوكس وحين انت قلت لي بيظهر حقلين وبيختفي الاخر انا عملت تحويل ذاك الحقلين كومبوبوكس الى حقل تيكست بوكس وبعدين بيختفي كل الحقول لانه كان كله من نوع تيكست بوكس الان تقرير الثاني بها نفس الشي حقلين من كومبوبوكس لكن بدل ان تستخدم تحويل الى نوعية تكست بوكس استخدم هذا الكود بدل الكود السابق Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If IsNull(ctl) Then ctl.Visible = False Else ctl.Visible = True End If End If Next ctl لكن بعد بها حقل اخر وهو حقل اتيجمانت اي يعني للصور و ايكونات لذا ما عرفت كود للتطبيق على كل حقول اتيجمانت لذا اكتب هذا الكود If Me.m15.AttachmentCount = 0 Then Me.m15.Visible = False Else Me.m15.Visible = True End If مع تقدير

اولا تم الحل نقطة رقم 1 و رقم 2 شوف النموذج ثانيا احكيلي ما تريد بالتفصيل وبالتسهيل اي يعني تريد تعمل اي اي ترسل لمين فهمني بالضبط لايميل اي واحد ممكن تشرح لي اكثر تجربة (1).rar

الحمد لله

افتح التقرير بواسطة النموذج ووافيني بالنتيجة

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

السلام عليكم ورحمه‌ الله وبركاته اخي الكريم اولا ممكن تدخل البيانات لقاعدة بياناتك لكي نعرف ما هذه القاعدة وبعدين اسألك كم سؤال اخرحسب القاعدة بياناتك مع تقدير

استخدم ( or ) معها اي يعني اييف ( التوجيه = "مرتجع بيع" اور التوجيه = "مرتجع شراء" : حقل البيع * -1 : حپل البيع)

شوف النتيجه‌ ووافينا 0موظفين.rar

ممكن ترفع قاعده‌ بياناتك لكي نتم العمليه‌ عليه

Snagit 12 Editor اعمل بها بتسجيل الفيديو والتقاط الصور وبها نكتب على الصور ونشرح الموضوع عليه

غدا ان شاء الله راح اشوفه

اخي الكريم السلام عليكم ورحمة الله وبركاته رخصة منك يا استاذنا رضوان الحبيب اذا تريد ان يكون يبقى ثلاث حقول فقط اعمل كما قال استاذنا Rudwan لكن اذا تريد ان بيكون عدد السجلات كما هي اي يعني 7 و تريد يحسبلك الحقل التاريخ بدون تكرار اي يعني بينطيك رقم 3 ارفق قاعدة بياناتك لكي نتم العملية عليه مع تقدير

استاذ RUDWAN انا فرحت بمشاركتك معنا ونفخر بمشاركتنك معنا وانا افهمك جيداً لكن انا قلت هذا قلت لعل وعسى ان اخطأت في شي وشكرا لك لمشاركتك معنا اخوك الصغير شفان ريكاني

هل تقصد بهذا اذا نعم بس عليك ان تتغير كود عند فتح النموذج الى رقم ماتريد FadeForm Me.hwnd, 100 Test (7).rar

انتظر لمشاركتي لكن بعد وقت

لكل سؤال جديد موضوع جديد بعد البحث في المنتدى والجواب انا لا اعرف

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

اخي الكريم عندك عدة طرق لتنفيذ العملية 1 / اذا تريد ان يغلق النموذج الدخول حين تضغط على زر الدخول لازم بيكون بالبداية بيكون كود فتح النموذج التالي وبعدين اغلاق نموذج الدخول وحين تحميل النموذج الثاني يجب فيه هذا الكود ME.TEXT1=[Forms]![frm-UserLogon]![kesm] 2 / اذا ما عندك مانع ان يكون نموذج الدخول بيكون مفتوح راح يسهل عليك وفي اي نموذج اي مربع نصي تريد تكدر في مصدره تكتب هذا الكود =[Forms]![frm-UserLogon]![kesm] وتكدر تعمل ميني مايز لنموذج الدخول 3 / اذا تريد ان يغلق النموذج الدخول و ما عندك مانع ان يكون خصائص نموذج الدخول بيكون شرطي و منبثق = لا تكدر تستخدم كود اخفاء الشاشة الدخول وتستخدم نفس الكود الثاني في اي مكان تريد 4 / واذا ما تريد اي ثلاث طرق فانظرني قريبا ان شاء الله راح انشر موضوع على هذا بطريق جديدة لكن بعد انا ما عملت لكن بس عندي فكرة لهذا مع تحيات ProSa.rar