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

أخي @Amr Ashraf أخي @ابا جودى تم تعديل الملف ارجو التجربة وابداء الرأي .... والمجال مفتوح لجميع الأعضاء لإبداء الرأي .... تفضلوا .... Example.accdb

وهذه مشاركة مع أخي الحبيب @ابا جودى تفضل ... Example.accdb

السلام عليكم 🙂 جعفر

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

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

جرب المرفق دالتين الاول تلغي الكسر والاخرى ترفع الكسر اذا كان اكبر من النصف Database13.accdb اعتذر منك اخي kaser906 لم اشاهد ردك

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

تفضل 🙂 عملنا حقل جديد لتحديد سجل المنصرف ، واخر لسجل الوارد ، حقول غير مضمنه ، ويمكنك ان تجعلهم مخفيين . اضفنا في زر منصرف وكذلك في زر وارد ، جعلنا الحقل اعلاه = قيمة التاريخ ، وذلك لأني رايت ان حقل التاريخ هو ما يجعل كل سجل فريد . وعملنا تنسيق شرطي ، اذا كان قيمة الحقل الغير مضمن = التاريخ ، اذن اجعل خلفيته خضراء . وهذه النتيجة . جعفر 1085.zip

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

السلام عليكم 🙂 0- يجب ارفاق برنامج الاكسس وملف الوورد ، بكل بياناتهم ، حتى نقوم بهذه العملة ومعرفة اين الخطأ ، 1- هذه الطريقة في نقل البيانات الى الوورد عن طريق الاشارة المرجعية Bookmark ، والذي ابدع اخوي @kanory في شرحها ، تعتمد في وجود "الاشارة المرجعية Bookmark" في الوورد ، في المكان المحدد الذي تريد ان تضع به المعلومة (اما اذا لم يكن هناك اشارة الى المكان ، فكيف يعرف الاكسس ، اين يضع المعلومة !!) ، 2- لكل "اشارة مرجعية Bookmark" في الوورد ، يجب ان ترسل لها معلومة من الاكسس ، فإذا عندك في الوورد مكان لـ الاسم_1 و الاسم_2 و الاسم_3 ، وهم جميعا يحتاجون الى نفس المعلومة/الحقل من الاكسس "S2"، فيجب عليك ارسال المعلومة لكل واحد منهم على حدة ، هكذا (ولا يهم ادخال اي معلومة قبل الاخرى ، ولا اي حقل قبل الآخر) : X.ActiveDocument.Bookmarks("الاسم_1").Select X.Selection.InsertAfter Me.s2.Value X.ActiveDocument.Bookmarks("الاسم_2").Select X.Selection.InsertAfter Me.s2.Value X.ActiveDocument.Bookmarks("الاسم_3").Select X.Selection.InsertAfter Me.s2.Value . وكذلك استكمالا للموضوع ، فبعد ان تُدخل المعلومة في الوورد (وسواء قمت بحفظها او لا) ، واردت طباعة ملف الوورد ، فيمكنك مراجعة هذا الرابط ، والذي يحتوي على طريقة تختلف قليلا عن الطريقة اعلاه : http://arabteam2000-forum.com/index.php?/topic/280527-تنسيق-تقرير-أكسيس-مثل-تنسيق-ملف-وورد/#comment-1351657 جعفر

بل العكس ... المنتدى لم يفتح الا للسؤال والاجابة

السلام عليكم اتمنى اللي عنده برنامج جاهز مجاني يشاركه هنا معنا لكي يستفيد الجميع مخازن - مشتريات - مبيعات - عملاء - موردين - قبض - صرف - كشوفات حساب جزاكم الله خيرا اساهم معكم بأول برنامج برنامج المحل.rar

كود الالحاق للمستخدم الجديد اما كود التحديث فهو للمستخدم الموجود في نموذجك يبحث الكود عن المستخدم اذا كان موجود اذا وجده ينتقل الى شرط التحديث عموما هذا التعديل الخطأ في الكود هو UNum لا اصل لها في النموذج وقد تم تغييرها من قبلك الى User_ID ولم يتم تغييرها في كود الالحاق DoCmd.RunSQL _ "UPDATE Users SET UName = '" & incode(UN, "User") & _ "', PW = '" & incode(pass, "Pass") & _ "', fname = '" & REG_FullName & _ "', EMAIL = '" & REG_EMAIL & _ "', PHONE = '" & REG_PHONE & _ "', IAM = '" & REG_IAM & _ "', BIRTHDATE = '" & REG_BIRTHDATE & _ "' WHERE (((Users.[SN])=" & Str(ID_User) & "));"

هو فين ملف الاكســل

السلام عليكم 🙂 بسبب انه مافي بيانات في المرفق ، فما قدرت اجرب ، وما قدرت اني اواصل !! على العموم ، اليك طرف الخيط 🙂 علشان تنادي حدث في نموذج آخر: 1. في النموذج الآخر ، يجب تغيير Private الى Public (لاحظ الدائرة الحمراء) ، 2. علشان ننادي الحدث ، نكتب كما في النقطتين 5 و 6 . الامر docmd.close سيغلق النموذج/التقرير الذي عليه التركيز والذي في الواجهة ، لهذا السبب ، واذا اردنا ان نغلق النموذج الذي نقرنا زر الاغلاق منه (سند القبض) ، وجب ان نكتب الامر كما في الرقم 3 في الاسفل ، ولاحظ اننا نغلق نموذج (سند القبض) بعد ان نعطي/نرسل الاوامر للنموذج الآخر 🙂 . وعلى هذا المنوال تستطيع مواصلة المشوار 🙂 جعفر 1086.‏‏BuySal19_v04.mdb.zip

جزاك الله خير استاذي العزيز قاسم

اتفضل يا سيدى لو المرفق محتاج تعديل انا تعبت انا شغال عليه من وقت ما وضعت السؤال واسف لم انتبه انك وضعت مرفقات Amr Ashraf ( Export to Query to specific excel worksheet).accdb

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

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

استخدمت النظام اكثر من عشر سنوات ولم يحدث معي مره واحدة ظهور رسالة خطأ ::باتلوفيق::

شكراُ أستاذى @عبد اللطيف سلوم تم عمل استعلام جديد وربطه بتاريخ الجواب و تم منع التكرار أعرف أنا دالة Dlookup تجلب البيانات فلم استخدمها استخدمت DCount test5 (1).rar

اهلا بالعزيز الغائب يا هلا والله

بالنسبة للنتائج M1 لاتظهر لها نتائج

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

الموضوع مو طباعة صفحة واحدة للوورد ، وانما طباعة كل صفحة اثناء الدوران 🙂 فالحل هو ان ترسل الملف للطباعة ، ثم تجعل الكود ينتظر لمدة 3 او 5 ثوان ، ثم ينتقل للملف التالي 🙂 جعفر

جرب المرفق Database13.mdb

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

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

نعم ممكن

TYPE2 = DLookup("last([Typ1])", "TypTbl")

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

انظر الى هذا المرفق نسخة من كلفة كل دار-1.xlsm

وعليكم السلام 🙂 خلي لنا شوية بيانات ، ثم امشي معانا بالخطوات المطلوبة 🙂 جعفر

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

أجريت تعديلات على المسميات ولم تجرها على مسميات الحقول في النموذج الكود الالحاقي سيكون كالتالي DoCmd.RunSQL _ "INSERT INTO Users (UName, PW,fname,EMAIL, PHONE, IAM, BIRTHDATE) SELECT '" & _ incode(UN, "User") & "' AS Expr1, '" & incode(pass, "Pass") & "' AS Expr2, '" & _ [REG_FullName] & "' AS Expr3 , '" & [REG_EMAIL] & "' AS Expr4, '" & [REG_PHONE] & "' AS Expr5, '" _ & [REG_IAM] & "' AS Expr6, '" & [REG_BIRTHDATE] & "' AS Expr7"

حياك الله عزيزي الامر يجب ان يكون في الوحدة النمطية الخاصة بالبحث عن التكرار هكذا Private Function IsDplcateRec() As Boolean IsDplcateRec = False ' If IsNull(DLookup("SupplierID", "Contacts_T", "SupplierID=" & Me.SupplierID)) = False Then If IsNull(DLookup("SupplierName", "Contacts_T", "SupplierName='" & [SupplierName] & "'")) = False Then IsDplcateRec = True Else CurrentDb.Execute _ "INSERT INTO Contacts_T SELECT * FROM [SuppliersT]" MsgBox _ "تم اضافة السجل بنجاح" End If End Function

استعمل دالة Dlookup بحيث المعيار اكبر من 1 هيك تمنع التكرار

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

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

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

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

تسلم : الاستاذ الفاضل وجيه اللهم يجعلك وجيها فى الدنيا والاخره

تفضل برنامج المحل.mdb

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

للتسلية فقط في الملف رقمان متساويان لكن عندما نسأل البرنامج هل هما متساويان بواسطة "=" يعطينا الجواب False لمن يرغب تفسير ذلك الخلايا محمية ريثما احد من الأعضاء يجد الحل الباسوورد والاجابة فيما بعد من الغاز اكسل .xlsx

وأخيرا بفضله وكرمه علينا تم الانتهاء من عمل الفيديو الذى ينتظره الكثيرون مع محمد جابر تعلم فى الاكسيل ترحيل الطلبة الناجحون والراسبون · سوف نتعلم باذن الله تعالى في الدرس بعض الدوال وخصائصها وكيف العمل بها · كما ستتعلم كيفيه ان تعلم نفسك بنفسك في صناعة دوال الترحيل فيديو مفيد باذن الله مشاهدة ممتعة 🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏 ♦ رابط الشرح على اليوتيوب: https://youtu.be/CG98wMuDapg ♦ والفيديو الاصلى تجدوه فى (تليجرام) على الرابط التالي : https://t.me/technologyeduM ♦ الملف المستخدم في الشرح ستجدوه اسفل الفيديو في اليوتيوب 🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏🍏

جرب هذا الملف تم تغيير اسماء الصفحات لحسن التعامل مع اللغة الاجنبية Salim1ترحيل.rar

السلام عليكم طريقة اظافة دالة جديدة مستحدثة وتصبح مثل دوال الاكسل الموجودة تتم اولا قم بتح ملف اكسل جديد قم بعمل موديل جديد واحفظ الدالة بداخله واخيرا قم بحفظ الملف بصيغة ادد ان حيث سيكون امتداد الملف هو Microsoft Office Excel Add-In (.xlam) الان قم بفتح اي ملف اكسل اخر واذهب الى خيارات اكسل واختار الخيار السادس الوظائف الاظافية وبعد الدخول الى الوظائف الاظافية في اخر الصفحة الضغط على زر الانتقال حيث سيفتح لك صندوق خيارات وستجد دالتك مسجلة بنفس اسم الملف الذي قمت بحفظة كل ما عليك هو ان تضع اشارة صح عليها ونكون قد انتهينا الان بالذهاب الى الدوال ستجد دالتك موجودة تحت معرفة من قبل المستخدم مرفق دالة للاستاذ ابو تامر وهي دالة vlookanycol تم حفظا بهذا الامتداد جربها لن تخسر شيئا 5.rar

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