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

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

ان شاء الله يكون طلبك 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 أشكرك على ماتبذله من مجهود .. بارك الله فيك ورزقت الخير والصلاح في دنياك واخرتك

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

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

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

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

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

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

جرب الان Inv1.accdb

وعليكم السلام -تم عمل قائمة منسدلة بأسماء العملاء حتى لا يحدث خطأ مرة أخرى فهذا الخطأ كان يحدث معك لعدم تطابق الإسم المكتوب في صفحة كشف الحساب التفصيلى مع صفحة البيانات كشف الحساب.xlsm

وعليكم السلام-تفضل كما بالملف لتفعيل الماكرو تلقائيا وهذا ملف اكسل تنفيذي لتمكين وحدات الماكرو تفعيل الماكرو 2تلقائياً.xlsm ملف اكسل تنفيذي لتمكين وحدات الماكرو.rar

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

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

أستاذ @kha9009lid سوف اتعبك معي بما اني ضغيف جدا بالاكواد ممكن تخبرني اين اضع هذا الكود وماذا تعني برقم العقد وكذلك ماذا يعني ME.ID

صديقي تستطيع ان تحصل على نفس النتيجة من خلال هذه المعادلة (بدون 6 مسلسلات من شروط IF ) اذ ربما كان هناك 50 شرط او اكثر =C3+LOOKUP(B3;{1;10;25;50;100};{0.5;1;1.5;2;3}) اذا لم تعمل معك المعادلة استبدل الفاصلة المنقوطة " ; " بفاصلة عادية " , " خارج الأقواس فقط { } اما داخل الاقواس لك حق الاختيار او تغيرها كلها او تبقيها كلها لتبدو المعادلة هكذا =C3+LOOKUP(B3,{1;10;25;50;100},{0.5;1;1.5;2;3}) في القوسين الاولين الشروط وفي القوسين الباقيين النتيجة (ترتيب الارقام من الأصغر للأكبر داخل أقواس الشروط ضروري)

طب المعلومات دي عبارة عن عمليات حسابية و محاسبية ذي دفتر الاستاذ و التكاليف و الموازنات و كده ولا قواعد بيانات لو عمليات حسابية يبقى الاكسل لو قواعد يبقى اكسس و بما انك تبحث عن الاكبر في الاستيعاب يبقى SQL أفضل من أكسس

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

وعليكم السلام-تفضل Vendor Accounts Receivables.xlsm

نعم ، الكل سيحصل على نفس الرقم المكرر ، ولتلافي هذا ، يجب حفظ السجل بعد عملية اخذ الرقم التالي مباشرة ، مثلا: me.ID=Nz(DMax("[id]";"monsrf";"Month([c_date])=Month(date())"))+1 docmd.runcommand accmdsaverecord . بهذه الطريقة ، سيكون هناك فاصل زمني بين نقر زر كل مستخدم ، حتى ولو بجزء من الثانية ، والبرنامج تلقائيا سيعطي الارقام بدون تكرار 🙂 جعفر

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

أحسنت استاذ هشام وأحسن الله اليك

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

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

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

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

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

اهلا بك في المنتدى يمكنك تحميل البرنامج من المشاركة السابقة لمشاركتك كما بالصورة

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

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

وعليكم السلام اهلا بك في المنتدى -الرابط موجود في مشاركة الأستاذ ضاحى الغريب صاحب الموضوع بارك الله فيه وجزام الله عنا كل خير وزاده الله من فضله وتفضل الملف مرة اخرى KG_VII_B_Dahy.rar

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

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