jjafferr

وعليكم السلام :) احد الطرق على الرابط : /index.php/topic/285795-%D8%A7%D8%B9%D9%85%D9%84-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC%D9%83-%D8%A8%D8%B9%D8%AF%D8%A9-%D9%84%D8%BA%D8%A7%D8%AA-%D9%88%D8%A8%D8%A8%D8%B3%D8%A7%D8%B7%D8%A9/ جعفر

تفضل :) Private Sub Form_Load() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject ' Search for open AccessObject objects in AllForms collection. For Each obj In dbs.AllForms If Left(obj.Name, 4) = "frm_" Then L = L & ";" & obj.Name En…

حياك الله :) نعم عندك عدة اخيارات ، منها: 1. تقدر تعمل جدول فيه اسماء النماذج ، وبالتالي تأخذ الاسماء للكمبوبوكس منها ، 2. ان تبدأ اسم هذه النماذج بحروف معينة ، مثل frm_frm1 و frm_frm2 ، فنطلب من الكود يأخذ جميع النماذج التي تبدأ بـ _frm ، 3. او انك تخبر الكود…

تفضل :) وهذا الكود يجلب جميع النماذج ، ويضعها في الكومبوبوكس: Private Sub Form_Load() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject ' Search for open AccessObject objects in AllForms collection. For Each obj In dbs.AllForms If obj…

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

اخي هشام الآن انزلت المرفق ولاحظت ان نوع الحقل اللي عندك ليس رقم ، وإنما نص ، لذلك لا يمكن استعمال طريقتي السابقة لآنها لحقول الارقام. انا اشتغلت على الحقل "جهة الصرف" ، اللي لازم تعمله هو: 1. بالنسبة الى البيانات الموجودة في الجدول ، فيجب علينا ان نستخدم استع…

اخي هشام هذا مجرد تنسيق ، ويمكنك عمله في اي جدول او نموذج او تقرير ، وسواء على بيانات جديدة او قديمة ، وعلى اي صيغة من الاكسس من 2000 الى 2013 ، كل اللي عليك عمله هو المحاولة :) جعفر

شوف هذا الرابط لأختنا الفاضلة الدكتورة أم عهود : /index.php/topic/269349-اريد-برنامج-لاصلاح-الداتا-بيز-عند-وصولها-الى-2-جيج/?p=1308258 جعفر

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

اخي الفاضل :) القيمة عندما تتبدل في الجدول ، فلا يمكن ان نسترجعها لاحقا :) (إلا اذا عملنا جداول خاصة وعمليات خاصة لهذا) ، لهذا السبب ، في النموذج الفرعي فرعي_فاتورة_شراء ، لما تغير قيمة الكمية ، يجب ان لا نغير قيمة الكمية_الحالية (يعني إلغي الكود اللي عندك) ، …

حياك الله اخي محمود :) وبارك الله فيك وفي عملك :) المسألة بالعكس ، في الاكسس ، هناك الف طريقة لعمل الفكرة الواحدة :) بالنسبة لموضوع استعلام النموذج الفرعي ، فيفضل ان يكون هكذا (وبدون الامر Like ، فانت لست بحاجه له ، وهو بطيئ كذلك) : اما بالنسبة لطريقة العرض وا…

حياك الله :) نعم ممكن ، الكود اللي انت عرضته في مشاركتك الاولى كان يعمل هذا :) واذا طلبك غير ، رجاء توضيحه بمثال او مثالين :) جعفر

لو سمحت تعطيني مثالين اثنين ، على ايش اضغط ، وشو اللي لازم يطلع ، يعني اكتب بالتفصيل اكثر لوسمحت ، وباسماء الحقول في النموذج و اي حقل من اي جدول. جعفر

الله يطول في عمرك اخوي ، انت قمت بالعمل على أ بينما ب لا تقول بانك تستخدم اكسس 2010 :( >ب. استعمل اكسس 2003 او اكسس XP او اكسس 2000 ، ثم حول البرنامج الى اكسس 97 :) اعتقد انك تريد ان تنفذ مثال قرأته الذي يطلب ان تكون قاعدة بيانات اكسس بصيغة 97 ، ولكن VB6 مفروض…

الكود في هذا الرابط سيفتح التقرير بالاسم المطلوب: /index.php/topic/287186-كيف-ادرج-رقم-السجل-في-التقرير/?p=1378040 جعفر

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

هذا السطر يجمع الحقلين: m = a + b بينما انت ما محتاج لكل هذا الكود ، وانما محتاج الى سطر واحد فقط: Me![q] = Me![q1] جعفر

آسف ما فهمت قصدك :(

اخي فيصل اذا حبيت ان ترفق ملفك ، فلعلنا ببعض البرامج التي لدينا نستطيع ان نسترجع شيئ من البرنامج المعطوب :) جعفر

تفضلي اختي ، الكود المعدل ، بالشرح: Private Sub Form_Current() 'take a Recordset clone of the subform, 'this way we don't have to visit the table Set rst = Me.Table1_History.Form.RecordsetClone 'move the cursor to the 1st Record, by reading all the Records rst…