نجوم المشاركات

عفوا يا جماعة ، الخطأ مني 😪 استعملوا هذا السطر 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 : . وطبعا تقدر تضبط الحقول وحجمها داخل حدود الملصق 🙂 جعفر

@بلانك لا حاجة لان تشير الى اسم الملف المفتوح كما انه لا بد من تعريف المتغيرات كما في صورتك للكود الخاص بك كما انك تجاهلت اجابة الاخ @mn20 لم تجرب حله لقد قام لك بتنظيم الكود وهناك اختلاف لذا وجب عليك تنزيل المرفقات وتجربة الكود الخاص @mn20 ولقد جربته ونفذت ما اقترحته عليك يعمل من دون مشاكل انت تعمل على كودك انت وبالتالي سيظهر هذا الخطا . بعد 10 منشورات تقول يظهر خطأ بتحديد الصف دون معرفة رسالة الخطأ هذا مضيعة للوقت . كما الاستاذ @hassona229 طلب منك ماذا فعلت ولم تجيبه !!! اتمنى في المرة القادمة ان تقوم بنشر تساؤلات الاعضاء ان اردت المساعدة .

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

وبالنسبة لطلبك الثاني ضع هذا الكود في زر فتح ال PDF : Dim DesktopPath As String DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") DoCmd.OpenReport "t1", acViewReport DoCmd.OutputTo acOutputReport, "t1", "*.pdf", DesktopPath & "\t1.pdf", True, , , acExportQualityPrint

تفضل أخي MyTest.rar

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

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

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

تمام استاذي العزيز @jjafferr البرتامج شغال تسلم ايدك ياغالي

السلام عليكم اساتذتي الاعزاء استاذ @jjafferr اسمحلولي بالتجربة انا قمت بتحميل الملف وعندي اوفيس 2010 ووندوز 7 - 32 بت اولا/ قمت بعمل مجلد على سطح المكتب لحفظ الصور المشفرة ثانيا /قمت بادراج صور من الكمبيوتر الى المجلد ثالثا /عند النقر على المرفق في النموذج الفرعي تظهر رسالة الخطا كما في الصور علما بان الصور تم نقلها الى المجلد كما في الصورة الاولى تحياتي

أستاذي ومعلمي العزيز @jjafferr سويت كما اوضحت لكن مازلت تظهر الرسالة السابقة بعدم وجود الملف رغم اني طبقت على اصدار اوفيس 2010 و 2019 و 2013 ومازالت كما هو في الصورة وكذا على نظامين مختلفين ويندوز 7 ويندوز 10 ولست اعلم هل المشكلة من الاوفيس او النظام او من الكود أرجوا ان لا اكون اثقلت عليك فكما هو واضح ان التطبيق يعمل عندك .....لكن لا اعلم سبب ظهور المشكلة عندي test.accdb

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

تفضل حسب طلبك ووافني يالرد 21214.rar

نعم استاذي العزيز ابو خليل موجود كما هو مبين في الصورة والمشكلة مازالت قائمة

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

شكرا لك عمي @الحلبي 🙂🌹 .. تأخرت عليك في الرد ولما رجعت وجدت كل شيء جاهز 😅 ..

نعم اجابه شافيه جمليه وعبقرية استاذ / سامى ولكن ينقصها شئ بسيط جدا ان نجعل ملف pdf الذى على سطح المكتب واحد فقط لان فى كل مرة تطبع فيها ينشأ ملف اخر ويمتلى سطح المكتب بملفات pdf ويحتوى هذا الملف على ملفات البرنامج يختلف باختلاف التاريخ فقط ـ يعنى مهما طبعت فى اليوم الواحد يسجل داخل الملف طالما التاريخ لم يختلف وعند الطباعة فى تاريخ اخر يزداد عدد الملفات داخل المجلد لان التاريخ اختلف شاكر جدا لحضرتك وجزاك الله خيرا وزادك الله علما نافعا ـ وكم انا سعيد بحرصك الشديد على تعليم المبتدئين مثلى ومساعدتهم رحم الله والديك فى الدنيا والاخره كل الاحترام والتقدير لشخصكم الكريم

وعليكم السلام استاذ احمد.. اذا كنت تقصد في سؤالك الاول عدد الاقساط المدفوعة والمبلغ المدفوع لغاية هذا التاريخ.. تعمل حقل في الاستعلام تسميه عدد الاقساط المدفوعة وتضع هذا الكود DateDiff("m";[تاريخ اول قسط];Date())-[الاقساط الغير مدفوعة] وتعمل حقل ثاني تسميه المبالغ المدفوعة وتضع هذا الكود: [ عدد الاقساط المدفوعة]* [مبلغ القسط الواحد] اما الاقساظ الغير مدفوعة فأساسا انت حددتها في حقل الاقساط غير المدفوع تضربها في مبلغ القسط لتظهر لك الاقساط غير المدفوعة لكن هذه الطريقة استاذ احمد تسبب لك اشكالية لان السهو وارد فيها ..الافضل ان تعمل جدول لتاريخ تسديد القسط ويحدد لك قيمة القسط الشهري بناء على عدد الاقساط تحياتي

تسلم

الله يقويك أخوي واستاذي العزيز أبو اخمد نعم كلامك صحيح ميه ميه .. واشكرك جزيل الشكر على المعلومة. تحياتي الخمدلله انك توصلت للحل , واسف جدا لعدم التواصل وذلك لعدم تواجدي بالمنتدى . بالتوفيق

ا استاذنا ومعلمنا ابو خليل فعلا طلع الخلل من عندى واجابة الاستاذ / موسى صحيحة فاسمح لى ان اضع افضل اجابه له جزاك الله كل خير معلمنا وشيخنا ابو خليل وجعله فى ميزان حسناتك واطال الله فى عمرك بهذا اكون وصلت الى الحل وشاكر جدا لكل من ساهم معى وشارك فى الحل

تأكد من مكتباتك .. خاصة ما لون بالازرق

الله يعافيك وينفع يعلمك .. بحثت في قوقل على رقم الخطأ وحملت ملف ميكروسوفت طباعة الى pdf والحمد لله مشي الحال ... شكرا شكرا على اهتمامك

لا يأس مع الحياة .. بعض الحلول تجيك بعد 14 سنة 😂

نفضل أخي أقرأ (اقرأني مهم جداً ) ووافني بالرد Baba_Test.rar

اعجز عن الشكر استاذي ومعلمي الفاضل Moosak جزاك الله خيرا

جرب الكود التالي فقط عدل في مسار ملف الحفظ لأنه لا يمكنك فتح التقرير بامتداد pdf دون ان تتم عملية التصدير الى صيغة pdf أولا و إذا نجحت معك عدل على الكود بالنسبة لبقية السؤال DoCmd.OpenReport "t1", acViewPreview DoCmd.OutputTo acOutputReport, "t1", acFormatPDF, "مسار ملف الحفظ", True

بالإضافة إلى ما قاله أخي محمد البرناوي 🙂 ضع هذه الإعدادات للتقرير : ثم ضع هذين السطرين عند الفتح : DoCmd.Maximize DoCmd.Restore جرب الآن فتح التقرير .. سيظهر عندك بهذه الصورة : قم بتغيير حجمه بالطريقة التي تريده أن يظهر بها .. ثم اضغط على ( Ctrl + S ) من الكيبورد ( أي حفظ الوضعية التي عليها الآن : بعدها سوف يظهر لك التقرير دائما بهذه الصورة 🙂☝

طيب بالنسبة للتقرير عشان تروح العصبية عشان نتفاهم على المطلوب الثاني بعدها ..... في حدث عند فتح التقرير ضع هذا ...... DoCmd.Maximize

السلام عليكم ورحمة الله وبركاته ضع جميع الملفات (File1 , File2 , vba Code) في مجلد (فولدر) واحد وجرب .. لعله يفي بالمطلوب 😘. File1.xlsx File2.xlsx vba code.xlsm

السلام عليكم و رحمة الله و بركاته جازاكم الله خيرا دوما نلجا اليكم نستعين بخبرتكم مشكورين جدا

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر [/center] ' ' هذا الكود للعالم العلامة عبد الله باقسير Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If Activewindow.ScrollColumn = 1 Activewindow.ScrollRow = 1 On Error GoTo 0 End Sub في هذا الكود البسيط والمفيد عند الضغط على الزر ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف اختر منها الورقة التي تبعاها ودمتم في حفظ الله التنقل بين الصفحات.rar

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني وهو عباره عن ملف رائع لاستخراج شهادات الطلاب وأوائل الطلبة وشهادات تقدير للأوائل ولا ننسى الدعاء لساحرالاكسيل ومهندسه العالم العلامة والبحر الفهامة بمشيئة الله عبد الله باقشير جزى الله كل من كانت له بصمة في هذا العمل أوائل الطلبه وشهادات3.rar ===================================== تفضل اخي الكريم وجزاكم الله خيرا أوائل الطلبه وشهادات3.rar