نجوم المشاركات

والآن اجيب على اسئلتك: 1. هناك نوعين من Recordset ، نوع يخص DAO وآخر يخص ADO ، ومع تشابههما ، إلا ان هناك الكثير من الاوامر التي تختلف بينهم ، فإذا لم نخصص نوع الـ Recordset ، فالاكسس يستعمل مكتبة الاولى في القائمة ، مثلا ، في الصور التالية ، مكتبة ADO قبل مكتبة DAO ، فعند كتابة Recordset فقط ، فالاكسس يعتبرها تابعه لـ ADO: في الاكسس 2003 . وفي الاكسس 2010 فما فوق تم دمج مكتبة DAO في MS Office 14 Access Database engine object . 2. هذا امر OpenRecordset ، فيه عدة اختيارات ، والمبرمج اختار هذه لأسبابه ، ويمكنك الاستغناء عن الجزئين الاخيرين منها ، حيث هذا يكفي: (Set rst = db.OpenRecordset(strSQL . 3. المؤشر في سجلات Recordset يكون كما في القائمة التالية: BOF Record1 Record2 .. .. EOF حيث BOF = Begining Of File EOF = End Of File فإذا كنا على BOF او EOF فلا يوجد هناك سجلات ، فالسطر معناه ، اننا مادمنا لسنا قبل بداية ولا بعد نهاية الـ Recordset ، فقم بالخطوة التالية ، 4. انتقل الى اول سجل تصادفه (رجاء متابعة النقطة التالية) ، 5. اذا اردنا ان نجعل الـ Recordset بالكامل في ذاكرة الكمبيوتر ، فعلينا ان نأخذ المؤشر الى آخر سجل ، ثم عندما نأخذ المؤشر الى اول سجل ، فيعرف البرنامج عدد سجلات هذا الـ Recordset ، بينما في الرقم#4 اعلاه ، فنحن طلبنا منه البدء من اول سطر وبدون معرفة عدد السجلات ، والنقطتين معناها سطر جديد في الكود ، يعني: بدل كتابة For i = 1 To RC childrst.Delete childrst.MoveNext Next i يمكننا كتابة For i = 1 To RC: childrst.Delete : childrst.MoveNext : Next i . ولكننا اذا عملنا هذا الشيء لكل الكود ، فلن نعرف كيف نتصيد الخطأ ، ولا نستطيع استعمال Goto ، فنحن نستعمله في نطاق نعمل انه لن تكون لدينا اخطاء فيه جعفر

السلام عليكم ورحمة الله وبركاته اثناء البحث عن وظائف دوال الاكسيس وجد هذا الملف لعله يهم بعض الاعضاء لذلك ارفقته كتاب دوال الاكسيس.pdf

جرب هذا الملف (تم تعيير بعض الاشياء لحسن عمل الماكرو) الكود Option Explicit Sub filter_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim lr%, k%, m%: m = 5 Dim S_sh As Worksheet: Set S_sh = Sheets("الدرجات") Dim T_sh As Worksheet: Set T_sh = Sheets("salim") Dim My_Table As Range: Set My_Table = _ S_sh.Range("A4").CurrentRegion T_sh.Range("a4").CurrentRegion.Offset(3).ClearContents With My_Table .AutoFilter .AutoFilter Field:=16, Criteria1:=T_sh.Range("d3") .AutoFilter Field:=17, Criteria1:=T_sh.Range("d2") Sheets("Sapace").Cells.Clear .Columns(18).SpecialCells(xlCellTypeVisible).Offset(1).Copy _ Destination:=Sheets("Sapace").Range("a1") .Columns(2).SpecialCells(xlCellTypeVisible).Offset(1).Copy _ Destination:=Sheets("Sapace").Range("b1") .Columns(3).SpecialCells(xlCellTypeVisible).Offset(1).Copy _ Destination:=Sheets("Sapace").Range("c1") .Columns(5).SpecialCells(xlCellTypeVisible).Offset(1).Copy _ Destination:=Sheets("Sapace").Range("d1") .AutoFilter End With '====================== lr = Sheets("Sapace").Cells(Rows.Count, 1).End(3).Row For k = 1 To lr Step 2 T_sh.Range("b" & m).Resize(, 4).Value = _ Sheets("Sapace").Range("a" & k).Resize(, 4).Value T_sh.Range("g" & m).Resize(, 4).Value = _ Sheets("Sapace").Range("a" & k + 1).Resize(, 4).Value T_sh.Range("a" & m) = k: T_sh.Range("f" & m) = k + 1 m = m + 1 If IsEmpty(T_sh.Range("G" & m - 1)) Then T_sh.Range("f" & m - 1) = vbNullString Next With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق الترحيل salim.xlsm

وعليكم السلام تفضل ، هذا الرابط يخبرك كيف تربط الصور بمكان وجود الجداول . وهذا مثال . جعفر والظاهر انك بحاجة الى تغيير هذا السطر : . الى db_Path آخر من امثلتي

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

وعليكم السلام انزلت مرفق اخي kanory مما شجعني على الرد ، بنفس طريقته تقريبا ، ولكن بكود مختلف ومختزل Private Sub cmd_Go_Click() Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim db As DAO.Database Dim RC As Integer Dim i As Integer Dim j As Integer Dim x() As String Set db = CurrentDb db.Execute ("Delete * From tbl_temp") Set rst2 = db.OpenRecordset("Select * From tbl_temp") Set rst = db.OpenRecordset("Select * From Table1 Where [mawad] is not null") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC x = Split(rst!mawad, "/") For j = LBound(x) To UBound(x) rst2.AddNew rst2!mawad = x(j) rst2.Update Next j rst.MoveNext Next i rst.Close: Set rst = Nothing rst2.Close: Set rst2 = Nothing db.Close DoCmd.OpenQuery "qry_Statistics" End Sub جعفر 932.count_.mdb.zip

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

انظر الى الحقل في الجدول الآن ، ستجد ان المرفقات لاتزال موجودة ، ولكن الاكسس لا يستطيع فتحها!! تفضلي اختي : 1. لكي تحذفي مرفقات السجل الذي انتي عليه فقط ، 2. واذا كان السجل يحتوي على اكثر من مرفق ، واردتي حذف مرفق معين من هذا السجل ، فيمكنك استعمال هذا السطر ، جعفر

نعم هو حقل متعدد أنا فرغت فرع الداتا فقط

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

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

كود حذف المرفق.accdbبعد إذن أستاذنا الكبير @jjafferr هذا الكود لحذف المرفق فى السجل الحالى وفقكم الله Dim rst As DAO.Recordset Dim childrst As DAO.Recordset Dim db As DAO.Database Dim nn As String nn = "update table1 set [image].filedata =null WHERE Table1.ID =" & Me.ID strSQL = "SELECT * FROM Table1" Set db = CurrentDb Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) rst.MoveFirst db.Execute nn Me.Requery كود حذف المرفق.accdb

السلام عليكم مشاركة معكم احبتي انا استخدم هذا الاسلوب وهو توظيف NZ : يعرض جميع التواريخ ، ويمكن التصفية ايضا Between nz([forms]![frmReports]![txtStartDate];"01/01/1900") And nz([forms]![frmReports]![txtEndDate];"01/01/2100")

قمت بتعديل مشاركتي السابقة ، فبدل "فحفظ الصور" اصبح "فحفظ المرفقات سواء الصور/pdf" وهذه بعض المشاركات السابقة لي عن موضوع المرفقات ، ورجاء قراته بالكامل : . وطرق الاستغناء عنها بمجلد في الوندوز . جعفر

جرب هذا الماكرو Option Explicit Sub Give_Data() Dim first As Worksheet Dim sec As Worksheet Dim third As Worksheet Dim lr1%, lr2%, m%: m = 4 Set first = Sheets("ورقة1") Set sec = Sheets("ورقة11") Set third = Sheets("تجميع") third.Range("b3").CurrentRegion.Offset(1).ClearContents lr1 = Application.Max(first.Range("b:b")) + 3 lr2 = Application.Max(sec.Range("b:b")) + 3 third.Cells(m, 2).Resize(lr1 - 3, 9).Value = _ first.Range("b4").Resize(lr1 - 3, 9).Value m = m + lr1 - 3 third.Cells(m, 2).Resize(lr2 - 3, 9).Value = _ sec.Range("b4").Resize(lr2 - 3, 9).Value End Sub الملف مرفق استدعاء.xlsm

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

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

السلام عليكم ورحمة الله وبركاته الرسوم البيانية إحدى أشكال المعلومة التي تنصهر ضمنها المعطيات لتتولد عنها أنواعا عدة من المشاهد التي تصر لها الأبصار، طبعا كيف لا وهي التي تمتاز بتنسيقاتها الأخاذة إضافة إلى الكم الذي تختزنه من معلومات في حيز محدود.. كل هذا وما جاوره جرني الى المضي في اقتفاء أثرها والبحث عن السبل الكفيلة التي قد توصلني الى الغاية المنشودة من وراء اعتماد الرسوم البيانية. وفي هذا الصدد أروي لكم قصتي مع الرسوم البيانية .. "فكرت مليا قبل أن أشرع في اضافة أي رسم بياني بقاعدة بياناتي و حاولت دراسة ما قد أواجهه من عوائق مع الأمر فكان أبرزها ازدحام المعلومات في الرسم بعد تراكم المعطيات. حيث بمجرد ما يزداد عدد الاحصائيات يتقلص حجم الاعمدة المبيانية الى أن يكتظ النموذج بالمعطيات، وحينها يضحي من الصعب استغلال المعلومات التي تقدمها الرسوم البيانية نظرا لكثرة المعطيات الواردة فيها. فللوهلة الأولى تبدو الأمور مثالية لكن سرعان ما تنكشف الصورة ويبرز المشكل جليا ..وبما أن تزايد المعطيات أمر اضطرادي لا مفر منه لذا وجب الأخد بعين الاعتبار هذه المسألة .. وكفكرة لحل هذا المشكل ارتأيت الى أن يتم تحديد عدد الأعمدة التي ستظهر في النموذج مثلا 10 أعمدة (عمود لكل سنة أو شهر) وإذا ما دخلنا احصائيات السنة 11 يتم اخفاء عمود العام الأول ليظهر عمود العام 11 وهكذا دواليك وبالتالي نكون قد حافظنا على عدد المعطيات التي سيتضمنها الرسم البياني والنموذج معا. كانت هذه كفكرة مجردة تحتاج برمجة معمقة حتى تعطي أكلها ومع البحث والتنقيب في القريب والبعيد تأتى لي الحصول على أحد النماذج من أحد المواقع الأجنبية تحل المشكلة برمتها من خلال ما تقدمه من حلول ديناميكية مرنة مهما طال الأمد أو زاد العدد.." نظرا للنتائج التي توصلت إليه إرتأيت إلا أن أشارككم ما توصلت إليه .. إلى اللحظة لم أتوصل الى حل أفضل منه وإلى حين توفر الأفضل، أسأل الله أن ينفع و ينتفع به كل من فكر في ادراج الرسوم البيانية في قاعدة بياناته وكل من سيفكر في ادراجها مستقبلاً. statistiques.rar