كل الانشطه

انشئ موديول (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 ) بالإضافة إلى انه يطلع خطأ كما في الصور ، كما أنه يختفي اسم هذا التدريسي الأخير ؟؟؟ !

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

عاوز حل احترافي ، فكرة ما خطرتش على بال لا إنس ولا جن حتى ما تعصبش أحسن تروح مشوار إنت فاكره 😉

وربنا انا مش فاهم انت عاوز ايه

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل والاخوة الأعزاء في منتدى اوفيسنا في قاعدة البيانات المرفقة وفي نموذج التسجيل يتم تسجيل النشاط واختيار التدريسي من combo box التدريسيين فيتم تنزيل اللقب العلمي والقسم والكلية التي ينتمي إليها هذا التدريسي تلقائيا بواسطة الدالة Dlookup وضعتها في حدث after update لحقل التدريسين في النموذج الفرعي ، لا مشكلة ! المشكلة هي عندما اريد تعديل اللقب العلمي او القسم او الكلية لهذا التدريسي ويتم ذلك من خلال الضغط على هذا الـــ combo box فينفتح نموذج اخر الذي هو نموذج ادخال بيانات التدريسيين فعند تغيير اسم التدريسي وغلق النموذج يتم تعديل اسم التدريسي تلقائيا في النموذج الفرعي ولكن إذا اردت ان اعدل اللقب العلمي او القسم او الكلية بنفس الطريقة لا يتم التعديل بصورة مباشرة وتلقائية وإنما إلا أعمل تحديث يدوي لاسم التدريسي فيتم التعديل ؟ المفروض يتم التحديث تلقائيا بعد التغيير وغلق النموذج الخاص ببيانات التدريسين (I know there is function Dlookup , but how can I do that )! لذلك ارغب في المساعدة في هذا الموضوع إذا كان هناك حل لهذه المشكلة ؟؟؟ مع الشكر والتقدير مقدما لكم جميعا ؟ ! MysData.rar

هو ده اللي طلعت بيه FindWindow !!!!! 🙄

حذفت الماكرو .. فتم ابطال السحر

المرفق VBAMonitor.accdb

هعيد رقعه بأعدل حبة حجات ثوانى

طبعاً المفروض الناتج 31/07/2060 اذا كان التقاعد عندما يصل لسن 60سنة . اليك المرفق . ووافني بالرد . Ahmad2026.rar

الصورة كمثاااال يا بشمهندس محمد 😁 مرفق ، ومش فاهم !!! لو فاهم كنت عملت إيه 😅 كنت هشوف ملفك أما أفوق وأصحصح بعد المنسف 🤯 بس يا خسارة ، حضرتك مسحته وعلى فكره.. دي جوابها = لأ ، بما إنك حذفت ملفك 😜