كل الانشطه

اتفضل نتاج عملي أمس بالمرفق . RetirementDate.rar

و عليكم السلام ورحمة الله وبركاته. تفضل الحل اجتهاد مني و بمساعدة الذكاء الصناعي و إن شاء الله أحد أساتذة المنتدى يقوم بالتطوير أو يقدم إضافات يوجد ملفين الأول ProtectedWorkbook وهو خاص بالعميل الثاني KeyGenerator وهو خاص بك لتوليد المفاتيح التي سيستخدمها العميل لتحويل الملف من تجريبي لدائم خطوات العمل . 1.العميل يفتح الملف 2. يرسلك محتوى خلية B6 Machine ID مثال: DESKTOP-ABC123_AHMED 3. تفتح KeyGenerator.xlsm تكتب اسم العميل + تلصق الـ Machine ID تضغط "توليد الكود" 4. يظهر لك مثلا: ACT-05837291 ترسله للعميل 5.العميل يدخله في B12 ويضغط "تفعيل" ProtectedWorkbook.xlsmلا تنسى وضع كلمة سر لمحرر الأكواد أخيرا لا يوجد حماية 100% في Excel لأن المستخدم يقدر يعطل الماكرو أو يكسر الحماية لا تنسى وضع كلمة سر لمحرر الأكواد كيف يعمل النظام: · أول 3 أيام يعمل طبيعي مع رسالة "متبقي X أيام" · بعد 3 أيام يُقفل ويطلب كود تفعيل · نقل لجهاز جديد يكتشف الفرق ويطلب كود جديد · تفعيل صحيح يُفتح نهائياً على ذلك الجهاز أخيرا لا يوجد حماية 100% في Excel لأن المستخدم يقدر يعطل الماكرو أو يكسر الحماية KeyGenerator.xlsm

بارك الله فيك اخي الكريم

اولا / الملف السابق به كودين كلاهما معاينة تم تعديل احدهما الى طباعة ثانيا :- للتطبيق على ملفك / احعل لغة الجهاز العربية وانسخ الكود المرفق وفي ملفك الاخر قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer(المطور) ثم Visual Basic ثم من قائمة Insert اختر Module والصقه به واربطه بزر في الصفحة المراد ترقيمها ملاحطة/ الكود المرفق مهمته الطباعة مع الترقيم ان اردت المعاينة مع الترقيم بدون طباعة غير كلمة FALSE الى TRUE في الجملة ws.PrintOut From:=i, To:=i, Preview:=False Sub طباعة() Dim ws As Worksheet Dim totalPages As Long Dim i As Long Dim pageNum As Integer Set ws = ActiveSheet totalPages = (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1) For i = 1 To totalPages pageNum = Application.WorksheetFunction.RoundUp(i / 2, 0) If i Mod 2 <> 0 Then ws.PageSetup.CenterFooter = "الصفحة " & Format(pageNum, "00") Else ws.PageSetup.CenterFooter = "تابع الصفحة " & Format(pageNum, "00") End If ws.PrintOut From:=i, To:=i, Preview:=False Next i End Sub

شكرا جزيلا وبارك الله فيك ولكن كيف يتم تطبيقه على ملف آخر؟

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

هو ممكن يتحول البر هو ممكن برنامج اكسس يبقي exe يشتغل بدون اوفيس

الاستاذه المحترمون جزاكم الله كل خير بهذه الايام الفضيله وشكرا للاستاذ Foksh وشكرا للاستاذ منتصر الانسي على المساعده وجزاكم الله كل خير سؤال تاني الاساتذه المحترمون هل يمكن انشاء بحث عن اسم العضو وايضا هل يمكن عمل شاشات لبدايه البرنامج مع كلمه سر يعني انشاء واجهات للبرنامج وجزاكم الله خيرا بهذه الايام الفضيله

بعد إذن الأخ @Foksh يبدو أن المشكلة ناتجة عن إختلاف البيئة إلى بيئة x64 لذلك قمت بعمل Debug وتعديل الأسطر التي ظهر عندها خطأ الآن التطبيق يعمل عندي بدون مشاكل 2008.rar

اخي الكريم يجب عليك التفريق بين حالتين (الجداول/الإستعلامات و النماذج/التقارير) من حيث طريقة إستعراض البيانات المرتبطة بين جدولين ففي الجداول والاستعلامات يتم إظهارها بإستخدام ورقة البيانات الفرعية Subdatasheet وهي عبارة جدول أو إستعلام آخر مرتبط بهذا الجدول أو الإستعلام وبنفس الفكرة إذا أردنا إستعراض بيانات أخرى مرتبطة ببيانات النماذج والتقارير فيجب أن تكون فيما يسمى (النماذج الفرعية Subform أو التقارير الفرعية Subreport) بالتالي فإذا أردنا إظهار البيانات بالشكل المطلوب داخل النموذج فيجب أن تكون البيانات ضمن نموذج آخر يتم إدراجه كنموذج فرعي مرفق لك الملف بعد التعديل Sub-data_sheet.accdb

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

شكرا جزيلا أخي الفاضل

فهمت طلبك لكن اعطني مهلة لباكر انشاء الله .

1- Access Runtime 2023 (32-bit): ابحث في موقع مايكروسوفت عن: Download Microsoft Access Runtime 2023 32-bit 2- سطبه واعد تشغيل الكمبيوتر ثم اتبع التالي :- كما بالشرح . 3- حمل المجلد (RetirementDate) على فلاشة واذهب لكمبيوتر ليس عليه أوفيس وسطب (setup.exe) وبيعمل معك البرنامج بعون الله . ووافني بالرد .

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

Sub-data_sheet.accdb مرفق ملف لتمثيل المشكلة نلاحظ ان النموذج داخل الملف لا يرث سلوك او شكل الاستعلام داخل الملف اول عمود بالاستعلام عمود extended بينما النموذج الذي مصدرة نفس الاستعلام لا يخرج هذا العمود فلماذا ؟

ممكن مساعدة يا جماعه جزاكم الله خيرا

انشئ موديول (ModRelinkTables) . وضع به الكود التالي :- Option Compare Database Option Explicit Public Function RelinkTables() Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strOldPath As String Dim strNewPath As String Dim fDialog As Office.FileDialog Set db = CurrentDb ' افحص أول جدول مرتبط لمعرفة المسار القديم For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then strOldPath = Mid(tdf.Connect, InStr(tdf.Connect, "DATABASE=") + 9) Exit For End If Next ' لو الملف مش موجود If Dir(strOldPath) = "" Then MsgBox "الملف غير موجود، اختر مكانه الجديد." ' افتح مربع اختيار ملف Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .Title = "اختر ملف قاعدة البيانات الجديدة" .AllowMultiSelect = False If .Show = -1 Then strNewPath = .SelectedItems(1) Else MsgBox "لم يتم اختيار ملف." Exit Function End If End With ' حدث روابط الجداول For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then tdf.Connect = ";DATABASE=" & strNewPath tdf.RefreshLink End If Next MsgBox "تم تحديث الروابط بنجاح." End If End Function المكتبات المطلوبة: Microsoft DAO 3.6 Object Library أو Microsoft Office xx.0 Access Database Engine Object Library (لتعريف DAO.Database و DAO.TableDef) Microsoft Office xx.0 Object Library (لتعريف Office.FileDialog) Microsoft Access xx.0 Object Library (مفعّل تلقائياً) ملاحظات: استخدم Option Explicit عشان يجبرك على تعريف كل المتغيرات، وده بيمنع أخطاء وقت التشغيل. الكود بيستخدم DAO و Office بشكل صريح، فلو المكتبات مش مفعّلة هتظهر لك رسالة خطأ واضحة بدل ما يشتغل بشكل غير متوقع. تقدر تستدعي الدالة RelinkTables في حدث On Load للنموذج الرئيسي أو في ماكرو AutoExec.

وعليكم السلام ورحمة الله وبركاته اذا كان الغرض من الترقيم اظهار الترقيم المطلوب في اوراق الطباعة او المعاينة فالكود افضل حل من الترقيم اليدوي مع الصفحات المتعددة مثال في الملف المرفق تكرار رقم الصفحة.xlsb تكرار رقم الصفحة (1).xlsb

ممكن مرفق لتوضيح طلبك .

عدم توفر خاصية ورقة البيانات الفرعية فى بيئة نموذج اكسيس بالرغم انها متوفرة فى بيئة الاستعلام ؟ لماذا فى خصائص الاستعلام يوجد خاصية ادراج "اسم ورقة بيانات فرعية" ولا توجد فى بيئة النموذج ؟

الاستاذه المحترمون ارجو مساعدتي في بناء شاشات للبرنامج موني مبتدا بالاكسس

السلام عليكم ورحمة الله وبركاته من فضلكم كيف يتم ترقيم الصفحات يدويا واختياريا؟ مثلا : يكون رقم الصفحة الاولى هو الصفحة 01 ويكون رقم الصفحة الثانية هو تابع الصفحة 01 ويكون رقم الصفحة الثالثة هو الصفحة 02 ويكون رقم الصفحة الرابعة هو تابع الصفحة 02 وهكذا. وبارك الله فيكم.

عندي برنامج اكسيس بنظام اوفيس 2023 32 جيش اشغله علي جهاز معندهوش اوفيس ازاي اخلي البرنامج يعمل بدون اوفيس علي اي جهاز

عندي برنامج مرتبط بلينكات من جداول والجداول دي في d باسم data اوقات مكان الملف بغير مكانه او بغير اسمه وملهوش امتداد ماسح الامتداد بتاعه عايز لما افتح البرنامج وملقاش الملف يعمل تحديث لمكانه للارتباط به او يفتحلي ادخل له مكان الملف واسمه الجديد