jjafferr

لوسمحت تجرب هذا الكود بدلا عن السابق: Private Sub name_morfke_Click() Dim Source_File_Path As String, Destination_File_Path As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Source_File_Path = CurrentProject.Path & "\" & Me.name_morfke 'Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke Destination_File_Path = fso.GetSpecialFolder(2) & "\" & Me.name_morfke If Dir(Source_File_Path) = "" Then Debug.Print Source_File_Path & " > Not Found" Else Debug.Print Source_File_Path & " > Found" End If If Dir(Environ("Temp"), vbDirectory) <> "" Then Debug.Print Environ("Temp") & " > Found" End If If Dir(fso.GetSpecialFolder(2), vbDirectory) <> "" Then Debug.Print fso.GetSpecialFolder(2) & " > Found" End If 'FileCopy Source_File_Path, Destination_File_Path fso.CopyFile Source_File_Path, Destination_File_Path, True Application.FollowHyperlink (Destination_File_Path) EcryptDcryptImage (Destination_File_Path) End Sub . ثم الصق لنا النتيجة التي في اسفل نافذة الكود VBA ، كما في الصورة في الاسفل : . جعفر

بما ان البرنامج غير مقفل للعمل به ، ولكن القفل على البرمجة VBA ، فلا اعتقد بأنه هناك مشكلة في طلبك ، فلا يُعد انتهاك للملكية الفكرية 🙂 يمكنك النقر على F11 لتحصل على الجداول وبقية الكائنات 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 هلا والله بأهل طيبة ، مهوى الفؤاد 🙂 للإستفادة القصوى من المنتدى، رجاء قراءة قوانين المنتدى : قواعد المشاركة فى الموقع رسالة الخطأ: Too many parameters expected 1 ، Too many parameters expected 2 ، Too many parameters expected 3 ، Too many parameters expected X لها هذه الحلول : في معيار الاستعلام : بدلا عن [Forms]![Form1]![Text1] استعمل Eval("[Forms]![Form1]![Text1]") . واذا كنت في الكود وكنت تستعمل الامر Recordset dim rst as dao.recordset set rst= .... rst.movelast ... Exit Sub err_cmd_Combine_Click: If Err.Number = 3061 Then 'too few parameters, expected 1 or more 'this error occurs when trying to run a query which needs its parameters from a Form, 'the Form should be open with the parameter, then this code take the values properly Dim qdf As QueryDef Dim prm As Parameter 'Set qdf = CurrentDb.QueryDefs("strSql") Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSql) For Each prm In qdf.Parameters prm.Value = Eval(prm.Name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) DoCmd.DeleteObject acQuery, "NewQueryDef" Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If جعفر

جرب هذا الكود بدلا عن السابق Private Sub name_morfke_Click() Dim Source_File_Path As String, Destination_File_Path As String Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Source_File_Path = CurrentProject.Path & "\" & Me.name_morfke 'Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke Destination_File_Path = fso.GetSpecialFolder(2) & "\" & Me.name_morfke FileCopy Source_File_Path, Destination_File_Path Application.FollowHyperlink (Destination_File_Path) EcryptDcryptImage (Destination_File_Path) End Sub Private Sub Form_Close() On Error Resume Next Dim Srst As DAO.Recordset Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Set Srst = Me.RecordsetClone Do Until Srst.EOF 'Kill Environ("Temp") & "\" & Srst!name_morfke Kill fso.GetSpecialFolder(2) & "\" & Srst!name_morfke Srst.MoveNext Loop End Sub . يجب عليك استعمال الزر "ادراج مرفقات من الكمبيوتر" ، ثم بعد ذلك تقوم بمحاولة فتح الملف. جعفر

الخوف من اعادة تشفير الملف الذي تم تشفيره سابقا !! وللعلم ، تقدر تجعل البرنامج يعمل التشفير بسرعة ، فقط استعمل For i = 1 To 2 بدلا عن For i = 1 To Mid(iByteCount, 5) . ولكن مثل ما اخبرتك سابقا ، مافيه اشكال في تشفير وفك تشفير الصور ، ولكن لم يعمل مع ملف اكسل (ما جربت صيغ اخرى من الملفات). ما هي رسالة الخطأ ؟ جعفر

السلام عليكم 🙂 اخي الفاضل sabah2022 قوانين المنتدى تقول: - يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة لهذا السبب قام اخوي ابو البشر بطلب منك لتأكيد انك صاحب الملف ، ولازلت تستطيع ان تخبره اي من تفاصيل البرنامج او البيانات ، وسيساعدك بكلمة السر 🙂 اما اذا لم تستطيع ، فبكل احترام لك ، لن يقوم اي عضو بمساعدتك. جعفر

اخي الفاضل 🙂 بعد كل هذه المشاركات ، الظاهر اننا ما فهمنا قصدك !! ياريت توضح طلبك بصورة او بطريقة اخرى 🙂 جعفر

السلام عليكم 🙂 اخوي ابو خليل ، هناك ملاحظة عن تشفيرك في اول مشاركة ، فلما يفتح البرنامج الصورة ، فتظهر بألوان تختلف عن الصورة الاصليه (مع العلم ان الصورة المحفوظه بعد التشفير الوانها صحيحة!!). ***** وهنا ملاحظات هامة : بعض البرامج مثل الاكسل لا تنفتح بعد اعادة التشفير. عند ارفاق الملف ، والذي يقوم الكود بتشفيره ، فإذا ذهبث للمجلد الذي فيه الصورة المشفرة ، ثم اردت فتح الصورة ، فستجد رسالة خطأ من الوندوز بأنه لا يمكن فتح الملف ، وهو المطلوب ، الآن افتح الملف عن طريق النقر على اسم الملف من البرنامج ، فسينفتح الملف ، ورجاء غلق الملف ، الآن اذهب الى الخطوة رقم 2 اعلاه ، فالمفاجأة بأنه يمكنك فتح الملف مباشرة من المجلد !! والسبب بأننا قمنا بفك تشفير الملف عن طريق الخطوة رقم 2 !! الطريقة الصحيحة للتعامل مع الملف ، هو اخذ نسخة من الملف الى مجلد آخر ، فك التشفير ، ثم افتح الملف. يعني فك التشفير يكون للملف المؤقت دون المساس بالملف الاصل ، هذا الكود في النموذج الفرعي يقوم بالعمل اعلاه : Private Sub name_morfke_Click() Dim Source_File_Path As String, Destination_File_Path As String Source_File_Path = CurrentProject.Path & "\" & Me.name_morfke Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke FileCopy Source_File_Path, Destination_File_Path Application.FollowHyperlink (Destination_File_Path) EcryptDcryptImage (Destination_File_Path) End Sub Private Sub Form_Close() On Error Resume Next Dim Srst As DAO.Recordset Set Srst = Me.RecordsetClone Do Until Srst.EOF Kill Environ("Temp") & "\" & Srst!name_morfke Srst.MoveNext Loop End Sub جعفر

كود رائع اخوي ابو ابراهيم ، تغوص في الاعماق من مجلد فرعي الى آخر 🙂 جعفر

وتنسيب البرامج الى صاحبها ، او الى رابط الموضوع اللي كانت فيه 🙂 جعفر

هل قصدك انك تريد تغير دقة شاشة وندوز المستخدم الى 1024*768 . ومع امكانية عمل هذا ، فلا انصح بهذا العمل ، فستصادفك مشاكل اخرى ، وانا من المسخدمين اللي ما اسمح لأحد ان يلعب باعدادات الوندوز في كمبيوتري 🙂 جعفر

شكرا جزيلا اخوي ابوبسمله على المحاولة ، وايجاد الحل 🙂 قبل ان اضع مشاركتي السابقة ، كنت قد حاولت المحاولات التالية ، ولم يستجب/يقبل البرنامج : بعمل تغيير على التقرير وحفظه ، عمل برنامج جديد ، واستيراد جميل كائنات البرنامج القديم اليه ، تصدير التقرير الى ملف نص عن طريق الامر application.SaveAsText (حتى استورده مرة اخرى للبرنامج بغسم آخر ، عن طريق الامر Application.LoadFromText) ، وبعد وضع المشاركة السابقة واغلاق الكمبيوتر ، جاء في بالي عمل حدث في التقرير ، ولا ادري اذا كان سيحل المشكلة 🙂 جعفر

اخي الفاضل 🙂 التقارير معطوبه ، فالافضل لك ان لا تضيع وقت في محاولة تعديلها/استرجاعها !! ارجع الى النسخة الاقدم من البرنامج واخذ التقارير منه ، وعدل عليها ، او اعمل تقارير جديدة 🙂 جعفر

مافي اي مشكلة من تغيير اسم الوحدة النمطية ، كل شيء بيشتغل طبيعي ، لأنه مافي اي امر ينادي اسم الموحدة النمطية 🙂 فتغيير module1 الى module11 (طبعا اذا كانت وحدة نمطية) لن يعمل لك اي مشكلة. جميع الاوامر تنادي الدوال ومكتبات الوندوز

تفضل ، هذا رابط البحث جاهز : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=حجم+الشاشة+access&sa=Search

وعليكم السلام 🙂 module = موديل = وحدة نمطية Function = دالة API = مكتبة وندوز 1. لا تستطيع ان تستخدم نفس الاسم لهذه الكائنات ، فمثلا لا تستطيع تسمية دالة ووحدة نمطية بنفس الاسم ، 2. اذا عندك مكتبة وندوز في وحدة نمطية (مثلا لفتح نافذة لإختيار ملف من الكمبيوتر) ، ثم اضفت مكتبة في وحدة نمطية اخرى (لفتح نافذة لإختيار مجلد من الكمبيوتر) ، فلا تستطيع ان يكون عندك المكتبة في الوحدتين ، فيمكنك ان تحذف احدهما (بغض النظر من اي وحدة نمطية) ، مع مراعاة ان تجعل تصريح هذه المكتبة Public بدلا عن Private حتى يتسنى للوحدة الاخرى قراءتها. 3. في صفحة الكود ، دائما استعمل: أ. في اعلى الصفحة: Option Compare Database Option Explicit وخصوصا السطر الثاني ، وانا جعلت الاكسس يكتبه لي بطريقة تلقائية عن طريق بس بهذا الاختيار ، لازم تقوم بتعريف جميع متغيرات الكود عن طريق Dim واخواتها ، ب. VBE>Debug>Compile للحصول على المشاكل في الكود ، حتى من كثر ما استعين به لكشف مشاكل البرمجة ، فوضعت ايقونته خارج القائمة لسهولة الوصول اليها . اذا الخطوات اعلاه لم تكشف لك عن مكان المشكلة ، فهذا معناه ان ملف الاكسس قد يكون معطوب ، وعليه اعمل ملف جديد ، ثم استورد جميع كائنات الملف القديم الى الجديد : تكون في الملف الجديد ، ثم تستورد كائنات الملف القديم : . اما بالنسبة للملف الجديد ،فإعداداتي الافتراضية هي : . جعفر

هل اعدت تشغيل الكمبيوتر ؟

في الاستعلام ، الظاهر كان عندك حقل "حضور شهر 1" ، ثم قمت بحذف الحقل من مصدر بيانات الاستعلام ، ولم تقم بحذف الحقل من الاستعلام !! جعفر

هل جربت طريقة طريقة البحث اللي اخبرتك عنها في مشاركتي السابقة ؟

وعليكم السلام 🙂 اخي الفاضل ، اجعل من البحث في المنتدى صديقك ، فهو الاسرع لحصولك على الاجابة ، ومن جميع من رد على هذا السؤال 🙂 اليك رابطين: . . جعفر

وعليكم السلام 🙂 يمكنك البحث في محتوايات المنتدى من هنا ايضا ، وكلمات البحث مثل "حجم الشاشة" : . وحصلت على هذا الكم الكبير من المواضيع اللي تساعدك : . جعفر

وعليكم السلام 🙂 اخي طاهر ، المنتدى مليء بمثل هذا السؤال ، فالرجاء استعمال خاصية البحث به 🙂 جعفر

🙂

هممم معلش اخوي حمدي ، يجب الالتزام بقوانين المنتدى ، موضوع مستقل لكل سؤال 🙂 فإذا تمت الاجابة على سؤال الموضوع ، فرجاء تفتح موضوع آخر للسؤال التالي 🙂 جعفر

وعليكم السلام 🙂 هي بالفعل في اعدادات الوندوز ، عملها يدويا : . وبرمجيا : جعفر