jjafferr

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

. انا الذي سافتح موضوع مستقل ، ولكن لو سمحت ترفق برنامجك هنا ، حتى استخدمه كمثال مع برنامج الاخ عادل جعفر

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

السلام عليكم ورحمة الله وبركاته هذا الرابط يحتوي على الكثير من الدوال والتي تم تضبيطها للعمل على الاكسس 32بت و 64بت: http://www.jkp-ads.com/articles/apideclarations.asp فقط ابحث عن الدالة ، واعمل نسخ/لصق للكود وهذا رابط آخر فقط لدوال 64بت (المعدّلة من 32بت): http://www.utteraccess.com/wiki/index.php/Category:API جعفر

وعليكم السلام تفضل ، مع الشرح . . جعفر 269.مطلوب دمج عدة اعمدة فى عمود.mdb.zip

وعليكم السلام أخي أبومصطفى المنتدى لا يسمح بأكثر من سؤال في موضوع واحد ، فرجاء فتح موضوع جديد ، وان شاء الله نتساعد في مساعدتك جعفر

طبعا الافضل والاصح انك تدمج جميع الجداول في جدول واحد ، وتفرق بين السجلات بحقل "رقم الجدول" مثلا جعفر

تفضل جعفر 260.الشبكة الإستدلالية للمرتبات.accdb.zip

للرفع

هدئ اعصابك علينا أخوي أبومصطفى ، أحاول اساعدك بأسرع ما اقدر ، بس صبرك علي شوي 1. عندما تستخدم الدالة NZ ، فيجب ان تخبر البرنامج مالذي تريد الدالة ان تستعمل بدل NULL ، لذا ، واذا اردت ان تستعمل صفر بدل Null ، فلابد ان تكمل الدالة ، لتكون: xx=NZ(Myfield,0) 2. قيمة curbal_dr في الجدول Double وهو الصحيح (او يمكنك استخدام Long Integer) ، لأن ارقام curbal_dr كبيرة: . فاصلحت قيمة curbaldr في الجدول Tcustomer كذلك ليصبح Double : . وفي الكود ، انت اعطيت قيمة curbal_dr الى td ، ولكنك جعلت td Integer ، وهو غير مطابق للجدول ، وهنا كان الخطأ: جعفر 265.copy counter.accdb.zip

الله يطول في عمرك أخوي ناصر ، كيف تريده ان يعمل؟؟ يعني يعطيك درجات اي صنف؟ للحصول على اي معلومة من جدولك ، فانت بحاجة الى معطيات اثنين ، صنف ودرجات ، فاذا الغينا الصنف ، فالدرجات تكون لأي صنف؟؟ إلا اذا اردت ان تدمج الصنف والدرجات في الحقل cmb_daraja ، فهل هذا قصدك؟ جعفر

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

وعليكم السلام الحل بالصور : جعفر 257.1.مشكلة الطباعه واخراج التقارير1.accdb.zip

وعليكم السلام أخي ناصر لا تستطيع ان تستعمل cmb_daraja بدون cmb_Sinf ، فيجب اختيار الصنف عن طريق cmb_Sinf ، وبعدها تستطيع ان تختار الدرجة التي تريدها عن طريق cmb_daraja. جعفر

تفضل بنفس الطريقة في هذا الرابط http://www.officena.net/ib/topic/64815-جعل-حقل-الرصيد-فى-التقرير-يساوى-حقل-الرصيد-فى-نموذج-التقرير-من-حيث-الفرز-تنازليا-تصاعديا-وحذف-الصفر/?do=findComment&comment=421960 جعفر 257.1.مشكلة الطباعه واخراج التقارير1.accdb.zip

وعليكم السلام لوسمحت تجرب المرفق ، واذا الرسالة الخطأ لا تزال موجودة ، رجاء عدل في بيانات القاعدة واخبرني ماذا ادخل حتى اوصل للخطأ ، انا ادخلت البيانات ، ثم اخبرني البرنامج انه لا يوجد طحين واقفل علي النوذج ، فرجاء تضبيط البيانات وارفاقه (اذا لم يعمل) جعفر 265.copy counter.accdb.zip

تفضل التحويل Fail = 0 If [eslam] < 50 Then Fail = 1 Else Fail = 0 End If If [arab] < 50 Then Fail = Fail + 1 Else Fail = Fail + 0 End If If [engl] < 50 Then Fail = Fail + 1 Else Fail = Fail + 0 End If If [comp] < 50 Then Fail = Fail + 1 Else Fail = Fail + 0 End If If [Math] < 50 Then Fail = Fail + 1 Else Fail = Fail + 0 End If جعفر

تفضل والكود اللي يضيف هو: Private Sub cmb_List_AfterUpdate() If Len(Me.Add_List & "") = 0 Then Me.Add_List = Me.cmb_List Else Me.Add_List = Me.Add_List & vbCrLf & Me.cmb_List End If End Sub جعفر 263.EXA.accdb.zip

وعليكم السلام ارفق الجزء من برنامجك اللي فيه المشكلة لوسمحت ، واخبرنا وين تحصل المشكلة جعفر

تفضل والكود: Function check_both_combos() 'No work without Sinf If Len(Me.cmb_sinf & "") = 0 Then MsgBox "Please select a Sinf" Me.cmb_sinf.SetFocus Exit Function End If If Len(Me.cmb_daraja & "") = 0 Then 'Only Sinf is selected Me.Sinf_Est = DLookup("[rakm istid]", "khibra", "[sinf]=" & Me.cmb_sinf) Me.Daraja_Est = "" Else 'both Sinf and Daraja are selected Me.Sinf_Est = DLookup("[rakm istid]", "khibra", "[sinf]=" & Me.cmb_sinf) Me.Daraja_Est = DLookup("[istidlal]", "khibra", "[sinf]=" & Me.cmb_sinf & " And [daraja]=" & Me.cmb_daraja) End If End Function Private Sub cmb_daraja_AfterUpdate() Call check_both_combos End Sub Private Sub cmb_sinf_AfterUpdate() Call check_both_combos End Sub Private Sub cmb_sinf_DblClick(Cancel As Integer) Me.cmb_sinf = "" Call check_both_combos End Sub Private Sub cmb_daraja_DblClick(Cancel As Integer) Me.cmb_daraja = "" Call check_both_combos End Sub جعفر 260.الشبكة الإستدلالية للمرتبات.accdb.zip

وامثلة اخرى على استعمال الوحدة النمطية ومناداتها من الاستعلام: http://www.officena.net/ib/topic/64880-كيفية-جمع-قيمه-اكثر-من-حقل-ب-استعلام/?do=findComment&comment=422306 و http://www.officena.net/ib/topic/64683-خلل-في-تقريب-حقل-محسوب-في-استعلام/?do=findComment&comment=421364 جعفر

حياك الله يعني انت اخترت الطريقة الاولى او الثانية ، فقط للعلم جعفر

وعليكم السلام . أخي M_Hasanin انا مررت على هذا السؤال عدة مرات ، ولكني لم افهم الطلب فتركته ، فياريت لو انك تأخذ منك وقتك وتعطينا تفصيل عن سؤالك حتى نستطيع ان نساعدك . الآن وبفضل أخي الاستاذ علي ، قد عرفت ان الموضوع عن طباعة التقرير ، والجواب انه لا يمكن ان تجعل هوامش التقرير (اليمين او اليسار) = 0 ، والسبب ليس اكسس ، وانما الطابعة تحتاج مكان لجعل بكراتها من جانبي الورقة ، تسحب الورقة من الجانبين ، فهذا الهامش تحتفظ به الطابعة لنفسها ، ويختلف هذا الهامش من طابعة الى اخرى. والدليل: في التقرير ، في صفحة اعدادات الطابعة ، اختر الطابعة ، اجعل الهوامش الاربعة = 0 ، احفظ التقرير ، اغلق التقرير ، ثم افتح الاعدادات مرة اخرى ، ستجد ان التخاطب بين اكسس والطابعة نتج عنه اقل الهوامش التي تحتاج اليها الطابعة وللعلم ، اذا عملت التقرير على هوامش طابعتك ، ثم اخذتها لكمبيوتر آخر فيه طابعة اخرى ، فالهوامش سوف تتغير هناك ايضا الحل هو ، إما تصغر حجم الخط وحجم الحقول ، او تقلل عدد الحقول، او تختار الصفحة بالعرض ، او انك تلعب بمخطط التقرير ، وتوزع الحقول بطريقة غير اعتيادية ، بحيث تشمل جميع الحقول المطلوبة جعفر