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

أخي @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 جعفر

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسعدني أن أقدم لأحبابي في الله حل مشكلة عدم ظهور الصوت sound problem في برنامج آيات Ayat في نظام التشغيل ويندوز 10 windows وخصوصا بعد تحديث برنامج adobe air إلى أحدث إصدار رابط تحميل نسخة adobe air 21 https://www.file-upload.com/ek1j4kv1mxbd آيات كأفضل برنامج للقرآن الكريم المشروع هو محاكاة الكترونية للمصحف الشريف - متوفر بسبع عشرة لغة - مع هامش لترجمة معاني القرآن الكريم لأكثر من عشرين لغة , وترجمة صوتية للغتين , وسبعة تفاسير , وتلاوات للقرآن الكريم بصوت العديد من مشاهير القراء مع إمكانية التكرار لتيسير الحفظ على الأطفال والمكفوفين خاصة iOS نسخــة الـنسخــة الأندرويــد نسخــة وينـدوز فـون نسخــة المــاك نسخــة الينيـكـس نسخـــة الوينـــدوز رابط الموقع http://quran.ksu.edu.sa/ ادعمنا بلايك وكومنت وشير والآن مع فيديو الشرح ولا تنسوني من صالح دعائكم

ماكرو بحث واستبدال اسم أو رقم بفورم الاكسل وبعددة طرق الفيديو الصور

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

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

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

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

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

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

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

تم الإصلاح في النسخة الحالية 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 واخي @ابا جودى اولا لكتابة الكود واعادة صياغتة بهذه الصورة الجميلة وثانيا انا استفدت من المناقشات منذ بداية الموضوعين ... فلكم كل الاحترام والتقدير ... 🥀

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

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

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

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

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

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

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

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

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

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

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

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