Shivan Rekany

اتفضل اليك بعض روابط على ذلك طريقة يدوية لاستاذ ابوخليل

اتفضل تم اضافة حقل من نوع الرقمي باسم VOYAGENO1 واستخدمت هذا الكود Private Sub t3_AfterUpdate() If Len(Me.VOYAGENO1 & vbNullString) = 0 Then Me.VOYAGENO1 = Nz(DMax("[VOYAGENO1]", "CHARTER", "[vessel name]='" & Me.t3 & "'"), 0) + 1 End Sub Database13.rar

اتفضل افتح تقريرك في وصع التصميم واكتب هذا الكود عند فتح التقرير Private Sub Report_Open(Cancel As Integer) DoCmd.Minimize DoCmd.OpenReport Me.Name, acViewPreview End Sub ولان لا ارفقت اي القاعدة اتفضل اليك مرفق لكي تلقي نظرتا اليه اظهار التقرير عند اخفاء شاشة اكسس وبدون تكبير التقرير.rar

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

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

هذا كان صار معي حين .... . هل عند فتح التقرير استخدمت دالة DoCmd.Maximize و في الاخر الكود فتح التقرير كتبت هذا acDialog والا ارفق نسخة مصغرة من قاعدة بياناتك لكي نعمل التعديل عليه دمتم بخير acDialog

استاذن من استاذنا @alwazeer اخي محمود تعبيرك خطأ ... عند اضافة اسم متبرع جديد في الجدول الرئيسي لا تجد رقمه في الجدولي الفرعي شوف هذه الصورة انا عملت لك نموذج شوف رقم واحد تم اضافة اسم متبرع جديد بالرقم 6 شوف رقم 2 في الصورة ستجد ان في كلا من نموذجي الفرعي ستجد رقم 6 للمتبرع الجديد شوف رقم 3 في الصورة ستجد ان بها كلمة نيو اي جديد اي بعد ما دخلنا اي سجلات تابه المتبرع الجديد بالرقم 6 اي اذا تفتح الجدولي الفرعي لا تجد اي ارقام الا بعد اضافة سجلات في النماذج الفرعية اليك القاعدة للتجربة عليه العلاقات.rar

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

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

نحن هنا استاذنا الحبيب ... نحن في خدمة الشعب ان شاء الله اتفضل اليك هذا الرابط لكي يفتح معك التقارير دمتم بخير

اولا السلام عليكم ورحمة الله و بركاته ثانيا : عنوان نموضوعك هو ( كتابة الكود التالي ) DoCmd.GoToRecord acDataForm, "NameForForm", acNext "NameForForm" هو اسم النموذج ... وتقدر ان لا تكتب اسم النموذج هكذا DoCmd.GoToRecord acDataForm, , acNext ثالثا اذا تريد شيء اولا يجب عليك ان تبحث في المنتدى واذا ما وجدت طلبك نحن بخدمتك ان شاء الله ورابعا : افتح الماكرو في وضع التصميم و اعمل تحديد الكل بواسطة زرين كنترول مع حرف A وبعدين اعمل كوبي و افتح ماكرو جديد والصقه وبعدين تقدر تتغير ماكرو الى كود برمجي خامسا : نعم لا نقدر ان نعمل شيء ... كان يجب عليك ان ترفع نسخة مصغرة من قاعدتك مع الكود لكي تحصل الجواب في اسرع وقت ممكن نحن نعرف ان فهم السؤال هو نصف الجواب لكن بعد انا لا افهم سؤالك جيداً ماذا تريد بالضبط هل تريد بحث عن سجل ام تريد كود لسجل التالي ام تريد ان تتغير ماكرو عندك الى كود برمجي وكلنا هنا نخدمكم في سبيل الله و هذا فخر لنا لكن كلنا عندهم اشغال اخرى يجب ان نعمله نحن بخدمتكم ان شاء الله اذا ما وصلت الى الحل المطلوب وضح سؤالك جيدا و ارفق نسخة مصغرة من قاعدتك تقبل تحياتي شفان ريكاني

استأذن من استاذنا السيد الوزير البرمجة اتفضل اليك الكود اذا ليس هناك اي ملف في الفولدر سيعطيك الرسالة بان ليس هناك اي نسخة احتياطية لكي نحذفة واذا هناك ملف فيه سيعطيك الرسالة هل انت متأكد واذا نعم سيحذف الجميع Private Sub أمر0_Click() If Dir("D:\FoldrName\" & "*.*") = "" Then MsgBox "ليس هناك اي نسخة احتياطية لكي نحذفه" Else If MsgBox("هل تريد حذف جميع النسخ الإحتياطية ؟", vbYesNo, "نافذة الرسائل") = vbYes Then Kill "D:\FoldrName\*.*" MsgBox "لقد تم حذف جميع النسخ الإحتياطية بنجاح!!!!", vbOKOnly, "نافذة الرسائل" End If End If End Sub اليك المرفق تفريغ محتويات مجلد.rar

نعتذر انا لا اعرف شيء عن اختصارات ... اذاً يجب علي ان ادرس دروس استاذ @رمهان لكي اعرف شيء عن طريقة اختصار الاكواد

استخدم دالة if هكذا If Len(Me.Text1 & "" ) = 0 Then Me.Text2.Visible = False Else Me.Text2.Visible = True

فتح نافذة اكواد لقاعدتك واعمل compile سيظهر لك الاخطاء البرمجية اي افتح نافذة الاكواد و من قائمة Debug اختر اول اختيار وهو compile مع اسم قاعدتك او اذا تريد ارفق قاعدتك هنا لكي نشوفه واذا حجمه كبير ارفقه في رابط خارجي مثلا ارفق في كوكل درايف و انسخ رابطه هنا او بواسطة اي موقع اخر

نبدا من الاخير ما هو نوع المرفق ؟ accdr . ماذا تريد ان نعمله ؟ اي برامج قصدك ؟ المرفق في موضوعك ؟ هو بيفتح وهذه هو جداوله و نموذج فورم 2 في وضع التصميم ؟ لذلك اكرر ماذا تريد بالضبط ؟

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

السلام عليكم ورحمة الله وبركاته عند فتح البرامج وقبل ان نضغط على زر ( طبع ) و نضغط على زر ( قيمة المتغير ) النتيجة = 0 نعم سيكون النتيجة = 48 لكن انا جربت كود الطباعة بدل المعاينة وما فيها اي اشكالية اي بدل هذا الكود Private Sub zer1_Click() rgm = DMax("Hrk_ID", "tblHaRas") DoCmd.OpenReport "resarf", acViewPreview End Sub استخدمت هذا Private Sub zer1_Click() rgm = DMax("Hrk_ID", "tblHaRas") DoCmd.OpenReport "resarf", acViewNormal End Sub وضغط على قيمة المتغير هم بيطلع النتيجة = 48 اي لا ارى اي مشكلة

سافر اخي @المسافر2006 وتركنا هنا وما يرد علينا لذلك سنسافر من هذا الموضوع

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

نفس التعبير سيلون اكبر القيمة اذا بتكرر كم مرات سيعمل تلوين لكل مرات شوف الصورة

نعتذر لكن انا كتبت كم حروف في مشاركتي السابقة من اجل الشعب

اتفضل اليك الحل بالصورة والنتيجة

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

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