jjafferr

اعرض الملف قافية السلام عليكم ورحمة الله وبركاته برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما جعفر صاحب الملف jjafferr تمت الاضافه 01 يول, 2018 الاقسام قسم الأكسيس

اخي ابو زاهر الاهتزاز اللي تتكلم عنه هو نتيجة تغير/اختلاف اللون الى الابيض ، والكود اللي ارفقه سبق ان نظرت فيه ولم اتوصل الى نتيجه!! جعفر

همم انا استعملت حقول اخرى: . ونفس النتيجة . جعفر 940.لون_الخط.mdb.zip

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

وعليكم السلام اذا كان حقل العمر 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