نجوم المشاركات

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

السلام عليكم ورحمة الله وبركاته في نافذة خصائض أداة Tbarcode قم بتغيير إعداد Code Page إلى UTF-8 وسيظهر بعدها النص العربي بشكل صحيح

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

السلام عليكم اهداني اخي العزيز @حسونة حسين ملف اكسل يحتوي على جميع مواضيع منتدى اكسس وبروابط مباشرة اضعه بين ايديكم لا تنسونا من دعوات صالحات *********************** ( إضافات للموضوع - Moosak ) قمت بعمل تصميم بسيط لنموذج البحث وأضفته إلى الموضوع الرئيسي بعد أذن أستاذنا أبو خليل 🙂 بمجرد الكتابة تظهر النتائج .. لاستعراض الموضوع يتم الضغط على العنوان مباشرة النقر المزدوج على مربع البحث يعيد إظهار جميع النتائج 🙂 يمكن البحث بكلمات متفرقة في الجملة .. Search_Officena_Access.rar ********************************************** Access.rar

آمين يارب العالمين .. وإياكم أخي @ابو هاله النبلسي 🙂

شكرا لك استاذي ورمضان كريم اعاده الله عليكم باليمن والبركة

لاختيار التاريخين من نموذج ستقوم بعمل تعديلات على الدالة يدويا هكذا : الدالة التي ستعطيك إياها الأداة : DLookUp("[CreationDate]","[SubjectsF]","[CreationDate] Between #"& [Forms]![Formena]![txt1] &"#") والدالة بعد التعديل اليدوي : DLookUp("[CreationDate]","[SubjectsF]","[CreationDate] Between #"& [Forms]![Formena]![txt1] &"# and #"& [Forms]![Formena]![txt2] &"#") وهذا شكلها :

هذا مثال أخي أبو هالة 🙂 وبالتقريب هكذا تكتب التاريخ في المعيار (لأن الأداة تضيف الرمز # في البداية والنهاية لوحدها) : 16/2/2021# and #28/2/2021

واذا أردت بالكود ضع زر بأي فورم . Private Sub btnReset_Click() ' Table1, ID ' غيرهم للاسماء لديك DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Table1" DoCmd.RunSQL "INSERT INTO Table1 (ID) VALUES (0)" DoCmd.RunSQL "DELETE * FROM Table1" Me.Requery Refresh End Sub

ابشر ولكن امنحني بعض الوقت اذا لم يتم الحل من احد اخوتنا هنا ، سيكون الحل بين يديك خلال ساعات

تفضل SELECT x1.f2, x1.f1, x1.markName, IIf(mytextvalue() Between [f1] And [f2],""1"",""0"") br2.rar

شكرا أخت لميا جربت الطريقة ونجحت

الله المستعان .. الموضوع قبل 20 سنة

شكرا ابا جودي على اثراء الموضوع تم عمل مثال شامل للنسخ والاصلاح واخراج المستخدمين وقسمته الى واجهتين واحدة للأدمن والأخرى للمستخدمين نقاط هامة يجب التقيد بها عند نقل الكائنلت الى برنامجك : - في المرفقات ملف باسم UnOpen.db يجب لصقه بجانب قاعدة الجداول - يجب اجراء التعديل في الوحدة النمطية الموجودة في واجهة الادمن كما هو موضح في الصورة في اول مشاركة __________-___________________________________ تجربة المثال : - اعد الارتباط بقاعدة الجداول data في كلي الواجهتين - افتح واجهة المستخدم اولا .. انتظر قليلا ستظهر رسالة ثم يغلق البرنامج - اذهب الى قاعدة الأدمن افتحها واذهب الى نسخ واصلاح ثم ادخل المستخدمين - ارجع الى واجهة المستخدم وافتحها ستبقى مفتوحة الى ان تغلقها انت __________________ اعكس التجربة باخراج المستخدمين وانظر تأثيره على واجهة المستخدم ملحوظة : يمكن العمل على الواجهتين في شاشة واحدة myProg.rar

مستحيل ان لا يفتح اذا لصقته على C .. الصقه مباشرة على C هذا السطر بعد التغيير If PD.Name = "C:\prevent copy.accdb" Then تفصيل المسألة : قلت سهل ممتنع لانه يؤدي الغرض فلو تم نسخه من سطح المكتب ولصقه في جهاز آخر على سطح المكتب فلن يعمل لان اليوزر في الرابط الموجود في الملف يختلف عن اليوزر الموجود على الجهاز الآخر .. وهنا يصيبه الاحباط ولن ينتفع منه ، وايضا هو لا يعرف نوع الحماية حتى لو كان على احد الاقراص مباشرة ولكن داخل مجلد فلن يفتح حتى تضعه في المكان الصحيح = المسار الموجود في الملف وليس لان خصائص اسمه مختلفة

اخي العزيز .. مسألة ان الملف يتغير عند النسخ فهذا غير صحيح فقط يتغير الاسم عند اللصق في المجلد الذي يتواجد فيه الملف الأصل بزيادة copy والمسؤول عن هذا التغيير هو وندوز بمعنى ان اكسس لا حول له ولا قوة مثله مثل اي ملف آخر الآن نزلت ملفك في مجلد (((التنزيلات))) .. ثم فتحت على الكود المعطل وشغلته ، وغيرت الرابط الى .... اغلقت الملف ثم فتحته مرة اخرى فامتنع لانه موجود في مجلد التنزيلات والرابط الذي بالداخل يختلف الآن انا نسخته وارفعه لك حاول فتحه ، اذا لم تتمكن من فتحه انسخه ايضا والصقه على جذر الــــــــ C وجرب فتحه هناك prevent copy.rar

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

اذا اردت ان لاتنسخ القاعدة مرة اخرى ..يجب العمل ذلك بنفسك.. حينما تضع القاعدة على الحاسوب ..انسخ مسار القاعدة وضعها في الكود التالي ..في النموذج الذي يفتح اولا On Error GoTo frm_loadErr_handler DoCmd.Maximize DoCmd.OpenForm "frm_login" Dim PD As Variant Set PD = CurrentDb If PD.Name = "C:\Users\userName\Desktop\prevent copy.accdb" Then DoCmd.OpenForm "form1" Else MsgBox " لاتملك الترخيص" DoCmd.Quit End If frm_loadExit: Exit Sub frm_loadErr_handler: MsgBox Error.descreption, vbExclamation, "!ErrorNo.." & Err.Number Resume frm_loadExit

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

بعد اذن اخي مهند اخي matrex 300 تفضل طلبك الملف طباعة نسخة بي دي اف ونسخة علي طباعيه.xlsm