Ahmed.IQ

تمام عاشت يداك

مشكور اخي جعفر

لدي كود وضغته عن الضغط على زر خروج يعمل نسخة احتياط في مسار مجلد معين وياخذ التاريخ والوقت بالاضافة الى اسم القاعدة Private Sub Command4_Click() Dim Msg, style, title, result Msg = "هل تريد الخروج من البرنامج" style = vbYesNo title = " تحذير سيتم الخروج من البرنامج" result = MsgBox(Msg, style, title) Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) If result = vbYes Then NewFile = "c:\access" & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 DoCmd.Quit Else If result = vbNo Then DoCmd.CancelEvent MsgBox "تم التراجع عن الخروج", vbInformation, "الغاء العملية" End If End If End Sub الصيغة بعد الحفظ لا تظهر بشكل مطلب Sales.a-2016-07-07-12-48-48-مccdb ومن المفترض تظهر بهذا الشكل Sales-2016-07-07-12-48-48-م.accdb مع ملاحظة بسيطه لو كانت قاعدة البيانات بصيغة mdb لاتظهر هذه المشكلة

من بعض ما عندكم اخي الوزير بارك الله بك

تم حل المشكلة عن طريق تعديل الكود بالشكل التالي بعد معامل between واصبح بالشكل التالي Between Forms![form name]![txtbox name] and Forms![form name]![txtbox name]

تم ارفاق مثال .. لتوضيح الفكرة .. اخي الوزير لم يفلح الامر معي بعد حذف التنسيق فورمات. بالنسبة للدالة تم وضعها في حقل DA2 بعد التحديث between.rar

السلام عليكم ورحمة الله لدي دالة جمع بشرط مربع سرد ودالة بتوين بين تاريخين Me.too2 = DSum("[Totall1]", "receipt", "codcl = xn and date1 between #" & Format(Me.DA1, "dd/mm/yyyy") & "# and #" & Format(Me.DA2, "dd/mm/yyyy") & "#") وهذه هيا الدالة المشكلة بالضبط هوا لو التاريخين لو كان التاريخ مثلاً 4/7/2016 والتاريخ الذي بعده 4/7/2016 لا يقوم بالجمع اما اذا كان 3/7/2016 - 4/7/2016 - 5/7/2016 سيقوم بالجمع بشكل طبيعي

جيد بس هل من الممكن رفع الصور في فولدر خاص يعني .. في النموذج اعمل زر اختار الصور يروح عامل فولدر في مسار معين يحمل اسم الشخص او رقم قومي للشخص داخل الفورم ؟

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

تمام شكراً لك اخي الكريم وبارك الله بك

السلام عليكم ورحمة الله لدي جدول فيه قيمة رقم وقيمة اسم احتاج عند اختيار رقم =0 والاسم = افتراضي عند فتح النموذج لا اريد ان يظهر هذا الاسم او الرقم الخاص بالاسم في مربع السرد بشكل مختصر عند فتح النموذج والذهاب الى خانة مربع تحرير وسرد لا اريد ان يظهر اسم افتراضي في مربع التحرير والسرد المرفق نموذج مصغر data.rar

السلام عليكم ورحمة الله لدي دالة if المطلوب عمله من هذه الدالة تبحث عن حقل اسمة p1 اذا كانت الحقل فارغ او =0 احتاج ان لا يفعل اي شيء اما اذا كانت الحقل يحتوي على رقم يفعل الامر بعد else الكود كما موضح If Me.p1 = "0" Then Exit sub Else DoCmd.SetWarnings False DoCmd.OpenQuery "UP4" DoCmd.SetWarnings True End If احتاج الى وضع امر مهمته عدم عمل اي شي

جميلة الفكرة وشكراً لك اخي صالح

السلام عليكم ورحمة الله كان هناك شخص لديه مشروع واحببت ان اساعدة فا طلب ان اساعدة بتغير الوان الخلفية الفكرة جميله واحببت ان اشارككم بالفكرة المرفق تنفيذ للفكرة تغير لون الخلفية.rar

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

السلام عليكم ورحمة الله لدي استفسار حول طريقة الجمع في اكسيس 2003 لدي جدول اسمه QQ في حقل اسمه B لدي نموذج اسمه NAME داخل النموذج في حقل امسه z احتاج اجمع B+z ويعرض النتيجة في مربع مجوار MM\

اجعل رقم المحرك هوا المفتاح الاساسي فقط لكي تمنع بيع السيارة مرتين

السلام عليكم ورحمة الله لدي فكرة اني اطبق شرط في استعلام اني اضع الشرط يشابة حقل داخل الفورم كما في هذا الشكل الكود الذي اود ان اطبقة >= like [Forms]![Form Name]![fieldName] and <= like [Forms]![form Name]![fieldName] الشرط هذا لو كان فقط like يعمل بشكل طبيعي لكن وضعته دخل شرطين مع شرط اكبر او يساوي او اصغر او يساوي ولدي مشكلة اخرى ,, لو كان لدي حقل اسمه الدفعة الاولى ولدي عميل قام بتسديد اكثر من دفعة لو قمت بختيار التاريخ من شهر 1 الى شهر 3 . ستظهر لي النتيجة جميع الدفعات التي قام بتسديدة احتاج الى عمل حقل يجمع لي جميع الدفعات ويعرضها في حقل داخل الفورم

اخر الوزيرالمرفق لا يعمل بعد فك الضغط ؟

تمام عاشت ايدك اخي الكريم

السلام عليكم ورحمة الله وبركاته لدي نموذج فرعي داخل نموذج رئيسي اريد ان اعمل زر في النموذج الرئيسي يقوم بنقل معلومات نهاية الفترة الاخيرة ويضعها في حقل جديد تحت خانة بداية الفترة الصورة توضح الطلب المرفق قاعد بيانات https://drive.google.com/open?id=0BzSUEgL-4myjTEhVcVlXTzNXVFE الصورة توضح الطلب

شكرا لك اخي الوزير لكن هل من الممكن ان تشرح لي الكود الذي قمت بوضعة ؟ F2 = DLookup("[price]", "outcome", "[CodTy] = 1 And CodDe=X") مع مطلب اخير اذا ممكن نسيت اذكرة .. احتاج عمل زر حفظ عندما اضغط عليه ياخذ ال coddy من حقل ال X ويضعة في جدول total في خانة coddy ايضاً وباقي المعلومات المجموع الكلي والتاريخ تحفظ تلقائياً

اخي الكريم اشكرك على اهتمامك سوف ارفق لك نموذج للذي اقصده https://drive.google.com/open?id=0BzSUEgL-4myjalgxVWR2aFNSRHc عند دخولك على ملف seles سوف يظهر عندك النموذج القائمة المنسدلة تمثل كود المندوب اما الخانات الخمس التي تمثل خمس اصناف احتاج عند اختيار رقم المندوب تظهر لدي اسعار كل مادة في هذه الخانات بشرط كود المندوب وكود المادة يعني لو تم اختيار المندوب رقم 1 من القائمة المنسدلة سوف يظهر في الصنف رقم 1 سعر المادة رقم 1 الموضوعة للمندوب والمادة رقم 2 الى نهاية المادة رقم 5 ولو قمت بختتيار كود المندوب رقم 2 سوف تظهر لدي اسعار المواد المذكورة لكن باسعار مختلفة عن المندوب الاخر ارجو ان الصورة قد وضحت

السلام عليكم ورحمة الله وبركاته اخواني انا عمل دالة if كما هوا موضح الان If Me.X = DLookup("[CodDe]", "outcome") And Me.F1 = DLookup("[CodTy]", "outcome") Then Me.F2 = [أسم الحقل]![الجدول] End If الداوله تقول عندما يكون x تروح تبحث في الحقل CodDe الموجود في الجدولoutcome وايضاً عندما يكوم F1 يساوي الحقل CodTy في الجدول outcome اذا F2 تساوي القيمة الموجودة في الحقل prt في الجدول outcome فا احتاج الى طريقة استدعاء قيمة prt لادخالها في حقل F2 في الفورم ,, واذا كان هناك اي تعديل على الكود ياريت الافادة

السلام عليكم ورحمة الله وبركاته اخواني الكرام لدي برنامج اكسيس يتكون من 1. جدول خاص باسماء العمال 2. جدول خاص باسماء المواد 3. جدول خاص فيه كود العامل وكود المادة واجرة كل ماده لكل عامل ----------------------------------------------------------------- مثل العامل أ اجرته في الكارتونه هذه 5 دينار العامل ب اجرته في هذه الكارتونه 6 دينار لدي عشرة انواع كراتين لكل كارتون سعر خاص به لكل عامل فا انا عامل واجهة فيها قائمة منسدلة احتاج من اختار اسم العامل أ يطلعلي الاسعار الخاصة به والي هيا 5 دينار عشان اضربها في عدد الكراتين المعمولة ويطلع معي الاجمالي.. كل الي احتاجهة كيف اربط القائمة المنسدلة مع الجدول الخاص بالاسعار تحت كل عامل يعني كل عامل اختارة يطلعلي السعر الخاص به