jjafferr

انا عملت اللي ممكن اقدر عليه في الكود ، جربه واخبرنا لو سمحت 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 🙂 او ترفع ملفك في احد مواقع الرفع ، ثم ترفق لنا الرابط هنا 🙂 جعفر

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

وعليكم السلام 🙂 اذا OLE ، اذن لا توجد لغة صحيحة بها UNICODE 🙂 جعفر

هلا والله 🙂

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

في زر الاضافة ، انت تبحث عن الطالب في الاستعلام qryCheckRepeat . لذلك ، وجب علينا ان نكتب التاريخ ايضا في معيار حقل التاريخ ، والذي نشير اليه لحقل التاريخ في النموذج Form3 : . جعفر

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

السلام عليكم 🙂 اخوي الطاير ، هذا الكود من الرابط اللي اعطيتك : Private Sub cmd_combine_Click() 'Merge Two or More PDFs into a New Document 'pdftk 1.pdf 2.pdf 3.pdf cat output 123.pdf Dim pdftk_File As String Dim a_FILE As String Dim b_FILE As String Dim ab_FILE As String Dim Command_Line As String pdftk_File = Chr(34) & Application.CurrentProject.Path & "\" & "pdftk" & Chr(34) a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34) b_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "b.pdf" & Chr(34) ab_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "ab.pdf" & Chr(34) Command_Line = pdftk_File & " " Command_Line = Command_Line & a_FILE & " " Command_Line = Command_Line & b_FILE & " " Command_Line = Command_Line & "cat output" & " " Command_Line = Command_Line & ab_FILE 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub . لازم تغير مسارات الكود الى تلك التي عندك في كمبيوترك. مثلا يجب تغيير السطر التالي ، الى مسار واسم ملف الـ pdf اللي يقوم الاسكانر بعمله a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34) يعني اذا الاسكانر يعمل لك ملف اسمه myScan.pdf في المسار D:\myScanner_Files ، فيصبح السطر اعلاه: a_File = "D:\myScanner_Files\myScan.pdf" . ويجب ان تعمل نفس الشيء للسطرين b_File و ab_File 🙂 جعفر

شكرا اخوي ابا جودي ، سهلت عليّ المهمة 🙂 جعفر

وعليكم السلام 🙂 شكرا لك اخوي ابو زاهر ، ليس بصفتي عضو في فريق الموقع فقط ، وانما بصفتي العضو جعفر ايضا 🙂 مكان رائع نجتمع فيه ، حُباً في خدمة بعضنا البعض 🙂 جعفر

تفضل اخوي ابو ياسين ، فالموضوع تابع للسؤال 🙂 وشكرا لك على مراعاة قوانين المنتدى 🙂 جعفر

الرابط اللي اعطيتك ، فيه مرفق للاستاذ ابا جودي ، وفيه نموذج ، وفي النموذج زر لطباعة جميع السجلات : . وهذه نتيجة التقرير : جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى اخي خالد 🙂 رجاء الاطلاع على قوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر