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

السلام عليكم ,, لمعرفة ذلك يجب عليك استخراج كود اللغة او ما يسمى بLCID عن طريق الكود التالى : Application.LanguageSettings.LanguageID(msoLanguageIDUI) الخطوة التالية هو معرفة اللغة صاحبة الكود وذلك عن طريق احضارها من النت ولكن ماذا اذا كان الجهاز غير متصل بالنت ؟ فقمت باختصار الامر وعمل جدول باكواد اللغات ويتم احضارها من الجدول وعرضها فى رسالة , النتيجة : مرفق قاعدة البيانات . بالتوفيق Language.accdb

جرب المرفق Test (3).xlsm

شراً للأخوين الكريمين Barna Moosak ولكن من المخجل القول بأن سبب الحيص بيص الذي وقعت فيه هو خطأ واضح في الكود 🙄، وهو أنني نسيت جملة (Exit Sub) قبل (ERR:) والكود بشكله الصحيح واكتشفت هذا الخطأ وأنا أجري التجارب لاختراع كود جديد 😀 وأعتذر للإخوة الكرام على إزعاجهم بسبب هذا الخطأ البدائي 😐

الأفضل أن تكتبها هكذا أخي العزيز .. ERR: If ERR.Number = 3078 Then MsgBox "الجدول المصدر ( " & Me.txt1 & " ) غير موجود !!", vbInformation + vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "خـطـأ" DoCmd.RunSQL "DROP table [" & Me.txt2 & "]" Exit Sub ElseIf ERR.Number = 0 Then Exit Sub Else MsgBox ERR.Number & vbCrLf & ERR.Description, vbInformation End If السطر الذي ذكره أخي العزيز @Barna مهم جدا ومفيد لتعقب الأخطاء .. وهو الذي أعطاك أن رقم الخطأ = 0 .. ويشير رمز الخطأ 0 إلى عدم وجود حالة خطأ... لذلك نضع له حالة خاصة به بأن يتم تجاهل الرسالة .

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأخيرا التحميل 😊 تحميل الملف الأصلي : >> حمل من هنا آخر إصدار للأداة << تحميل الملف بلمسات المهندس العزيز @د.كاف يار : د.كاف يار __Domain Functions Builder V1.0.accdb وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊 ‏‏Domain Functions Builder V1.0.accdb

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

السلام عليكم .. رأيك سليم 100% دائما يفضل استخدام الوحدة الاصغر كمقياس لرصيد المخزن وبما ان عملى كمسئول تخطيط ومتابعة عامة جزء منه الرقابة على المخازن فكان الحل العملى للمخازن بعد تجارب هو ترصيد الوحدات الاصغر وعرض باقى الوحدات فى التقارير فقط عن طريق معادلات تعتمد على رصيد القطعة وتحويلها الى عبوات مثلا الكرتونة الداخلية للصنف (تحتوى على 10 قطع ) و الكرتونة الخارجية للصنف (تحتوى على 20 كرتونة داخلية أى 200 قطعة من الصنف) . وبالتالى نصيحتى لصاحب الموضوع @hougar هوا ان يكون الرصيد بالقطعة او الوحدة الواحدة فقط .. وفى جدول الاصناف قم بزيادة عمود لعدد الوحدات فى الكرتونة مثلا وعدد الوحدات فى الحبة وعددها فى اى وسيلة قياس اخرى الخ ... وبالتالى عند الاستعلام عن الرصيد قم بتحويل الرصيد فى استعلاماتك كما تريد وبالتالى سيكون الباركود الخاص بالكرتونة هو نفس الباركود الخاص بالصنف ويتم ذكر الرصيد من كل وحدة بالاعتماد على رصيد الوحدة الصغرى .. وبهذا ستتجنب الكثير من التعقيد وزيادة العمل للمستخدم .. هذا رأيى فقط .. بالتوفيق

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

تفضل اخي الكريم يمكنك استخدام المعادلة التالية في الخانة D16 =SOMMEPROD((($I$2:$I$13=B16))/NB.SI.ENS($I$2:$I$13;$I$2:$I$13&"";$D$2:$D$13;$D$2:$D$13&"")) M-H نموذج.xlsx

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

حبيبى انا تحت امرك وزي ما اساتذتى ساعدونى ولم يبخل احد فيهم على تقديم النصح والارشاد انا لن ابخل ولن يبخل عليك اى شخص هنا فى تقديم المساعده واسأل الله الكريم رب العرش العظيم ان يحفظهم من كل شر وان يبارك لنا فى اعمارهم اجميعن نعود لموضوعك اخى الحبيب اعتقد ده بسبب ان مصدر البيانات هو الجدول مباشرتا هذا اولا ثانيا النموذج الفرعي مربوط برقم العسكري (رقم الاليه) ورقم الاليه فى النموذج هذا "نقليات1" مربوط برقم الاليه فى النموذج "نقليات" اذا ما فائدة هذا الحقل ؟ يمكنك ان تجرب هذا كل ما عليك علشان تنقل من موظف لاخر لاضافة البيانات ان تغلق النموضج الخاص بالاجازات وتعود الى النموذج الرئيسي وتختار الموظف التالى وتعود الى النموذج مره اخرى ضباط جديد - OmarDahy .rar

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

شرح فورم الجداول الجاهزة للأكسل والترقيم التلقائي والكمبوبوكس و Scroll Bar الفيديو

جرب اهتزازالشاشه (1).xlsm

تفضل <><><><><><> شئون الطلبة.rar

أحسن الله إليك اخي الكريم Moosak .. تم المطلوب بحمد الله وهذه من فوائد عدم الابتعاد عن الجهاز 😅

شكرا جزيلا TIMEXIT.accdb

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

جرب هذا <><><><><><><> Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ 200 If (Me.box2.Width) = 1 Then Me.Command8.Enabled = True End If End If End Sub

مرحبا لم أقرأ كل الردود فقد يكون هناك حلا نموذجيا لم أنتبه له ، فالمعذرة. هذا حل أستخدمه دائما وهو حل ناجح 100% Public Const Duplicate = 3022 With rst Do Err.Clear .AddNew !ID = Nz(DMax("ID", "MyTable"), 0) + 1 !Date = Date .Update Loop Until Err.Number <> Duplicate End With

'تحويل الى اكسل DoCmd.OutputTo acOutputReport, "myreport", "excelworkbook(*.xlsx)" ' تحويل الى وورد DoCmd.OutputTo acOutputReport, "myreport", "richtextformat(*.rtf)" اتفضل اخي بدل كلمة myreport الى اسم تقريرك مع تقدير