عمر ضاحى

سؤال هل التحديد مرتبط بقيمة فى جدول؟ اذا لا اعملى حقل جديد واجعلى التحديد منضم ومرتبط بقيمة ف جدول ومن ثم قومي باضافته ف الإستعلام

ده خطأ ف استعلام التقرير

لا لا لا مش كده خالص من هنا بنختار الخط

انا جربت الخط وشغال تمام معي اسم الخطين Ameen BarCode2 Bar-Code 39

العفو انتى ومعلمي ولك الفضل على ممكن توضح لى اكثر لاني مش قادر افهم ايه المطلوب واين تريد حفظ التاريخ واليوم ؟

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

الكود هذا من مكتبة استاذى @Moosak Option Compare Database Option Explicit Public Function ShowHideRibbon(ShowRibbon As Boolean) On Error GoTo ErrHandler '*********************( إخفاء/إظهار الشريط العلوي وجميع النوافذ )************************** If ShowRibbon = False Then '--------------------------------(إخفاء الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) '--------------------------------(جميع تضبيطات تقفيل القاعدة وإخفاء القوائم ومنع الزر الأيمن والاختصارات) Application.SetOption "Show Status Bar", False CurrentDb.Properties("ShowDocumentTabs") = False Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", False Application.SetOption "Themed Form Controls", False Application.SetOption "DesignWithData", False CurrentDb.Properties("AllowDatasheetSchema") = False Application.SetOption "CheckTruncatedNumFields", False CurrentDb.Properties("AllowFullMenus") = False CurrentDb.Properties("AllowShortcutMenus") = False '--------------------------------(Shift منع استخدام زر الشفت) On Error GoTo err CurrentDb.Properties("allowbypasskey") = False Exit Function ElseIf ShowRibbon = True Then '--------------------------------(إضهار الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarYes 'Unhide the navigation pane On Error Resume Next Call DoCmd.SelectObject(acTable, , True) Call DoCmd.SelectObject(acMacro, , True) Call DoCmd.SelectObject(acForm, , True) On Error GoTo ErrHandler '--------------------------------(فتح خصائص قاعدة البيانات وإظهار القوائم وتفعيل الزر الأيمن والاختصارات) Application.SetOption "Show Status Bar", True CurrentDb.Properties("ShowDocumentTabs") = True Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", True Application.SetOption "Themed Form Controls", True Application.SetOption "DesignWithData", True CurrentDb.Properties("AllowDatasheetSchema") = True Application.SetOption "CheckTruncatedNumFields", True CurrentDb.Properties("AllowFullMenus") = True CurrentDb.Properties("AllowShortcutMenus") = True '--------------------------------(Shift السماح باستخدام زر الشفت) On Error GoTo err2 CurrentDb.Properties("allowbypasskey") = True Exit Function End If '--------------------------------------------------------------------------- ErrHandler: If err.Number <> 0 Then MsgBox err.Number & vbCrLf & vbCrLf & err.Description, , "Function: ShowHideRibbon" Resume Next Else Exit Function End If err: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, False) Exit Function err2: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, True) Exit Function End Function طبعا بيتم تشغيل الكود مع الاكسيس بواسطة المايكرو ( Autoexec ) مرفق ملف للتوضيح Shift.rar

اها طيب هراجعه لك

الملف حول بدون مشاكل معي

متابع

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

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

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

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

انت عندك حاجتين اما خانة اختيار او مجموعة اختيارات

1.rar اتفضل هل هذا ما تريد ؟

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

جرب الملف ال رفعته لك

ارفع ملف اتفضل هذا ملف من عندي عملته لك على السريع Test.rar

😅 هيكون راح فين بس ارفع ملف طيب اعمله لك ابحث عن ملف اسمه MSO.dll هتلايه فى مجلد الاوفيس

@سامر محمود

ده بسبب ان هناك مكتبه مفقود Microsoft Office x.x Object Library طبعا x.x ترمز لرقم الاصدار الافيس ال عندك ومش هتفرق الرقم المهم تاكد من وجودها

ما الخطأ الذى ظهر لك فى الكود الخاص بى ؟ ايضا ارفق ملف

جرب الكود ده Dim db As DAO.Database Dim rs As DAO.Recordset Dim recordCount As Integer Dim updateCount As Integer Dim xNUMBER As Double Set db = CurrentDb Set rs = db.OpenRecordset("t1", dbOpenDynaset) xNUMBER = mh1.Value Do While Not rs.EOF If rs!daraja > 0 Then If updateCount < 12 Then rs.Edit rs!CurrFasl = "F" rs.Update updateCount = updateCount + 1 Else Exit Do End If End If rs.MoveNext Loop rs.Close Set rs = Nothing db.Close Set db = Nothing

ده لانك كاتب 12 وهو بيختار حسب الدرجات يعنى كل ال درجاتهم بتساوي 12 او اكبر هيختارهم