د.كاف يار

تفضل هذه المشاركة اخي الكريم New Microsoft Access قاعدة بيانات.rar

تفضل هذا التعديل اخي الكريم اللصق الجملة في الاستعلام فقط SELECT EMPDEV.IDED, EMPDEV.IDD, EMPDEV.DATER, EMPDEV.DATEG, EMPDEV.NOTES, EMPLOYEE.IDS, EMPLOYEE.NUMBER, EMPLOYEE.ENAME, class.CNAME, DLookUp("[BRANDS]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS [الشركة المصنعة], DLookUp("[MODELS]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS الموديل, DLookUp("[TYPE]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS النوع FROM class INNER JOIN (EMPLOYEE INNER JOIN EMPDEV ON EMPLOYEE.[IDE] = EMPDEV.[IDE]) ON class.IDC = EMPLOYEE.IDC WHERE (((EMPDEV.IDED) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.IDD) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.DATER) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.DATEG) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.NOTES) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.IDS) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.NUMBER) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.ENAME) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((class.CNAME) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")); تفضل التعديل في المرفقات PROGRAM IT (2).rar

تفضل اخي الكريم Database1.rar

اخي هذا برنامج كنت استخدمه في اصدار اكسس 2003 قد يفي بالغرض IconChanger3[1].4.zip

اخي الكريم توجد دالة تقوم بهذا الاجراء و تفي بالغرض DatePart("q"[Date])

تفضل اخي الكريم سيتم تجميع نوع الاعاقة المتعددة حسب كل بلدية Nz(DSum("[نوع الإعاقة]","[الإجمالية]","[نوع الإعاقة]='متعدد الاعاقة' and [البلدية]=" & '"&[البلدية]&"'),0)

تفضل اخي الكريم المرشحين.accdb

تفضل التعديل اخي بلال Desktop.zip

تفضل هذا التعديل تم بناء على جدول واحد اساسي فقط و استدعاء البيانات المطلوبة PROGRAM IT.rar

اخي الكريم لتحديد مسار قاعدة البيانات فقط اضف CurrentProject.Path و في مثل الرابط اعلاه للصورة يكون كالتالي Me.image1.Picture = CurrentProject.Path & "C:\Program Files/1.jpg" و اذا كانت الصورة في مجلد فقط اكتب اسم الملجد Me.image1.Picture = CurrentProject.Path & " اسم المجلد" & "C:\Program Files/1.jpg"

تفضل التعديل ملاحظة : يجب اولا فك الضغط Desktop.zip

تفضل هذا الكود اخي الكريم مع مراعا و ضع اسم عنصر التحكم ( الأزرار ) في المكان المخصص فكرة هذا الكود :- - الصق هذا الكود في اي مكان في شاشة الأكواد VBA Function control is not visible() On Error GoTo errorhandle DoCmd.SetWarnings False If DateDiff("h", DLookup("[EndTime]", "[StingTime]", "[TimeNo]=1"), Now()) > 24 Then DoCmd.RunSQL "Update StingTime SET EndTime = Now() WHERE [TimeNo]=1;" [ضع اسم عنصر التحكم هنا].Visible = True Else [ضع اسم عنصر التحكم هنا].Visible = False End If errorhandleexit: Exit Sub errorhandle: If Err.Number = 3078 Then DoCmd.RunSQL "CREATE TABLE StingTime (TimeNo int , EndTime DATE );" DoCmd.RunSQL "INSERT INTO StingTime VALUES (1, Now());" End If Resume errorhandleexit DoCmd.SetWarnings True End Function - يجب وضع هذا الكود في حدث عند الفتح و كذلك في الازرار المستهدف Call control is not visible() - سيتم انشاء جدول كما ذكر من قبل اخي الكريم @ محمد أبو عبدالله محمد أبوعبدالله - سيتم تحديث هذا الجدول كل 24 ساعة أو اكثر - يمكنك التعديل على الجدول باضافة عمود لاسم المستخدم - سيتم اخفاء عنصر التحكم مرد الدخول على النموذج و مجرد الضغط على الأزرار مع مراعاة نقل التركيز قبل تنفيذ الكود

تفضل التعديل اخي الكريم لكن الفكرة التي في الفيديو تكمن في تغيير خلفية الصورة أو الازرار عموما القي نظرة على المرفق و لنا حديث آخر تحويل.mdb

اخي الكريم لم افهم قصدك بنزع المفتاح و كذلك لم افهم قصدك بنقل البيانات المتعارف عليه ( الحاق - تحديث - حذف ) و الذي تم عمله هو الحاق البيانات المدخلة في الحقول الى جدول البيانات

تفضل التعديل اخي الكريم قاعدة بيانات.accdb

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

تفضل التعديل اخي الكريم HLA_HLA.accdb

تقدر تضيفه على شكل تقرير فرعي

تفضل هذا التعديل اخي الكريمالشهادات_المدرسية _للقدامى - Copie.accdb

تفضل هذه المشاركة اخي الكريم اسم المستخدم : Admin كلمة المرور : 1 ** في البحث الشامل اضغط على الاسم او الرقم لاختيار الاسم و اغلاق البحث الشهادات_المدرسية _للقدامى - Copie.accdb

يرجى توضيح المشكلة بالتحديد

تفضل هذا التعديل اخي الكريم 1.accdb

تفضل التعديل اخي الكريم تنسيق شرطي لمعرفة الاشتراكات.accdb

اخواني الافاضل شكرا من القلب على هذه الكلمات الطيبة و المؤثرة في النفس تفضل التعديل اخي الكريم Pupil Names_UPDate.accdb

تفضل التعديل اخي الكريم 1 (1).accdb