علي المصري

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

true في حالة اردت فتح الملف بعد الحفظ أذ أنك لا تريد فتح الملف بعد الحفظ اكتب بدل منها False

السلام عليكم ورحمة الله وبركاته الافضل في الموضوع ان يحتوي على سؤال واحد بالنسبة للسؤال الأول : لابد من تصميم التقرير على حسب مقاس الورقة المراد الطباعة عليها على حد علمي اما السؤال الثاني استخدم الكود التالي في حالة الحفظ على شكل بي دي اف DoCmd.OutputTo acOutputReport, "ReportName", acFormatPDF, "", True, "", , acExportQualityPrint كما يمكن كتابته على الصورة التالية فيخرج لك مربع حواري تختار منه نوع الملف الذي تريد الحفظ على شكله ( pdf - excel - text ) DoCmd.OutputTo acOutputReport, "ReportName", "", "", True, "", , acExportQualityPrint

المرفق التالي لتفقيط الدرجات يمكنك حذف كلمة درجات وجع مكانها فارغ تفقيط درجات.rar

تفضل استاذنا الفاضل في المرفق مستخدم select case كما يمكنك استخدام قاعدة if كما يلي If me.t1 = "جمع" Then Me.dd = Val(Me.bb)+ Val(Me.cc) End If مع وضع الكود في حدث بعد التحديث للقائمة المنسدلة ومربع النص cc Tats1.rar

يمكنك ارفاق كل مرة جزء من قاعدة البيانات وهذا الجزء يخص سؤال تريده ويفضل كتابة كل سؤال في موضوع

الكود التالي لتوسيط العناصر في الفورم يمكنك التعامل معه لضبطه على ما تريد Private Sub Form_Load() DoCmd.Maximize Me.Command0.Left = (Me.InsideWidth - Me.Command0.Width) / 2 Me.Label1.Left = (Me.InsideWidth - Me.Label1.Width) / 2 End Sub

استخدم الكود التالي مع اكسيس 2013 ويعمل جيدا عندما استخدمته مع قاعدة بيانات نوع اكسيس 2003 ( MDB ) يعطي رسالة نصها ( ان عرض الأعمد في القوائم المنسدلة او Listbox تقع بين 0 سم و 22 سم ) Private Sub MyLang_Afterupdat() If MyLang = 1 Then With SName .RowSource = "SELECT * FROM QryStuNamesAr ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2in.;0in.;0in.;0in." End With Else With SName .RowSource = "SELECT * FROM QryStuNamesEn ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2in.;0in.;0in.;0in." End With End If End Sub فهل خاصية columnwidths لها طريقة اخرى في التعبير ( انا لا اعرف لاني لم اعمل على اكسيس 2003 من قبل )

تفضل الملف صيغة avi

يجب مراعاة ابعاد الصفحة عند التصميم فمثلا الورقة مقاس A4 ابعادها 21cm و 29.7 cm فمن الملاحظ ان التقرير الذي قمت بعمله يفوق هذه الأرقام بكثير فعليك ضبط الحقول لتلائم هذه المقاسات اذا ارت عمل ورقة افقية فقم بضبط الحقول على المسافة 29.7 مع مراعات الهوامش هذه هي الفكرة

انتظروا قريبا ً الاصدار الثاني من البرنامج بارك الله فيكم وجزاكم الله خيرا

استخدم التسيق الشرطي تعبير .... استخدم iif

انظر المرفق لعله يكون المطلوب final 14-10new.rar

يمكنك اختي الفاضلة من كتابة الكود بالطريقة التالية if term = 1 then Forms("Data").Controls("Text1").ControlSource = "Test1" elseif term = 2 then Forms("Data").Controls("Text1").ControlSource = "Test2" elseif term = 3 then Forms("Data").Controls("AText1).ControlSource = "Test3" End if   حيث Data هو اسم النموذج و Text1 هو اسم مربع النص وهذه الطريقة استخدمتها في برنامج خاص بدرجات التقويم الخاص بي وهو موجود على الموقع في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=55122&hl=%2B%D8%AF%D8%B1%D8%AC%D8%A7%D8%AA+%2B%D8%A7%D9%84%D8%AA%D9%82%D9%88%D9%8A%D9%85

كما يمكنك استخدام الامر التالي في حدث عند التحميل Me.ScrollBars = False أو Me.ScrollBars =0 من موقع مايكروسوفت

الاستاذ الفاضل الاستاذ حمدي جزاك الله خيرا على الشكر الذي تقدمت به في بداية موضوعك ولكن لم استطع فهم الحوار الموجود بطريقة المستخدمين لديك ولكن مرفق الطريقة التي استخدمها في برامجي حيث اسم المستخدم ali له كل الصلاحيات admin ( كلمة المرور ali ) فقمت بعمل فورم بها كل الصلاحيات تفتح مع هذا المستخدم فقط اما المستخدم ahmed ( باسوورد ahmed ) له صلاحيات للطباعة فقط فقمت بنسخ الفورم الولى وحذفت منها كل الازرار وأبقيت ازرارا الطباعة فقط فيمكنك عمل ذلك AAAA.rar

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

استاذنا الفاضل محمد الريفي بعد اذن حضرتك جرب المعادلة التي تفضلت وكتبتها في المشاركة السابقة مع عدد قروش اقل من 10 مثلا 8 قروش وعدد الجنيهات مثلا 23 باستخدام المعادلة الخاصة بك تجدها 23.80 أي 8 قروش تحولت 80 قرش فيمكن تفاضي هذه المشكلة كالتالي : باستخدام دلة الجمع sum كما يلي =SUM(G8;F8/100) جزاكم الله خيرا

تفضل استاذنا الفاضل الجداول باستخدام دالة vlookup TimeTable.rar

جربي التقرير التالي حساب مجموع نص معين.rar

تجد ما تريده في المشاركة رقم 15 في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=55954&hl=%D8%AC%D8%AF%D9%88%D9%84

فكرة رائعة ما استاذنا الرائع ياسرخليل جزاك الله خيرا

الافضل ارفاق قاعدة البيانات او جزء منها يكون فيه المطلوب مع توضيح المطلوب جيدا

في حدث On Timer اكتب الامر التالي t.Caption = Mid(t.Caption, 2, (Len(t.Caption) - 1)) & Left(t.Caption, 1) مع جعل Timer Interval قيمته 150 مثلا على حسب السرعة التي تريها

مثال كما امر الاستاذ الفاضل أبو آلاء MsgBox Multiline.rar