mirage4pc

السلام عليكم و رحمة الله و بركاته Date de naissance تأكد من ان القيمة التي بها هي عبارة عن تاريخ    و افضل أن تستعيض عنه ب   DateDiff("yyyy", [Date de naissance] , [Date Actuelle])  

و هذه ليست بمطلقة :) فالطلقة سوف تلي لا حقا ..ز و لكن اعتقد ان هذه هو طلبك حاليا  

احتساب العمر بناء على تاريخ الميلاد

Function Age(varBirthDate As Variant) As Integer Dim varAge As Variant If IsNull(varBirthDate) Then Age = 0: Exit Function varAge = DateDiff("yyyy", varBirthDate, Now) If Date < DateSerial(Year(Now), Month(varBirthDate), Day(varBirthDate)) Then varAge = varAge - 1 End If Age = CInt(varAge) End Function  

السلام عليكم و رحمة الله و بركاته قبل ان اجيبك  اكثر ما تريد القيام به .. لكي نحدد هل ما تريده وحدة نمطية مطلقة أو وحدة نمطية فئات لكن دعي اعطيك مثال عن الوحدة النطية المطلقة .. مثلا : تريد ان تبي دالة مثلا تقوم بإجراء معين مثلا ان تأخدذ قيمة حقل ما و تقوم بطرحه من جقل أخر و تضيف عليه قيمة ما و من ثم تأخذ هذه النتيجة لتعيدها لوحدة نمطية نقوم بدورها بمعالجة الناتج بصيغة اخرى و من ثم تقوم بتخزينها في حقل ما... من بعض هذه الوحدات المطلقة   Nz - Dmax -  Dsum و هذه جاهزة و لكن يمكنك ان تبني وحدة مطلقة و تستخدمها في نماذجك و هذا مثال  بالمرفق و اسميت الوحدة Dabade

مع العلم ان هنالك نوعين من الوحدات النمطية  1 - وحدة نمطية مطلقة 2 - وحدة نمطية للفئات

السلام عليكم ورحمة الله و بركاته  اكتب فقط اسم الوحدة النمطية في الحدث المراد تنفيذ الامر به  مثلا ليدك وحدة نمطية اسمها SSS   Private Sub Command0_Click() Call SSS End Sub  

السلام عليكم و رحمة الله و بركاته تفضل   zaChangeDateFormat-END.rar

السلام عليكم و رحمة الله و بركاته ( كيف أجعل الاستعلام يقرأ من الفورم الأول، إذا كان مفتوحا، وإذا لم يكن مفتوحا ينتقل للفورم الثاني.. لك بالغ شكري على الفكرة الجديدة وسأستفيد منها كثيرا ) ما رأيك ان  ترفق مثال ليتم التعديل عليه ... هكذا افضل حسب رأي     

على كل حال __ وفق المرفق تستطيع أن تبني إلي 100000000 و بالتوفيق   Database5.accdb

السلام عليكم ورحمة الله وبركاته ارفق مثالك لو سمحت  

السلام عليكم ورحمة الله و بركاته فضل أخي الفاضل   dfd.mdb

السلام عليكم ورحمة الله وبركاته بالحقيقة قد اكون فهمت طلبك بصورة خاطئة و لكن إن كان المطلوب أن كل مستخدم يقوم بالدخول المخصص له  إليك هذه الحيلة  اولا على جدول المستخدمين اضفت حقل جديد تحت مسمى StartForm حددت به الفورم الذي يدخل إليه المستخدم   ثانيا قمت بتعديل الفورم T1 إلي UserName و بنيت به حقلين الأول لاسم المستخدم و الثاني لكلمة السر ثالثا قمت بعمل استعلام بقوم بالتدقيق على اسم المستخدم و كلمة السر المدخلتان في UserName و يظهر اسم الفورم المطلوب فتحه رابعا وضعت الكود التالي  الذي يستدعي اسم الفورم للمستخدم  و يقوم بفتحه هكذا بكل بساطة  أتمنى أن يكون هذا طلبك و بالتوفيق تفضل - و بالتوفيق     Test1_2016.accdb

السلام عليكم ورحمة الله و بركاته فكرة بسيطة ( حاول ان تدركها ) و بالتوفيق   تفضل   New Microsoft Access Database - Copy.accdb

السلام عليكم ورحمة الله و بركاته تفضل هذا المرفق   123456.mdb