jjafferr

ياريت تخبرنا عن طريقة بحثك للمواضيع ، لأني ملاحظ انك ما شاء الله عندك بنك من المعلومات الجاهزة (نقدا cash) 🙂 اعمل تقرير جديد ، ضع فيه التقريرين Rep_1 و Rep_2 كتقارير فرعية جنب بعضهم كما في الصورة ، و اضبط المسافات وحواشي الطباعة 🙂 جعفر

اذا عندك مجلد مشاركة في شبكة ، وكان هذا المجلد على السيرفر او كمبيوترك ، وما تريد بقية الكمبيوترات تشوفه ، اكتب علامة الدولار قبل الاسم ، مما سيجعل المجلد مخفي لبقية الكمبيوترات على الشبكة ، ولن يروه 🙂 مثل: $myFolder جعفر هذا يشتغل على صيغة mdb ولا يشتغل على صيغة accdb ، وتأكد بأن كلمة السر طولها 12 حرف واطول ، وفيها حروف كبيرة وصغيرة وارقام ورموز (مثل ! @ # $ % ^ & * ) ( _ + = ) جعفر

السلام عليكم 🙂 اهلا وسهلا بك في المنتدى ، وللإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اخي الفاضل ، اجعل البحث في المنتدى صديقا لك ، فسترى العديد والعديد من الاجابات على اسئلتك ، بدل الانتظار لحصولك على الرد 🙂 تفضل ، نتائج البحث عن كلمة ceiling في منتدى الاكسس جعفر

اعمل للبرنامج كلمة سر 🙂 شو المشكلة !! جعفر

وعليكم السلام ورحمة الله وبركانه 🙂 . . . جعفر

وعليكم السلام 🙂 من الصورة اللي ارفقتها ، اشوف انك ما اخترت المجلد اللي يحفظ فيه النسخ الاضافية !! افتح البرنامج ، اضغط على الزر F11 من الكيبورد ، افتح الجدول tbl_Backup_Path ، وبدل المسار: Y:\Sharing\DBs\DB_Backup ، اكتب مسار مجلد النسخ الاضافية ، اقفل البرنامج ، ثم شغله من جديد 🙂 جعفر

حياكم الله 🙂 المرفق جعلت فيه كود سريع التشفير (او اثنين بايت فقط من الملف) ، وجعلت الملف يفتح بدون رسالة التأكيد 🙂 جعفر

عفوا يا جماعة ، الخطأ مني 😪 استعملوا هذا السطر Source_File_Path = Me.Parent!pate & "\" & Me.name_morfke . يعني كودي في اول مشاركة يصبح بعد التعديل : Private Sub name_morfke_Click() Dim Source_File_Path As String, Destination_File_Path As String Source_File_Path = me.parent!pate & "\" & 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 . واليكم المرفق وبه التعديلات السابقة والاخيرة والجديدة 🙂 جعفر Archiving_Encripted_Attachment.zip

وين البيانات او الصورة ؟

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

لوسمحت تجرب هذا الكود بدلا عن السابق: 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