محمد أبوعبدالله

بالتوفيق اخي الكريم تحياتي

للمعاينة استخدم الامر التالي DoCmd.OpenReport "الشيك", acViewPreview للطباعة مباشرة بصيغة Pdf استخدم الامر التالي DoCmd.OutputTo acOutputReport, "الشيك", acFormatPDF, "E:\PDF01.pdf", False مع تغيير المسار تحياتي

السلام عليكم المشكلة في قاعدة البيانات تحتاج الى ضغط واصلاح او الاوفيس نفسه يحتاج الى اعادة تنصيب واصلاح تحياتي

حتى لو تكرر التاريخ لاكثر من سجل ؟!!! هذا اخي الكريم يتم في الاستعلام وبعد ذلك تقوم بعمل استعلام تحديث ان اردت تحياتي

وعليكم السلام ورحمة الله وبركاته ممكن جمع حقول السجل في حقل جديد يكون نوعه محسوب / Calculated اما اذا اردت عمليات اكثر كالجمع التراكمي مثلا فيكون ذلك في الاستعلامات تحياتي

ممكن توضيح المشكلة بالضبط او عرض صورة للمشكلة الصلاحيات المستخدمين (1) (2).accdb تحياتي

قمت بربط الجدول الاول = 50 متر متعرج اكمل بنفس الطريقة باقي التمارين ولك الشكر الرياضة.rar تحياتي

وعليكم السلام ورحمة الله وبركاته لحساب العمر سنتخدم الوحدة النمطية الموجودة بالمرفق ثم نضع الكود التالي Me.العمر = CalcAgeY(Me.التولد, Date) نضع الكود التالي Select Case Me.العمر Case 18 To 24 Me.Text31 = "الفئة الاولى" Case 25 To 29 Me.Text31 = "الفئة الثانية" Case 30 To 34 Me.Text31 = "الفئة الثالثة" Case 35 To 39 Me.Text31 = "الفئة الرابعة" Case 40 To 44 Me.Text31 = "الفئة الخامسة" Case Else Me.Text31 = "الفئة السادسة" End Select نضع الكود التالي Me.المجموع = Val(Nz(الدرجة1)) + Val(Nz(الدرجة2)) + Val(Nz(الدرجة3)) + Val(Nz(الدرجة4)) سنضع الكود التالي Me.المعدل = Nz(Me.المجموع) / 4 Select Case Me.المعدل Case 0 To 49 Me.النتيجة = "فاشل" Case Else Me.النتيجة = "ناجح" End Select وضعت الكود كاملا في حدث عند الخروج لحقل التولد ويمكنك وضعه بما يناسب برنامجك Me.العمر = CalcAgeY(Me.التولد, Date) Select Case Me.العمر Case 18 To 24 Me.Text31 = "الفئة الاولى" Case 25 To 29 Me.Text31 = "الفئة الثانية" Case 30 To 34 Me.Text31 = "الفئة الثالثة" Case 35 To 39 Me.Text31 = "الفئة الرابعة" Case 40 To 44 Me.Text31 = "الفئة الخامسة" Case Else Me.Text31 = "الفئة السادسة" End Select Me.المجموع = Val(Nz(الدرجة1)) + Val(Nz(الدرجة2)) + Val(Nz(الدرجة3)) + Val(Nz(الدرجة4)) Me.المعدل = Nz(Me.المجموع) / 4 Select Case Me.المعدل Case 0 To 49 Me.النتيجة = "فاشل" Case Else Me.النتيجة = "ناجح" End Select الرياضة.rar وبرجاء زيارة الموضوع التالي لما فيه من الاهمية تحياتي

تم اضافة حقل chk في tbl_User ثم في نموذج تسجيل الدخول frm-UserLogon تم اضافة الكود التالي If Me.chk = False Then MsgBox "غير مسموح بالدخول" Exit Sub Else Y = DLookup("[user_pass]", "QUSERS", "[user_name]= '" & Me.user & "' and [City] ='" & Me.City & "'") If Trim(Me.pass) = Trim(Y) Then DoCmd.SetWarnings False DoCmd.OpenQuery "q_fbi", acNormal, acEdit DoCmd.SetWarnings True ' DoCmd.Close acForm, "1 frm-UserLogon" forms![1 frm-UserLogon].Visible = False 'Me.Visible = False DoCmd.OpenForm "لوحة القيادة" Else MsgBox " اسم المنطقة أو اسم المستخدم او كلمة السر غير صحيح ،،، يرجى إعادة المحاولة ", vbOKOnly + vbMsgBoxRight + vbInformation, "تحذير !" Me.trycount = Me.trycount + 1 End If End If وفي نموذج frm-Addadmin تم اضافة زر chk للالسماح او عدم السماح تحياتي

بالاضافة الى ما تفضل به استاذنا الفاضل @الفلاحجى وله الشكر تفضل اخي الكريم Private Sub Command65_Click() With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.IMG = .SelectedItems(1) End If End With End Sub FAILURE.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم الصلاحيات (2).rar تحياتي

تفضل اخي الكريم New Microsoft Access Database.rar تحياتي

وعليكم السلام ورحمة الله وبركاته العلاقات هي ربط بين الجداول مع بعضها وذلك بواسطة حقل المفتاح الاساسي Primary key فى الجدول الأول مع حقل آخر فى الجدول الثانى يسمى مفتاح أجنبي Foreign Key انواع علاقات الجداول 1- علاقة رأس بأطراف 2- علاقة أطراف بأطراف 3- علاقة رأس برأس لديك جدول ABC المفتاح الاساسي 3 حقول A,B,C لذلك فهو ليس احد انواع العلاقات الثلاث تحياتي

تفضل اخي الكريم 3مشروع الشيكات.rar تحياتي

السلام عليكم اضف للبرنامج صلاحيات للمستخدمين اذا كان المستخدم اكثر من مستخدم تحياتي

تفضل 1مشروع الشيكات.rar تحياتي

تفضل اخي الكريم 1مشروع الشيكات.rar تحياتي

تفضل اخي الكريم مشروع الشيكات.rar تحياتي

التكة الاخيرة مشروع الشيكات.rar تحياتي

جرب المرفق نموذج المستفيد سيفتح على سجل جديد وكود المستفيد سيحصل على رقم تليقائي مشروع الشيكات.rar تحياتي

لا تضع شىء الكود موجود بالمرفق تحياتي وهذه صورة للاكواد تحياتي

تفضل اخي الكريم هذا الكود يضيف الاسم مباشرة الى جدول المستفيدين Private Sub كود_المستفيد_NotInList(NewData As String, Response As Integer) If MsgBox(" الاسم غير موجود سابقاً ... هل ترغب في إضافته؟ ", vbYesNo, " تأكيد الحفظ") = vbYes Then mySQL = "Select * From المستفيد" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.AddNew rst![الكود] = Nz(DMax("[الكود]", "المستفيد"), 0) + 1 rst![اسم المستفيد] = Me.كود_المستفيد.Text rst.Update rst.Close: Set rst = Nothing Response = acDataErrAdded End If End Sub بالاضافى الى الكود الاول الذي يفتح جدول المستفيدين Private Sub كود_المستفيد_DblClick(Cancel As Integer) If IsNull([كود المستفيد]) Then DoCmd.OpenForm "المستفيد" End Sub مشروع الشيكات.rar تحياتي

يتم اضافة الكود في حدث عند النقر المزدوج لحقل كود المستفيد ليتم فتح نموذج المستفيد If IsNull([كود المستفيد]) Then DoCmd.OpenForm "المستفيد" تحياتي

السلام عليكم تفضل اخي الكريم عند الضغط المزدوج على حقل كود المستفيد Private Sub كود_المستفيد_DblClick(Cancel As Integer) If IsNull([كود المستفيد]) Then DoCmd.OpenForm "المستفيد" End Sub مشروع الشيكات.rar تحياتي

تفضل اخي الكريم تحياتي