kha9009lid

كود مختصر اكثر Me.NUMBER = Me.TYPE.Column(2) TEST AA.accdb استاذنا الفاضل @أحمد الفلاحجى في مرفقك بعد التنفيذ لا يتم الحفظ في جدول TBL1

جزاك الله خير اخي امير ورحم الله والديكم

انظر للصورة واعمل مثلها ترتيب التسمية التوضيحية اجعلة عام او يمين او يسار حسب رغبتك ويمكن تحميل الايقونات من الموقع في الاسفل موقع ايقونات

بارك الله فيك اخي @ازهر عبد العزيز

حل جميل استاذ @خالد سيسكو ومن باب اثراء الموضوع حل احر عن طريق دالة Switch =Switch([f_sex]=1;"ذكر";[f_sex]=2;"انثى") قائمة منسدلة31.accdb

اضف امر حفظ قبل الفتح TEST1 - Copy.accdb

طريقة اخرى عن طريق مربع تحرير وسرد قائمة منسدلة2.accdb

ممكن بدون الحاجة الى قائمة منسدلة فقط ضع مربع نص غير منظم قيمتة تساوي Choose([f_sex];"ذكر";"انثى")) واذا ترغب في اخفاء عبارة خطا عند السجل الجديد ضع =IIf(IsNull([f_sex]);"";Choose([f_sex];"ذكر";"انثى")) ملفك في المرفقات قائمة منسدلة.accdb

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

استاذ @jjafferr دخلت لوضع شكر لمشاركتك وما وجدتها 😃

بعد اذن اساتذتنا الافاضل @أحمد الفلاحجى و @محمد ابوعبد الله اذا كنت ترغب في استخدام الامر Me.Requery يمكن عملها عن طريق Dim x As Integer x = CurrentRecord Me.Requery Me.PCode.SetFocus DoCmd.FindRecord x, acAnywhere, , acSearchAll حجز متغير باسم x المتغير يساوي السجل الحالي تحديث نقل التركيز للحقل pcode البحث عن السجل الى كنا واقفين عليه في خاصية النموذج حقل pcode كان غير ممكن وغيرته الى ممكن النموذج مرفق بالتأكيد توجد طرق اخرى ولكن هذا ماجاء على بالي واعذرني في حالة عدم الرد لا نشغالي في ضل الاوضاع الكرونية اجارنا الله جميعا منها Dental.accdb

مثال رائع استاذي @jjafferr ومع انكم واخي الفاضل @ابوآمنة اجبتم على الموضوع احب اشارك معكم بوضع تلميح للحقل عن طريق التنسيق @;"فضلا افتح القائمة لاختيار المورد" او اي عبارة مناسبة للحقل

الشكر لله اخي رعد مع تمنياتي لك بالتوفيق

اهلا اخي رعد شوف الصورة حركة صندوق 2.accdb

جرب الان حركة صندوق 1.accdb

مرحبا هل هذا المطلوب اذا كان هو المطلوب اجعل قيمة مصدر البيانات للحقل يساوي =Format(Nz(DSum("[wared]-[sarf]";"q1";"[id_r]<" & [id_r]);0);"#,###" & 0) الملف مرفق حركة صندوق 1.accdb

ربما لم افهم المطلوب بشكل صحيح او انك لم توضح المطلوب بشكل واضح كان استفساري هل ترغب في اضهار الرصيد قبل اي عملية ايداع او صرف مثل في الصورة المرفقة بنهاية يوم 4/3/2020 كان لدينا رصيد 7,610,000 مع بداية يوم 5 وقبل اي عملية كان الرصيد المتوفرة نفس مبلغ الاقفال ليوم 4 ثم حصلت عملية ايداع واحدة بمبلغ 90,000 وبنهاية يوم 5 اصبح الرصيد الاجمالي 7,700,000 وهو ناتج الرصيد السابق زائد مبلغ الايداع وكذلك يوم 6 الرصيد المتوفر هو رصيد الاقفال ليوم 5 مبلغ 7,700,000 ثم حصلت عملية صرف لمبلغ 123,500 واصبح الرصيد المتوفر ليوم 7 مبلغ 7,576,500 وهو اجمالي المبلغ الافتتاحي لليوم السابق ناقصا المبلغ المصروف الف شكر اخي واستاذي @أحمد الفلاحجى

الله يسلمك استاذ احمد

تم الفحص عن طريق افاست لا توجد اي مشكلة

بعد اذن اخي الفاضل @سلمان الشهراني ايقاف رسائل التحذير DoCmd.SetWarnings False تنفيذ استعلام الحاق DoCmd.RunSQL "INSERT INTO table2 ( id, الاسم, [تاريخ التولد], العمر, المهنة, الملاحظات ) " & vbCrLf & _ "SELECT table.id, table.الاسم, table.[تاريخ التولد], table.العمر, table.المهنة, table.الملاحظات " & vbCrLf & _ "FROM [table];" تنفيذ استعلام حذف DoCmd.RunSQL "DELETE table.* " & vbCrLf & _ "FROM [table];" تحديث النموذج الفرعي بعد الحذف Me.subform12.Requery رسالة تنفيذ المهمة MsgBox "تم تنفيذ نقل الملفات", vbInformation, "رسالة ادارية" اعادة تفعيل رسائل التحذير DoCmd.SetWarnings True الملف مرفي المرفقات الموظفين.accdb

السلام عليكم هل ترغب في اظهار الرصيد السابق قبل كل عملية ايداع او صرف اذا كان هو المطلوب فان الاستاذ @اكرم العريقي اعطاك الحل الصحيح جرب المرفق حركة صندوق 1.accdb

ممكن جمع الارقام في مربعات النص باستخدام دالة val Val([ملف_انجاز])+Val([امتحان]) جرب المرفق جمع الارقام من مربع نص تنسيقه نص1.accdb

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

مرحبا انا حاليا في اجازة ولا يتوفر لدي برنامج اكسس على العموم معايير دوال التجميع تختلف عند التعامل مع الارقام والنصوص طالما انك غيرت نوع الحقل الى رقم فممكن تعديل الكود للحقل نص 62 العلوي الاعلى الى التالي =DSum("[debit]";"daily";"[date]<" & DateFormat([Date]) & "And [code]=" & [code]) وكذلك الكود للحقل المسمى نص 62 السفلي الى =DSum("[credit]";"daily";"[date]<" & DateFormat([Date]) & "And [code]=" & [code]) وكما اخبرتك سابقا يمكن الاستغناء عن الحقلين بدمج الكود مباشرة في الحقل الخاص بالرصيد ليكون على النحو التالي =DSum("[debit]-[credit]";"daily";"[date]<" & Format([Date];"\#mm\/dd\/yyyy\#") & "And [code]=" & [code]) تحياتي

استاذ @jo_2010 عندما نرغب في تنفيذ زر امر من خلال زر اخر فلدينا عدة طرق اذا كان كلا الامرين في نفس النموذج ممكن استخدام الامر Command18_Click Command18 هو زر الامر المراد تشغيلة الطريقة الثانية Call Command18_Click اما اذا كان الامر المراد تنفيذ في نموذج رئيسي ونرغب في تنفيذة من نموذج فرعي او العكس Form_invoices2.Command18.SetFocus SendKeys "{Enter}" وهنا نقلنا التركيز لزر الامر ثم ارسلنا امر انتر والطريقة الاخرى بدون نقل التركيز وتفيدنا في حالة كان زر الامر غير قابل للتركيز كان يكون مخفي او ان التركيز حاليا في نموذج منبق ونرغب في تنفيذ امر بعد اغلاق النموذج المنبثق فيمكن ولكن بعد اجراء تغيير على زر الامر ليكون عام وليس خاص تغيير زر الامر من Private Sub Command18_Click() الى Public Sub Command18_Click() ثم يكون الكود على النحو التالي Call Form_invoices2.Command18_Click امل ان يكون فيما سبق رد على استفساركم استاذي الفاضل