د.كاف يار

تفضل التعديل الترقيات - بعد التعديل.zip

لا اعلم ما السبب للأسف فاليس لدي توقعات لكن من الافضل ان تضع البرنامج خارج مجلد جوجل درايف و تضع داخل الكود رابط مجلد جوجل درايف و هذا هو الاجراء السليم

انت معلم و احنا منك نتعلم مشاء الله عليك لست استاذ و لكنك استاذ و رئيس قسم و عميد

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

لا يهم جرب استخدم المرفق و ستجد النتيجة NewData.mdb

استخدم هذا الخط عن تجربة جميع الاجهزة تستطيع قرائته تحميل الخط من هنا barcode-font

امورك طيبة و بعد الاضافة و الاغلاق تكون القاعديتن مغلقة

تفضل هذه الدالة التي انقذني بها اخي @jjafferr Function DateFormat(varDate As Variant) As String If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function للاستدعاء DateFormat([Date1])

اقصد الكود بعد التعديل يعني بعد اضافة موقع قوقل درايف

يعمل على google drive بدون مشكلة اعطيني الكود بعد التعديل خليني القي نظرة عليه نعم يمكن مسح القديمة من خلال Kill

هل تقصد بهذا الشكل List.mdb

تفضل هذا المثال List.mdb

العفو منك اخي عمر لكن يوجد خطا 😂 تفضل التعديل =IIf(IsNull([txtDateBack]) And [txtDateEnd]>Format(Now();"yyyy/mm/dd");"اجازة" ;IIf(IsNull([txtDateBack]) And [txtDateEnd]<=Format(Now();"yyyy/mm/dd");"غياب" ;IIf(Not IsNull([txtDateBack]);"يعمل";"-"))) Project2.zip

لتحديث ربط الجداول استخدم الكود التالي Dim strDbFile As String Dim strPassword As String Dim strConnect As String strDbFile = CurrentProject.Path & "\bb.MDB" strPassword = "19801213011" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile Dim tdf As DAO.TableDef Dim db As DAO.Database Set db = CurrentDb For Each tdf In db.TableDefs ' ignore system and temp tables If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then tdf.Connect = strConnect tdf.RefreshLink End If Next لإخفاء جدول معين استخدم التالي Application.SetHiddenAttribute acTable,"Customers", True

تفضل التعديل Project2.zip

تفضل التعديل Me.txtstatVacation = IIf(IsNull(Me.txtDateBack), IIf(Me.txtddateend + 1 > Date, "غياب", "اجازة"), "يعمل")

اعطيني نسخة من البرنامج

من اعدادات الصفحة حدد الطابعة و بعد التحديد ستجد ان عرض الورقة اختلف و صار اصغر

اتوقع الأوفيس غير مفعل

حتى انا نفس الحال لا تظهر لدي اسماء الأعضاء المتواجد ليس اليوم و لا امس لكن منذ أخر تحديث للمنتدى

تفضل هذا الحل تم انشاء ملف Word و اضافة تصميم البطاقة لملف الوورد و اضافة اشارات مرجعية و تم تحديد حجم الصفحة حسب الحجم في البطاقة الموجودة في التقرير قم بالتجربة ستجد انك حققت الهدف 2New.zip 1-مصطفى (122146).docx

الكود صحيح صور رسالة الخطأ

تفضل هذا الموقع اجعله مرجع لك ستجد كل ما تحتاجه من اكواد microsoft

في ازرار الطباعة ضع الكود التالي قبل تنفيذ امر الطباعة و لا تنسى تغيير اسم التقرير تعيين نوع الخط للتسمية و مربع النص Dim ctl As Control For Each ctl In Reports!Report1.Controls If TypeName(ctl) = "TextBox" Then Reports!Report1.Controls(ctl.Name).FontName = "Arial" End If If TypeName(ctl) = "acLabel" Then Reports!Report1.Controls(ctl.Name).FontName = "Arial" End If Next ctl

اتفضل التعديل لابد انك تجعل الصورة قابلة للتمديد لجل تكون الخلفية شفافة New.zip