كل الانشطه

استفسارات : اجبني واحدة واحدة : 1- هل في النظام اذا عدد مواد الاكمال اكثر من 3 بعد الاستفادة من درجة الرأفة يعتبر راسب ولا يحق له دخول الدور الثاني ؟ 2- طالب لديه 5 مواد كلها 49 .. على كلامك اعلاه يعدل ثلاث منها للنجاح ويبقى مكمل في مادتين اذا صح ؟ ما المعايير التي يتم فيها اختيار هذه الثلاث المواد من بين الخمس .. على اعتبار ان المسألة تتم آليا من غير تدخل اليوزر حسب تصوري لا يمكن عملها آليا .. وانما يتم حسب التالي : يتم عرض الطلاب المكملين ومواد الاكمال وامام كل مادة حقل اختيار .. والمستخدم او اليوزر يقوم بالتأشير على المواد لآختيار المواد التي سيطبق عليها الرأفة ، وسيكون هناك شروط : - الا يتجاوز عدد المواد عن 3 - ان تكون درجة الرأفة كافية للمواد المختارة ما رأيك ؟

1. إعداد التقرير (Report) في Access أ. إنشاء التقرير: افتح قاعدة البيانات في Access. انتقل إلى تبويب Create > Report Design. صمم التقرير يدويًا أو استخدم Report Wizard لإنشاء فاتورة بسيطة. ب. تخصيص التقرير للطباعة الحرارية: العرض (Width): للطابعات الحرارية (عرض 58 مم أو 80 مم)، اضبط عرض التقرير في Property Sheet (وحدة القياس: سنتمترات أو بوصة😞 58 مم ≈ 2.28 بوصة. 80 مم ≈ 3.15 بوصة. مثال: ' لضبط العرض في كود VBA Reports("InvoiceReport").Width = 3.15 * 1440 ' (البوصة إلى Twips) المحتوى: أضف عناصر التقرير (مربعات النص) للبيانات الأساسية: اسم المتجر، التاريخ، رقم الفاتورة، العناصر، الإجمالي. استخدم خطوطًا بسيطة مثل Arial أو Courier New بحجم مناسب (مثال: 8-10pt للتفاصيل، 12pt للعناوين). 2. إعدادات الطباعة عبر VBA أ. تحديد الطابعة الحرارية: Sub SetThermalPrinter() Dim prt As Printer For Each prt In Application.Printers If prt.DeviceName Like "*Thermal*" Then ' استبدل بـاسم طابعتك Set Application.Printer = prt Exit For End If Next prt End Sub ب. ضبط إعدادات الطباعة: Sub PrintInvoiceReport() ' تعيين الطابعة الحرارية Call SetThermalPrinter ' ضبط إعدادات التقرير قبل الطباعة With Reports("InvoiceReport") .Printer.Orientation = acPortrait ' أو acLandscape إذا needed .Printer.PaperSize = acPRPSUser ' حجم ورقة مخصص .Printer.PaperWidth = 3.15 ' لبوصة (لـ 80 مم) .Printer.PaperHeight = 0 ' طول غير محدود (لفة ورق) End With ' طباعة التقرير DoCmd.OpenReport "InvoiceReport", acViewNormal DoCmd.PrintOut acPrintAll End Sub 3. تنسيق المحتوى للطباعة الحرارية أ. محاذاة النص: اضبط خاصية Text Align في مربعات النص إلى: Right للنصوص العربية. Left للأرقام. مثال لإضافة باركود: ب. إضافة باركود أو QR (اختياري): إذا كانت الطابعة تدعم الباركود، استخدم مكتبة خارجية مثل IDAutomation أو أنشئ صورة باركود في التقرير. ' إدراج صورة باركود في التقرير Me.ImageControl.Picture = "C:\Barcode\INV123.png" 4. قص الورق تلقائيًا (إذا كانت الطابعة تدعمه) بعض الطابعات تقص الورق بأمر ESC/POS. يمكن إرساله عبر VBA إذا كان هناك اتصال مباشر: Sub SendCutCommand() Dim prt As Object Set prt = CreateObject("WinSpool.WinPrinter") prt.DeviceName = "اسم الطابعة الحرارية" prt.Open prt.Write Chr$(29) & Chr$(86) & Chr$(0) ' أمر قص الورق prt.Close End Sub 5. نصائح مهمة اختبار الطباعة: استخدم Print Preview في Access قبل الطباعة الفعلية. تأكد من عدم قطع النصوص عند الحواف. الخطوط العربية: إذا ظهرت النصوص العربية كرموز غير مقروءة، استخدم خطوطًا تدعم Unicode مثل Arial أو Times New Arabic. البيانات الديناميكية: استخدم استعلام (Query) كمصدر بيانات للتقرير لملء الفاتورة تلقائيًا. مثال كامل لفاتورة بسيطة ' إنشاء فاتورة ديناميكية Sub GenerateInvoice() Dim report As Report Set report = CreateReport() ' إضافة عناصر إلى التقرير With report ' عنوان الفاتورة Dim lblTitle As Label Set lblTitle = CreateControl("InvoiceReport", acLabel) lblTitle.Caption = "فاتورة شراء" lblTitle.Top = 100 lblTitle.Left = 500 lblTitle.FontSize = 14 lblTitle.FontBold = True ' تفاصيل الفاتورة Dim txtDetails As TextBox Set txtDetails = CreateControl("InvoiceReport", acTextBox) txtDetails.ControlSource = "SELECT ProductName, Quantity, Price FROM InvoiceDetails" End With ' طباعة الفاتورة DoCmd.OpenReport "InvoiceReport", acViewPreview End Sub باستخدام هذه الإعدادات، يمكنك طباعة فواتير واضحة ومنظمة على الطابعة الحرارية مباشرة من Access VBA.

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

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

شكرا جزيلا أخي الفاضل علي تعبك ومجهودك معنا ربنا يوفقك ويزيدك من علمه أنا بتابع مع حضرتك برنامج مدارسة مهنية

السلام عليكم اخوتي الاعزاء... ماهي اعدادات تقرير فاتورة لطابعة حرارية مع التقدير والاحترام

كل الحب والوفاء وبأرق كلمات الشكر والثناء، ومن قلوب ملؤها الإخاء نتقدم بالشكر على تفانيكم في عملكم...جزاكم الله خيرا

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

تم data5.rar

يبدو انك لم تفهمني لماذا تعمل جدولا جديدا ؟ ليس هذا هو المطلوب اخي الكريم افتح جدول المواد الذي اسمه Tbl_materil بجانب مادة التربية الاسلامية الى اليمين علامة + انقر عليها لترى ما سجلته لك من فضلك اعمل جميع المواد على هذا النسق يكفي ان تدخل مواد المرحلة الأولى

مثل للجدول لجمع درجات المواد data4.rar

انظر في المثال الى كيفية اعداد المواد .. عملت لك التربية الاسلامية data3.rar

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

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

الدرجة الكبرى لكل المواد(100) والصغرى(50) درجات النجاح ومن (45الى49) يعتبر مكمل ويحتاج الى درجة الرافه التي مقدرها(5) درجات تستخدم لحد اقصى ثلاث مواد لكل طالب بحيث شرط ان تكون درجات الطالب للمواد الثلاثه مثلا (49، 48،48) ليكون مجموع درجة الرافه (5) درجات لثلاث مواد واذا الطالب مكمل في مادتين شرط ان يتم توزيع ضمن حدود (5) درجات فقط مثلا (47 و48) لتتغير حالة الطالب الى النجاج واذا اكثر من ثلاث مواد او تتكون درجة الرافه اكبر من (5) درجات يعتبر راسباً مثلا( 48 و48 و45) يتم معالجة مادتين فقط لتغير حالة الطالب من راسب الى مكمل وكل مادة تسخدم درجة الرافه تشطب الدرجة السابقة وتوضح الدرجة الجديدة بعد استخدام درجة الرافه...واسف للاطاله data2.rar

هناك ملاحظتين : 1. الاكسس لا يستطيع تكوين حقل نص او اي حقل آخر اثناء العرض ، فتكوين الحقول تتم فقط في وضع التصميم ، لذا ومن التجربة ، ترى اني وضعت في النموذج 38 حقل نص جاهزين للعمل. 2. وفي التقرير ، الاكسس لا يستطيع ان يجعل التقرير عمودي او افقي برمجيا (ونصيحة ، لا تهدر وقتك بمحاولاتك) ، لذا اعمل تقريرين ، افقي وعمودي ، واجعل في النموذج زرين: واحد لطباعة التقرير افقيا ، والاخر لطباعة التقرير عموديا.

بيانات المواد مهمة .. وبما انه يتم اعدادها على الأكثر غالبا مرة واحدة في السنة لذا يجب اكتمالها بصورة صحيحة كما هو العمل عندكم ............... بعد ادخالك للبيانات كاملة في المرفق ادناه ارفعه الخطوة التالية هي : ادخال الدرجات عبر النموذج data1.rar

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

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

لدي قاعدة بيانات اكسس عند فتحها تظهر هذه الرسالة ممكن أعرف ماذا تعني ؟ جزاكم الله خيرا

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

استاذ خليل تمت المراجعة وحيث تم اضافة حقل لجدول Tbl_degree_Detail. وهناك ملاحظة استاذ، درجات الطلبة يتطلب ان يتم فرز نتائجهم حسب الفرع والاختصاص والمرحلة بالاضافة الى نسب النجاح والطلبة المكملون والراسبون لكل فرع واختصاص والمرحلة......... iq-Vocational preparatory school.rar

نعم/ الاختبارات التحريرية هي... الفصل الأول - نصف السنة-الفصل الثاني - درجة الامتحان النهائي-ثم دور ثاني للطالب درجة الاكمال

على كل حال عملت لك الجداول حسب فهمي اذا يوجد تعديلات سنعملها لاحقا الآن تصفح المرفق وانظر في جميع الجداول .. اي ملاحظات تجدها زودنا بها سجلت لك 5 طلاب سيكونوا باكورة العمل المهم أمامك الآن ان ترصد موادك وتفاصيلها : افتح جدول المواد Tbl_materil ثم اضف المواد كلها اما تخصيص المراحل فعلى النحو التالي : بواسطة علامة الزائد امام كل مادة أكمل البيانات .. كما عملت لك في مادة اللغة العربية والانجليزية .... انتظر اتمامك للعمل ورفع الملاحظات مع المرفق النهائي iraqSchool.rar

التجربة الأولى ناجحة ولله الحمد 🙂 بس لما رجعت أجرب نفس الكود السابق حصلت على نفس النتيجة السابقة 😅 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub والنتيجة : '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-06-10 17:43:10 ' Tool version: v1.3 '=================================================== Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub #If VBA7 Then ' 64-bit declarations Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr) Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #Else ' 32-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #End If الترتيب غير صحيح .. المفروض : الثوابت ثم -----> دالة ال API ثم -----> الدالة الفرعية