kkhalifa1960

ساعة حائط قديمة ذات اصوات للثواني وللساعة مع صوت العصفور كوكو وحركة البندول . Khalifa1960_Analog_Clock.rar

مشاركة مه استاذ @Foksh تفضل استاذ @soik225998 المرفق بعد التعديل . دليل الهاتف الاخير-1.rar

ساعة بعقارب كان طلبها استاذنا @الحلبي وأضفت عليها أصوات للثواني يعمل الاختيار الاول عند تشغيل الفورم ويمكن تغيير صوت الثواني من الليستبوكس .كذلك صوت الساعة(كوكو) يعمل مع ظهور صورة عصفور بعدد رنات تساوي عدد الساعة الصحيح مثلاً الساعة 01:00:00 رنة واحدة وظهور العصفور مرة واحدة ..... وهكذا الى الساعة 12:00:00 بعدد 12 رنة وظهور العصفور 12 مرة . اليكم المرفق كامل مفتوح المصدر . Cuckoo_Clock.rar

تفضل المرفق بعد التعديل . BoAhmed_db1 - 3.rar

تفضل استاذي @أبو أحمد امرفق بعد التعديل بطلبك . ووافني بالرد . BoAhmed_db1 - 2.rar

مشاركة مع استاذ @Foksh تفضل استاذ @أبو أحمد محاولتي . BoAhmed_db1.rar

تفضل استاذ @الحلبي ومرفق معها الصورة ولكي تتأكد بأن الخلفية شفافة افتحها بعارض الصور . لأن في Access (خصوصًا في النماذج والتقارير) عند إدراج صورة PNG بخلفية شفافة، يقوم البرنامج غالبًا بتحويل الخلفية الشفافة إلى لون أبيض لأن محرّك العرض في Access (خاصة Access 2010) لا يدعم الشفافية بشكل كامل مثل برامج التصميم. 🔹 بعض الملاحظات: Access 2010 وما قبله لا يدعم شفافية PNG داخل الـ Form/Report. حتى في الإصدارات الأحدث، الشفافية أحيانًا تتحول إلى أبيض أو رمادي حسب إعدادات الخلفية. Access يتعامل مع الصور داخل Image Control بشكل محدود (لا يوجد Layering أو دعم شفافيات مثل PowerPoint أو Word). اذا تريد تحويل لون الخلفية .......................... ارسل لون الخلفية التي تريدها مثلاً اللون الاحمر ((255,0,0)RGB) وانشاء الله بثبته للخلفية ولكن حدد هل خلفية الساعة فقط أم الساعة وباقي خلفية الصورة . 2AnalogClock-2.rar

تفضل استاذي @الحلبي طبعاً مفيش أصغر من ذلك وكل البرمجة بالفورم . ووافني بالرد . 2AnalogClock.rar

تقضل استاذي @الحلبي اليك مرفق به 5 ساعات اختار كما تحب . ووافني بالرد . . AnalogClock.zip

تفضل استاذ @Radwan0 محاولت حسب ما فهمت . اليك المرفق . افحصه جيداً وجرب الازرار ووافني بالرد . Link Microsoft Access to HTML.rar

اليك طلبك استاذ @dd13901390 ووافني بالرد . اذا كان هذا طلبك اضغط تمت الاجابة حتي يتم غلق الموضوع بشكل لائق . dd13901390 - 3.rar

ممكن نسخة 2010 أو 2003 كي اساعدك ووضح طلبك ولا تبخل بالشرح .

هذا ما أعمل به شخصياً لأن به تفعيل الباركود .

هل تحب عرض المستندات ( صور أو PDF ) بالفورم . وافني بالرد .

مشاركةً مع استاذ @Foksh تفضل استاذ @BRAHIM Ben aissa مرفقي ووافنا بالرد . close option and shift.rar

استاذ @dd13901390 تم اضافة حقل لمسار المستند بالجدول فهل هذا ما تقصد .اليك الشرح والمرفق . ووافني بالرد . dd13901390 - 2.rar

تم تعديل الخطأ 2501 أما الباقي وضح طلبك .... dd13901390 - 1.rar

الحمد لله توني راجع من رحلة علاج ... شكرلاً لكم وانتم ايضاً وحشتوني جداً ..... استاذ @dd13901390 نعم وصل الملف بدون شرح طلباتك ؟؟؟؟

نظم وحدد طلبك حتى نفهمه ونساعدك ولا تبخل بالشرح

مشاركة مع استاذ @Foksh تفضل استاذ @dd13901390 محاولتي حسب مافهمت ايك الشرح وملف المحاولة .... dd13901390.rar

معذرة لتأخير بالمباركة لأني بكمل عمليات عينيا بمصر مبروك علينا وتمنياتي بالتوفيق دائما

الكود باضافة شرط اللون :- DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate = #" & [DDate] & "# AND NOT IsNull(colour)", , Screen.ActiveControl.Caption

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.

FirstOfmgmo: IIf([Forms]![frm_Reports]![termNum]=1,([qry_master].[FirstOfmgmo1]),IIf([Forms]![frm_Reports]![termNum]=2,([qry_master].[FirstOftotal]),([qry_master].[FirstOfdegExam2]))) طالع (Query1) بالمرفق والشرح . DD_2SAAD_TEST.rar

كل عام وجميع منتسبي منتدانا الغالي (أوفيسنا) بخير وصحة وعافية أعاده الله علينا وعليكم وعلى أمتنا الاسلامية بالخير واليمن والبركات.