jjafferr

اخي فراس لوسمحت تشرح اللي تريده بالتفصيل ، وياريت مثال كذلك :) انا انزلت البرنامج ولكن لو افهم المطلوب :( شكرا جعفر

هلا بطويل العمر :) غالي والطلب رخيص :) خلي هذا الكود بدل اللي موجود في التقرير: Me.Total = 0 '1 If Me.txt1 = -1 Then Me.txt1.Visible = False Me.tx1.Visible = True Me.Total = Me.Total + 1 Else Me.txt1.Visible = True Me.tx1.Visible = False End If '2 If Me.txt2 =…

طويل العمر :) شوف اذا هذا الرابط يفيدك: /index.php/topic/280434-كيف-اعمل-ترتيب-للسجلات-على-النمط-الذي-احددةsort-in-custom-order/?p=1351418 جعفر

اختي ، اذا كان هذا يؤدي بالغرض ، فيمكنك عمل نموذج جديد واخذ الفكرة والكود من هذا النموذج ، وعمل اللازم في النموذج الجديد :) جعفر 115.تجربة.accdb.zip

طويل العمر ، المطلوب تقسيم ، مب تجميع :) جعفر

اعتقد اني ما وضحت قصدي بالطريقة الصحيحة :( ، اعتذر منك :) نحن لن نستخدم الكود و dll اللي معك ، ولكن سنتبع طريقة جديدة في طباعة التقارير بصيغة pdf ، والخطوات هي: 1. انزل البرنامج المجاني (طابعة pdf المجانية) من الرابط التالي: http://www.dopdf.com/ 2. قم بعملية …

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

طويل العمر :) انزل هذا البرنامج وانصبه: http://www.dopdf.com/ واجعل هذه الطابعة ، طابعة افتراضية ، واطبع ملفات pdf مثل ما تريد :) انا وجدت ان office 2010 عندما يطبع pdf ، فهناك حروف لا تظهر في الملف!! بينما لما اطبع على طابعة dopdf ، فكل شئ يطبع تمام :) جعفر

حياك الله :) رجاء مراجعة هذا الرابط اللي خلصته قبل شوي :) /index.php/topic/283161-فضلاً-أريد-تصحيح-كود-إستداعاء-قيمة-مربع-نص-بنموذ/?p=1363074 جعفر

تفضل :) رجاء مراجعة النموذج frm_examples لكل انواع الحقول :) جعفر 113.حقول نصية بدلاً من السنوات.accdb.zip

هلا والله باللي حيتجنن :)

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

تفضلي اختي :) الكود اصبح: Private Sub combo2_AfterUpdate() Me.total_text = Me.price_text * Me.combo2 End Sub Private Sub Form_Load() Me.price_text = DLookup("Price", "price_tab", "[المعرف]=" & 1) Me.total_text = Me.price_text * Me.combo2 End Sub ولما تغيرين ال…

تفضلي اختي :) الكود اصبح: Private Sub combo2_AfterUpdate() Me.total_text = Me.price_text * Me.combo2 End Sub Private Sub Form_Load() Me.price_text = DLookup("Price", "price_tab", "[ÇáãÚÑÝ]=" & 1) Me.total_text = Me.price_text * Me.combo2 End Sub ولما تغيرين ال…

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

حياك الله اخي :)

حياك الله اختي :) 1. نفترض ان اسم الحقل AAA ، وانك تريدين السجل اللي ID يساوي 100 وهو بصيغة رقم ، في الجدول price_tab ، واسم الخانه في النموذج a ، يكون الكود في الحدث On Current : me.a=dlookup("[AAA]","price_tab","[ID]=" & 100) بينما نفترض ان اسم الحقل AAA ، و…

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

لوسمحت تعمل لي نموذج ، بكل اﻻشياء اللي تريدها من التقرير ، مثل كم عدد أﻻسطر المطلوبة في التقرير ، الفلتر باي حقل ، يعني يمكن يكون combobox مثﻻ ، ...... وعلى أساسها اعمل التقرير أن شاء الله

يعني قصدك ، في كل صفحة يجب ان يكون 30 سطر !! بس!! هذا عمل الكود!! يا اخي لو دريت من قبل ، لكتبت لك كود بسيط بديل ، بجدول مؤقت واحد لا يتغير ، وتقدر تلعب فيه مثل ماتريد!!!! على العموم ، حياك الله اخي مراد ، والحق على الاكل قبل ان يبرد :) جعفر