f16

شكرا أ/ جمال على جهدك الكود نجح بشكر رائع . مع اني عملت نفس الكود ولاكن ربما كان هناك خطاء في كتابة الكود لك خالص التحية اخوك

أ/ جمال المعذرة منك على التضييق عليك بهذا السؤال كيف يمكن اضافة شرط اخر الى الكود السابق بمعنى الكود السابق هو اذهب الى السجل مثلا رقم 0 ، اريد ان اضيف شرط اخر هو اذهب الى السجل رقم 0 الذي نوعه رقم 2 لقد وضعت الكود بالشكل التالي ولاكنها لم تضبط "Me.Recordset.FindFirst "[inv_id_h] = 0 and [inv_type_h]=2 ولك جزيل الشكر اخوك

شكرا أ/ جمال على ردك الكريم وعلى هذه الاكواد الرائعة ، اسائل الله لك الأجر والتوفيق

اسعد الله مسائكم جميعاً لدي سؤال هو كيف يمكن برمجة زرار الانتقال الى سجل محدد لدي مثال مرفق فيه جدول اسمه tb1 وهناك نموذج مصدر سجلاته هو الجدول tb1 وفيه زرار اريد عندالضغط على الزرار اريده ان يذهب الى السجل الذي رقم ID هو 3 وليس ترتيب السجل . قمت بعمل الكود التالي ولاكنه ينتقل الى السجل الذي ترتيبة رقم 3 وليس الذي رقمه في ID رقم 3 DoCmd.GoToRecord , , acGoTo, 3 مع كل الامتنان والشكر مثال اوفيسنا الانتقال الى سجل محدد.accdb

اخي الاستاذ جعفر كل عام وانت بخير وعلى الجميع لقد وجدت في كلا الاجابتين ما ابحث عنه وقد استفدت من كلا المشاركتين لاكني استفدت اكثر من اجابة أ/ ابو بسملة هذا ولكم مني خالص التحيه والتقدير اخوكم عمار

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

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

عذرا اخي خالد على تاخري في مشاهدة الرد وذلك لأن عملي في الليل فعلاً اخي خالد هذا هو المطلوب . لاكن كيف يمكن عمل ذلك اذا اضفنا شرط اخر هو ان يكون بين تاريخين على الشكل التالي ((Nz(DSum("[Expr1]";"[Q1]";"[id] =" & [id] And [Dat_bill] Between #01/01/2020# And #31/01/2020#= ارفت المثال السابق مع بعض التعديل عليه حيث جعلت مصدر البيانات استعلام واضفت حقل محسوب داخل الاستعلام يقوم بجمع الكمية +1 مع كل التقدير ... مثال اوفيسنا الدالة dsum.accdb

السلام عليكم ورحمة الله رمضان كريم عليكم جميعاً اصدقائي اعضاء المنتدى الرائع كيف يمكن ان يعمل هذا التعبير داخل الاستعلام الخاص بالتقرير . ارفقت مثال لطلبي في المثال يوجد جدولين جدول t1 الخاص بالاصناف وجدول t2 وفيه حركات الاصناف ويوجد R1 عبارة عن تقرير يوضح كمية المبيعات على الاصناف . وقد وضعت هذا التعبير في عنصر غير منظم وقد قام بنجاح بجمع الكمية المباعة من الاصناف . السؤال كيف يمكن جمع الاجمالي للكمية المباعة في التقرير ؟ او كيف يمكن وضع التعبير داخل الستعلام الخاص بالتقرير حتى استطيع عمل جمع الاجمالي الخاص بالكمية المباعة . =Nz(DSum("[Quantity]";"[t2]";"[id2] = [id] ")) اتمنى ان اكون وفقت في شرح سؤالي ولكم جزيل الشكر والتقدير اخوكم مثال اوفيسنا الدالة dsum.rar

شكراً اخي شفان على هذا الكود الرائع بالفعل هذا ما اريد .

اسعد الله مسائكم جميعا اخواني اعضاء المنتدى الرائع واسأل الله عز وجل ان يجنبكم الأمراض والأوبئة اخوني لدي مثال مرفق فيه ثلاثة نماذج مختلفة النموذج الاول هو form1 فيه حقل به قيمة افتراضية تساوي (1) النموذج الثاني هو form2 فيه زرار لفتح النموذج الاول form1 النموذج الثالث هو form3 وهو نفس form2 الآن عند فتح النموذج الثاني form2 والنقر على الزرار يقوم بفتح النموذج form1 اريد ان ينتقل القيمة الافتراضية من النموذج form1 الى النموذج form2 عند الضغط على زرار الاضافة . كذلك اريد ان تحصل نفس الخطوات مع النموذج form3 مرفق مثال على ذلك . اتمنى ان اكون قد وفقت في شرح ما اريد مع كل التقدير والاحترام مثال اوفيسنا نموذج الحسابات يعمل مع اكثر من نموذج.rar

اشكرك اخي ابو بسملة على هذا الكود وعلى المساعدة

اسعد الله مسائكم اخواني الاعضاء بهذا المنتدى الرائع كيف يمكن ان اجعل رقم ما مثلا هذا الرقم 20200308 يتحول الى هذه الصورة 2020/03/08 عند كتابت الرقم في مربع نص . هل الدالة format هي الحل ؟ حاولت العمل بها ولاكن لم استطع ربما كتابتها بشكل المطلوب مع كل الشكر والتقدير لكم

شكرا اخي خالد على هذا الكود الرائع بالفعل الكود قريب الى ما اريد . مع كل التقدير والاحترام

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

اسعد الله مسائكم اخواني اعضاء هذا المنتدى الرائع لدي معرفة عن كيفية عمل كود منع ترك حقل فارغ في نموذج رئيسي وذلك باستخدام هذا الكود Private Function zaNoEmptyTextbox() Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then MsgBox "فارغا " & ctl.name & " اخي الكريم .. لقد تركت حقل " DoCmd.CancelEvent ctl.SetFocus Exit For End If End If Next ctl End Function ولاكن السؤال كيف يمكن عمل ذلك اذا كان النموذج فرعي و جدولي في نفس الوقت . ارفقت مثال على ما اريد في النموذج ثلاثة حقول هي رقم الصنف ؛ رقم المخزن ؛ الكمية وايضا يوجد زرار بالنموذج اريد عند الضغط على الزرار الذهاب والتأكد من ان جميع الحقول لكل السجلات بها بيانات وانه ليس هناك سجل به حقل فارغ مثال اوفيسنا منع ترك حقل فارغ.rar

شكراً لك اخي خالد على ردك الكريم بالفعل اطلعت على المزايا الجديدة . حيث انها اضافات ليست بالأهمية الكبيرة

اسعد الله صباحكم جميعاً اخواني اعضاء المنتداء لدي سؤال هو من المعروف ان مايكروسوفت تقوم باصدار اكسس كل فترة وفترة ؛ الآن انا اعمل على اصدار اكسس 2010 ؛ ويوجد في السوق اصدارات احدث . السؤال هو كيف يمكن ان اعرف المزايا الجديدة التي تم اضافتها على اصدارات اكسس الجديد بحيث اعرف هل من الواجب علي تغيير الاصدار ام استمر على الاصدار الذي اعمل عليه . هل من الممكن متابعة مثل هذا على موقع مايكروسوفت ام ماذا . ولكم جزيل الشكر

شكراً لك أ/ خالد على ردك الكريم على سؤالي الاجابة بسيطه لاكن ليس كل شخص يعرفها

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

شكرا أ/ عبدالله شكرا على جهدك في شرح المثال ، بالفعل كانت طريقة فعالة للحل اشكرك عليها .

ا/ عبدالله بداية اعذرني على عدم فهمي لما طرحته من حل للمثال ارجو منك التعديل على الملف المرفق مع احترامي لجهدك ووقتك .

ا/ ابو عبدالله اشكرك على ردك الكريم ، لم افهم جيداً ما تقصد . ارجو بعد اذنك ان تقوم بالتطبيق على المثال المرفق اعلاه واكون شاكر ومقدر اخوك عمار

الاخوة الكرام اسعدالله مسائكم بالخير والصحة سؤالي كيف يمكن عمل استعلام تحديث من استعلام تجميعي مرفق مثال فية جدول الطلبات request وجدول اخر المخزون story ويوجد ايضا استعلام تجميعي يقوم بعمل جمع للبيانات من جدول الطلبات request وكذلك يوجد استعلام تحديث . اريد ان يقوم استعلام التحديث بنقل الطلبات من الاستعلام التجميع الى جدول المخزون story ملاحظة :- استعلام التحديث عندما يقوم بالتحديث من استعلام تجميعي تظهر رسالة بعدم امكانية التحديث ، اتمنى ممن يعرف ان يقوم بتعديل على المثال مثال_اوفيسنا_استعلام_تحديث_من_استعلام_تجميع.accdb

نعم اخي عصام لقد وجدت في حلك ما طلبته فألف شكر لك ولكل من شارك . تحياتي عمار