jjafferr

وعليكم السلام هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك جعفر

وعليكم السلام اذا كان حقل العمر Age دائما هكذا: 2 سنه 30 سنه فنستطيع استعمال: Y = val([Age]) او Y = val(replace([Age],"سنه","")) واذا عندك 5 سنوات 30 سنه فتستطيع استعمال: Y = val([Age]) او Y = val(replace([Age],"سنه","")) Y = val(replace([Age],"سنوات","")) او ندمج السطرين اعلاه في سطر واحد (ولكن لأننا نستخدم كلمات عربيه ، فللأسف لا تستطيع ان ترى الامر بصوره صحيحة) Y = Val(Replace(Replace([age],"سنه",""),"سنوات","")) . جعفر

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

وعليكم السلام القيت نظرة على النماذج الفرعية ، والفرز فيخا صحيح برقم الصنف!! ولأنك لم تخبرنا وين المشكلة ، فلازم اقول الظاهر قصدك: لما تقوم بعمل ادراج مواد جديدة ، فالمواد تكون بالتسلسل الذي تقوم بإدخالها ، واذا اردت بعد كل ادراج ، ان يكون الفرز بالتسلسل ، فيجب عليك بعد ادراج كل مادة ، ان تعمل Requery او Refresh للنموذج الفرعي ، هكذا: Forms!frmSales!SubSales.Form.requery جعفر

وعليكم السلام وانا قلت لك هذه هي المعادلة ولما نريد إضافة سنه على تاريخ الترقية ، ناقصا يوم dateadd("yyyy",1,dateadd("d",-1,[تاريخ الترقية])) . وانا قلت لك: وين اخلي هذه المعادلة؟ والجواب: في نفس المكان اللي تُدخل البيانات يدويا ، ويمكنك وضعه على حدث زر مثلا تفضل: نفس الكود اعلاه ، ولكن على حدث زر Private Sub cmd_To_Click() Me.الى = DateAdd("yyyy", 1, DateAdd("d", -1, [تاريخ الترقية])) End Sub . وهذا هو الزر جعفر 935.الترقيات.accdb.zip

وعليكم السلام هلا والله اخوي حربي ، هلا بالطلّه الآن لازم تنادي الوحدة النمطية لقفل/فتح قفل حقول النماذج الفرعية: Function Lock_Form_Controls(frm As String, L As Boolean) Dim ctl As Control For Each ctl In Me(frm).Form.Controls If ctl.ControlType = acTextBox Then ctl.Locked = L End If Next End Function . و لفتح القفل بدل Me.Frm_1!Degree.Locked = False ننادي الوحدة النمطية Call Lock_Form_Controls("frm_1", False) للقفل بدل Me.Frm_1!Degree.Locked = True ننادي الوحدة النمطية Call Lock_Form_Controls("frm_1", True) . وبس جعفر 938.DbStudents20.6.mdb.zip

وعليكم السلام اخي عبد القادر اهلا وسهلا بك في المنتدى رجاء مراعاة وضع اسم للموضوع يدل على طلب الموضوع وبالنسبة الى سؤالك، فالافضل ان ترفق هذه الجزئية من برنامجك ، مع شرح المطلوب بالتفصيل بإستخدام اسماء الجداول والحقول ، وشرح النتيجة التي تريد الوصول لها ، بهذه الطريقة يتسنى لعدد اكبر من الاعضاء في الرد. جعفر

وعليكم السلام وبتغيير بسيط على الكود: نصل الى: 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 Set db = CurrentDb db.Execute ("Delete * From bayan1") Set rst2 = db.OpenRecordset("Select * From bayan1") Set rst = db.OpenRecordset("Select * From bayan") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC For j = 0 To rst.Fields.Count - 1 If Len(rst.Fields(j).Value & "") = 0 Then GoTo Next_j rst2.AddNew rst2!a1 = rst.Fields(j).Value rst2.Update Next_j: Next j rst.MoveNext Next i rst.Close: Set rst = Nothing rst2.Close: Set rst2 = Nothing db.Close End Sub جعفر

هذا يذكرني لما تريد ان ترمز لجدول النموذج الفرعي ، فيمكنك ان تستعمل Form.RecordSource.... ، ولكن تارة اخرى ما تحتاج الى Form

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

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

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