د.كاف يار

تفضل هذا التعديل استيراد ملف نصي.accdb

التعديل في الجدول

تفضل هذا التعديل IMAGE.accdb

تقضل التعديل Desktop.zip

اذا كانت صلة القرابة تعرف بآخر الإسم فتفضل هذا الكود انشئ Module جديد و الصق فيه الشفرة التالية Public Function StrLast_name(FullName As String) On Error Resume Next Dim name As String Dim first_name As String Dim mid_name As String Dim last_name As String name = FullName first_name = Left(name, InStr(name, " ") - 1) mid_name = Mid(name, InStr(name, " ") + 1, InStrRev(name, " ") - InStr(name, " ") - 1) last_name = Right(name, Len(name) - InStrRev(name, " ")) StrLast_name = last_name End Function في الإستعلام اضف الحقل التالي Strlast_name([ename2]) و ضع له المعيار التالي Strlast_name([Forms]![eform1]![ename]) و يكون بهذا الشكل و ستكون النتجية بهذا الشكل الإستعلام بناء على الإسم الأخير و كل من له علاقة بالإسم الأخير Database2.accdb

تفضل تحديث.accdb

عن طريق حلقة تكرارية تستطيع ارسال قائمة الأسماء لديك الى جهة اتصال محددة سؤالك غير واضح يرجى شرح المطلوب بصورة مفصلة حتى تأخذ اجابة منطقية فعلى الأغلب لا توجد مصلحة لإرسال البيانات الى رقم محدد لكن فهم السؤال دائما نصف الإجابة فأتوقع انك تريد ان ترسل رسالة واتس اب الى عدة جهات اتصال فهل هذا صحيح ؟

بكل سهولة توضع القاعدة في الفولدر الخاص بون درايف و يفضل ان تكون مفصولة عن الواجهات

فهلا يجب اضافة مرفق حتى يكون الحل نهائي

اتوقع لا تحتاج لنسخ النموذج لأنه في هذه الحالة سيختلف نوع القيد فقط فالأفضل الاكتفاء بنموذج واحد و معالجة الأمر برمجيا حين الدخول للنموذج

ممتاز كيف تعرف التواريخ 19 التي تخص الزائر رقم 2

خليني امشي معاك حبه حبه اتفقنا هذي التواريخ هل تستطيع تحديد على الأقل تاريخ واحد يخص اي من الزائرين ؟

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

اجعل التنسيق Medium Time

تفضل التعديل ترجمه.accdb

تفضل جرب هذا سيتم اخفاء الجداول و الإستعلامات Set db = CurrentDb For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then Application.SetHiddenAttribute acTable, tdf.Name, True End If Next For Each tdf In db.QueryDefs If Not (tdf.Name Like "~sq*") Then Application.SetHiddenAttribute acQuery, tdf.Name, True End If Next

اسم النموذج الرئيسي مختلف عن المثال

تفضل البحث بجزء من الإسم او الرقم دورة inputbox (1).accdb

تفضل تم العمل على اساس ان الاجازة الاسبوعية يومين فقط لكل اسبوع الغياب.accdb

ارفق مثال لكي تتضح الأمور

تفضل التعديل 99.accdb

تفضل هذا التعديل على بنود الفاتورة تلوين الحروف و الكلمات اثناء البحث فاتورة بشكل جديد.mdb

تفضل nabil (1).accdb

تفضل هذا التعديل عند عدم الاستخدام لمدة خمسة دقائق سيتم اغلاق الصفحة الرئيسية و فتح صفحة تسجيل الدخول لكن اذا تم تحريك الماوس سيتم تصفير العداد و اعادة الحساب من جديد asd (3).accdb

تفضل nabil (1).accdb وهذا تعديل على حجم الرسالة nabil (1).accdb