أواب

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

شكرأ أخي الكريم 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

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

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

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

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

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

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

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

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

تفضل أخي الكريم الزيارات.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 نريد أن نفهم هذا الكود أين دلالة الخميس و الجمعة في الكود ؟ وجزاك الله خيرا