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

السلام عليكم ورحمة الله وبركاته في هذا الموضوع نريد ان نقوم بتحويل الرصيد المتبقية من المواد الى عدد العلبات و الكارتونات كم نعرف جيدا احيانا سنشتري اشياءاً بالحبة او العلبة و بها عدد من الحبوب او سنشتري بالكارتون و بها كم علبة من العلبات الحبوب لذلك قمنا بفتح هذا الموضوع لعل وعسى ان يكون هناك شخص ان يستفيد منه ........ في البداية قمنا بعمل جداول المطلوبة للشراء والبيع على الرغم ان هناك حقول لازم ان يكون متواجدة للعمل شراء والبيع لكن احنا عملنا حسب احتياجنا لكي نشرح الموضوع و هناك نقطة مهمة ... هنا كالعمل سنستخدم حبة للشراء والبيع والجدول المواد سيكون كالصور الاسفل اذا نلاحظه هناك حقل تسلسل و حقل كود المادة و اسم المادة و بيان عدد العلبات في الكارتون و البيان عدد الحبات في العلبة وعطيتنا لكلا الحقلين الاخيرين رقم صفر كرقم افتراضي احيانا سنشتري اشياءا ليس لهم كارتونات او العلبات فقط سنشتري بالحبة لذلك للمواد كهذا راح نضع رقم صفر -------- والان اشترينا المواد مرتين الاول اشترينا 4000 ميترو و اشترينا 187 بطل ماء وبعدين اشترينا 267 ميترو و اشترينا 188 بطل ماء و اشترينا 3220 اقلام اي يعني بالاجمالي اشترينا 4267 ميترو 375 بطل ماء 3220 قلم ------------ وبعدين بيعنا هذه العدد من المواد بعنا 200 ميترو و 134 قلم و 76 بطل ماء -------------- وفي الاخير قمنا بعمل استعلام الرصيد المتبقية بالحبة لكل مواد والان سنحسب الرصيد بالحبة 4267 - 200 = 4067 ميترو 375 - 76 = 299 بطل ماء 3220 - 134 = 3086 قلم شوف الاستعلام هناك اعمال كل مواد لديهم بالكارتون و العلبة و الحبة , من عندهم كل شي بالكارتون والعلبة والحبة يقدر يستخدم استعلام بالاسم QResid ومن عندهم مواد ليس لهم كرتون او علبة خلي بيستخدم استعلام QResid1 و يستخدم رقم صفر لتلك المواد وفي الاخير سنحول الحبات الى عدد الكراتين و العلبات بواسطة هذا استعلام خلي نتاكد من عملنا هل هو صحيح ام لا رصيد المتبقي من الميترو كان 4067 و كل علبة يساوي 24 حبة و كل كارتون يساوي 12 علبة اذاً عندنا 14 كارتون المتبقية * 12 عدد العلبات في الكراتين * 24 عدد الحبات في العلبة = 4032 حبة و 1 علبة * 24 علبة= 24 علبة و 11 حبات اذاً 4032 + 24 + 11 = 4067 وهذا الرقم صحيح المادة الثانية : pen قلم عدد الکراتین المتبقية 2 * 100 عدد العلبات في الكراتين * 12 عدد الحبات في العلبة = 2400 عدد العلبات المتبقية 57 * 12 عدد الحبات المتبقية = 683 و 2 عدد الحبات المتبقية المجموع = 2400 + 683 + 2 = 3086 وهذا الرقم صحية المادة رقم 3 : بطل ماء ليس لنا كراتين للماء اي يساوي صفر وعندنا 37 علبة وفي كل علبة يساوي 8 حبات اي 37 * 8 = 296 حبة و 3 حبات المتبقية اي المجموع = 296 + 3 = 299 وهذا الرقم ايضا صحيحة ولان ليس لدي وقت كافي اليوم غدا ان شاء الله سارد على الردود والمواد ك بطل ماء و الميترو القم تم استخدامه فقط للفهم و للمثال 😃 واليكم القاعدة لمعرفە عدد الکارتونات و الوحدات -.mdb تم استبدال المرفق و تصحيح الاستعلام الرصيد المتبقية بالحبة

پێدڤی ناکەت ... دخزمەت داینە لا داعي للشكر ... نحن بالخدمة سوپاس بوتە ... خوشتر شكرا لك ... اعتذر من الادارة الموقع نحن كلمنا هنا باللغة الام الكردية تحياتي للجميع 😃

اظن انه كما طلب جزاك الله الف خير اخي شيفان

السلام عليكم أولا أعتذر عن كتابة الكلمة بالانكليزية ولكن فعلا لا أدرى ما ترجمتها ولكن وصفها: هى رسالة صيرة مؤقتة تظهر للنبيه ثم تختفى كما بالصورة وللأمانة الموضوع ليس موضوعى ولا يمت لى بصلة ولكنى وجدته أثناء بحثى عن هذه الرسالة المؤقتة فوجدته قيم جدا وبه ما أردت وزيادة أضعاف أضعاف لذى أحببت مشاركته مع الأحبة لن أطيل سأترك لكم المرفق للفحص والمحص والتنقيب عن الدرر هذا المرفق وهاكم رابط الموضوع الأصلى https://stackoverflow.com/questions/39224308/non-blocking-toast-like-notifications-for-microsoft-access-vba ورابط التحديث https://github.com/krishKM/Modern-UI-Components-for-VBA ملاحظة بعد فك الضط يجب وضع ملف ال Dll فى نفس الفولدر الحاوى للبرنامج ومرفق نسختين من الملف للاصدارين 32 و 64 بت أرجو الالزام بشروط صاحب المرفق التى اشترطها لاستخدام مرفقه كما بالموضوع المشار اليه. تمنياتى بالتوفيق. ToastDllKrach.rar

استخدم الدالة التالية وخدها اوتوفيل لتحت وفى الخلية P دوس كليك يمين واختار format cell ومن number اختار date =IF(OR(L1<>"",M1<>""),NOW(),"")

جعله الله في صحيفتك بارك الله بك

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

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

اتفضل test (1).mdb

زور زور ممنون كاك Shivan Rekany ده ست خوشبي ماموستا

اذا كان عندك ComboBox في الشيت قم بادراج اسمه في الكود بدل اسم 1 ComboBox و نفس الشيء بالنسبة للـــ Button و اذا لم يكن عندك احذف هذا الماكرو

جرب هذه الملف الكود Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("Details") Dim T_sh As Worksheet: Set T_sh = Sheets("Statement") Dim My_Table As Range: Set My_Table = S_sh.Range("A4").CurrentRegion With T_sh .Range("a10").CurrentRegion.ClearContents .Range("q2").Formula = _ "=AND(Details!B5>=$B$6,Details!B5<=$B$7,Details!C5=$B$5)" My_Table.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Range("Q1:Q2"), _ CopyToRange:=.Range("A10") .Range("q2").ClearContents .Columns("B:G").AutoFit End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق المصاريف.xlsm

السلام عليكم حسب فهمي للمطلوب هذه محاولة في المرفق.... بن علية حاجي استحقاق.xlsx

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

تفضل كل ما تريد واعتقد ان لا تحتاج غير ذلك توضيح2.xls

حسب ما قرأت الردود انا لا اعرف بالضبط ماذا تريد لكن عملت لك كما فهمت من الموضوع وفكرت انك تريد ان يظهر لك رسالة بارقام السجلات اللي حقل namestudient بها فارغ لذلك اليك هذا Private Sub أمر6_Click() Dim rst As DAO.Recordset Dim bb As Integer Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [studient]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!namestudient = Null Or Len(rst!namestudient & vbNullString) = 0 Then MsgBox (rst!idstudient & " هناك حقل فارغ للرقم ") End If rst.MoveNext Next i End Sub واذا بعد ما وصلت للمطلوب وضح سؤالك اكثر فحص حقل فارغ.rar

أهلا بك اخى الكريم فى المنتدى لماذا لا تقوم بإستخدام خاصية البحث فى المنتدى قبل طرح مشاركتك تفضل لك ما طلبت هنا https://www.officena.net/ib/topic/66357-برنامج-العطاء-للعقارات/?tab=comments#comment-431498

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

تفضل لاحظ ايهما تريد الحل بالعمود D ام الحل الموجود بالعمود E توضيح2.xls

لا لاسف لانها ستفقد بعض المميزات

تم التعديل Sader_Wared1.xlsm

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

استاذي الفاضل ربي يخليك يارب يوجد نسخة بصيغة 2003

السلام عليكم ورحمة الله تم التعديل على معادلة أخي الكريم ali mohamed ali حسب ما فهمته من التوضيح بالأعلى... بن علية حاجي توضيح.xls

أهلا بك أولا.. أعتذر إليك وللزملاء عن وجود أخطاء إملائية في الشفرة السابقة.. تانيا.. بعد التصحيح.. أدرجت أسماء الأشهر بالعربي ضمن الوظيفة، وجعلت الشفرة تأخذ الاسم العربي المقابل لرقم الشهر الميلادي؛ وذلك لتفادي ظهور اسم الشهر باللاتيني للواجهات أكسس غير العربية.. وهذي هي الوظيفة بعد التعديل.. () '-- من الأفضل اقتباس الشفرة من قاعدة البيانات للهروب من مشاكل الترميز Public Function ConvertToGregDate(HijriDate As Date, F As Integer) Calendar = vbCalGreg Select Case F Case 0 ConvertToGregDate = Format(HijriDate, "yyyy/mm/dd") Case 2 '-- Show Arabic Month Names of Gregorian Calendar ConvertToGregDate = Choose(Format(HijriDate, "m"), _ "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيه", "يوليه", _ "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") End Select End Function إليك قاعدة البيانات بعد التطبيق.. db1.mdb

ربما هذا هو مطلوبك .... تفضل new.accdb

اخي العزيز ابو اسد بعد اذن الاخوة الكرام لماذا تتعب نفسك باكواد الازرار اذاكنت تريد اجبار المستخدم اكمال كتابة جميع الحقول فأستخدم هذا الكد وضعه عند الخروج لجميع مربعات النص او التحرير والسرد Then ([اسم مربع النص]) IF ISNULL ("لا تترك الحقل فارغاً") MsgBox DoCmd.CancelEvent Else End If

أسمح لي أستاذنا @ابو ياسين المشولي برفع الملف النهائي حتى يستفيد منه الأعضاء لأنه مهم جداً واتمنى أن يتم تثبيت الموضوع الملف عبارة عن: فورم بحث بالأكواد عن صنف عبر ثلاثة أحتمالات أما حقلين تاريخ أو حقل نص أو قائمة منسدلة يتم عرض النتائج من خلال فورم فرعي ويمكن عرضة كتقرير بالأكواد في حالة المعاينة قبل الطباعة الملف بالمرفقات: SearchRpt(6).accdb

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

اليكي هذا قمت بتعديل النموذج من حيث التصميم واضافة كومبوبوكس للبحث معلةمات الملاك.accdb

هل جربت ملفى المرفق بالاعلا . كما ذكر الاخ @Shivan Rekany تمت الاجابه على جميع تساؤلاتك السابقة

بارك الله فيك

جزاك الله كل خير-أحسنت

بارك الله فيك-أحسنت

تفضل classement des 222223.xlsx

الملف جاهز أهم شيء الا يكون داخل الجدول اي خلية فارغة و كذلك في راس الجدول Salim_book.xlsm

يا شباب ، عليكم بالبحث في المنتدى ، لتحصلوا على المطلوب البرنامج موجود على سيرفر المنتدى ، هنا: https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=139629 وبرنامج العطاء للتقسيط ، هنا: . جعفر

اتفضل هذا ماطلبت فتح نموذج بشرط.rar

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

لقد وجدت هذا الكود وحطيته عند الغاء التحميل شكل العمليه ظبطت ممكن شرح للكود Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * from AfwtIar;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Wend

الله يرحمه ويحسن إليه الاستاذ المحترم عماد الحسامي

الغاء تفعيل القص والنسخ والصق والصق الخص من قائمة كلك يمين بالموس ومن الاختصارات بلوحة المفاتيح DisableCopyPasteCut.zip منقول من صفحة اجنبية

السلام عليكم تحية طيبة للاستاذ مارد وللاستاذ محمد سلامه كي نبداء صح ويكون الجواب مفيد الى كل الاخوه المهتمين بالاكسس لانهم في يوم ما سوف يتحولوا الى sql server بعد هذا اليوم او اقترب وسوف اقدم شرح مبسط واحرص على ان من يبداء العمل يبداء بدون تعقيدات 1 - عمل قاعدة بيانات اعتيادية في الاكسس من اهم ما ننتبه عليه هوه تسمية الجداول ونسميها ببادءه(_ dbo) كما في الصوره المرفقة رقم 001 ما فائدة هذا الاجراء رب سائل يسال وذلك كي نعمل كل مكونات هذه القاعدة من استعلامات ونماذج وتقارير وماكروات بجداول تبداء _dbo لان الsql حين تصدر له اي جدول سوف يضيف له الباده _dbo 2 - تركيب sql server على الجهاز الذي سوف نعتبره سيرفر (يجب تركيبه على جهاز السيرفر ) اما اذا كانت هناك اجهزه اخرى لعمل نيتورك على القاعدة فليس من الضروري انتركيب sql server عليها 3 - تركيب sql server management studio وذلك للتحكم بالسيرفر (تشغيله واطفاءه وعمل حذف او اضافة قواعد بيانات وعمل نسخ من هذه القواعد وهناك وظائف اخرى ) 4 - عمل اتصال odbc وتسميته مع السيرفر بعد ذلك نرجع الى قاعدة بيانات الاكسس التي عملناها a - نقوم بحذف الباده _dbo من الجداول كما في الصوره رقم 002 ونقوم بتصدير هذه الجداول الى sql server ( فال sql سوف يقوم هوه باضافة الباده -dbo ) كما في الصوره رقم 003وبهذا سوف لن نقوم بالتغير على مفردات قاعدة البيانات الاخرى الان اصبحت الجداول على الsql server b - نقوم بحذف الجداول في قاعدة الاكسس c - عمل ربط link مع الجداول الموجوده على الsql من معالج ربط الجداول يصبح شكل الجداول في الاكسس كما في الصوره 004 وبذلك تكون قد اكملت التكبير وتحويل جداولك الى sql لما تتمتع به هذه القواعد من امان عالي وحجم كبير وحفظ لجداولك حتى لو عطبت القاعدة الاكسسيه او حذفت فان المعلومات تبقى في sql بالتوفيق

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير >>> جزاكم الله خير الجزاء اولا اعتذر عن تغيبى عن المنتدى وتأخرى فى الرد لشدة مرضى. ثانيا حاولت تلك الطريقة وكنت اعرفها مسبقا ولكن دون جدوى ثالثا الحمد لله رب العالمين الذى تتم بنعمته الصالحات فلله الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه بتفضله سبحانه وتعالى على بالحصول على نتيجة ممتازة لحل هذه المشكلة العويصة فلقد قمت بإزاله برنامج الاوفيس نهائيا واعادة تصطيبه من جديد دون جدوى ولكن هدانى الله بالتفكير فى انه بسبب ازالة الاوفيس واعادة تصطيبه يدل عدم حل تلك المشكله على انها لم تكون مشكلة فى برنامج الاوفيس حيث لو انها كذلك كانت انتهت وتم تلافيها لذلك توقعت ان المشكلة تكمن فى ملفات تسجيل نسخة الاوفيس والتى تتعلق بنظام التشغيل اى فى الريجسترى registry وعلى هذا الاساس بدأت رحلة البحث الطويلة والمضنية على الانترنت ووفقنى الله لوجود الحل فى احد المنتديات الاجنبية وهذا من امانة النقل بعد إذن استاذى الجليل ومعلمى القدير اعرض حل المشكله حتى تعم الفائدة اولا يجب عمل مستخدم جديد من لوحة التحكم Cntrolpanel - على سبيل المثال او كما فعلت انا المستخدم Guest - التغير الى المستخدم الجديد بإسم Guest كما هو موضح فى الصورة الاتية ثانيا بعد الدخول الى النظام عن طريق المستخدم Guest يجب الذهاب الى هذا المسار فى الريجسترى registry [HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security] لمن لا يعرف طريق الوصول - الضغط على مفتاحى windows key + R من الكيبورد كما فى الصورة التالية - تفتح النافذة التالية تلقائيا - نكتب المر التالى regedit ثم نضغط على زر الامر OK كما فى الصورة التالية - تفتح نافذة الريجسترى كما فى تلك الصورة اتبع الخطوات فى الصور الذى يتم اختيارها --- : HKEY_CURRENT_USER --- : \Software --: \Microsoft --: \Office --: \15.0 للعلم الرقم 15.0 يدل على اصدار الاوفيس انا اعمل على الاصدار 2013 لذلك رقم الاصدار هو 15.0 وارقام الاصدارات المختلفة كالاتى على ما اعتقد طبعا مفيش رقم 13 لانهم لايحبوا هذا الرقم ويتشائمون منه ☺ اوفيس 2000 09.0 اوفيس 2002 10.0 اوفيس 2003 11.0 اوفيس 2007 12.0 اوفيس 2010 14.0 اوفيس 2013 15.0 --: \Access --: \Security وبعد الوصول الى تلك النافذة يتم تصدير الــ Security يتم عمل تصدير بالضغط بالماوس على Security ثم اختيار الامر Export كما فى الصورى الاتية يتم اختار مكان لحفظ الملف ( مسار ) الناتج عن التصدير وكذلك اختيار اسم له وأخيرا يتم تغير المستخدم الى المستخدم الاصلى ثم الدخول لمسار الملف الذى تم تصديره من الخطوة السابقة والضغط عليه بالماوس وتفعيله وبهذا يتم حل المشكله حل جزرى ان شاء الله اعتذر للاطاله وأرجوا ان يكون فى موضوعى افادة ان شاء الله وهذا رابط خارجى للصور لمن ارادها مجمعه نظرا لكبر الحجم لم استطع رفعها على المنتدى الرابط من هنا

السلام عليكم ورحمة الله وبركاته بارك الله فيك أخ عماد قمت باختراقه خلال ثلاثين ثانية كلمة السر: 1920 أزلت كل الحمايات الموجودة بالملف: من حماية الصفحات إلى حماية VBA إلى حماية الورقة الأولى من التعديل وذلك بحذفي للكود الموجود في ThisWorkbook الملف بدون قيود بالمرفقات نظام حماية متكامل.rar