jjafferr

🙂

السلام عليكم 🙂 سر ولازم اكشفه 🙂 في الكثير من المواضيع المهمة اللي اريد اتابعها ، ولكن بدون ان اضيف مشاركة ، اقدر اتابع هكذا : جعفر

عمل جميل اخي ابو الكرم 🙂 جعفر

ويعمل بحروف عربية كذلك 🙂

عفوا اخوي كاسر ، كلامك صحيح 🙂

تأخرت لأني كنت ابحث عن الموضوع 🙂 تفضل ، مادام واجهة ، فالامر سهل 🙂 جعفر

هذا معناه عندك بيانات غير اللي ارفقتها ، فياريت ترسلها لي على الخاص. شكرا

نسينا نسأل ، اذا اليومين مال الارض ، او مال كوكب ثاني ولازلنا في الانتظار 🙂 جعفر

🙂

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

وعليكم السلام 🙂 كلمة سر البرنامج او VBA ؟ صيغة البرنامج mdb او accdb ؟ هل البرنامج جزء واحد او مقسم الى جزئين واجهة وجداول ، واذا مقسم ، هل تريد كلمة سر الواجهة او الجداول ؟ جعفر

انا عملت اللي ممكن اقدر عليه في الكود ، جربه واخبرنا لو سمحت Function IsAutoNumber2() 'DoCmd.SetWarnings False Dim n, f, D, E, L, t, h, G As Integer Dim rst As DAO.Recordset Dim bb As Integer ' Dim i As Integer, RC As Integer ' Set rst = CurrentDb.OpenRecordset("SELECT * FROM [اقمشة]") ' rst.MoveLast: rst.MoveFirst ' RC = rst.RecordCount ' For i = 1 To RC Set rst = CurrentDb.OpenRecordset("SELECT komash, qunt4 FROM [اقمشة]") Do While Not rst.EOF rst.Edit n = Nz(DSum("[quntt]", "Data", "komash='" & rst!komash & "'"), 0) f = Nz(DSum("[quntt1]", "Data", "komash1='" & rst!komash & "'"), 0) D = Nz(DSum("[quntt2]", "Data", "komash2='" & rst!komash & "'"), 0) E = Nz(DSum("[quntt3]", "Data", "komash3='" & rst!komash & "'"), 0) L = Nz(DSum("[quntt4]", "Data", "komash4='" & rst!komash & "'"), 0) t = Nz(DSum("[quntt5]", "Data", "komash5='" & rst!komash & "'"), 0) h = Nz(DSum("[quntt6]", "Data", "komash6='" & rst!komash & "'"), 0) G = Nz(DSum("[quntt7]", "Data", "komash7='" & rst!komash & "'"), 0) rst("qunt4").Value = n + f + D + E + L + t + h + G rst.Update rst.MoveNext Loop ' Next i rst.Close: Set rst = Nothing MsgBox " تم تعديل السجلات في الجدول بنجاح ", vbInformation, "تنبيه" 'DoCmd.SetWarnings True End Function جعفر

نعم في

وعليكم السلام اخوي ابو ياسين 🙂 الموضوع معقد اكثر مما اعتقدت ، وعدة محاولات باءت بالفشل ، ولكني لم أيأس بعد 🙂 جعفر

اختنا الفاضلة زهرة ام عهود ، الغائبه و الحاضره دائما معانا 🙂 هذه قطرة من كرمها 🙂 http://arabteam2000-forum.com/index.php?/topic/170095-الحل-الكامل-لمشكلة-project-is-unviewable/ جعفر

يجب عليك معرفة كلمة سر كود VBA لهذه الخطوة !! جعفر

وعليكم السلام 🙂 رائع اخي صالح 🙂 ولكن ، اعط البرنامج حقه ، فلقد غيّر حتى الامتداد accde ، والذي يجب ان تضيفه الى Filters.Add 🙂 جعفر

احنا في الهوى سوى ، بس كل يصل ليلاه بطريقته ❤️ جعفر

اما انا فسؤالي اكسس وغير عن سؤال الاستاذ عصام 🙂 هل يبقى الجزء العلوي فارغ ، بعدد 10 اسطر ، او فيه معلومات من جدول ما ؟ والجزء السفلي ، هل دائما ثابت على 11 سطر ، واذا زادت السجلات عن 11 فماذا تفعل؟ جعفر

ولا يهمك 🙂 اذا كان البرنامج بصيغة mdb ، فيمكنك تعطيل الشفت ، وابحث في المنتدى عن هذا الخيار ، فالمنتدى مليان مواضيع بهذا الموضوع 🙂 جعفر

يا سلام !! الطبخة وانتوا طبختوها ، والاكله وانتوا اكلتوها ، على طاري الاكله ، ليش وين العزومة ، جاهز للإنقاذ 🙂 جعفر

السلام عليكم 🙂 لوسمحت تعطينا مرفق ، علشان اغير الكود الى استعلامين ، حتى يكون اسرع 🙂 جعفر

وعليكم السلام 🙂 البرامج التي بصيغة mde. و accde. مقفله ، فلا تستطيع ان ترى الكود ، نعم هناك طريقة تفتح فيها النماذج ، وتستطيع ان تغير (ولا تحذف شيء ابدا) ، ولكن لن تستطيع عمل تغيير كود ، طبعا تقدر تعمل ماكرو للحدث الجديد. بس من الواضح انك لم تعمل البرنامج ، لذا الافضل ان ترجع الى المبرمج لعمل التغييرات المطلوبة 🙂 جعفر

يمكنك ان تضغط الملف ببرامج الضغط مثل winrar او winzip او 7z 🙂 او ترفع ملفك في احد مواقع الرفع ، ثم ترفق لنا الرابط هنا 🙂 جعفر

هلا والله 🙂 يعني لازلت تذكر 🙂 جعفر