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

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

ان شاء الله يكون طلبك Expr1: IIf([Movement]="بيع" Or [Movement]="مرتجع بيع" Or [Movement]="هدية" Or [Movement]="تالف" Or [Movement]="مفقود";DLookUp("[CustomerName]";"CustomersT";"[CustomerID]= " & DLookUp("[CustomerNum]";"InvoiceHT";"[InvoiceNum]= '" & [InvoiceNum] & "'"));IIf([Movement]="شراء";DLookUp("[SupplierName]";"SuppliersT";"[SupplierID]= " & DLookUp("[SuppliersNum]";"InvoiceHT";"[InvoiceNum]= '" & [InvoiceNum] & "'"));IIf([Movement]="مرتجع شراء";DLookUp("[SupplierName]";"SuppliersT";"[SupplierID]= " & DLookUp("[SuppliersNum]";"InvoiceHT";"[InvoiceNum]= '" & [InvoiceNum] & "'"))))) Inv1.accdb

طريقة اخرى [رقم العقد] = Format(Int(Rnd * 123456 + Me.id), "000000")

بيانات الموظف ومرفقات منوعة للموظف الفيديو الصور

انظر مثالك ..... prog_Nouveau Microsoft Access Base de données (2).accdb

ابحث في المنتدى هناك الكثير من الموضوعات حول صلاحيات المستخدمين مثل هذا على سبيل المثال ....

حياك الله ....

ابدأ بمعرفة قوائم مكونات برنامج الأكسس ..... ثم طريقة بداية مشروعك الأول .... ثم تصميم الجداول ..... لو تبحث في النت عن دروس لشرح ذلك بالفيديو ... يكون أفضل

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

أخي @بلال اليامين وضح سؤالك والمطلوب .... هل تقصد صلاحيات مستخدمين

استاذ عصام انت استاذنا ومنك نتعلم

أخى الفاضل qathi نظرا لأن نوع الحقل RepairType نصى فيجب وضع الارقام الخاصة به بين علامتى تنصيص Expr1: IIf([RepairType]="1";"صيانة";IIf([RepairType]="2";"برمجة";IIf([RepairType]="3";"صيانة وبرمجة";""))) بالتوفيق عفوا أخى kha9009lid لم أدرك انك قمت بالاجابه

شكرا اخي qathi الف شكر انا اخي لست بخبير ولكن ما تعلمناه من هذا المنتدى فنرد بما نستطيع فعله وكل الاخوه في المنتدى يد واحده ولهم فضل كبير على كل مشتركي المنتدى فجزاهم الله الف خير ونفع بهم وجعله في ميزان حسناتهم

شكرا لك اخوي خالد ، بحثت عن المجاميع في المكان الخطأ ، فما لقيته وكما قال اخوي خالد: . . . جعفر

جرب المرفق Inv1.accdb

شكرا أستاذ @محمد احمد لطفى شكرا لمرورك واهتمامك لكني اردت ان اجعلة في التقرير ليس استعلام او نموذج

حسب ما فهمت من السؤال ربما يكون هذا الملف نموذج عما تريد اذا ادركت انك ادرجت اسماً بالخطأ اضغط على الزر Undo كلما ضغطت مرة على Undo تستطيع أن تمسح اخر تسجيل في الصفحة الثانية اذا اردت مسح كل البيانات من الصفحة الثانية اضغط على الزر Clear Data Direct to Other_Sheet.xlsm

اذا تم الحصول على رقم تسلسل ، ثم بعدها تم الانتقال الى سجل جديد (يعني الامرين بعد بعض) ، فهذا يحفظ السجل السابق ، ولا يتحقق التكرار 🙂

أخي @kha9009lid الله يعلم .. كم تدخلوا البهجه في نفوسنا عندما تقوموا بالمساعدة بالنسبة للدعاء فهاذا اقل واجب في حقكم علينا

بالفعل أخي واستاذنا @essam rabea كما قلت أشكرك على مرورك الطيب

جرب المرفق Re.accdb

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

جرب هذا RepairType2: IIf([RepairType]=1;"صيانة";IIf([RepairType]=2;"برمجة";IIf([RepairType]=3;"صيانة وبرمجة")))

=IIf([RepairType]=1;"صيانة";IIf([RepairType]=2;"برمجة";IIf([RepairType]=3;"صيانة وبرمجة";"")))

أخي @kha9009lid كنت اجهز الرد فانشغلت قليل ... مش عارف ما أقول لك .. لكن طيب الله روحك .. واسعدالله في الدنيا والاخرة أشكرك على تحملك وبذلك من وقتك للمساعدة جزاك الله خيراُ بالفعل هو المطلوب لكن حاولت تطبيق الكود للاخ @د.كاف يار .. لاني محتاجه في نفس السياق طبقته في امر اخر ولم ينجع فما الخطاء بالكود هكذا RepairType2: IIf([RepairType]=1;RepairType2="صيانة"); IIf([RepairType]=2;RepairType2="برمجة"); IIf([RepairType]=3;RepairType2="صيانة وبرمجة") او RepairType2: IIf([RepairType]="1";RepairType2="صيانة"); IIf([RepairType]="2";RepairType2="برمجة"); IIf([RepairType]="3";RepairType2="صيانة وبرمجة") فلم يعمل فما المشكلة؟؟

وعليكم السلام ورحمة الله أستاذ جعفر.. أرجو أن يأخذ زميلي محمد بنصيحتك.. هذه الطريقة تحتاج وضع التصميم حتى تتمكن من حفظ القيمة الجديدة!🤔

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

كل ما في الأمر أنه حصل ازدوجية في عرض الصورة الحالية فقط.. وانتهت الآن. لا.. لا يمكن لأن تغيير القيمة الافتراضية يتطلب عرض الجدول في وضع التصميم.. هناك حيلة غبية بعض الشيء! لكنها تؤدي الغرض وأرجو تحل المشكلة .. من قائمة الاستعلامات انقر بالزر الأيمن على الاستعلام المتعلق بعرض الصور>> اختر خصائص>> في خانة الوصف اطبع المسار الافتراضي للصور (أو انسخ وألصق) ثم اضغط موافق. .. قم بتغيير وظيفة معالجة الصور لتصبح كالتالي Public Function FileName(ImagName) Dim ImgPath As String ImgPath = CurrentDb.QueryDefs("WorkerSubQ").Properties("Description") FileName = Dir(ImgPath & ImagName & ".*") If FileName = "" Then FileName = ImgPath & "No.jpg" Else FileName = ImgPath & FileName End If End Function .. عند نقل مجلد الصور إلى مكان آخر.. قم بتغييره في خانة الوصف للاستعلام فقط.. Worker.accdb

نعم هذا الذي اقصده ياليتك ترسلي طريقة عمل ذالك بارك الله فيك وبأمثالك

ما اقدر افيدك ماجربت الطريقة

الله عليك يا أستاذ احسنت والله .... شكرا جزيلا طلب اخر يا أستاذ @kha9009lid هل بالإمكان عند تصدير الملف يتم الحفظ بنفس الرقم العشوائي

في المرفقات ا٠٠تغ٠ر (1).accdb

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

الكود بيستخدم فى النموذج وممكن تستخدمه فى الاستعلام Me.id = المفتاح الاساسى عندك (المعرف) رقم العقد = اسم الخلية الجديده هيتم وضع الكود فيها سواء استعلام او نموذج

جرب هذا الكود اخي الكريم worker.rar

شوف اذا هذا صحيح 🙂 للأسف ، الكلمات العربية قلبت الكود ، فما ممكن نقرأه بالطريقة الصحيحة !! . . جعفر 1105.Database2 - Copy.accdb.zip

وعليكم السلام هناك برنامج محاسبة التكاليف EzeeClick بمقابل مادى https://www.tebalink.com/blog/cost-accounting-program/

وعليكم السلام-اهلا بك فى المنتدى تفضل مخازن12.xlsm

هل هذه المعادلة لا تعمل معك ,فأنا اعمل على اكسيل 2010 =IFERROR(LOOKUP(2,1/($B:$B=E$5),$C:$C),"")

وعليكم السلام - تفضل جلب اخر رقم فى عمود بشرط.xls

تفضل بعد اذن الأستاذ رجب إخفاء الصفحات.xlsm

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

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

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

بارك الله فيك وجزاك الله كل خير كل عام وانتم بخير وعيد مبارك علينا جميعا

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

ماشاء الله أخى الفاضل ( أحمد ) سلمت يداك أخى شئ رائع بجد

السلام عليكم استاذ عباس جزاك الله خيرا علي الدعاء واسأل الله سبحانه و تعالى ان يزيدك علما . استاذ رجب مرورك و كلماتك العطرة شرف لي . تحياتي

أخى الفاضل / أحمد عبد الناصر ألف مليون تحية على هذا التميز والإبداع