kkhalifa1960

تفضل مثال . bb = DLookup("xx", "Table1", "ID=ID And DateStart=Date()")

تفضل بتنسق 2003 . DD143-1.mdb

أستاذنا @Mohameddd200300 اذا كان هذا طلبك اضغط على أفضل اجابة .

تفضل أخي محاولتي حسب مافهمت ووافي بالرد . DD143.accdb

تفضل أخي . SendKeys"^+{f}",True

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

أستاذنا @محمد احمد لطفى طيب مفيش إطراء للعبد لله أو شكراً ................... مالك ناشف ليه ومفيش حل مني لك بيعجبك !!!!!!!!!!!!!!!!!!

أولاً : اذا كان هذا طلبك اضغط على أفضل اجابة . ثانياً: iif لأكثر من شرط . ExamResult = Nz(IIf([Average] >= 90, "Excellent", _ IIf([Average] >= 80, "Very Good", _ IIf([Average] >= 70, "Good", _ IIf([Average] >= 60, "Acceptable", _ IIf([Average] >= 50, "Weak", _ IIf([Average] < 50, "Failed")))))))

تفضل أخي . اذا كان هذا طلبك اضغط على أفضل اجابة . تفضل المرفق . DD142.accdb

lنا صارت معي كثيراً ..........................................والحل هو من الكنترول بانل شيل الأوفيس نهائياً ( مافي اصلاح بل حذف ) ثم أعد تشغيل الكميوتر وأعد تسطيب الأوفيس من جديد .

تفضل استاذ @محمد احمد لطفى اضغط علي الزر نقل وغير القيمة بالفورم واضغط على الزر مرةً أخرى وكرر ........ انشاء الله طلبك . test2023-1 (5).mdb

استاذنا @محمد احمد لطفى حليت الطلب بطريقتي أما اذا كنت تطلب الحل بطريقة معينة كما عادتك !!!!!!!!!!!!!! اليك المرفق . test2023-1 (4).mdb

ممكن مرفق وموضح عليه المطلوب لنعمل عليه .

تعمل فولدر وليكن (icons) ثم تعبئ به كل الأيكونات التي تريدها تجيبها من جوجل بامتداد (ico.) أو (.bmp) وبعطيك برنامج يصنع أيكونات فقط افلت أي صورة حتى صورتك . واحفظها بالفولدر الذي أنشأته . ثم تستدعي الأيكون من فورم الأكسس عادي . ولو مش عارف كيف نشرح . المهم تقرأ البرنامج وين طريقة الحفظ . واليك البرنامج ووافني بالرد . ToYcon.rar

تفضل ياأخي والله شغال ويعطي النتيجة بالصورة المرفقة . واليك المرفق بعد ادخل قيم . حسابات-2.rar PhoXo32.bmp

أولا اشكرك على هذا الاطراء اللطيف . 1- جعلت مصدر النموذج الفرعى جدول " buy" ولم أجعله "master" . لأني ليس له حاجة في العمل (فقط جدولان) ولكن يمكنك تبديل الأسماء . 2-في وضع تصميم الفورم اذهب الى الزر الحاق وفي منشئ التعليمات البرمجية فعل السطر (DoCmd.GoToRecord , , acNewRec) أنا كنت غير مفعله علشان تشوف العمل كيف يسير . تحياتي لك .

تفضل أخي زودت بالجدول (daleel) حقل (hesab) وزودت (hesab) بالاستعلام (mezanerad) وكذلك بالتقرير التكست (T). تفضل المرفق ووافني بالرد . حسابات-1.rar

تفضل أخي ووافني بالرد . mus1 (4).rar

تفضل أخي . اذا كان هذا طلبك اضغط على أفضل اجابة . تفضل المرفق . تكرار الصنف-1.accdb

لطفاً أخي @Mohamed abo elmagd هنا منتدى الأكسس . ممكن تطرح سؤالك بمنتدى الإكسل وبتحصل من يساعدك باحتراف .

لطفاً أخي @Mohamed abo elmagd هنا منتدى الأكسس . ممكن تطرح سؤالك بمنتدى الإكسل وبتحصل من يساعدك باحتراف .

حاضرين .

تفضل أخي واذا تحب بمثال وافني بالرد . query criteria: Like "*" & Nz(GetMyVar();"*") & "*" Code in a standard moudule: Public MyVar As Variant Public Function GetMyVar() GetMyVar = Myvar End Function code in any form: MyVar = Me.textbox 'run query or open form/report 1- افتح موديول جديد وضع بة Public MyVar As Variant Public Function GetMyVar() GetMyVar = Myvar End Function 2-عند (comboBox) أو (TextBox) المراد أخذ الشرط منه ... بعد التحديث ضع الكود (MyVar = Me.textbox) 3-ضع هذا الشرط الأصفر فقط بدون الأقواس السوداء بالاستعلام ( Like "*" & Nz(GetMyVar();"*") & "*" ) 4- جرب بالشرط خالي وجرب بالشرط ممتلئ واغلق الفورم وشغل الاستعلام . هاك مرفق شغال تمام التمام عندي ... اذا كان هذا طلبك اضغط على أفضل اجابة . تفضل المرفق . حركة القطارات في نمودج.accdb

ارفع القاعدة وبعون الله نشوف الحل .

اذهب الى الاستعلام واضف كما بالصورة وشوف النتيجة . أو