jjafferr

سلام شباب انا احاول قدر الامكان تفادي استخدام OCX في برامجي ، لهذا السبب انا لا استعمل هذه الاداة كذلك !! ولكن من الصورة اللي اعطانا السيد جمال ، جرب هذا الكود: Me.ProgressBar2.object.Max = 120 جعفر

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

الرد في الرابط التالي جعفر

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

السلام عليكم هذا حجم كبير!! اعملي ضغط واصلاح للبرنامج ، هذا بينزل حجمه. هل عندك مرفقات في البرنامج ، مثل صور وملفات اخرى؟ تقدرين بعد الضغط والاصلاح ، ان تستخدمين برنامج الضغط المجاني من هذا الرابط https://www.7-zip.org/ واستخدمي صيغة 7z. فهي الاكثر ضعطا بين صيغ الضغط ، واذا البرنامج ما صغر حجمه كفاية ، فيمكنك رفعه على احد مواقع الرفع ، ثم اعطائنا الرابط هنا جعفر

وعليكم السلام لتنقيص يوم من تاريخ الترقية dateadd("d",-1,[تاريخ الترقية]) إضافة سنه على تاريخ الترقية dateadd("yyyy",1,[تاريخ الترقية]) ولما نريد إضافة سنه على تاريخ الترقية ، ناقصا يوم dateadd("yyyy",1,dateadd("d",-1,[تاريخ الترقية])) . سؤالك التالي: وين اخلي هذه المعادلة؟ والجواب: في نفس المكان اللي تُدخل البيانات يدويا ، ويمكنك وضعه على حدث زر مثلا جعفر

يا شباب ، عليكم بالبحث في المنتدى ، لتحصلوا على المطلوب البرنامج موجود على سيرفر المنتدى ، هنا: https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=139629 وبرنامج العطاء للتقسيط ، هنا: . جعفر

تفضل . . جعفر 935.الترقيات.accdb.zip

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

السلام عليكم ما قاله اخي كاسر صحيح ، مع تعديل بسيط . العلاقة بين الجدولين معناها ، اظهر الارقام الموجوده في الجدولين (نفس الارقام) . لتغيير العلاقة في الاستعلام ، انقر مرتين على الخط بالفأرة اليسار) او : 1. انقر على الخط بالفأرة اليمين ، 2. اختر اعدادات الربط . اختر : جميع السجلات الموجودة في الجدول "كفالة فقير" ، اللي هو رقم 2 . نشوف الآن ان الخط العلاقات تغير . والنتيجة: . جعفر 933.30.accdb.zip

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

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

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

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

اذن لازلنا في انتظار المرفق

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

وعليكم السلام السبب الوحيد اللي يجي في بالي ، هو ان هناك كود في التقرير يعمل/عمل على تجميع الحقول هكذا ، وقمتي بحفظ التقرير ، فظل التصميم بهذه الطريقة!! ويمكنك ارفاق هذه الجزئية من برنامجك للنظر فيها. جعفر

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

السلام عليكم اخي وقبل ان تواصل العمل في برنامجك ، فحفظ اي انواع من المرفقات سواء الصور/pdf في البرنامج يُعتبر خطأ كبير وفادح ، وضرره اكثر بكثير من فوائده!! احفظ المرفقات في مجلدات داخل الوندوز ، وبالكود تقدر اظهارها في النماذج ، او ارفاقها بالايميل. جعفر

وعليكم السلام وهذا مؤشر معمول في البيت ، يعني تقدر تغير فيه مثل ما تريد جعفر

وعليكم السلام ضعي هذا الكود على زر: Dim strSQL As String Dim rst As DAO.Recordset Dim childrst As DAO.Recordset Dim db As DAO.Database Dim RC As Integer Dim i As Integer 'from https://stackoverflow.com/a/42239279 strSQL = "SELECT * FROM Table1 WHERE Not (Table1.image.FileData) Is Null;" Set db = CurrentDb Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) If Not rst.BOF And Not rst.EOF Then rst.MoveFirst End If Do Until rst.EOF Set childrst = rst.Fields("image").Value childrst.MoveLast: childrst.MoveFirst RC = childrst.RecordCount For i = 1 To RC 'Debug.Print rst!ID & " > " & childrst.Fields("FileName") 'If childrst.Fields("FileName") = "11.jpg" Then childrst.Delete 'End If childrst.MoveNext Next i rst.MoveNext Loop . جعفر

وعليكم السلام اخي حمدي مع اني اقرأ جميع اسئلتك ، ولكن لسبب ما ، لا اعرف الاجابة عليها السبب في حصولك على الخطأ هو عدم وجود قيمة للمتغير xMada (لاحظ ان نتيجتها False) ، فالاستعلام لا يحتوي على الحقل المطلوب ، فيظهر لك الخطأ: . وبعد عمل هذه التعديلات ، اتضح ان هناك اخطاء كثيرة في السطر: CurrentDb.Execute "UPDATE Ashgal SET " & xMada & "= '" & rstTeacher!المادة & " xFasl & " = " & rstTeacher!الفصل & " ' WHERE ((([اليوم])=" & randOFDays & "));" وعلشان اعرفها ، اضطررت ان افكك هذا السطر هكذا mySQL = "UPDATE Ashgal SET " & xMada mySQL = mySQL & " = '" & rstTeacher!المادة & "'" mySQL = mySQL & " ,Fasl" & nNumber & " = '" & rstTeacher!الفصل & "'" mySQL = mySQL & " WHERE [اليوم]=" & randOFDays Debug.Print mySQL CurrentDb.Execute (mySQL) 'DoCmd.RunSQL (mySQL) . وهذا السطر كان المعاون الاساسي لمعرفة المتغيرات Debug.Print mySQL انا لا ادري اذا كانت النتائج صحيحة ، ولكني اعرف بأن الاخطاء توقفت ، وانتهى الكود من العمل جعفر 930.‫‫تعديل.accdb.zip

عملت بحث في المنتدى ، وهذا اول رابط وجدته جعفر

وعليكم السلام آخر مرة اشتغلت على كود الاوتلوك كان قبل حوالي 10 سنوات ، ومنذ ذلك الوقت لم اشتغل على الاوتلوك!! في مجموعة طرق تسمح لك ترسل ايميل من الاكسس ، وهنا احد الطرق: https://www.devhut.net/2010/09/03/vba-outlook-automation/ ولكن ، الظاهر يجب ان تحفظ المرفقات في مجلد خارجي ، ومنها ترفقها للاوتلوك. آسف اني ما اقدر اساعد اكثر من هذا جعفر