elkareee

مشكور على مرورك اخى الكريم أولا الاستعلام يقوم بالحاق القيم من النموذج Edit2 الى جدول tbledits2 وذلك بعد الضغط على زر فتح التعديل وبذلك يقوم بتشغيل استعلام الالحاق ليقوم بالحاق القيم قبل التعديل عليها ومصدر البيانات التى يتم الحاقها اساسا فى جدول transactions أى ان الفكرة منه فى حالة محاولة التعديل على سجل معين فى جدول transactions يقوم الاستعلام بالحاق السجل قبل التعديل عليه الى جدول tbledits2 وذلك لمعرفة اى السجلات تم التعديل عليه ووقت هذا التعديل ومثل ما ذكرت سابقا المشكلة لا تظهر الا فى حالة عمل split لقاعدة البيانات وفصل الجداول عن الواجهة اما لو مثل المثال المرفق ليس به اى مشكلة تكرار ويعمل بكفاءة مشكور د

السلام عليكم اساتذتى الافاضل واجهتنى مشكلة غريبة فى استعلام الحاق حيث يقوم بالحاق القيمة اكثر من 2000 مرة فى حالة ان القاعدة مقسمة أى مفصول الجداول عن الواجهة أما فى حالة عدم فصل الجدوال يعمل الاستعلام بشكل جيد !! مع العلم ان هناك استعلام شبيه له فى نفس القاعدة ولا تحدث المشكلة به مرفق القاعدة التى لا يوجد بها مشكلة التكرار واسم النموذج اللى به المشكلة فى حالة تقسيم القاعدة Edit2 شكرا جزيلا new.rar

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

اخى الكريم ارفق القاعدة للتعديل عليها

السلام عليكم عندى نموذج فى القاعدة المرفقة "zvalue" بيحضر قيمة حسابية Calculated Field من الجدول "transactions" المفترض انه يحضر القيمة الموجودة فى الجدول فى حقل "Tovalue" عن طريق الدالة Dlast وللعلم الكود يعمل فى حقل ولكن فى هذا الحقل لا يعمل ,, القاعدة مرفقة برجاء اكتشاف الخطأ المطلوب : يحضر اخر قيمة موجودة فى الجدول فى حقل "Tovalue" وفى حالة وجود اكثر من سجل فى النموذج zvalue بمجرد تحديث القيمة فى الحقل zvalue تقوم بحساب القيمة فى الجدول ثم التحديث لتظهر القيمة الجديدة فى الجدول مثال : عندى الصنف أ يتم اضافته لاول مرة فيكون القيمة السابقة للرصيد (Tovalue) فى الجدول تساوى صفر وبالتالى عند فتح النموذج يحضر القيمة صفر ثم عند تحديث قيمة رصيد الصنف zvalue يتم حساب الحقل المحسوب فى الجدول ويتم احضار قيمة الحقل المحسوب فى النموذج تلقائيا لتقوم الحركة التالية على الصنف بالاعتماد على القيمة الجديدة ولمزيد من التوضيح القاعدة المرفقة بها اكواد واضحة يسهل فهمها جزاكم الله خير New.rar

السلام عليكم عندى نموذج فى القاعدة المرفقة "zvalue" بيحضر قيمة حسابية من استعلام "qrzvalue2" المفترض انه بعد تحديث القيمة فى النموذج فى حقل "zvalue" يقوم باحضار قيمة حسابية معينة من الاستعلام السابق ذكره ولكنه يكتب 0 وبعد التحديث فى المرة الثانية يحضر القيمة الأولى باختصار المطلوب : بمجرد تحديث القيمة فى الحقل "zvalue" فى النموذج يقوم باحضار القيمة "Avg" من الاستعلام "qryzvalue2" جزاكم الله خير new.rar

السلام عليكم أساتذتى الكرام محتاج مساعدة فى تطبيق معادلة متوسط السعر لتقييم المخزون فى مصنع على المثال المرفق وسأقوم بشرحها : متوسط السعر = (كمية الرصيد السابق + كمية الحركة الحالية) / (قيمة الرصيد السابق + قيمة الحركة الحالية) حيث أن الحركة الحالية هى أى حركة تتم على رصيد أول المدة سواء اضافة او صرف , بالنسبة للمثال المرفق به كارتة صنف من الاصناف تبين حركات الصرف والاضافة لهذا الصنف المطلوب اساتذتى انه بعد كل حركة تتم على الصنف يكتب الرصيد الحالى للصنف و يحسب قيمة الرصيد الجديد بعد حساب المعادلة السابقة كالتالى (متوسط السعر * الرصيد الحالى) حاولت تطبيق الفكرة لكنها معقدة بعض الشئ شكرا جزيلا new.rar

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

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

up

شكرا على مرورك اخى ولكنى جربت ووضعت الأمر التالى بعد الرسالة me.compo24.dropdown يتحقق مرة واحدة وتظهر الرسالة مرة واحدة ويستمر برده عادى

السلام عليكم عندى نموذج به حقل معين اضفت له الشرط التالى Private Sub Combo24_BeforeUpdate(Cancel As Integer) If Me.com <> DLookup("[Ameen1]", "tbl", "Warehouse=combo24") Then MsgBox "غير مصرح لك" End If End Sub وظيفة الكود التحقق من الشرط السابق وفعلا الرسالة بتطلع لكنه بيكمل وينتقل لحقل أخر المطلوب انه يطلع الرسالة ولا ينتقل من الحقل الا بعد ما الشرط السابق يتحقق عكسه شكرا جزيلاً هناك طلب اخر اذا تكرمتم مطلوب كود يعد تلقائى عدد مرات فتح النموذج يعنى بمجرد الفتح الرقم يزيد 1 وهكذا جزاكم الله خير

شكرا يا غالى معلومة جديدة هجربها

تمام جزاك الله خير اخى الكريم نفعت الطريقة

تفضل يا أخى فى الصورة المرفقة تلاحظ كلمة File على اليسار منها طبعا يعرف يلغى كل شئ ولو فى طريقة نخفى بيها NavigationPane للأبد يبقى تمام مشكور على المتابعة

السلام عليكم اساتذتى الافاضل محتاج طريقة لحماية قاعدة بيانات كبيرة صممتها ولا تقبل التحويل الى accde وذلك لكثرة النماذج والتقارير بها وقمت بعمل الأتى : 1 - حماية الأكواد برقم سرى والغاء تفعيل Shift 2-غلق Navigation Pane و اخفاء القوائم ومنع القوائم المختصرة 3-بالنسبة للجداول منفصلة عن الواجهة على الجهاز الرئيسى للشبكة الداخلية لكن مازال الشريط العلوى متواجد ويمكن الغاء ماتم عمله بسهولة برجاء المساعدة جزاكم الله خير

up

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

عندى اقتراح استاذى الفاضل : ايه رأيك تصمم برنامج يوضع داخل اى قاعدة 2003 لجعلها تعمل على 2013 وفكرته عبارة عن نموذج يقوم بالبحث داخل أكواد VBA واضافة الكلمات الناقصة او تغيير مصطلحات بعينها او حذف كلمات لم تعد تستخدم اظنها فكرة جيدة لكثرة الامثلة على 2003 مشكور استاذى الفاضل

ماشاء الله عليك استاذى فهمتها بسرعة :) الحمدلله وجدت الحل المناسب لى وسأشرحه سريعا واقوم بارفاق مثال ليستفيد من كان متابع الموضوع ولأنه جاء بعد عناء شديد و مساعدة من العديد من الأساتذة الكرام : من البداية كانت المشكلة اجبار امين المخزن على اختيار طلب الصرف ثم اجباره مجددا على اختيار الاصناف بكمياتها المحددة وسبب المشكلة هو انفصال النموذجين اساسى وفرعى ففكرت ماذا اذا جمعتهم فى نموذج واحد وجعلته يفرغ بياناته فى عدد من الجداول وبالفعل قمت بتطبيق الفكرة بالاستعانة بمثال قديم عندى وتطبيق الفكرة كالتالى : قمت بانشاء نموذج مستمر Continuous Form ثم قمت بعمل عدد من الحقول الغير منضمة unbound (أى غير مرتبطة بأى جدول) ووضعت هذه الحقول فى رأس النموذج Header ثم فى جزء التفاصيل قمت بعمل عدد اخر من الحقول ولكن فى هذه المرة مرتبط بجدول الصرف وفى مصدر النموذج وضعت هذا الكود : SELECT Order_Sub.Code, Order_Sub.Item, Order_Sub.Qty, Order_Sub.Notes FROM Order_Sub WHERE (((Order_Sub.ID)=[Forms]![Try]![t0])); يقوم هذا الكود باستدعاء القيم من الجدول المذكور فيه الى عدد من الحقول الموجودة فى جزء التفاصيل Details ولا يمكن التعديل عليها ولا الكتابة فيها وهو المطلوب بالضبط أما بالنسبة لطريقة توزيع البيانات على جداول مختلفة من نفس النموذج بحيث الHeader يفرغ فى جدول و التفاصيل تفرغ فى جدول أخر , بالنسبة للبيانات الموجودة فى رأس التقرير قمت بعمل نموذج خارجى باسم Robot معتمد على الجدول المطلوب وبه جميع حقول الجدول و قمت بعمل زر تحكم فيه الكود التالى وظيفته تفريغ البيانات DoCmd.OpenForm "Robot" DoCmd.GoToRecord , , acNewRec Forms![Robot]![Warehouse] = Me.T9 Forms![Robot]![Order] = Me.t0 Forms![Robot]![orient] = Me.T13 Forms![Robot]![zdate] = Me.T6 Forms![Robot]![Doc] = Me.T7 DoCmd.Close Dim sql As Recordset Set sql = CurrentDb.OpenRecordset("Transactions", dbOpenDynaset) DoCmd.GoToRecord , , acFirst For m = 1 To T8 With sql .AddNew !code = Code1 !Item = T1 !Doc = T12 !Out = T2 !Notes = T5 .Update End With DoCmd.GoToRecord , , acNext Next m MsgBox "تم", vbInformation, "تم الصرف" t0 = "" T6 = "" T7 = "" T3 = "" T9 = "" T10 = "" T13 = "" Me.Requery End Sub وبهذا وصلت للمطلوب جزاكم الله خير على المساعدة مرفق مثال عملى للفكرة بالتوفيق للجميع الحمدلله.rar

استفسار يا اخى الفاضل ما فائدة حقل Doc الذى اضفته فى جدول OrderNo و OrderDetails بالفعل انا كنت عامل علاقة تربط بينهم برقم ID على اعتباره هو ايضا رقم المستند ستتم طباعته بهذا الشكل وبالنسبة للجدولين الاخرين كنت عامل علاقة ترتبط برقم Doc لماذا اضافة ID فى الجدولين والربط بينهم عن طريقه؟ حاولت اطبق طريقتك على قاعدة تخص أخى ولم استطع برجاء تطبيق نفس الطريقة على المرفق واسف على ازعاجك استاذى الفاضل New.rar

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

الله يحفظك أستاذنا الغالى هو المطلوب وأكثر جعله الله فى ميزان حسناتك وبعد اذنك لدى استفسار بالنسبة للمثالين عملت زر اذن جديد وظيفته يضيف سجل جديد بالنموذج الأساسى والفرعى ولكن النموذج الفرعى يظل محتفظ بالبيانات بارك الله فيك

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