أمير2008

تمام التقرير لا يوجد به ترتيب قم بإظهار Group & Sort من تبويب Design في شريط أكسس ثم اضغط Add Sort واختر ما تريد وهكذا

جرب المرفق https://www.gulf-up.com/do.php?id=315969

طالما أن الأسماء المشتركة في الجدولين الأول T1 و الجدول الثاني T2 لها نفس ID فيمكنك عمل استعلام توحيد : استعلام لكافة الأسماء بالجدول الأول عدا المودود بالجدول الثاني + استعلام لكافة الأسماء بالجدول الثاني SELECT [T1].Id,[T1].name FROM T1 LEFT JOIN T2 ON [T1].ID = [T2].ID WHERE (((Exists (SELECT * FROM T2 where [T2].[id]=[T1].[id] ))=False)); union SELECT [T2].Id,[T2].name FROM T2 LEFT JOIN T1 ON [T2].ID = [T1].ID;

ههههههه البرنامج المرفق بيغير أبعاد الصورة اختر 25% أو اكتب أبعاد أقل وستجد حجماً بالكيلو https://www.gulf-up.com/do.php?id=315798

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

يا جماعة صوتكم جايب لآخر الشارع وبصراحة أ/ @Amr Ashraf : أنا لو منك لا أسكت . الراجل ده غلط فيك جامد وعمال يقول اهتزاز وأنا عن نفسي مش شايف أي اهتزاز. أ/ @ حمادة عثمان : أنا مش عارف عمرو بيكلمك كده ازاي ؟؟ فعلا النموذج فيه اهتزاز واضح وضوح الشمس . لدرجة المكتب عندي اهتز لما عرضت النموذج على الكمبيوتر يا جماعة احنا بنهدي النفوس !!! كلام معقول مش مهم الشركة أقصد ابعت الصورة وأنا أخلي لك مساحته بالكيلو بايت بأبعاد 1024 * 1024 بكسل

اعرض التقرير بعد فتحه في وضع printpreview أو استخدم أمر فتح التقرير بالنموذج الرئيسي بالمرفق images3.rar

هههههههه ياباشا أي خدمة بس دي حاجة غريبة أستاذ محمد أنك لم تسأل مرة تانية لعله خير ؟!

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

هههههههه فكرة جميلة بارك الله فيك

أنا لم أجد إلا تقرير واحد اسمه table وعملت لك تعديل فيه images2.rar

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

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

طيب جرب النموذج frm_MonthlyWorkers 11115.rar

جرب النموذج المستمر الفكرة أن وقوفك على أي سجل سابق ينقلك تلقائيا إلى السجل الأخير أو ما بعده لا أعلم إن كانت هذه الفكرة تناسب برنامجك أم لا ؟ stu2.rar

جرب الاستعلام append_e_table 346.Medication.rar

جرب الاستعلام Qry_Insurance5 11114.rar

( لخاصية ’خيشم ) هههههههههههههههههه مين اللي كتب الجملة دي المفروض تكون : (خاصية Modal ) مين خيشم ده ؟؟ لو توصلت لجديد سأخبرك إن شاء الله

أنا فهمت من الجملة السابقة لخاصية ’خيشم أنك تكون حريص في الأكواد طالما أن الفورم ليس مودل فمثلا الكود : docmd.close مكتوب عندك دون تحديد الفورم الذي سيتم اغلاقه وهنا عندك اثنين فورم مفتوحين الأول يفتح الثاني الذي يتعامل مع جدول Trans_top ثم أمر اغلاق نموذج (ربما الأول وربما الثاني) ثم فتح جدول Transactions الذي يحتاج مفتاح أساسي من الجدول السابق أعتقد اعادة ترتيب الأكواد هتحل المشكلة زي ما اتحلت عندي وإلا تعمل النموذج Modal = yes علشان تقدر تعمل معالجة كاملة للكود بالنموذج الثاني تقول الجملة التي لا أعلم مصدرها ههههههه (Use VBA code to manipulate any other open object) شوف باختصار لا تظن أني فاهم حاجة من الكلام اللي كتبته لك الحين وحاول تغير يمكن البرنامج يشتغل معاك

شوف كده الاستعلام Qry_Insurance_all هل هذا طلبك ؟ 11113.rar

عندي 32 لكن حاليا مفيش خطأ في ملفك لكن أنا قرأت جملة بخصوص Modal from : here are some things you CAN do when a modal form is open:*1) .................*2) .................*3) Use VBA code to manipulate any other open object الجملة الثالثة استوقفتني خاصة وأنك تفتح نموذج آخر في نفس الوقت

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

حاضر مستر أوس في القريب العاجل إن شاء الله تمام... ياباشا منكم نستفيد

طيب جرب المرفق هو اشتغل عندي Modal = no goto.rar

تمام مستر أوس . وعلى سبيل المثال البحث عن كلمة داخل أكواد النماذج والتقارير والدوال يمكن عمله بكود Vba Public Sub findWord(ByVal SearchWord As String) Dim objComponent As Object Dim strMessage As String Dim strModuleList As String strModuleList = vbNullString For Each objComponent In Application.VBE.ActiveVBProject.VBComponents If objComponent.CodeModule.Find(SearchWord, 1, 1, -1, -1) = True Then strModuleList = strModuleList & "; " & objComponent.Name End If Next objComponent strMessage = "Text '" & SearchWord & "' found in " If Len(strModuleList) > 0 Then ' strMessage = strMessage & "modules: " & Mid(strModuleList, 3) strMessage = strMessage & "modules: " & strModuleList Else strMessage = strMessage & "no modules" End If End Sub