أواب

إخواني الأفاضل: وجدت بثلاث كلمات تنظف جهازك من الملفات التي تبطئ جهازك اتبع الخطوات التالي : 1- نذهب الي start ثم اضغط علي Run ثم اكتب الامر prefetch فتظهر لك هذه الملفات ثم تظلل عليها كلها تم مسح . 2- ثم مره اخرى من قائمة start اضغط علي Run ثم نكتب الامر Recent فتظهر لك هذه الملفات ثم تظلل عليها كلها ثم مسح . 3- ثم مره اخرى من قائمة start اضغط علي Run ثم نكتب الامر %tmp% فتظهر لك هذه الملفات ثم تظلل عليها كلها ثم مسح . والسؤال الآن هل بالإمكان فعل ذلك باستخدام الكود في الأكسس ؟

شكراً جزيلاً أخي جعفر جعله الله في ميزان حسناتك

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

السلام عليكم الأخوة الكرام عندي قاعدة بيانات في مجلد ومعها في نفس المجلد ملفان أحدهما باسم k.mdb وأريد تغيير اسمه إلى kk.mdb والآخر باسم 1.mdb وأريد حذفه من المجلد لعل طلبي يكون واضحا (كود لتغير اسم وكود لحذف)

/

جزاك الله خيراً كل من تفاعل معي. وجعل الله ذلك في ميزان حسناته

لا أخي العزيز عند تشغيله بأكسس ٢٠١٦ أو ٢٠١٩ تطلع رسائل تعطيل الماكرو ف الأوامر في الوحدات النمطية أو النماذج أو التقارير لا تعمل في غير ٢٠٠٣

إخواني الأعزاء السلام عليكم ورحمة الله وبركاته عندي برنامج صممته علي أوفيس 2003 هل من طريقة لجعله يعمل علي أي إصدار للأوفيس لأن العملاء يحدثون الأوفيس دائما ويتوقف البرنامج عندهم والله تعبت الله يجزيه خيرا من يجد لي حلاً

أخي الكريم كي يستطيع أحد مساعدتك يلزم وضع مثال هنا وبه جهودك وتوضح به المطلوب

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

إخواني الأعزاء السلام عليكم ورحمة الله وبركاته حصلت مشكلة في الهاردسك فركبت هارد آخر وعليه ويندوز 10 وكلما حاولت فتح ملف أكسس 2003 تطلع هذه الرسالة ما السبب ؟ الجهاز عليه أوفبس 2003 + أوفيس 2016

السلام عليكم ورحمة الله إخواني : ماهي مشكلة الأكسل في التاريخ ما قبل 1/1/1900 2 رمضان 1317 1900/1/3 1 رمضان 1317 1900/1/2 29 شعبان 1317 1900/1/1 ٢٩ شعبان ١٣١٧ 1900/1/0 1899/12/31 1899/12/31 1899/12/30 1899/12/30 1899/12/29 1899/12/29 1899/12/28 1899/12/28 1899/12/27 1899/12/27 1899/12/26 1899/12/26 1899/12/25 1899/12/25

هذه صورة الملف الأصلي كما تظهر عندي المشكلة عندما أرفعها على جوجل درايف وأقوم بمشاركتها لا تظهر بصورة صحيحة : (#NAME?)

إخواني الكرام السلام عليكم ورحمة الله وبركاته هذه أول مشاركة لي في منتدى الاكسل وعندي مشكلة أرجو مساعدتي فيها استخدمت الدالة =CountCcolor(D2:D31;D2) في شيت وبعدما رفعته علي جوجل درايف لم تعمل وتعطي خطأ ويقول هذه دالة غير معروفة ما الحل ؟ جزى الله خيرا من يقدم المساعدة إمامه.xlsm

ما هي الفائدة من السؤال ؟

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

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

شكرأ أخي الكريم essam rabea على سرعة تجاوبك هذا الكود......ولم يغير شيء....نفس المشكلة On Error GoTo Err_أمر25_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append Refresh Exit_أمر25_Click: Exit Sub Err_أمر25_Click: MsgBox Err.Description Resume Exit_أمر25_Click

السلام عليكم اخواني الاعزاء اثناء العمل على البرنامج اردت تكرار سجل وتخرج الرسالة الآتية على الرغم انه بالعادة شغال......ترى ما السبب ؟

تفضل يا أخي دائما نقول أرفق مثالا للتعديل عليه ولكن دون فائدة db2.mdb

نفس ما ذكرتهفي مشاركتي

بدلا من الأول وضع الكود الآتي في وحدة نمطية جديدة أو أسفل الكود السابق Option Compare Database Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long '++++++++++++++++ Declare Function SetTimer Lib "user32" (ByVal hwnd _ As Long, ByVal nIDEvent As Long, ByVal uElapse _ As Long, ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" _ (ByVal hwnd As Long, ByVal nIDEvent As Long) _ As Long Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" (ByVal hWndParent As _ Long, ByVal hWndChildAfter As Long, ByVal _ lpClassName As String, ByVal lpWindowName _ As String) As Long Declare Function Sendmessagebynum _ Lib "user32" Alias "SendMessageA" (ByVal _ hwnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) _ As Long Const EM_SETPASSWORDCHAR = &HCC Public str_Title$, TimerId& Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, _ ByVal uElapse As Long, ByVal lpTimerFunc As Long) KillTimer 0, TimerId Dim lng_Hwnd& lng_Hwnd = FindWindowEx(0, 0, "#32770", _ Trim(str_Title)) lng_Hwnd = FindWindowEx(lng_Hwnd, 0, _ "Edit", vbNullString) If lng_Hwnd Then Sendmessagebynum lng_Hwnd, EM_SETPASSWORDCHAR, 42, 0 End If End Sub

أخي الكريم جرب هذا الكود Dim str_Prompt TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "كلمــــــــة المـــــــــرور مطلــــوبة" str_Prompt = "أدخـــــــــــــــل كلمــــــــــــة المـــــــــــرور" If InputBox(str_Prompt, str_Title) = "350" Then DoCmd.OpenForm "امرحذف الملاحظات" ' اكتب هنا الإجراءات إذا كانت الكلمة صحيحة Else MsgBox "Error Password", vbOKOnly, "خطأ فى الباسوورد" DoCmd.Close End If

أخي الكريم قم بفتح المرفق وقم بتشغيله open.rar