نجوم المشاركات

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

احسنت القول اخي جعفر رب دعوة من احد الاخوة بظهر غيب تكون سبباً في نجاتنا ونعم الاخوة :: تحياتي لكم جميعا

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

اسمحولي اشارك معكم اخفاء القيمه السالبه (1).accdb

للعلم الاستعلام هو العمود الفقري لقواعد البيانات قواعد البيانات عبارة عن: ادخال بيانات ، فرز وتصفية ، واخراج بيانات ، والاستعلام هو القوة والسرعة في الفرز والتصفية ثم ان التعامل مع الاستعلام هو عيناً نفس الطريقة في التعامل مع الجدول جعفر

يعني تريد رصيد كل سنه بحالها ، ولا علاقة لها بالسنة اللي قبلها؟

وعليكم السلام هناك طريقتين لعمل اللي تريده: اولا (لاحظ الصورة) : 1. كائنات النموذج لها ترقيم تسلسلي يبدأ بالرقم صفر ، فتستطيع تعيد ترتيب اين يبدأ واين ينتقل مؤشر الكتابة (سواء بالضغط على TAB او Enter على الكيبورد) ، 2. واذا لم تشاء ان يتوقف المؤشر على كائن في النموذج ، فاختار لا . . ثانيا: في حدث تحميل النموذج ، تستطيع ان تتحكم كائن تركيز المؤشر ، هكذا: me.ProdNoAccTab.setfocus جعفر

اتفضل اخي عدلت لك ظهور الاسم 958.سند قبض.accdb

انا اعتذر كان قصدي الرد بهذا الموضع ولا اعرف كيف تلخبطت

يمكن استعمال هذا الملف (بدون عامود مساعد) Special_Series.xlsx

الف شكر استاذي الغالي شيفاني للتوضيح فقط : تختلف الفاصلة حسب اعدادات اللغة في جهاز الكمبيوتر لديك هذا والله اعلى واعلم تفضل عزيزي ملفك معدل بنفس المعادلة السابقة Attendance&Payroll pro.rar

تفضل لك ما طلبت بعد الغاء القائمة المنسدلة استدعاء بيانات2.xlsx

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته طلبي هو : عندما اختار الشهر مثلا الشهر الثاني لسنة 2018 للموظف خالد يعطيني ساعات الشهر صحيح لانه في 20/2/2018 الخروج في الساعة 9 صباحا والعودة في الساعة 10 صباحا اذن التاخير ساعة واحدة فقط لكن الرصيد السابق يعطيني 5 ساعة وهذا خطا لان الشهر الي قبله وهو شهر الواحد لسنة 2018 1/1/2018 الخروج في الساعة 8 صباحا والعودة في الساعة 9 صباحا اذن التاخير ساعة واحدة وفي تاريخ 5/1/2018 الخروج في الساعة 11 صباحا والعودة في الساعة 1 مساءا اذن التاخير ساعتان فقط اذن المجموع ثلاثة ساعات للشهر الواحد اذن الرصيد السابق يجب ان يكون ثلاثة ساعات وهذا هو الصح ......... بينما الذي يحدث يحسب الرصيد السابق للسنتين 2017 و 2018 وهذا خطا ........ شاكرا تعاونكم معي ProgTime20.rar اساتذتي الافاضل هذا البرنامج قام بوضع الاكواد والمساعدة الكاملة والفعلية الاستاذ الفاضل ابو خليل الله لايحرمنا من شخصه الكريم والطيب يارب

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

في حدث عند الفتح عدل المقاس اللي يناسبك DoCmd.MoveSize 5000, 2700, 8600, 6800

تفضل واذا ماهو الطلب ، فلازم عليك توضح الطلب بالصور والشرح بالتفصيل الممل 959.1.stu.mdb.zip

برنامج مميز ... بارك الله بك و بالأخ @ابوخليل

شكرا علي المشاركه استاذ ابو ياسين

في اسفل/نهاية كود الحدث مال زر السجل الجديد. المفروض في حدث زر السجل الجديد يكون عندك شيء من هذا القبيل: private sub ..... DoCmd.GoToRecord , ,acNewRec هنا اكتب السطر end sub جعفر

أستاذي @AlwaZeeR بارك الله بك أنت صاحب لمسة سحرية .... لقد حاولت عمل ذات المعادلة و كانت تعطيني خطأ و لم أعرف ما السبب ، حتى أنه أخذ يعطيني الخطأ دون استخدام الحقل الفارغ بالمعيار و أعدت كتابة الاستعلام كله حتى عمل الاستعلام كما ينبغي . شكراً لك مرة أخرى .. منذ سنوات خمس و من منتدى مملكة أكسس و ورد مع عضويتي القديمة أذكر حضورك المميز و أرجو ألا تكون الذاكرة قد خانتني و لكن لصورتك الشخصية انطباع خاص !!

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

اي حقل فيهم؟ عفوا المعيار يجب ان يكون : اكبر من صفر

وعليكم السلام اجعل مصدر النموذج الفرعي استعلام ، واجعل معيار الحقل المطلوب 1-<> جعفر

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

شكرا اخوي ابو ياسين

شكرا أخي @ابو ياسين المشولي على ردك وجهدك الرائع فعلاً هذا هو المطلوب .. بارك الله فيك

أخ @ابو ياسين المشولي مهما كان شيء رائع ان يساعد كل واحد منا الاخر

الاستاذ سليم كم انت رائع وفقكم الله معادلة روعة من ملك المعادلات تحياتي لكم

هذه المعادلة في الخلية R16 =IF(ROWS($R$16:R16)>MAX($A$16:$A$39),"",INDEX($D$16:$D$39,MATCH(ROWS($R$16:R16),$A$16:$A$39,0)))

المعادلة التي كنبتها لك تعتمد على العامود والخلية مكان ادراجها(العامود C الخلية 16) انت كتبتها في العامود U لذلك يجب تعديلها الى هذه مكان ادراجها(العامود U الخلية 16) =IF(Q16="","",MAX($U$15:U15)+1)

هل ينفع اشغل برنامج اوفيس اكسس على الموبايل ولا لازم كمبيوتر

وعليكم السلام الاكسس برنامج يعمل على نظام الوندوز والماك ، فيمكنك استعماله عن طريق كمبيوتر يحتوي على احد انظمة التشغيل هذه. اما اذا الاكسس لم يكن منصب على الكمبيوتر/الهاتف/الموبايل/التابلت (iPad او Android Tablet) ، سواء لأنك لم تقم بتنصيبه (في بيئة الوندوز او الماك) ، او لأن الاكسس اصلا غير متوفر لهذا النظام (مثل الاندرويد) ، فهنا تستطيع استعمال برامج التخاطب عن بُعد (مثل TeamViewer او Remote Desktop Connection او GoToAssist) ، بحيث تخاطب/تتصل باي كمبيوتر في اي مكان في العالم عن طريق الانترنت ، وهذا الكمبيوتر يكون الاكسس منصب عليه ، فعليه واقعا ، انت تستعمل الاكسس الموجود على ذلك الكمبيوتر وجهازك هو عبارة عن اداة لمشاهدة والتحكم في ذلك الكمبيوتر وبرنامج الاكسس فيه. TeamViewer او Remote Desktop Connection والموجود على كل كمبيوتر . جعفر

وعليكم السلام انت عملت علاقة بين الجداول ، مما يعني ان السجل في الجدول Sand_T يجب ان يحتوي على قيم جميع الحقول المرتبطة في الجداول الاخرى. 1. انت عملت علاقة بين جدولي Sand_T و ExpenseName ، 2. مما يعني ان قيمة الحقل ExpeneseID يجب ان تُدخلها في النموذج "سند صرف" ، بغض النظر عن نوع السند ، 3. وهذه الرسالة تُخبرنا عن سبب عدم الحفظ ، بسبب 1 و 2 اعلاه . جعفر

أهلا بك أخت كريمة فى المنتدى من الأفضل القيام بعمل ملف ورفعه وشرح ما تريدنه عليه بالتفصيل جزاك الله خيرا

استاذنا الوزير قام بالعمل المطلوب لكن لكي تعرف استخدام دالة If قمت بتعديل كودك السابق If Me.Option1.OptionValue = 1 Then DoCmd.OpenReport "Print Form buy", acViewPreview ElseIf Me.Option2.OptionValue = 2 then DoCmd.OpenReport "Print Form RF", acViewPreview ElseIf Me.Option3.OptionValue = 3 then DoCmd.OpenReport "Print Form PRO", acViewPreview End If

جرب هذه المعادلة في الخلبة C16 و اسحب نزولاُ =IF(Q16="","",MAX($C$15:C15)+1)

تفضل عزيزي Test.rar

جرب هذا الملف Sader_Wared.xlsm

تفضل سجل صادر ووارد.xlsm

ومشاركة معي اخي الوزير يمكنك استعمال الكود التالي في التقرير ، في حدث تنسيق جزء التفصيل Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.Alkmiah_mtob = 0 Then Me.Section(acDetail).Visible = False Else Me.Section(acDetail).Visible = True End If End Sub . ولكي ترى النتائج الصحيحة ، يجب ان يكون التقرير في وضع معاينة الطباعة Print Preview جعفر 955.اخفاء القيمه بالتقرير بشرط.accdb.zip

نعم هو المطلوب الله يجزيك خير استاذنا الوزير ضع:<>0 شكر كثير اليك يالغالي

تفضل . جعفر 950.1.الجمعية_.accdb.zip

عملتها لك بطريقة اخرى اتمنى انها تنال اعجابك خدمات5.accdb

على قدر علمى فى حقل الكمية المباعة اجعل القيمة الافتراضية = 1 هذا على حد علمى

ربما كان المطلوب في هذا الملف salim tajribat.xlsx

فقط تقوم بتكرار الكود حسب رغبتك Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "Image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "'" & strFolder & "'لم يتم انشاء المجلد" End If End If strFolder = CurrentProject.Path & "\Image" & "\" & "test" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "'" & strFolder & "'لم يتم انشاء الملجد" End If End If

عموما شكرا لك اخي @kaser906 تم حل المشكلة بواسطة صديقي Ken Sheridan الحل لمن يريده SELECT * FROM Customers WHERE NOT EXISTS (SELECT * FROM Helps WHERE Helps.CID = Customers.ID AND HName = [Put Name Material]);

اخي الكريم انه لخبطك شي وانه غير المطلوب شي ثاني انظر الصور معي أتمنى تجد طريقة اسهل للحصول على طلبك ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

نعم يمكن بواسطة استخدام الاستعلام الجدولي وهذا يتم عمله بمعالج استعلامات اكسس من تبويب الاستعلامات اختر جديد ثم اختر استعلامات جدولية وسيكون مصدر هذا الاستعلام هو استعلامنا السابق تفضل : db.mdb

بالتوفيق اخي ابو زاهر