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

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

وعليكم السلام ورحمة الله وبركاته لم افهم المشكلة بالضبط لكن دعنا نقوم بعمل كود مجمع لكل الصور اولا نضع خقل عير منضم في النموذج وليكن باسم IDPic ثم نضع الكود التالي في النموذج Public Function XPic() Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) Name fpathz As Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg" If Me.IDPic = 1 Then Me.PicPath1 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg" ElseIf Me.IDPic = 2 Then Me.PicPath2 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg" ElseIf Me.IDPic = 3 Then Me.PicPath3 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg" ElseIf Me.IDPic = 4 Then Me.PicPath4 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg" ElseIf Me.IDPic = 5 Then Me.PicPath5 = Application.CurrentProject.Path & "\Pictures\" & [Id] & Me.IDPic & ".jpg" End If End If End With End Function الكود يقوم بنسخ الصورة الى مجلد Pictures الذي به بجوار البرنامج ويقوم باعادة تسميتها الى حقل id وخقل IDPic وفي زر الامر1 نضع الكود التالي Me.IDPic = 1 Call XPic وفي زر الامر2 نضع الكود التالي Me.IDPic = 2 Call XPic وهكذار لباقي الاوامر العيادة.rar تحياتي

عدد الاعمدة 2 ولكن تبدأ من صفر تخباتب

ضع بدلا من is null علامتي تنصيص بدون مسافات "" تحياتي

لا اخي الكريم هذه الاوامر فقط لاظهار واخفاء النموذج فقط بالتحكم في حاصية Visible فقط لكن ما تقصده انت يكون بالتحكم في خاصية منبثق Me.PopUp = True Me.Modal = True Me.PopUp = False Me.Modal = False تحياتي

وعليكم السلام ورحمة الله وبركاته اترك سطر الاوامر الذي تريده وعطل او احذف الباقي If Not Me.NewRecord Then DoCmd.OpenForm "f_form", , , "[id]=" & Me![abd].Column(0) ' If Not Me.NewRecord Then DoCmd.OpenForm "f_form_1", , , "[id_1]=" & Me![abd].Column(0) ' If Not Me.NewRecord Then DoCmd.OpenForm "f_form_2", , , "[id_2]=" & Me![abd].Column(0) تحياتي

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

اظهار الطلاب الذين لديهم حقول فارغة فقط في استعلام واحد غير ممكن لكن يمكنك تحديد كل مادة فقط بوضع المعيار التالي is null او "" تحياتي

تفضل اخي الكريم 3مثال.rar تحياتي

هل جربت قاعدو البيانات مثال3

السلام عليكم لاخفاء واظهار النموذج الحال نستحدم ' اخفاء Me.Visible = False ' اظهار Me.Visible = True ولاخفاء واظهار نموذج اخر نستخدم ' اخفاء Forms!frm1.Visible = False ' اظهار Forms!frm1.Visible = True تحياتي

السلام عليكم تفضل اخي الكريم 3مثال.rar تحياتي

تفضل اخي الكريم حصر الاجهزة (2).rar تحياتي

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

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

تفضل اخي الكريم تقدير.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تأكد من ابعاد الشاشة ( الرزليوشن - Resolution ) ان تكون نفسها في الجهازين تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Select Case Me.المعدل Case 1 To 49 Me.التقدير = "راسب" Case 50 To 59 Me.التقدير = "مقبول" Case 60 To 69 Me.التقدير = "متوسط" Case 70 To 79 Me.التقدير = "جيد" Case 80 To 89 Me.التقدير = "جيد جداً" Case 90 To 100 Me.التقدير = "ممتاز" End Select تقدير.rar تحياتي

لا يظهر معي هذا الخطأ عموما لتجاوز اي رسائل خطأ قد تظهر لك ضع الكود التالي اعلى الكود الخاص بكل حقل on error resume next تحياتي

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

وجزاكم الله خيرا اخي الكريم تحياتي

تفضل اخي الكريم وتم ايضا اضافة اسم المشروع واسم المستفيد شركة ال حماد اوراق دفع.rar تجياتي

تفضل اخي الكريم Mid([XNo]; 1; 2) & " " & Mid([XNo]; 3; 2) & " " & Mid([XNo]; 5; 2) & " " & Mid([XNo]; 7; 2) & " " & Mid([XNo]; 9; 2) & " " & Mid([XNo]; 11; 2) & " " & Mid([XNo]; 13; 2) & " " & Mid([XNo]; 15; 2) تحياتي

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

الان يقبل الكسور ان شاء الله 1waterbill.rar تحياتي