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

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

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

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

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

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

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

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

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

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

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

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

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

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

نعم ممكن

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

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

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

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

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

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

أجريت تعديلات على المسميات ولم تجرها على مسميات الحقول في النموذج الكود الالحاقي سيكون كالتالي 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

تم الإصلاح في النسخة الحالية 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 استبدل هذا الكود بالذي لديك .

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

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

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

السلام عليكم ورحمة الله وبركاتة واجهة مشكلة عند النقر على زر ضغط واصلاح قاعدة البيانات وعند تحويل قاعدة البيانات( الواجهة) الى 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 بالصور : هل استطعت فتح الملف ؟؟؟؟؟؟

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

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

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

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

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

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

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

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