jjafferr

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

وعليكم السلام بدل هذا السطر Set rst = CurrentDb.OpenRecordset("Select * From Data") استعمل Set rst = CurrentDb.OpenRecordset("Select * From Data Order By [Name]") . جعفر

وعليكم السلام اخي مصطفى واهلا وسهلا بك في المنتدى الرابط التالي سيفيدك جعفر

الله يخليك ، اجلس واقرأ ، اخاف لا تطيح لما تعرف شو اللي عملته حذفت الحقل التالي: جعفر

تفضل ، جرب هذا المرفق جعفر 918.5.‏‏‏‏برنامج المخــــــــــزون - - نسخة.mdb.zip

الله يطول عمرك اخوي ابو زاهر انا كنت اريد برنامجك اللي فيه البيانات متكررة ، واريد مجموعة منها ، انا ما اريد ان ادخل البيانات ، وانما اريدك انت ان تدخل البيانات بالطريقة الصحيحة جعفر

اها ، ما قرأت كل الكود الظاهر يجب ان تعمل connection للجداول قبل خطوة إضافة السجل ، لأن الكود اعلاه يغلق الاستصال بعد الكود ، فكل اللي تقوم فيه من بيانات وسجل سابق ولاحق ، هي موجودة في Recordset الذي جلبته من البيانات قبل اغلاق الاتصال. Ado فيه اتصال وقطع اتصال ، وهذا الذي استعملته انت ، بينما Dao مافيه قطع اتصال ، جعفر

وعليكم السلام طبعا ما بيقبل الامر Docmd.gotorecord,,acnewrecord لأن النموذج عندك غير مضمن (اي غير مرتبط بجدول) يجب عليك إضافة سجل عن طريق Recordset مباشرة: adorec.addnew ..... إضافة بيانات الحقول في الجدول adorec!ID = 5 adorec!Name = "جعفر" ..... adorec.update . جعفر

وعليكم السلام عمل استعلامات 4 ، كل استعلام بمعيار ، هو اسهل الطرق ، 2. هاي الاسهل ، عمل ملف اكسيل لكل استعلام: تعمل استعلامات لكل نوع من الشروط اللي ذكرتها اعلاه ، والكود التالي لعمل ملفين: DoCmd.OutputTo acOutputQuery, "Q1", acFormatXLS, "D:\Temp\File1.xls", False DoCmd.OutputTo acOutputQuery, "Q2", acFormatXLS, "D:\Temp\File2.xls", False او DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Q1", "D:\Temp\File1.xls", True DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Q2", "D:\Temp\File2.xls", True . 1. اذا اردت ان ترسل الاستعلامات الاربع ، وتحفظ كل واحد في صفحة مستقلة ، فالبرنامج هذا يفيدك: . وتقدر برمجيا تدخل في كود البرنامج اعلاه ، وترسل الاربع استعلامات جعفر

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

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

وعليكم السلام تفضل ، جرب هذا التعديل: Private Sub cmd_Do_The_Changes_Click() 'make Reference to Microsoft DAO x.xx Object Library Dim rst As DAO.Recordset Dim biggest_Number As Long Dim i As Integer Dim j As Integer Dim RC As Integer Dim Multiply_by As String biggest_Number = Len(DMax("[ID]", "Data")) 'what number to multiply with Multiply_by = 1 For i = 1 To biggest_Number Multiply_by = Multiply_by & "0" Next i 'we have to do this in two steps: '1 based on the Biggest Number, lets multiply it by 10, so that No number id duplicated '2 then Seq based on the required Seq '1 Set rst = CurrentDb.OpenRecordset("Select * From Data") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC 'change the existing numbers to BIGGER NUMBERS rst.edit rst!ID = rst!ID * Val(Multiply_by) rst.Update rst.MoveNext Next i '2 rst.MoveFirst For i = 0 To RC - 1 'change the BIGGER NUMBERS to the new Seq rst.edit rst!ID = Me.int_Start + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Sub جعفر 927.1.Access2.accdb.zip

السلام عليكم اخوي ابو خليل قدمك كانت قدم خير على الموضوع ، من دخلت ، وإنحل الموضوع السلام عليكم اخوي ابو زاهر الحمدلله توصلنا الى حل عملت تعديل اضافي للبرنامج ، بحيث اضفت لك جميع الحالات من 11 الى 21 ، وعملت حقل بإسم Rsnf_Sum والذي يقوم بجمع هذه الحالات ، فرجاء تصحيح علامة الزائد من الناقص (لوسمحت اخوي ابو خليل تساعد في هذه الخطوة) : . وتم تعديل الاستعلام الاصل ليُظهر جميع النتائج ، وتعديل حقل Rsnf ليأخذ بيانات الجمع Rsnf_Sum من الاستعلام اعلاه + الرصيد المتبقي: . يجب عليك نقل هذين الاستعلامين الى برنامجك الرئيسي ، حتى يتم العمل وين المشكلة و وين الحل: لما يتم عرض اي موضوع في المنتدى ، فنحن ننظر في الموضوع حسب معطيات العضو ، وقد لا يكون الخطأ في المعطيات مباشرة ، وانما تكون المعطيات/الخطأ الظاهر مثل موضع الحمى ، بينما يكون مصدر وأصل الحمى مكان آخر جعفر 918.استدعاء الرصيد (2).mdb.zip

وعليكم السلام اخوي ابو خليل نعم كلامك صحيح ، ولازم اسم الموضوع يتغير وهذه محاولة اخيرة مني لأبو زاهر ، واللي اريده يضيف بيانات اضافية للبرنامج ويجربة ، واذا ظلت المشكلة على ماهي عليه ، فيجب ان يفكر في بدائل جعفر 918.استدعاء الرصيد (2).mdb.zip

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

آه نسيت: ولما تغير الطابعة ، بتحتاج عمل التالي مرة او مرتين: ثم اطبعه مباشرة على الفاتورة ، ثم عدّل على اماكن الحقول جعفر

وعليكم السلام يرجى ارفاق جزء من برنامجك والذي فيه هذه الجزئية ، ثم اعطنا مثال من برنامجك ، ونحاول ان نطبقه لك ان شاء الله جعفر

وعليكم السلام لا يوجد طريقة مباشرة ، وانما اعمل شيء تقريبي ، ثم اطبعه مباشرة على الفاتورة ، ثم عدّل على اماكن الحقول ، ثم اطبعه مباشرة على الفاتورة ، ثم عدّل على اماكن الحقول ، ثم اطبعه مباشرة على الفاتورة ، ثم عدّل على اماكن الحقول ، ثم اطبعه مباشرة على الفاتورة ، ثم عدّل على اماكن الحقول ، ثم اطبعه مباشرة على الفاتورة ، ثم عدّل على اماكن الحقول ، ثم تحصل على الفاتورة المطلوبة جعفر

لوسمحت ترفق لي هذا الجدول ضمن برنامجك انت عامل 6 Dsum في حقل الرصيد ، هذا معناه انك تعمل 6 استعلامات (Dsum عبارة عن جملة SQL واللي هي عبارة عن استعلام) داخل استعلامك ، فالفكرة ان نعمل استعلام مستقل للحقل ويعمل فيه المجاميع مرة واحدة ، ونربطه بالاستعلام الحالي. جعفر

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

السلام عليكم اخي ابو زاهر لازلت في انتظار الجواب جعفر

وعليكم السلام اذا كان عندك حقلين مستقلين ، حقل R للريال وحقل H للهلله ، فتستطيع في الاستعلام تعمل حقل جديد مثلا: RH: [R] + [H] جعفر

وعليكم السلام استخدم محرك البحث في المنتدى ، وابحث عن كلمة تفقيط ، وستجد المطلوب في قسم الاكسس جعفر

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

السلام عليكم اخي ابو زاهر سؤال: حقل الرصيد هو: Rsnf: (Nz(DSum("Alkmiah","Qrymaster","Nwaha=11" & " and ID_Sanf=" & [ID_Sanf])) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=12" & " and ID_Sanf=" & [ID_Sanf]))) -(Nz(DSum("Alkmiah","Qrymaster","Nwaha=13" & " and ID_Sanf=" & [ID_Sanf])) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=14" & " and ID_Sanf=" & [ID_Sanf]))) -Nz(DSum("Alkmiah","Qrymaster","Nwaha=21" & " and ID_Sanf=" & [ID_Sanf])) +Nz(DSum("Alkmiah","Qrymaster","Nwaha=20" & " and ID_Sanf=" & [ID_Sanf])) +Nz([rsdaolalmdh]) . بينما الاستعلام اللي تأخذ بياناتك منه Qrymaster ، لا يحتوي على اي من الحقول اعلاه: Nwaha11 و 12 و 13 و 14 و 21 و 20 . جعفر