jjafferr

أخوي ابو زاهر الآن انزلت مرفقك ، وماشاء الله بحر من الكائنات لازم تخبرنا وين تريدنا نطالع ، اي جدول ، اي حقل ، اي قيمة ، .... وهكذا ، واذا شرحك وافي ، فعلى بركة الله ، ولكن رجاء ، اعطنا كل التفاصيل يعني: 1. ما حد يعرف برنامجك مثلك ، فلا تتوقع منا نبحث عن حقل هنا او هناك ، 2. ساعدنا بمعرفة المطلوب وبدقة ، علشان نساعدك بالاجابة وبشرح جعفر

تفضل: ضع جملة SQL هذ في استعلام: SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=1 Or (MSysObjects.Type)=6) AND ((Left([Name],4))<>'MSys') AND ((Left([Name],1))<>'f' And (Left([Name],1))<>'~')) ORDER BY MSysObjects.Name; 1 معناه جدول مضمن ، و 6 معناه جدول مرتبط جعفر

وعليكم السلام قد تجد المطلوب في موضوع أخونا شيفان جعفر

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

كم مستخدم عندك؟ عادة لكل مستخدم سجل فيه معلوماته ومعلومات الدخول، فاذا كان عندك مستخدم اسمه جعفر ، وآخر اسمه جعفر2 ، وعند دخولك النموذج ، فتلقائيا النموذج يُفتح على السجل الاول ، والذي يكون جعفر ، ولكن المستخدم قد يكون جعفر2!! الطريقة السهلة لكي تعرفين ان البيانات متطابقة هي ان تجعلين الحقول ظاهره وغير مخفية ، ومنها تكون المقارنة شيء آخر تستطيعين عمله هو تغيير الكود بهذا: if me.sds1.text=me.user_Name and ..... بحيث تضيفين للحقول الغير مضمنه كلمة .text ومعناها القيمة التي لم تُحفظ بعد واذا هذه الطرق ما نفعت ، فلوسمحتي ترفقي هذه الجزئية من قاعدة بياناتك جعفر

وعليكم السلام تستطيع في الحدث "بعد التحديث" ان تقول: me.Qty=me.ad جعفر

حياك الله أخوي حسين هل في شيء معين تريدني انظر فيه؟ جعفر

السلام عليكم أخي حلبي الرابط فيه طلبك: وهذا جعفر

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

حياك الله أخوي رمهان ، والله المنتدى له وحشه لما الواحد يكون بعيد واهل المنتدى هم المقصودين ، مثل ما قال الشاعر أمر على الديــــــار ديار ليـلى ... أقبل ذا الـــــــجدار وذا الجـدارا وما حب الديار شـــــغفن قلبي ... ولكن حب من ســـــــكن الديارا جعفر

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

الكود السابق: UBound(strFileNames) UBound معناه العدد الاكبر من strFileName ، ولكن للاسف بسبب الضغط على زر cancel ، فالمتغير strFileName يصبح Null ، لذلك لم يستطع الامر السابق اصطياد الخطأ، بينما الامر If Len(strFileNames & "") = 0 Then فيقوم محل امرين وهما: If isNull(strFileNames)=true or strFileNames= 0 Then جعفر الله يسلمك ويعافيك ان شاء الله اخوي محمد جعفر

حياك الله اخوي ابو الآء وحياك الله اختي جعفر

وعليكم السلام أخي اباجودي استبدل هذا السطر If UBound(strFileNames) = 0 Then بهذا السطر If Len(strFileNames & "") = 0 Then بسم الله عليك ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel جعفر 207.5.m.salama.accdb.zip

وعليكم السلام اختي 1. اذا تسمحي لي بتغيير الكود قليلا الى التالي ، فانتي لستي بحاجة الى If اخرى: if result=vbYes then docmd.quit else docmd.cancelevent msgbox "Back" endif 2. برنامج الاكسس تلقائيا يحفظ البيانات عندما ينتقل التركيز من السجل الذي انتي عليه ، سواء انتقلتي الى سجل آخر او خرجتي من النموذج الذي انتي فيه، ولكن اذا اردتي حفظ البيانات يدويا ، فهناك مجموعة طرق للقيام بهذا ، منها: سيتم حفظ البيانات كلما استعملتي هذا الامر docmd.runcommand accmdsaverecord او الامر التالي يحفظ البيانات فقط اذا تم عمل تغيير عليها if me.dirty then me.derty=false جعفر

وعليكم السلام اختي واهلا وسهلا بك في المنتدى سأعطيك الطرق التالية لعمل المطلوب: 1. لا تعملي اي معيار في الاستعلام ، وسنطلب من البرنامج ان يفتح التقرير برقم Research_ID الذي تنقرين عليه (على نفس السجل ، سواء في النموذج الارئيسي او الفرعي)، وبالنظر الى الصور التي ارفقتيها ، ولأن ارقام حقل Research_ID في يمين الحقل (طبعا هذا اذا لم تقومي بعمل تنسيق له وعمل محاذاته لليمين) ، فهذا معناه ان الحقل نص وليس رقم اذا كان حقل Research_ID نص DoCmd.OpenReport "Report1", acViewPreview, , "[Research_ID]='" & Me.Research_ID & "'" واذا كان رقم DoCmd.OpenReport "Report1", acViewPreview, , "[Research_ID]=" & Me.Research_ID 2. اذا اردتي ان تضعي المعيار في الاستعلام ، فسيكون هكذا (طبعا غيري اسم Main_Form الى اسم النموذج الرئيسي ، و Sub_Form الى اسم النموذج الفرعي): Forms!Main_Form!Sub_Form!Research_ID 3. اذا عندك نموذج رئيسي لا يُغلق طول فترة البرنامج (سواء أكان ظاهر او مخفي) فلنسميه frm_Main ، فاعملي فيه حقل بإسم iResearch_ID مثلا، ثم اعملي الاستعلام على ان يأخذ معيار الحقل Research_ID من هذا الحقل ، وعلى حدث فتح التقرير ، سنرسل قيمة الحقل Research_ID الذي في النموذج الفرعي ، الى الحقل iResearch_ID في النوذج frm_Main ، والذي سيأخذ الاستعلام قيمته: Forms!frm_Main!iResearch_ID=me.Research_ID DoCmd.OpenReport"Report1" ,acViewPreview جعفر

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

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

السلام عليكم اخي ابوعمار رجاء معاينة الرابط الاخر للسؤال: جعفر

السلام عليكم اخي ابوعمار انا اعتذر منك على التأخر في الرد ، حيث كنت على سفر ارجو انك لازلت بحاجة الى هذا الجواب الحل في: ا- الاستعلام ، لعمل الارقام في تسلسل (لأن حقولك عبارة عن نص ، والتسلسل فيها لا يكون صحيح) ، 2- مجاميع التقرير (في اسفل التقرير) ، لكي نعمل مجموعات الحقول ذو الرقم الواحد ، والثلاثة ، والاربعة ، والستة ، 3- الكود ، لإخفاء السجلات الغير مطلوبة. والنتيجة: جعفر 610.1.مطلوب تقرير.accdb.zip

السلام عليكم النقطة رقم 2 يمكن الحصول على الكود حقها من الرقم 16 في المرفق التالي: جعفر

الله ان شاء الله يسلمك ويعافيك ، اخوي أبوخليل جعفر

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

الجواب في المرفق

نعم لوسمحت ترفق الملف ونرى ما يمكن عمله ان شاء الله جعفر