jjafferr

في استعلام التقرير ، اعمل معيار في احد الحقول ، مثل رقم الجلوس ، هكذا : . ومعيار الاستعلام التقرير الآخر : . وهذه النتيجة : . جعفر

وعليكم السلام 🙂 ابو احمد ، ابشرك ، خلصت كل شيء ، بس احتاج وقت لترتيب الكود وتسهيله للمستخدم 🙂 جعفر

1. مع الاخفاء ، اجعل عرض الحقل=0 ، 2. بالنسبة للمحاذاة ، تحتاج الى عمل حقل فارغ يملئ المسافة من اليسار ، بحيث يتم زحف/تحريك بقية الحقول الى اليمين. واذا اردت مساعدة اضافية ، يجب ان نرى مرفقك وبه بيانات كافية للتجارب عليه 🙂 جعفر

انا استعملها دائما ، والفكرة ناجحة 🙂 انت سترى المجلد من كمبيوترك ، ولكن بقية الكمبيوترات في الشبكة لن تراه

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

دكتور حلبي ، هل جربت الطريقة ؟

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

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل يا سيدي ، دالة تحذف المجلد واللي فيه : Function DelFolder(ByVal strDir As String) As Long On Error Resume Next ' to delete the directory and its contents Dim x As Long Dim intAttr As Integer Dim strAllDirs As String Dim strFile As String DelFolder = -1 strDir = Trim$(strDir) If Len(strDir) = 0 Then Exit Function If right$(strDir, 1) = "\" Then strDir = Left$(strDir, Len(strDir) - 1) If InStr(strDir, "\") = 0 Then Exit Function intAttr = GetAttr(strDir) If (intAttr And vbDirectory) = 0 Then Exit Function strFile = Dir$(strDir & "\*.*", vbSystem Or vbDirectory Or vbHidden) Do While Len(strFile) If strFile <> "." And strFile <> ".." Then intAttr = GetAttr(strDir & "\" & strFile) If (intAttr And vbDirectory) Then strAllDirs = strAllDirs & strFile & Chr$(0) Else If intAttr <> vbNormal Then SetAttr strDir & "\" & strFile, vbNormal If Err Then DelFolder = Err: Exit Function End If Kill strDir & "\" & strFile If Err Then DelFolder = Err: Exit Function End If End If strFile = Dir$ Loop Do While Len(strAllDirs) x = InStr(strAllDirs, Chr$(0)) strFile = Left$(strAllDirs, x - 1) strAllDirs = Mid$(strAllDirs, x + 1) x = DelFolder(strDir & "\" & strFile) If x Then DelFolder = x: Exit Function Loop RmDir strDir If Err Then DelFolder = Err Else DelFolder = 0 End If End Function جعفر

وعليكم السلام اخي احمد 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، يرجى قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة رجاء شرح طلبك بصورة ، او عمله بالاكسل ، فلم افهم المطلوب 🙂 جعفر

ياريت تخبرنا عن طريقة بحثك للمواضيع ، لأني ملاحظ انك ما شاء الله عندك بنك من المعلومات الجاهزة (نقدا 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 قوانين المنتدى تقول: - يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة لهذا السبب قام اخوي ابو البشر بطلب منك لتأكيد انك صاحب الملف ، ولازلت تستطيع ان تخبره اي من تفاصيل البرنامج او البيانات ، وسيساعدك بكلمة السر 🙂 اما اذا لم تستطيع ، فبكل احترام لك ، لن يقوم اي عضو بمساعدتك. جعفر