أبو عبدالله الحلوانى

السلام عليكم المرفق به تطبيق لفكرة بسيطة توصلنا للمطلوب إن شاء الله أرجو أن تنال اعجابك وتجد بها ما تريد واعذرنى على التأخر بالرد عليكم 1- جعلت ثلاثة أعمدة مفاتيح أساسية لا يمكن تكرارها معا بنفس الوقت (طبعا هذا حسب ظنى أنا ) ويمكنك تحديد الأعمدة التى تريد فيما بعد 2- أفتح المرفق ولاحظ الجدول الجديد الفارغ باسم istimaraALLWithoutDubl 3- اضغط على زر Delete Dublicate values 4- لا حظ عدد السجلات بالجدول الأصلى والجدول الجديد 5- جرب المرفق ولا تنسى موافتنا بالنتائج. duplicate delete.rar

بسيطة غير القيمة 0 داخل المعادلة الى القيمة التى تريد هكذا ولكن مع الأخذ فى الاعتبار ملحظة أستاذنا محمد صالح فيصبح التعديل هكذا =IIf(Month(Date())=7,[Année]*50+[Forms]![Employé_en_arabe]![PreD],[Année]*50)

مبدأيا ناتج ضرب السنة كما أردت (2017 * 50 = 100850) ان كان هذا الناتج غير صحيح وفق مرادك فوضح لنا ماذا تقصد بضرب السنة هل تقصد عدد الأشهر أم أول رقمين من السنة مثل 17 من 2017 مثلا أم ماذا. ثانيا هذا تعديل لكودك بعد ادخال الشرط : =IIf(Month(Date) = 7;(Year(Date)*50)+[Forms]![Employé_en_arabe]![PreD];0)

السلام عليكم أرجو أن يفيدك هذا If Month(Date) = 7 then M = year(Date)* 50 End If

ساعدنا أنت أولا وقل لنا ما هو معيار التكرار لديك - بمعنى آخر كيف يكون السجل مكرر ؟ إذا تشابه مثلا التاريخ ورقم الاستمارة معا أم تشابه رقم الاستمارة وفقط أم ماذا؟

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

عمل رائع ويبدو عليه الجهد المبذول فيه أعانكم الله ونفع بكم

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

السلام عليكم حتى لا يتم قبول البيانات المكررة بالجدول (اجعل الحقول التى لا تريد أن تكون مكررة بأكثر من حقل اجعلها جميعها مفاتيح أساسية- حدد الحقول التى تريد ثم قم بالضغط على أيكونة المفتاح كما موضح بالصورة المرفقة1). لتحديد البيانات المكررة داخل الجدول اتبع الخطوات بالصورة رقم 2 وبعد تحديد البيانات المكررة سيصبح من السهل حذفها باستعلام حذف ولكن يجب أن تحدد لنا معاير التكرار أو الحقول التى يجب أن نبحث فيها عن القيم المكررة

السلام عليكم تابع هذا الرابط

السلام عليكم قم بانشاء قاعدة بيانات فارغة - وقم باستيراد جميع الكائنات من القاعدة القديمة جرب هذا ووافنا بالنتائج وان واجهت نفس المشكلة نرجو توضيح اصدار 2016 الجديد لديك هل هو 64 بت أم لا.

السلام عليكم مبدأيا نرجو أن يكون عنوان الموضوع موضح به وصف مختصر للمشكلة بالمرات القادمة - فلربما تعرض موضوعك للاغلاق بسبب عدم وضوح العنوان أو عدم مناسبته للموضوع. ثانيا - وجود مرفق بموضوعك يسهل على اخوتك تقديم المساعدة (فكما يقال : ليس من رأى كمن سمع). ثالثا- وعلى حد علمى أن عملية الانتقال بين السجلات لا تقوم بترتيبها ولكن لا بد من أن تكون البيانات داخل جدولك مرتبة وفقا لمعايرك الخاصة سواء حسب تاريخ الادخال أو حسب الرقم المسلسل (ID) أو .. فقم بترتيب البيانات داخل الجدول أولا ثم قم باختبار أكواد الانتقال - ولا تنسى موافتنا بالنتائج.

السلام عليكم وضعت بالمرفق نموذجين بفكرتين احداهما بزيادة نصف ساعة للوقت - والأخرى باظهار التناقص الزمنى أمام المدخل أرجو أن تنال اعجابك أحدهما - وإن لم يعجباك فادعو لنا بخير تفضل المرفق DB1.rar

السلام عليكم قمت بتجربت مرفق حضرتك منذ قليل الذى يحمل عنوان new على أوفيس 2010 نظام 64 بت وقد حدثت عندى المشكلة التى ذكرتها تماما - واليك الآن ملاحظاتى: 1- المشكلة الآن لا علاقة لها بكون الفورم Pupup - أو Module نعم أو لا 2- سوى أنك تحاول الأنتقال داخل سجلات جملة sql بكود الانتقال داخل الفورم وهذا السبب وراء المشكلة فلكى تنتقل داخل جملة sql نستخدم sql.movefirst - أو sql.movenext وهكذا. جرب هذا التعديل ووافنا بالنتائج DoCmd.OpenForm "Robot2" DoCmd.GoToRecord , , acNewRec Forms![Robot2]![Doc] = Me.T7 Forms![Robot2]![Warehouse] = Me.T9 Forms![Robot2]![Order] = Me.t0 Forms![Robot2]![orient] = Me.T13 Forms![Robot2]![Zdate] = Me.T6 Forms![Robot2]![Type] = "صرف" Forms![Robot2]![entrydate] = Me.Text80 Forms![Robot2]![Ameen] = Me.com DoCmd.Close Dim sql As Recordset Set sql = CurrentDb.OpenRecordset("Transactions", dbOpenDynaset) 'DoCmd.GoToRecord , , acFirst sql.MoveLast: sql.MoveFirst For m = 1 To T8 With sql .AddNew !Code = Code1 !Item = T1 !Doc = T12 !Out = T2 !Notes = T5 .Update End With sql.MoveNext Next m MsgBox "تم الصرف بنجاح", vbInformation, "تم الصرف" T6 = "" T7 = "" T3 = "" T9 = "" T10 = "" T13 = "" Me.Requery

وهنا بهذا الموضوع أداة لصنع شريط القوائم للأكسس وبه رابط لهدية أبى غفران (أستاذنا @صالح حمادي) حفظه الله وهى أداة مصنوعة بالأكسس أيضا

السلام عليكم ورحمة الله بداية أشكر صاحب الموضوع على سلاسة الطرح واسلوبه المميز - وكذلك تلك الأدوات المفيدة ولا شك من كون هذه الأدوات تسهل كثير من الأعمال وتختصر كثير من الأوقات - ولكنى أرى (كرأى شخصى فحسب ) أن مجرد المحاولة لصنع ما تريد بنفسك لابد وأن يكسبك المزيد من الخبرة . ثانيا أشكر لأستاذنا @Shivan Rekany حسن ظنه بى - فانى مجرد طويلب علم بمدرستكم ثالثا - كمساهمة صغيرة على قدر علمى : هنا بهذا الموضوع أداة مساعدة مفيدة لحصر ولم شمل أكود vba وتيسير استدعائها طبعا الموضوع لأستاذنا @Shivan Rekany (كده خالصين ) وهنا بهذا المرفق أداة صغيرة من كنوز المنتدى وظيفتها ضبط خاصية الشفت للبرنامج أرجو أن تفيد بشىء هذا هو المرفق Shift.zip

جزاك الله خيرا

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

جزاك الله خيرا وكما قال أستاذنا جعفر تسلم ايدك وهذه فائدة صغيرة لعلك تحتاجها بوقت ما بالإمكان استبدال أسماء أجزاء الفورم بالجملة (Section(Index)) وهذه ثوابتها : Setting Constant 0 acDetail 1 acHeader 2 acFooter 3 acPageHeader 4 acPageFooter ويتحول الكود الى هذا الشكل frm.Section(0).BackColor = Color_Bu_D frm.Section(1).BackColor = Color_He_D frm.Section(2).BackColor = Color_fo_D

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

أولا - هلا بعودتك سالما وعساك بخير ثانيا - أنا اسمى محمد أما عبدالله فهو ابنى - وعلى كل لا بأس كل اللى يجى منك حسن أو حسين - وأخيرا - تفضل أرجو أن يكون هذا قريبا مما تريد 7-5-2017 بحث الفوائد بقائمة منسدلة.zip

جرب هذا الكود لعله يفى بالغرض Private Sub Form_Current() Forms![الشهر الحالي 2]![نموذج1].Form.Refresh End Sub

لا لا كدا اتفهم كلامى خطأ كنت أقصد لن يضيف المتطوعين شيئا سوى الاطراء فالعمل يبدو عليه أثر الجهد المبذول وكما قلت ثم صحيح نحن زبائن مجانا - ولكن نسأل الله أن يعظم لكم الأجر عنا لا لم يكن ما تبذلونه بدون نتيجة أبدا - والله ما أذكر برنامجا صنعته إلا واقتبست فيه من عطاياكم شيئا , طبعا بدون استأذان - وها أنا أنتهز الفرصة لأستأذن منكم فى ذلك . وعلى كل ورغم أن اسمى لم أجده فى المعلن عنهم الا أنى سأجرب وأوافيكم بالنتائج إن شاء الله. مع إنى عارف النتيجة مسبقا 100 %

السلام عليكم جرب هذا ووافنا بالنتائج ملاحظة : ان ظهر خطأ بالعملية الحسابية استبدل الفاصلة "," بالفاصلة المنقوطة ";" الحساب التراكمي1.zip

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