أواب

بدلا من الأول وضع الكود الآتي في وحدة نمطية جديدة أو أسفل الكود السابق 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

أخي الكريم جرب أن تجعل مصدر الكومبو SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=-32764));

أرفق مثالا للتعديل عليه

السؤال غير واضح وانت حاطط كل الارقام اي رقم غير موجود؟ وماذا تريد أن يحدث؟

أخي الكريم غيرت تسمية رقم المعهد الى n لأجل البرمجة ادراج التاريخ.accdb

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

العفو أخي الكريم ما هي المشكلة الآن ؟

آسف يا أخي خطأ غير مقصود تفضل الزيارات.rar

بعدذلك قم بضغطها بالوينرير إن شاء الله بتظبط معاك

تفضل أخي الكريم الزيارات.rar

وين البرنامج ؟

اخي الكريم الموقع ليس به شيء وحملت Avast Internet Security وتم تشغيله ولم يحدث تقدم المشكلة لاتزال قائمة

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

الأخ العزيز محمد شكرا لك على تفاعلك هذه نتيجة الفحص hijackthis.rar

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

اخواني عندما أضغط بالماوس علي السي أو الدي أو أي بارتيشن تخرجالرسالة و ولا يفتح إلا باختيار فتح بزر اليمين ما السبب وما الحل ؟

عفوا استاذنا جعفر لم أفهم شيئا يعني ماذا أفعل؟ أريد تشغيل البرنامج على جهاز به ويندوز 8.1 وعليه اوفيس 2013 وبرنامجي بأوفيس 2003

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

جزاك الله خيرا يا أخي طيب ولو حبينا نحصي ايام الاثنين والخميس والأيام البيض 13 و14 15 من كل شهر عربي (ايام الصيام ) ماذا نكتب ؟

الأخ الكريم رمهان For i = t1 To t2 If Format(i, "w") = 5 Or Format(i, "w") = 6 Then DoCmd.RunSQL "insert into tbl_days(xdate,xday) values('" & i & "','" & Format(i, "dddd") & "')" Next i نريد أن نفهم هذا الكود أين دلالة الخميس و الجمعة في الكود ؟ وجزاك الله خيرا

تفضل يا أخي ss_2.rar

الأخوان : kanory و رمهان بمشاركتكما تم المطلوب وجزاكما الله خيرا وجعله في ميزان حسناتكما