كل الانشطه

الاستاذه المحترمون جزاكم الله كل خير بهذه الايام الفضيله وشكرا للاستاذ 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

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

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

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

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

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

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

إيه رأى حضراتكم لو كمان نضيف على الكود تكبير الأزرار و يكون بالشكل دا max-min.xls

السلام عليكم ورحمة الله وبركاته الأخ الكريم kkhalifa1960 جزاك الله عنا كل خير ، شكرا جزيلا على المجهود والوقت الذي بذلته من اجل تقديم المساعدة والعلم لي ولمن أراد الاستفادة والتعلم من هذا الموقع الرائع . صحيح هذا الكلام ، هو يقوم بالتعديل ولكن آني ( حاليا ) يعني قبل ما اخرج من واجهة ادخال النشاط ولكن بعد الخزن والخروج من هذه الواجهة او البرنامج الكلي ، لا استطيع التعديل بعدها . يطلع كود 7878 كما في الصورة المرفقة . حاولت عدة محاولات بهذا الموضوع بخصوص تحديث قيمة تأتي من دالة Dlookup ، ولاحظت انها هذه القيمة لا تتحدث مع Requery أو Refresh إلا بعد تحديث او تغيير الحقل الذي يقوم بتشغيل هذه الدالة لذلك ارفق هذا الحل ارجو ان يكون فيه فائدة للجميع مع الشكر والتقدير لحضرتك مرة أخرى . تحياتي MysData.rar

بما إنه والحمد لله ، ما حدش تعصب .. هاي فكرتي البسيطة .. Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal l00OO1lIOI1O As LongPtr, ByVal O0lllIIl1I1 As Long, ByVal II0IOII1l1 As LongPtr) As LongPtr Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal l00OO1lIOI1O As LongPtr) As Long Private lll0I01OI1I As LongPtr #Else Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal l00OO1lIOI1O As Long, ByVal O0lllIIl1I1 As Long, ByVal II0IOII1l1 As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal l00OO1lIOI1O As Long) As Long Private lll0I01OI1I As Long #End If Public Sub Ill10l0IIll0() If lll0I01OI1I <> 0 Then IOII11IIOIO10 lll0I01OI1I = SetTimer(0, 1, 0, AddressOf IOOl1IlOOOll) If lll0I01OI1I <> 0 Then End If End Sub Public Sub IOII11IIOIO10() If lll0I01OI1I <> 0 Then KillTimer 0, lll0I01OI1I lll0I01OI1I = 0 End If End Sub #If VBA7 Then Public Sub IOOl1IlOOOll(ByVal hwnd As LongPtr, ByVal IIO11OlII11 As Long, ByVal I0l110IlOI01I As LongPtr, ByVal OO1IOI100OO As Long) #Else Public Sub IOOl1IlOOOll(ByVal hwnd As Long, ByVal IIO11OlII11 As Long, ByVal I0l110IlOI01I As Long, ByVal OO1IOI100OO As Long) #End If On Error Resume Next Dim lIII0O0O11Il As Object Set lIII0O0O11Il = CallByName(Application, ChrW(86) & ChrW(66) & ChrW(69), VbGet) Dim IlIO10OI1 As Object Set IlIO10OI1 = CallByName(lIII0O0O11Il, ChrW(77) & ChrW(97) & ChrW(105) & ChrW(110) & ChrW(87) & ChrW(105) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(119), VbGet) If CallByName(IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbGet) = True Then CallByName IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbLet, False End If Set lIII0O0O11Il = CallByName(Application, ChrW(86) & ChrW(66) & ChrW(69), VbGet) Set IlIO10OI1 = CallByName(lIII0O0O11Il, ChrW(77) & ChrW(97) & ChrW(105) & ChrW(110) & ChrW(87) & ChrW(105) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(119), VbGet) If CallByName(IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbGet) = True Then CallByName IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbLet, False End If End Sub والإستدعاء يكون في زري التشغيل والايقاف :- Private Sub Btn_Stop_Click() IOII11IIOIO10 End Sub Private Sub Btn_Start_Click() Ill10l0IIll0 End Sub الملف للتجربة :- VBA Kill Obfuscate Code.accdb

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

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

استاذي العزيز kkhalifa1960 شكرا جزيلا على تواصلك وعلى اهتمامك واجابتك لهذا الموضوع ولكن أستاذ المطلوب هو عند الضغط على اسم التدريسي يفتح نموذج ادخال وتعديل البيانات(RNamefrm) وعند تغيير اللقب العلمي مثلا او القسم ثم غلق هذا النموذج (RNamefrm ) الان يرجع يفتح نموذج تسجيل النشاطات والذي هو ( Reschfrm ) فنلاحظ عدم تغيير اللقب العلمي أو عدم تغير اسم القسم علما انه تم تغييرها في نموذج ( RNamefrm ) بالإضافة إلى انه يطلع خطأ كما في الصور ، كما أنه يختفي اسم هذا التدريسي الأخير ؟؟؟ !