jjafferr

العفو، تم تحديث المرفق ، وشكرا على التنبيه 🙂

اما انا ، وفي الدورات التي اعطيها ، فأنصح المشاركين بعدم الرجوع الى اليوتيوب ، لأن فيه وللأسف الشديد ، الكثير والكثير من المعلومات الغلط ، والمعلومات الغير كامله ووو ، ويكون من الصعب على المبتدئين التمييز بين هذه المعلومات ، فيقعون في المحظور !! وهذه المعلومة مثلها مثل اي معلومة اخرى ، يجب التحقق منها !! ولكن ، اي عمل/كود خطأ (وقد لا يكون خطأ ، وانما ليس الافضل) ، سواء في الكود او الماكرو او الاستعلام او النموذج او التقرير ، قد يعمل مشاكل في البرنامج مثل بطئ في العمل او عدم قيام الكود بعمله اصلا ، وهذا يصير حتى مع المحترفين 🙂 جعفر

وعليكم السلام 🙂 العفو اخي محمد ، ولكن قوانين المنتدى تسمح لك بسؤال في كل موضوع (مو مشروع في كل موضوع 🙂 ) 1. هذه ازرار السابق/اللاحق/السجل الجديد ، والاكسس يعملهم تلقائيا لك ، والمنتدى مليئ بأمثله له ، 2. ممكن ان تختار هذا السؤال حتى يساعدك الاعضاء ، 3. هذا زر والاكسس يعملهم تلقائيا لك ، 4. بالتعديل قصدك التعديل على الكميات ، وهذا له دخل في ادخال الكميات واخراجها في النموذج ، فلا علاقة له بتصميم التقرير . اذن ، السؤال الاصعب هو رقم 2 ، والامر راجع لك 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 رجاء مراجعة قوانين المنتدى ، حتى لا تتعرض مشاركتك للحذف : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا السؤال تكرر اكثر من مرة ، ومع انه نستخدم هذا الكود عادة في برامجنا ، إلا انه قليلا جدا !! فهل هذا واجب منزلي او مساق في الكلية/الجامعة ؟ ابحث في المنتدى وستجد المواضيع ان شاء الله 🙂 جعفر

للاسف ما اقدر اشوف الصورة ، ولكن جرب هاي مع مرفقك الاصل : . . جعفر Database.zip

وعليكم السلام 🙂 حيا الله اخوي محمد ، صار لنا زمن ما شفناك 🙂 نعمل الترقيم في النموذج : يمكن ترك الكائنات في مكانها في تصميم التقرير ، ولكن: نغير اسماء الحقول ، حتى يسهل علينا ، مثل lbl_11 و lbl_12 و lbl_13 للسطر الاول ، وطبعا نفس الترتيب للأسطر الاخرى ، نخفي الحقول الغير مطلوبة (في الكود) ، والحقول المطلوبة ، نعطيها موقع (ابعاد) حقول السطر الاول ، Top و Left (في الكود) ، ونعمل الكود في حدث "عند تنسيق" القسم Report Header : . Option Compare Database Option Explicit Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) 'خطوة مؤقته لإخفاء جميع الكائنات ، وتحريكهم الى السطر العلوي 'Line 1 Me.lbl_11.Visible = False Me.lbl_12.Visible = False Me.lbl_13.Visible = False 'Line 2 Me.lbl_21.Visible = False 'اخفاء Me.lbl_21.Left = Me.lbl_11.Left 'مكانه من يسار التقرير Me.lbl_21.Top = Me.lbl_11.Top 'مكانه من علو التقرير Me.lbl_22.Visible = False Me.lbl_22.Left = Me.lbl_11.Left Me.lbl_22.Top = Me.lbl_11.Top Me.lbl_23.Visible = False Me.lbl_23.Left = Me.lbl_11.Left Me.lbl_23.Top = Me.lbl_11.Top 'Line 3 Me.lbl_31.Visible = False Me.lbl_31.Left = Me.lbl_11.Left Me.lbl_31.Top = Me.lbl_11.Top Me.lbl_32.Visible = False Me.lbl_32.Left = Me.lbl_11.Left Me.lbl_32.Top = Me.lbl_11.Top Me.lbl_33.Visible = False Me.lbl_33.Left = Me.lbl_11.Left Me.lbl_33.Top = Me.lbl_11.Top '----------------------------- Dim L L = Forms!Form1!lst_Line 'نأخذ رقم السطر من النموذج ونختصره في المتغير L '----------------------------- 'اظهار السطر الصحيح ، وتحريكه الى مربعات السطر الاول Me("lbl_" & L & "1").Visible = True Me("lbl_" & L & "2").Visible = True Me("lbl_" & L & "3").Visible = True Me("lbl_" & L & "1").Left = Me.lbl_11.Left Me("lbl_" & L & "1").Top = Me.lbl_11.Top Me("lbl_" & L & "2").Left = Me.lbl_12.Left Me("lbl_" & L & "2").Top = Me.lbl_12.Top Me("lbl_" & L & "3").Left = Me.lbl_13.Left Me("lbl_" & L & "3").Top = Me.lbl_13.Top 'تغيير ارتفاع القسم في التقرير Me.ReportHeader.Height = Me.Label11.Height * 2 End Sub . والنتيجة : . جعفر 1228.R_MultiHead.accdb.zip

وعليكم السلام 🙂 انت ربطت استعلام اسم العميل بإسم الشركة : . . اذا حذفت الاسم في المربع الاحمر ، ستحصل على جميع الاسماء 🙂 جعفر

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

وعليكم السلام 🙂 اخي الفاضل ابو ماجد 🙂 قسم الاكسس هو لمساعدة المبرمجين ، وتبادل الخبرات ، اما اذا اردت برنامج جاهزة ، فرجاء وضع طلبك في هذا الرابط : إعلانات شخصية بأجر للاعضاء ولكن لو بحث في المنتدى ، لوجدت الكثير من هذه المواضيع وبعض البرامج الجاهزة ، وبما ان المنتدى للفائدة العامة ، فالحل بالمراسلات الخاصة كذلك ممنوع 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

لا يمكن عمل هذا في النموذج المستمر ، اما اذا كان النموذج فردي ، فتستطيع ان تعمل نموذج فرعي للحقول الباقية (نوع الاعانة ، تحديد .... ، ولكن يمكن عمل هذا في التقرير ، بحيث تعمل تجميع وفرز بالرقم ، وهذا الرابط يشرح طريقة العمل : جعفر

وعليكم السلام 🙂 اعتقد بأن الجملة اصبحت مفهومة اكثر الآن اسهل طرق عمل هذا الجدول المؤقت هناك فوائد للجدول المؤقت المُعد مسبقا ، وهذه الفائدة لا تجدها في استعلام عمل الجدول Make-Table ، فالجدول المؤقت الذي تصنعه انت ،تتحكم في عدد الحقول (فقد يكون هناك حقول تستخدم لها استعلام تحديث آخر لتحديث هذه البيانات) ، بينما استعلام عمل الجدول Make-Table يأخذ نفس عدد الحقول (طبعا يدويا تستطيع تغييرها) التي تستعملها من الاستعلام/الجدول الذي به النتائج ، ونوع كل حقل (هذا مهم ، لأنه قد يكون عندك حقل به ارقام ، ولكنك عمله حقل نص لأسبابك او لأنه يرتبط بحقل من جدول آخر من نوع نص ايضا) ، بينما استعلام عمل الجدول Make-Table اذا راى حقل رقم في الاستعلام ، فإنه يعمل حقل من نوع رقم في الجدول المؤقت ، والآن وبعد الحاق البيانات بهذا الجدول (سواء الجدول المؤقت المُعد مسبقا ، او الجدول المؤقت الذي يعمله استعلام عمل الجدول Make-Table ، يجب عمل استعلام تحديث بيانات من هذا الجدول ، الى الجدول المُراد تحديث بياناته 🙂 جعفر

السلام عليكم 🙂 تم مراجعة قوانين المنتدى الى هذه : جعفر

انت عملت استعلام الحاق 🙂 واذا كانت عندك سجلات في الجدول store ، فلن يلحق الاستعلام اي سجلات !! ولكن لعمل استعلام تحديث (وهذا هو طلب السائل) ، وحسب الرابط الذي ذكرته ، فيقول انك تحتاج الى جدول مؤقت (اذا اتتك رسالة ان الاستعلام لا يمكن تحديثه !! ) 🙂 جعفر

حتى اذا تصدر الى اكسل ، فالتنسيق يكون في الاكسل 🙂 جعفر

الاستعلام هو وسيط بيانات بين الجدول و النموذج/التقرير (حيث تعمل التنسيق اللي تحب 🙂 ) جعفر

حياك الله اخوي ابو عمار 🙂 ممتاز ، ولكنه كذلك يستعمل جدول مؤقت 🙂 جعفر

وعليكم السلام 🙂 . 1. نعم مثل ما كتب اخوي احمد ، 2. نعم تستطيع عمل هذا: اكتب هذا الكود في "عند تنسيق" "قسم التفصيل" Detail : if me.pages > 1 then msgbox "توجد اكثر من صفحة في التقرير" end if جعفر

السلام عليكم 🙂 اسمحوا لي ان اقوم بتغيير افضل اجابة الى اجابة اخونا "أبو عبدالله الحلواني" ، لأنه اجاب على السؤال ، بينما اخونا "احمد الفلاحجي" قام بإعطاء جواب بديل جميل ،ولكنه لا علاقة له بإستعلام التجميع 🙂 والحل في هذه الحالة هو الجدول المؤقت ، مثل ما عمل اخونا أبو عبدااله 🙂 جعفر

وعليكم السلام 🙂 يجب ان تعطي الامر بالكامل علشان تحصل على النتيجة المطلوبة ، وعلشان الكود ينكتب بالطريقة الصحيحة ، خلينا نستخدم هذه الاسماء بالانجليزي كمثال: حالة الخدمة= H_Service منقطع = Temp فيكون الكود : Sum_Filed: Sum(iif([H_Service]="Temp",1,0) يعني اذا قيمة الحقل = Temp اجمع لنا 1 (لأن العدد واحد لكل شخص) ، بالعربي المعادلة تنقلب (لهذا السبب فإنه لا يُنصح بإستخدام مسميات عربية في اي من كائنات الاكسس) : . والنتيجة بعد التعديل: . . جعفر AA1.zip

وعليكم السلام 🙂 استعلامين ، وانت اختار اللي تريده : . . جعفر 1226.dtb1.accdb.zip

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم 🙂 وهذه عيدية العيد لنا 🙂 شكرا للاخوة الاخوة @اشرف و @Gamal.Saad لكل ما تبذلوه ، مبروك لكم الترقية 🙂 جعفر

وعليكم السلام اخوي سلمان 🙂 ولو اننا نحاول نحل المشكلة ونحن مغمضين بدون الكود للتجربة عليه ، ولكن ان شاء الله انت اللي تجرب لنا 🙂 1. محتاجين معلومات اكثر بالنسبة لهذه الرسالة ، 2. استعمل هذا : #If VBA7 Then Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As LongPtr, _ ByVal hmod As LongPtr, _ ByVal dwThreadId As Long _ ) As LongPtr Declare PtrSafe Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA" (ByVal hdc As LongPtr, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As LongPtr, ByVal lParam As LongPtr) As Long Declare PtrSafe Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" (ByVal hdc As LongPtr, lpLogFont As LOGFONT, ByVal lpEnumFontProc As LongPtr, ByVal lParam As LongPtr, ByVal dw As Long) As Long Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As LongPtr) As Long #Else Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long _ ) As Long Declare PtrSafe Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA" (ByVal hdc As LongPtr, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As LongPtr, ByVal lParam As LongPtr) As Long Declare PtrSafe Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" (ByVal hdc As LongPtr, lpLogFont As LOGFONT, ByVal lpEnumFontProc As LongPtr, ByVal lParam As LongPtr, ByVal dw As Long) As Long Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As LongPtr) As Long #End If وبالنسبة للخطوط ، اذا ما نفع الكود اعلاه : في الكود ، بدل هذا السطر EnumFontFamilies hdc, vbNullStrin, AddressOf EnumFontFamilies, Combo جرب هذا السطر EnumFontFamilies hdc, vbNullStrin, AddressOf EnumFontFamilies, Combo او EnumFontFamiliesEx hdc, vbNullStrin, AddressOf EnumFontFamilies, Combo او EnumFontFamiliesEx hdc, vbNullStrin, AddressOf EnumFontFamiliesEx, Combo جعفر

وعليكم السلام 🙂 الموقع الذي ارفقت انت رابطه يقول ، بأنه يجب ان يكون عندك ادوبي اكروبات الكامل ، وليس برنامج القراءة : في الرابط التالي ستجد البرنامج المطلوب وطريقة العمل: جعفر

هذه لها حلول ، ولكن بمزاج وعلى كوب شاي 🙂 ممكن تعمل لها موضوع خاص ، وترفق لنا الرابط هنا اذا احببت 🙂 جعفر