عذاب الزمان

استاذ جعفر سحبت المرفق الي حضرتك عدلت عليه قمت بتجربته لم يتغيير شيء ... ولاحظ فيه قد ادخلت رقم 1 بنفس التاريخ اكثر من مرة ولاحظ الجدول ستجد كم حقل رقم 1 بذات التاريخ ايضاً قمت بتعطيل كل الكود وقمت بالادخال كان يعمل بنفس الطريقه !!!!! وكأن الكود في وادي والحقول في واد اخر اعرف اني ازعجتك كثيرا لكن اين المفر يا استاذ جعفر . 679.1.ترقيم جديد كل سنة جديدة وبجداول جديدة.rar

استاذي الغالي اولاً اسف لازعاجك ثانياً البرنامج يعطي نفس الرقم لنفس اليوم ونفس الشهر ونفس السنة !!!!! وهذه غير صحيحة في كتب الصادر والوارد اذ لكل صادر او الوارد رقم ثابت لايتكرر على مدار السنة وهذا امر معلوم ومفهوم . ثالثاً ان ما اردته هو ترقيم جديد كل بداية سنة جديدة يعني رقم الصادر 1 في 1/1/2016 ويصعد التسلسل دون تكرار خلال سنة كاملة الى اخر يوم ويبدأ الترقيم من جديد 1 في 1/1/2017 وهكذا . علماً اني لا اريد ظهور الرقم بهذه الصيغة 1400001 بل بالترقيم الاعتيادي 1 او 01 ليس اكثر من ذلك . ان الكود المرافق بالمثال لايحقق المراد من الموضوع في ( ثانياً) بل زاده تعقيداً كما في (اولاً ) لكون الترقيم اصبح ترقيمها مكرراً لنفس التاريخ !!!!!! اتمنى ان تكون الفكرة قد وصلت استاذي العزيز وبانتظار مساعدتكم اساتذتي واخوتي الاعزاء فلم يبق لي على اكمال برنامجي غير ( موضوع الترقيم) و ( موضوع السكنر) . 679.ترقيم جديد كل سنة جديدة وبجداول جديدة.rar

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

استاذي العزيز سبق وان اطلعت على كود الاستاذ الكبير ابو خليل جربت الكود ولم اجد تغيرا بالترقيم ارجو معاينة المرفق مع التقدير ترقيم جديد كل سنة جديدة وبجداول جديدة.rar

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

السلام عليكم ورحمة الله وبركاته راجعت كثير من المواضيع بنفس الفكرة لكن بعضها لم يكن مفهوما والاخر ليس ما اريد المرفق يحتاج ترقيم جديد بداية كل سنة ( حقل الرقم ليس مفتاحا ) وفتح جدول جديد اي يتم خزن بيانات كل سنة بجدول منفصل ضمن القاعدة . تحياتي وشكرا لكم . ترقيم جديد كل سنة جديدة وبجداول جديدة.rar

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

سلام عليكم نفس الطلب انا بحاجه له

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

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

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

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

الاخ جعفر المحترم ارفقت نسخة من البرنامج 1- في نموذج التقارير يوجد زر معاينة حسب التاريخ ( المشكلة فتح نافذة المعاينة وعند ضغط اي رقم يفتح نافذة المعاينة ... اريد ان تفتح المعاينة عندما ادخل تاريخ فقط ) 2- ممكن كود فتح سكنر من خلال زر امر . ملاحظة : عندما قمت الان بعمل نسخة من البرنامج فان كل الاكواد البرمجية لم تعد تعمل في هذه النسخة ، واما الذي تم عمله سابقاً بالماكرة بقي يعمل وستلاحظ ذلك في واجهة الصادر والوارد في ازرار التنقل وكذلك واجهة التقارير . لك مني كل الشكر والتقدير برنامج الصادر والوارد.rar

اخي جعفر سلام عليكم وكل عام وانت بخير لقد عملت التنسيق للحقل dd/mm/yyyy المشكلة عندما ادخل اي رقم يفتح لي واجهة معاينة التقرير ... اريد ان يفتح عند ادخال التاريخ فقط . ارجو تعديل الكود ولك مني جزيل الشكر Dim a_rr As Error Dim X As Date Dim i As Integer On Error GoTo a_rr X = InputBox("ÇÏÎá ÊÇÑíÎ ÇáßÊÇÈ ÇáÕÇÏÑ", "ÊÞÑíÑ ÊÇÑíÎ ÇáßÊÇÈ (ÇáÕÇÏÑ) ") If X = 0 Then MsgBox "ÇÚÏ ÇáãÍÇæáÉ áÞÏ ÇÏÎáÊ ÇÏÎÇáÇð ÎÇØÆÇð ", vbOKOnly, "ÇÏÎÇá ÞíãÉ ÎÇØÆÉ" Else DoCmd.OpenReport "Rep_sadder", acViewPreview, , "date_sad like '" & X & "'" End If Exit Sub a_rr: MsgBox "ÑÌÇÁÇÚÏ ÇáãÍÇæáÉ ãÑÉ ÇÎÑì ÝÇä ÇÏÎÇáß ÎÇØíÁ ", vbOKOnly, "ÇÏÎÇá ÞíãÉ ÎÇØÆÉ "

كل عام وانتم بالف خير جزاك الله خير اخي على مساعدتك لي عند التنفيذ يظهر لي تحذير compile error method or data member not found ويقف عند جملة me.x انتظرك اخي مع الشكر اخي قمت بحذف me وابقاء x فنجحت التجربة شكرا لك اخي الغالي ولي طلب اخر الان اريد ان استبدل حقل النص بحقل التاريخ وبنفس الكيفية الله يزيدك علم وفهم وحياة سعيدة .

السلام عليكم ورحمة الله وبركاته ارجو مساعدتي في الحل عندما اضغط على الارقام اريد ان تظهر رسالة منع وتحذير كما هو الحال عندما اضغط زر انتر او زر سبيس يظهر لي رسالة منع وتحذير وثم فتح التقرير عند ادخال نص كتابي فقط . ولكم جزيل الشكر والاحترام Private Sub ÃãÑ56_Click() Dim a_rr As Error Dim X As String On Error GoTo a_rr X = InputBox("enter text", "text ") If Len(Trim(X)) = 0 Then MsgBox "error " Else DoCmd.OpenReport "Rep_sadder", acViewPreview, , "Go_sad like '" & X & "'" End If Exit Sub a_rr: MsgBox " error " End Sub

السلام عليكم ورحمة الله وبركاته ... رمضان كريم ومبارك على الامة الاسلامية جمعاء ... الاخوة الاساتذه المحترمين ... عندي برنامج بسيط ... اردت اجراء معاينة تقرير باستخدام inputbox و docmd على اساس ادخال تاريخين واظهار القيود المحصورة بين هذين التاريخيبن فقط ، ولكنها لم تنجح ارجو اكمال الكود لتعم الفائدة لي وللاخرين مع الشكر والتحية مقدما ... الملف مرفق ادناه . برنامج.rar

السلام عليكم يؤسفني عدم ابداء اي مساعده من قبل موقع اوفيسنا الاخ قيس111 لك كل الاحترام والتقدير على تفاعلك معي سابحث عن طلبي في مواقع اخرى .

الاساتذة الكرام لم يبقى لي على تسليم مشروعي اكثر من اسبوع ومازلت انتظر حلا ؟؟؟؟ رجاا الي يعرف يساعدني لاني عجزت من المحاولات .

اشكرك اخ قيس111 لاهتمامك الحقيقة مازلت انتظر حلا .

سلام عليكم توصلت لحل جزئي وليس جذري فقمت باخفاء شيتات الباسوورد للمستخدم العادي واهارها للادمن فقط من خلال الكو التالي في زر الدخول للشاشة الرئيسية Worksheet1.Visible = xlSheetHidden worksheet2.Visible = xlSheetHidden وفي زر الادمن تحرير الباسوورد كتبت Worksheet1.Visible = xlSheetVisible worksheet2.Visible = xlSheetVisible والشيت الي فيه الباسوورد بنيت واحد فاضي هو الذي يظهر للمستخدم العادي . مازلت ابحث عن كيفية عدم ظهور workbook كله لكن فشلت . ومازلت لا اعرف حل المشكلة الثانية انتظر حلا من احد الاخوة الاساتذة

سلام عليكم لم اجد ردا هل سؤالي صعب لهذه الدرجة مع التقدير والاحترام

السلام عليكم ورحمة الله وبركاته استاذي الفاضل اعاني من مشكلتان ... حصرتهما مابين الاقواس : اولا : عند فتح واجهة اسم المستخدم ادخل الاسم والمفتاح فتظهر لي الواجهة الثانية بمجرد اختيار اي من الازرار الاربعة رقم 1 او 2 او 3 او 4 ((سينفتح شيت اكسل الذي فيه الباسووردات )) ؟؟؟ ولا اريدها ان تفتح ...هذه مشكلة اولى ..................... ثانيا : بما اني عامل لكل شيت باسوورد من ضمن اكسل كحماية للشيت يظهر لي مسج ادخال كلمة المرور فان ادخلت كلمة المرور اوك ، ولكن ان اخترت (( الغاء الامر فانه يظهر لوحة debage و end ومن ثم الدخول الى الفجوال )) فكيف اجعها تعمل الغاء فقط ... وهذه مشكلة ثانية .................. ارجو الحل ... الله يعلم كم انا في مشكلة واريد لها حلا ... استاذي الفاضل . مع التقدير والاحترام ................. كلمات المرور والباسورد بغداد 2016 بغداد بغداد ............... ادمن ادمن ........................ دعائي لكم زيادة في العلم والفهم وسعادة دائمة . البرنامج بغداد.rar

الاخ عمر الحسيني كلمات الشكر لاتسعفني في التعبير عن امتناني منك ومن اهتمامك واسال الله لك التوفيق دائما وزيادة في العلم والرزق والعافية .

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