kkhalifa1960

ابشر

تفضل استاذ @تامر خليفه المرفق بعد التعديل ليعمل على النواتين 32بت و 64بت . QR_Code.rar

تفضل استاذ @محمد التميمي المرفق .ووافني بالرد . QR_Code-11.rar

انا ذكرت لك مواصفات عملي انشاء الله بعدل الكود كي يعمل على النواتين .

استاذ @محمد التميمي حتى لا يحذف الموضوع رجاء طلبك بمشاركة جديدة . وأنا جاهز بالرد .

عطني وقت كي أقرأ الموضوع من الاول ................. تقصد اعادة توجيه الكتاب أم الرد على الكتاب ويرد للمرسل منه . عموماً جرب المرفق بعد التعديل . GavanDB.rar

نفضل استاذ @تامر خليفه يالاستعانة بكود أحد الزملاء للاسف مادري اسمه ممكن يكون من النت أو من المنتدى . علما بأني أعمل على اوفيس 2010 32 بت .... اليك المرفق . QR_Code.rar

سلامات استاذ @Foksh ماتشوف شر .

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

استاذ @gavan رجاء راجع التعديل ورد عليا بأسرع وقت لأني أنسى واضطر لمراجعة المرفق من الأول ... تفضل المرفق . GavanDB.rar

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

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

استاذ @حسين مامون يشرفني مرورك .

Sub CopyPreviousFieldValue() Dim db As DAO.Database Dim rs As DAO.Recordset Dim PreviousValue As Variant Set db = CurrentDb Set rs = db.OpenRecordset("اسم_الجدول", dbOpenDynaset) With rs If Not .EOF Then .MoveFirst PreviousValue = !اسم_الحقل .MoveNext Do While Not .EOF .Edit !اسم_الحقل = PreviousValue .Update PreviousValue = !اسم_الحقل .MoveNext Loop End If .Close End With Set rs = Nothing Set db = Nothing End Sub

ارفق للمهتمين نموذج للنسخ الاحتياطي :- 1- بجوار قاعدة البيانات أ - نسخة احتياطية بالتاريخ بفلدر ب- نسخة احتياطية مضغوطة بالتاريخ بفلدر ج - نسخة احتياطية مضغوطة بباسوورد بالتاريخ بفلدر 2- بمسار تختاره أ - نسخة احتياطية ب- نسخة احتياطية مضغوطة ج - نسخة احتياطية مضغوطة بباسوورد فاصيل المكتبات المستخدمة في الكود: FileDialog: جزء من مكتبة Microsoft Office xx.0 Object Library. يسمح بفتح مربع حوار لتحديد الملفات أو المجلدات. CreateObject: جزء من مكتبة OLE Automation. يستخدم لإنشاء كائنات خارجية، مثل تطبيق Access. DBEngine.CreateDatabase: جزء من مكتبة Microsoft Access xx.0 Object Library. يستخدم لإنشاء قاعدة بيانات Access. إذا كانت المكتبات غير مفعلة: إذا لم تكن المكتبات المذكورة أعلاه مفعلة، يمكنك تفعيلها يدويًا عن طريق: فتح نافذة المراجع (Tools > References). البحث عن المكتبات المذكورة أعلاه. تفعيلها بوضع علامة صح (✔) بجانبها. اليكم المرفق . CopyDB.rar

أما بالنسبة للطلب نسخة مضغوطة .... ونسخة مضغوطة بباسوورد ..... سأنشرها بمشارك جديدة كهدية لينتفع بها الجميع .

نفص مكتبات تفاصيل المكتبات المستخدمة في الكود: FileDialog: جزء من مكتبة Microsoft Office xx.0 Object Library. يسمح بفتح مربع حوار لتحديد الملفات أو المجلدات. CreateObject: جزء من مكتبة OLE Automation. يستخدم لإنشاء كائنات خارجية، مثل تطبيق Access. DBEngine.CreateDatabase: جزء من مكتبة Microsoft Access xx.0 Object Library. يستخدم لإنشاء قاعدة بيانات Access. إذا كانت المكتبات غير مفعلة: إذا لم تكن المكتبات المذكورة أعلاه مفعلة، يمكنك تفعيلها يدويًا عن طريق: فتح نافذة المراجع (Tools > References). البحث عن المكتبات المذكورة أعلاه. تفعيلها بوضع علامة صح (✔) بجانبها.

تفضل استاذ @رشبد طلبك حسب مافهمت . ووافني بالرد . ويمكن اضافة اختيارين كمان ... 1- نسخة مضغوطه .... 2- نسخة مضغوطة بباسوورد . CopyDB.rar

مشاركة مع الاساتذة تفضل استاذ @gavan تصوري بمرفق كامل جربه ووافني بالرد . GavanDB.rar

تفضل استاذ @fai50fe حسب مافهمت ............ ملحوظة تم التغيير من فورم غير مرتبط مع غلق الفورم المرتبط بالجدول المراد تغيير احدى خصائص حقولة . اليك المرفق والشرح . ووافني بالرد . sem1.rar

تفضل استاذ @بوكفوس عبدالسلام . فردي ...... Private Sub YourFieldName_AfterUpdate() Me.YourFieldName = UCase(Me.YourFieldName) End Sub استبدل YourFieldName باسم الحقل النصي الخاص بك. هذا الكود سيحول أي نص يتم إدخاله في الحقل إلى أحرف كبيرة تلقائيًا عند التحديث. إذا كنت بحاجة إلى تطبيق ذلك على عدة حقول، يمكنك تكرار الخطوات لكل حقل. جماعي ...... Private Sub Form_AfterUpdate() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl = UCase(ctl) End If Next ctl End Sub هذا الكود سيقوم بالبحث عن جميع مربعات النص في النموذج ويحول أي نص يتم إدخاله فيها إلى أحرف كبيرة تلقائيًا عند التحديث

استاذ @((( folks ))) انا سويت لك التقرير لكن تنسيقه ومربعاته عليك يابطل تقرير1 أما الطلب الثاني مو فاهمه زين . ممكن تشرحه مع اني يخيل اليا اني سويت لك نفس الشئ من قبل . رجاء شرحه بالتفصيل . إحصائية المدن.rar

تفضل استاذ @iyad mohamad هذا المرفق حسب ما فهمت . اليك الشرح والمرفق .ووافني بالرد . DDManagerApprovalTest .rar

تفضل استاذي فقط لغيت شرط الاسم من الكود .وطريقتي تتماشى مع كلام استاذي أبو خليل . WEEDING HALLS (113).rar

يبدو أن المشكلة مرتبطة إما بإعدادات الأمان في Microsoft Access أو بنوع الرابط المخزن في lin_address. إليك عدة حلول ممكنة: 1. تعديل إعدادات الأمان في Access عند النقر على الرابط، تظهر لك رسالة الأمان الخاصة بـ Microsoft Access، وهذا قد يمنع تنفيذ الأوامر المتعلقة بـ FollowHyperlink. لتجاوز هذا، جرب الآتي: افتح Access، ثم اذهب إلى File > Options > Trust Center اختر Trust Center Settings انتقل إلى Macro Settings وتأكد من تحديد Enable all macros انتقل إلى Trusted Locations، وأضف المسار الذي يوجد فيه ملف قاعدة البيانات (إذا لم يكن مضافًا بالفعل) بعد هذه الخطوة، أعد تشغيل Access وجرب مجددًا. 2. التحقق من صحة الرابط المخزن تأكد أن lin_address يحتوي على رابط صالح، مثل: لملف محلي: C:\Users\YourUser\Documents\example.pdf لموقع ويب: https://www.example.com لمجلد مشترك: \\ServerName\SharedFolder\File.pdf 🔹 إذا كان الرابط يحتوي على مسافات، جرب وضعه بين علامات اقتباس: link = """" & Me.lin_address & """" 3. تعديل الكود لمعالجة الأخطاء المحتملة استبدل الكود الحالي بهذا الكود المعدل لمعالجة الأخطاء وإضافة طريقة مختلفة لفتح الملفات المحلية: Dim link As String On Error GoTo ErrorHandler link = Me.lin_address If link <> "" Then If Left(link, 4) = "http" Or Left(link, 3) = "www" Then ' فتح روابط الويب Application.FollowHyperlink link ElseIf Dir(link) <> "" Then ' فتح ملفات محلية باستخدام Shell Shell "explorer.exe " & link, vbNormalFocus Else MsgBox "الرابط غير صالح أو الملف غير موجود.", vbExclamation, "تنبيه" End If End If Exit Sub ErrorHandler: MsgBox "خطأ رقم: " & Err.Number & vbCrLf & Err.Description, vbCritical, "خطأ" 🔹 ماذا يفعل هذا الكود؟ ✔ إذا كان الرابط موقع ويب (http أو www)، يستخدم FollowHyperlink. ✔ إذا كان الرابط ملفًا محليًا، يتم فتحه بـ Explorer بدلًا من FollowHyperlink. ✔ إذا كان الرابط غير صالح، يظهر تنبيه بدلاً من رسالة خطأ. 4. التأكد من صلاحيات الملفات والمجلدات إذا كنت تحاول فتح ملف محلي، تأكد أن الملف موجود في المسار الصحيح. تأكد أن لديك صلاحيات الوصول إلى الملف، خاصة إذا كان على شبكة أو في مجلد محمي.