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

اختار ما تشاء من مجموعة الايقون بما يتناسب مع احتياجاتك https://www.google.com/search?q=employee+icon+png

مبروك الأستاذ Mohamed Hicham إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك ..عن حق وجدارة بارك الله فيك وزادك الله من فضله

السلام عليكم اخواني الكرام لدي قاعده بيانات واريد عمل فلتر لاكثر من قيمه في النموذج برقم الموديل او رقم PO او مقاس واريد ان اربطهم ببعض لان كل موديل لديه رقم PO ومقاس اريد ان تكون الثلاث حقول كومبو بوكس ان امكن لديكم مرفق لقاعده البيانات برجاء ربط الجداول في النماذج https://www.mediafire.com/file/378mhndqy937d5p/m.khaled.rar/file

السلام عليكم .. اين اجد مثل هذه الايقونات؟ ايقونات.rar

مبروك الأستاذ حسونة إنضمامك لأسرة فريق الموقع ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك .. وأهلاً ومرحباً بك بين أخوتك من أسرة فريق المنتدى الكريم ..ويسعدنا انضمامك لفريق العمل

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

Declare PtrSafe Function قبل الفنكشن وليس بعده

شكرا الاستاذ محمد حسن المحمد والاستاذ ابو ايسل على تفاعلكم عندي شيت به ورقتين ورقة صرف من المخازن اسم المنتج (صنف1 به 25 عبوة ) العبوة الواحدة سعتها متغيرة يتم تفصيلها في شيت البيان مرة 40 او 36.5 او 50 " كمثال اوضح تم صرف صنف1 في شهر1 كمية 2.4 يعني 60 عبوة تم استهلاكها في شيت البيان والنتيجة مظبوطة وكذلك شهر2 ولكن شهر3 تم صرف كمية واحدة المطلوب تعديل معادلة في عمود( J ) كمثل النتيجة الموجودة في عمود ( L ) مصنف.xlsx

وعليكم السلام ورحمة الله وبركاته جزاكم الله خيراً

نعم ممكن .. 🙂 افتح الملف عن طريق الـ WinRaR

المعادله في الاساس غلط لانك كاتب لو c4 اكبر من او تساوي c4 يكتب الناتج الموجود في f4 وكده كده c4 هتساوي نفسها فاكل مره هيكون الناتج هو اللي موجود في f4 لو ممكن توضح اكتر بمثال تاني علشان نقدر نساعدك

السلام عليكم أخي الكريم لقد وضعت شرطاً لا أهمية لوضعه لأن الخلية C2 هي C2 فكيف وضعت شرطاً مثل هذا =IF(C2>=C2;F2;E2) أما ما أسميتها شروطاً هي نتائج متوقعة في حال تحقق الشرط كانت النتيجة الأولى وإلا فالثانية. ولذلك عليك وضع شرطاً غير هذا ، أو وضع شرطين. وإلا فلن تتحقق النتائج كما تريد ...والله أعلم

هذا الحل لو كانت قاعده البيانات على الجهاز فقط وليست الشبكه

عند تغير اسماء المواد فى شيت التفاصيل لايتم تغير المواد فى شيت القائمة والمسودة

السلام عليكم اخي Moosak والله انت من الرائعين.. اعجبتني الطريقة الاولى رغم انها مطولة لكنها احترافية وسأجربها واما الطريقة الثانية مافهمت اين يوضع الكود محتاج شرحها بارك الله فيك

جزاكم الله كل خير

من اكتر المشاكل اختلاف الخطوط عند نقل الملف الي العميل ف لقيت عندي ملف من زمان لتغيير نوع الخط تقريبا كنت نزلته من هنا والله اعلم المهم عدلت عليه بحيث نقدر نختار نوع الخط بدون ما مندخل لوضع التصميم او نتقيد بخط واحد تغيير نوع الخط.rar

جزاك الله خيرا استاذ AbuuAhmed وزادك علما لا نعرف كيف نشكرك ربي يحفظك

كود لإنشاء إختصار للبرنامج أو أي مجلد على سطح المكتب مع تعيين أيقونة له Public Function CreateShortCut(strTargetFileFullPath As String, strShortCutName As String, strIconPath As String) 'strTargetFileFullPath : Sorce File Like : "D:\DomnFunBuldr.accdb" 'strShortCutName : Wanted Name for the ShortCut Like : "Moosak" 'strIconPath : Icon Full Path Like : "D:\MyIcon.ico" Dim oWSH As Object Dim oShortcut As Object Dim sPathDeskTop As String Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") strShortCutName = strShortCutName & ".lnk" Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & strShortCutName) With oShortcut .IconLocation = strIconPath .TargetPath = strTargetFileFullPath .Save End With Set oWSH = Nothing End Function '===================================(Testing) Sub TestCreateShortCut() Call CreateShortCut("D:\DomnFunBuldr.accdb", "MoosakAp", "D:\MyIcon.ico") End Sub

نفسي اساعدك لكن ماعندي جهاز قاريء اكواد اجرب عليه واشوف الية العمل تبعه اكتبلي موديل الجهاز يلي عندك واشوف علي النت برمجته وان شاء الله خير

وعليكم السلام أخي أحمد 🙂 شاهد طريقتي في عمل أيقونة سطح المكتب هنا : ويوجد كذلك لدي كود VBA لعمل اختصار للبرنامج في سطح المكتب .. إن شئت أرسلته لك 🙂

ممتاز طبعاً الى الأمام دائماً أستاذ ضاحى وفقكم الله .مجهود ممتاز

جهد رائع جزاك الله خير الجزاء

الطريقة الاخرى بدون استخدام دالة dsum وبدلا منها نستخدم استعلام فرعي Expr1: (select(sum([inputN])-sum([outputN])) from [Q_Rsidreport] where [date]<=kh.[date] ;) هنا استخدمنا اسم مستعار لمصدر الاستعلام النتيجة في استعلام q_3 Prog2000.mdb

النسخة الثانية تم تبديل الكود الأساس بالكامل وتم بناءه من جديد. النتائج الآن أفضل والخيارات أوسع. وشكر خاص للاستاذ سعد @saad 77 لتقديمه المعلومات المطلوبة لانهاء المشروع. توزيع القرار لمدارس العراق_02.xlsm

نعم أستاذى الكريم ولكن ان لابد ان تسبقها علامة لا تساوى داخل علامة التنصيص "<>"

وعليكم السلام -تفضل لأن ذلك بسبب انك بالنسبة لشهور السنة الموجودة بالقائمة المنسدلة انت عاملها عام 2021 ..فقد تم تغييرها الى 2022 ..وأما بالنسبة لما لا يظهر معك من عقوبة ومهمة وذلك لأنك عامل نطاق القائمة المنسدلة حتى الصف الخامس فقط أما هذان الإختياران فموجودان حتى الصف السابع فقد تم التعديل وشكراً .. والشرح كما بالصور , حتى يتم غلق المشاركة .. أما بالنسبة لموضوع الترحيل فلابد من فتح مشاركة وموضوع جديد فهذا لا يتم الا بكود ولابد من رفع الملف بإمتداد يقبل إضافة الأكواد وهو Xlsm كشف حضور 1مميز.xlsx

وعليكم السلام ..رجاءاً قبل طرح أى مشاركة جديدة عليك بإستخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً .فيمكنك استخدام هذه المعادلة =VLOOKUP($A2,$G$2:$H$50,2,0)*$B2 معادلة if الشرطية 1.xlsx

على بركة الله بارك الله فيك استاذ هشام والى الأمام دائماً ونتمنى لكم المزيد من النجاح والتفوق

بارك الله فيك استاذ AbuuAhmed وجعلك الله دائماً وأبداً زخراً لكل المحتاجين وجعل الله هذا العمل الممتاز فى ميزان حسناتكم وزادك الله من فضله

وعليكم السلام-تفضل =IFERROR(INDEX($G:$G,MATCH($C3,$H:$H,0)),"لا يوجد") Book3.xlsx

يمكنك استخدام هذه المعادلة على الرغم انك لم توضح أين يتم وضع معادلة البحث ,, فقد تـــم عمل وتنظيم كل شيء ..فقد تم عمل قائمة منسدلة بكل أرقام السيارات ما عليك سوى إختيار السيارة المراد البحث عنها واترك الباقى على الإكسيل =LOOKUP(2,1/($B$2:$B$500=$N2),$G$2:$G$500) 1تموين سولار.xlsb

أحسنت أستاذ ماجد بارك الله فيك

وعليكم السلام لا يمكن استخدام معادلة VLOOKUP لطلبك, وذلك لعدم تنظيمك لجدول البيانات وعدم جعلك لإسم الشركة بعمود يسبق رقم الفاتورة وليس العكس ..ملحوظة :لابد من تطابق اسم الصفحة للإسم الموجود بالصفحة التى سيتم البحث بها ولكن يمكنك استخدام المعادلة التالية : =IFERROR(LOOKUP($C3,INDIRECT("'"&H$1&"'!$I$6:$I$61"),INDIRECT("'"&H$1&"'!$b$6:$B$61")),"") INVOICE COLLECT. TEST1.xlsx

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

حل الأستاذ @husamwahab صحيح >=Year(Now()) ويمكن أن تكون بهذا الشكل أيضا: >=Year(Date())

تفضل 1542070317_-1.xlsx

يالضبط دكتور محمد طاهر وهذا بالفعل الذى يتم

لا يمكن ذلك لأن ذلك سيتم بأكواد vba وهى بدورها لا تعمل على التليفون وشكراً

تفضل كان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك , فطلبك تكرر كثيراً ..واليك الحل مشكلة في اللغة العربية

وعليكم السلام-تفضل لا يمكن ذلك الى بكود بوضعه فى حدث ThisWorkBook Private Sub Workbook_Open() Sheet2.Select End Sub الشهادات المدرسية للقدامى للسنوات السابقة.xlsm

وعليكم السلام-وده من خلال Data Validation بإستخدام هذه المعادلة =AND($E2="",$F2="",$G2="") حجب 1الخلايا.xlsx

أستاذى الكريم AbuuAhmed لما كل هذا القلق والغضب ؟!! طالما ان الغرض الأساسى هو افادة الأعضاء حتى اثناء غلق الموضوعات والمشاركات تظل الإستفادة قائمة وكما أوضح لك أستاذنا الكريم محمد طاهر اننا قد اتفقنا سلفاً على غلق الموضوعات والمشاركات حتى لا تكثر الحوارات والمشاركات الجانبية بها .. طالما بالفعل تم الإستفادة والرد الكافى بالموضوع وشكراً .. وكما تعلم يقيناً استاذنا الكريم ويعلم الله أنا دائماً وأبداً أكون من أكثر الناس تشجعياً ووقوفاً أمام وخلف جميع الأعضاء فى أى شيء ..وشكراً

وعليكم السلام أحسنت استاذنا الكريم عمل ممتاز بارك الله فيك والى الأمام دائماً وبالتوفيق والنجاح دوماً

بسيطة بعد اذن طبعاً الأستاذ ابراهيم ..عليك بإضافة هذا السطر بالكود قبل نهايته TextBox2.Text = Format(Val(TextBox2.Text), "0.0") تجريبى1.xlsm

بارك الله فيك استاذنا الكريم وزادك الله من فضله

وعليكم السلام-استخدم هذه المعادلة =IF($B7="مصطفي","لا يوجد","")

تفضل بسيطة يمكنك التواصل مع الأستاذ خالد صابر .مصمم البرنامج المشروح بالفيديو وسينفذ لك طلبك ان شاء الله بمقابل مادى وللتواصل معه عبر الإميل :khaledsaber2030@gmail.com واتس : 00201007630611

تفضل بسيطة يمكنك التواصل مع الأستاذ خالد صابر .مصمم البرنامج المشروح بالفيديو وسينفذ لك طلبك ان شاء الله وللتواصل معه عبر الإميل :khaledsaber2030@gmail.com واتس : 00201007630611

السلام عليكم ورحمة الله الاخ الكريم يمكنك التخلص من الجزء العشرى فى الرقم بدون عمل تقريب للكسور وذلك باستخدام الدالة Int وهى الدالة الخاصة بالعودة بالجزء الصحيح للعد بدون جبر الكسور. فعلى سبيل المثال لو كان حقل السعر هو Price فان العمود الثانى الذى تحسب فيه الخصم سيكون بالشكل التالى discount: Int(Price*30/100) على اساس ان discount هو مقدار الخصم. وطبعا لك ان تغير المعادلة الرياضية حسب ما تريد حسابه فعليا, المهم ان تضع المعادلة داخل الدالة Int للعودة بالرقم الصحيح بدون جبر الكسور. وبالتوفيق بعون الله,,, اخوك عماد حمدى احمد