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

أخي @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

بارك الله فيك kha9009lid

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

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

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

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

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

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

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

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

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

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

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

نعم ممكن

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

اخى الكريم لا تنتظر المساعدة من الأساتذة على هذا الوضع لابد من رفع الملف ,حتى ولو على موقع خارجى كهذا -فلا يمكن العمل على الصورة ولابد من ذكر اى بيانات من داخل الملف حتى تتأكد الأساتذة انه ملفك لأن فك الحماية حق من حقوق مصمم البرنامج فقط: https://www.mediafire.com/

انظر الى هذا المرفق نسخة من كلفة كل دار-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"

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

تم الإصلاح في النسخة الحالية Private Sub ID_Sanf1_AfterUpdate() On Error Resume Next 'Me.Fatora_id = fatorNum If LogedType = 1 Then Price = ID_Sanf1.Column(2) ElseIf LogedType = 2 Then Price = ID_Sanf1.Column(3) End If Me.ejmale = CLng(Nz(([quant] * [Price]) + [TAX]) * Nz(1 - [kasm]) * 100) / 100 Call quant_AfterUpdate DoCmd.GoToRecord , , acNewRec ID_Sanf1.SetFocus DoCmd.GoToRecord , , acPrevious Me.quant.SetFocus If Me.quant > DLookup("[Rsnf]", "[Qryasnaf]", "[ID_Sanf]=[ID_Sanf1]") Then Call quant_AfterUpdate If mFatType = 12 Or mFatType = 13 Then MsgBox "رصيد غير كافي" quant = quant - 1 Else Call quant_AfterUpdate DoCmd.GoToRecord , , acNewRec ID_Sanf1.SetFocus End If End Sub استبدل هذا الكود بالذي لديك .

السلام عليكم ورحمة الله وبركاتة واجهة مشكلة عند النقر على زر ضغط واصلاح قاعدة البيانات وعند تحويل قاعدة البيانات( الواجهة) الى accde بظهور رسالة غريبة ولا يتم بعدها اكمال العملية سواء الضغط والاصلاح أو عملية تحويل القاعدة هذه صورة الرسالة فصرت ابحث وين المشكلة مدة اسبوعين في الاكواد لكن لم اجد اي كود يوجد به خطأ صرت ابحث في الاستعلامات ونفس الشي لم اتوصل الى اي خطأ وبعد التعب في البحث فكرت ابحث عن المشكلة في الجداول في قاعدة البيانات الخلفية كانت الجداول سليمة تمام بعد كذا رحت ابحث في الجداول المرتبطة فكتشفت ان احد الحقول قد تم تغيره وهو عبارة عن حقل قائمة منسدلة يقبل اختيار عدة قيم لكن يظهر بشكل حقل مرفق هذه الصورة قبل وهذه الصورة بعد الان عرفت وين المشكلة لكن مش عارف سببها رجعت الى حلقة البحث والاستكشاف 😖صرت ابحث عن الاكواد التي لها صلة بالحقل في النماذج مباشرة ولكن كل شي كان تمام التمام صرت ابحث في الاكواد العامة في القاعدة مثل اكواد التأمين واكواد النسخ الاحتياطي الخ ...... الى ان وصلت الى كود اخفاء الجداول المرتبطة وهنا كانت المفاجأه فبعد ايقاف هذا الكود واعادة اصلاح الجدول واظهارة اختفت المشكلة وبعد اعادة الكود للعمل وتنفيذ اخفاء الجداول ترجع المشكلة مع العلم ان المشكلة ما تصير الا مع هذا الحقل في هذا الجدول فقط فتذكرت كلمة لاستاذنا @jjafferr في احد المواضيع ( لا اتذكر الموضوع بالضبط ) وهو يقول انه قرأ ان اكواد احفاء الجداول تسبب مشاكل وهذا ما حدث معي بالفعل واحببت ان اشارككم هذه المشكلة لكي يتم اخذ الحيطة والحذر وهذا هو الكود Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing

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

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

تابع الشرح ..... قبل الشرح أود التأكيد على نقطة عند كتابة المسميات أكتبها بالانجليزي ومتلاصق مثل Fullname أو Full_name بالصور : هل استطعت فتح الملف ؟؟؟؟؟؟

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

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

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

جرب هذا الملف ترحيل البيانات على شرطين Salim.rar

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

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