jjafferr

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

انت عملت استعلام الحاق 🙂 واذا كانت عندك سجلات في الجدول 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 جعفر

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

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

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

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

عيدكم مبارك وايامكم سعيدة ان شاء الله 🙂

الظاهر انكم موديل قديم وما ادري اما انا فمن جماعة Amiga 1000 ، يعني ايام 286 🙂 جعفر

بالعكس ، فمثل هذه المعلومات غير متداولة في المنتدى هنا ، ومن المهم ان يعرفها الاعضاء 🙂 نعم للشركات اللي تصنع الكمبيوترات ، ولكن نسخة 32 بث بتكون لاتزال موجودة للأفراد 🙂 وعلى العموم ، الوندوز نواة 64 بت لا يغير من موضوعنا شيء ، ولكنه مفيد بأننا نقدر ان نثبت الاوفيس نواة 32 بت او 64 بت عليه 🙂 ومتابع 🙂 جعفر

خلينا نتابع موضوع تنصيب النواتين على الرابط اعلاه 🙂 جعفر

وهذا بالضبط اللي عملته انا في البداية ، حيث من المعروف ان الوندوز يسمح بتنصيب اكثر من وندوز على الجهاز الواحد ، ولكن من تجربتي لما نصبت الوندوز 10 نواة 64 بت ثم نصبت الوندوز 32 بت ، صار لي مجموعة من المشاكل لاحقا ، فكان الكمبيوتر يشتغل تمام معظم الاحيان ، ولكن بعض الاوقات ما يشتغل ، وبالتالي اضطررت ان انصب نواة واحدة فقط !! ما ادري ، يمكن الوندوز 10 في اول ايامه كان فيه مشاكل !! جعفر

هذه هي الطريقة الصحيحة لتنصيب اصدار واحد فقط من اوفيس ، وجهاز آخر لإصدار آخر ، وجهاز آخر لإصدار آخر ، وجهاز آخر لإصدار آخر ، وجهاز آخر لإصدار آخر .... ولكن كأنك تلمح لشيء ولكن ما تريد تقوله قصدك تعمل كمبيوتر افتراضي ، في كمبيوترك بإستعمال برامج مثل VMware وبدائله 🙂 بهذه الطريقة يكون عندك كل هذه الاجهزة في جهاز واحد ، وكل جهاز يكون فيه الوندوز والافيس الخاص به ، دون تداخل/تضارب المكتبات لإصدارات الاوفيس المختلفة في الجهاز الواحد🙂 واللي عنده جربة في هذا المجال ، ياريت يشاركنا تجربته ، لوسمحتم 🙂 جعفر

السلام عليكم 🙂 عند تنصيب الاوفيس 2019 و 365 ، فإن التنصيب الافتراضي هو نواة 64 بت ، بينما سابقا كانت مايكروسوفت توصي بتنصيب الاوفيس نواة 32 بت (بغض النظر عن نظام الوندوز) : لذا فقد آن الأوان ان تكون برامجنا تعمل على النواتين 32/64 بت 🙂 اسهل طريقة لتنصيب اكثر من نسخة من البرامج ، هو استخدام الكمبيوتر الافتراضي 🙂 رجاء مشاركتنا تجربتك في هذا المجال 🙂 جعفر

شكرا اخوي امير 🙂 نعم هذا كان قصدي 🙂 جعفر

انتبه ولا تورط نفسك 🙂 اذا قصدك ان تنصب الاكسس نواة 64 بت على كمبيوتر آخر ، بحيث ان كمبيوترك الاصل عليه الاكسس نواة 32 بت ، فنعم الرأي 🙂 اما انك تلغي نواة 32 بت ، فقد لا تستطيع تشغيل برامجك اصلا وتتورط بنواة 64 بت !! وانا اقترح ان تبدأ بعمل برنامج فيه جميع المكتبات التي تحتاج لها ، والتي تعمل على النواتين 32/64 بت ، بحيث تصل للمكتبة بسرعة وتعرف طريقة عملها 🙂 جعفر