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

ياهلا باستاذنا د.محمد الحقيقة ان اوامر الدوس مفيدة وتسهل كثيرا من العمل ولكنها سلاح ذو حدين من خلال ممكن استغلال بعض الاوامر لغرض تخريب نظام التشغيل ويندوز او اتلاف قطاع الاقلاع في القرص الصلب او عمل ملف يقوم بنسخ نفسه الى مالا نهاية او تنفيذ اوامر عند بداية تشغيل الحاسب مما يتسبب في عدم القدرة على الاقراع او تنفيذ عمليات غير شرعية "هذه المشكلة تم معالجتها في ويندوز 11" بشرط ان تكون النسخة اصلية غير معدلة وان يكون الحاسب يحقق متطلبات ويندوز 11 وهي قادر على التمهيد الآمن يدعم الاصدار 2 TPM الامر الاخر قد يخطئ من ليس لديه المعرفة بهذه الاوامر وخصوصا عند اضافة بعض المعلمات للامر فيتم حذف ملفات او اجراء تهيئة لاحد الاقراص بدون طلب رسالة تأكيد لذا افضل عدم التوسع في شرحها وبالنسبة للمشاركة السابقة فهي من باب اثراء الموضوع بطرق بديلة مع الاساتذه قد قدموا الحل الامثل تحياتي لك اخي واستاذي الحلبي ومرفق شرح بشكل سريع

وعليكم السلام ورحمة الله وبركاته جرب هذا الكود بعد اضافه المراجع التاليه Microsoft OLE DB Service Component 1.0 Type Library Microsoft ActiveX Data Objects 6.0 Library Sub Test() Dim dl As MSDASC.DataLinks Dim cn As ADODB.Connection Set dl = New MSDASC.DataLinks Set cn = New ADODB.Connection Set cn = dl.PromptNew End Sub

تفضل أخي MyTest.rar

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

عفوا يا جماعة ، الخطأ مني 😪 استعملوا هذا السطر 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

مرحبا فيك الاشياء اللي عملتها في نموذج فاتورة مشتريات اولا | الغيت كود عند الحفظ ينتقل إلى جديد عشان تشوف النتيجه ثانيا | اضفت امر بعد تحديث حقل الكميه المشتراه بالامر التالي Me.Requery الهدف منه هو عشان يجمع الثمن الاجمالي وينقلها إلى الحقل غير المنظم اللي انت مسويه تحت ثالثا | في زر الحفظ اضفت هذا الكود Me.total = [Form]![child]![fahd] الهدف منه ينقل القيمة الموجوده من الحقل غير المنظم إلى الاجمالي الموجود في رأس الفاتورة إليك المرفق تحديثات3.rar

لا اعتقد ذلك لاننا غيرنا سمات المجلد مع اني لم اجرب مع ذلك يمكن عكس العملية لاخفاء المجلد من خلال الامر التالي attrib +s +h d:\folders\myfolder الان فقط قارن بين الامر هذا للاخفاء والامر السابق للاظهار وشاهد الفرق بينهما بالنسبة لي لو اردت عملها سوف اعمل ملف دفعي يقوم بالمهمة اخفاء واظهار ولكن هذا موضوع اخر وليس برمجة اكسس اخير اشكر لك حسن ظنك وثناؤك الذي لا استحقه

الله على شرحك استاذ / خالد يااخى الكريم طبقت والحمد لله سوف اطبق فى العمل واشوف باذن الله النتيجه لكن الشئ العجيب والا انا فعلا مشتغرب له هذا التعبير اللغوى فى الكلام ـ فمن اين تاتى بهذه الكلمات النحوية والحكم وغيره وغيره أنت انسان مثقف لدرجة كبيرة ـ كبيرة فعلا معلش انا خرجت عن الموضوع ولكن اسمحوا لى ايها السيادة ان اقول : اتمنى ان يكون له صديق او حتى صاحب مثل الاستاذ خالد انا هأفيدك جدا جدا فى الموارد البشرية ونفسى تسأل سؤال فيها وانا اكون تحت امرك جزاك خيرا وجعله فى ميزان الحسنات يارب اكرم استاذنا خالد واجعل مأواه الجنة وارحم والديه يارب دعنى اردد هذه الابيات:- كَانَ لِي فِيمَـا مَـضَى ... عَقْلٌ وَعلمٌ وَاسْتِقَامَةْ ثُمَّ بِعْنَـا وبحَـمْــــدِ ... اللهِ فِقْهاً بِـحِـجـامَةْ وَلَئِنْ عِشْـنَـا قَـلِـيلاً ... نَسأَلُ اللهَ الـسَّـلاَمَةْ

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

مع اني مبتعد لكن مواضيعك لها طابع خاص بالنسبة لي افضل استخدام سطر الاوامر الدخول على تشغيل ثم كتابة cmd ثم استعراض ملفات المجلد لمعرفة اذا كان هناك ملفات مخفية باستخدام الامر dir /ah الان تأكدت من وجود مجلد مخفي ولاظهاره استخدمت الامر D:\>attrib -s -h d:\folders\myfolder والنتيجة تغيير سمات المجلد و اظهار المجلد المخفي وملفاته طريقة قديمة من ايام ms-dos و pc-dos ولكن لكل اصدار بعض المعلمات تحياتي

وعليكم السلام ورحمه الله وبركاته تفضل رابط لباقي الاوامر

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

اظهره لي وندوز من خيارات المجلدات انظر الصورة :

ماشاءالله تبارك الله تمام ظبطت جزاك الله كل خير الف شكر للاخ حسونه

وعليكم السلام ورحمة الله طباعة الصورة بحجم الورقة يتسبب في تباعد نقاط الرسم وبالتالي تصبح الصورة مشوه المنظر. لهذا أنت بحاجة إلى تنسيق حجم الصورة قبل الطباعة.. طباعه المرفقات.accdb

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

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع لاستخدام ctrl+f استخدم هذا الامر Application.SendKeys "^f", True

اخى @بلانك ربنا يبارك في وقتك ووقتنا اخى هل قمت بتحميل الملفات التي وضعها اخونا @mn20 وهل قمت بتشغيل الكود منها بعد ان قمت بالتعديل عدل File1 = "File1.xlsx" File2 = "File2.xlsx" الى File1 = ThisWorkbook.Path & "\" & "File1.xlsx" File2 = ThisWorkbook.Path & "\" & "File2.xlsx" من الواضح من الصورة التي ارفقتها انك لم تفعل

@بلانك قم يتحديد اماكن الملفات غير من File1 = "File1.xlsx" File2 = "File2.xlsx" الى File1="C:\Users\PC WORLD\Desktop\FILE1.xlsx" File1="C:\Users\PC WORLD\Desktop\FILE2.xlsx"

وعليكم السلام ورحمة الله وبركاته أخي مصطفى 🙂 موضوعك مشابه لهذا الموضوع :

عندى برنامج فى حالة فتحه يظهر ليه خطأ sub من فضلكم ازاى اصحح هذا الخطأ Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _ (ByVal hwnd As Long, rgb As Long)

السلام عليكم ورحمة الله اخواني الكرام (اعضاء وخبراء وعلماء) في هذا الصرح العملاق الذي طالما قدم ويقدم الكثير في مجال العلم والمعرفة أود أن أهنئكم وأهنئ نفسي اليوم بإفتتاح الاقسم الجديدة في الموقع التي سوف تقدم مجال واسع في تواصل ونشر المعرفة على مستوى الوطن العربي والعالم أيضاً وفي تلك المناسبة أود أن أقدم لكم كما وعدتكم في موضوعنا السابق وهو برنامج ومنظومة صرافة العملات بحلته وشكله الجديد هدية متواضعة مني لطلابنا الاعزاء وهي البرنامج نفسه ولكن مفتوح المصدر الآن تستطيع مشاهدة ومعرفة الكودات الموجودة في البرنامج وطريقة التصميم والبرمجة بكل بساطة وسهولة كل ماعليكم فعله تحميل الملف المرفق وفك الضغط وتفعيل الماكرو Office Soft.Financial Services Open Sorce.rar صور من البرنامج