محمد إبراهيم محمد

للفائدة فقط ...... لتنفيذ مهمة مسح محتويات مجلدات معينة عند إغلاق الويندوز بدون استخدام برنامج VB.net، يمكنك استخدام الأسلوب التالي: 1. قم بفتح Notepad (مفكرة) أو أي محرر نصوص آخر. 2. قم بنسخ الكود التالي إلى المفكرة: ```bat @echo off rd /s /q "C:\Example\Folder1" rd /s /q "C:\Example\Folder2" ``` حيث يجب استبدال "C:\Example\Folder1" و "C:\Example\Folder2" بمسار فولدراتك التي تريد مسحها. ويمكنك إضافة الفولدرات الإضافية حسب حاجتك. 3. قم بحفظ الملف واختر امتداد الملف باسم ".bat"، مثل "DeleteFolders.bat". 4. بعد حفظه، يمكنك تشغيل الملف ببساطة عن طريق النقر المزدوج عليه. ستقوم الدفعة بمسح محتويات الفولدرات المحددة على الفور. 5. لتنفيذ الملف عند إغلاق الويندوز، قم بنقل الملف إلى المجلد التالي: ``` C:\Users\<اسم المستخدم>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup ``` حيث "<اسم المستخدم>" هو اسم المستخدم الخاص بك في ويندوز. وبهذا ستتمكن من تنفيذ مهمة مسح محتويات الفولدرات المحددة عند إغلاق الويندوز. يمكنك تعديل الملف الدفعي الذي أنشأته في أي وقت عن طريق فتحه في Notepad وتعديل الفولدرات المطلوبة أو إضافة/إزالة أوامر أخرى حسب الاحتياج.

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

السلام عليكم محتاج مساعدة في ترحيل بيانات الشهر بالكامل الي ورقه جديدة واختيار شهر جديد لتسجيل البيانات وفي حالة اختيار الشهر القديم يتم جلب البيانات للتعديل عليها وشكرا لكم تحضير يومي.xlsx

ارغب في تعديل الواجهات كيف افعل ذلك ؟ لان في حالة التعديل تضهر لي واجهه واحد

حاليا عند فتح الملف ارغب في تعديل بعض الخانات في الفورم فتضهر عندي فروم واحد ولا استطيع التنقفل بين الفريمات بمعني ارغب بتعديل على الواجهه مثل التقرير الشهري وارقام الصفوف و التقرير اليومي وسجل الحضور لكن يضهر معي فقط عرض البيانات كما هو موجود في صورة شاشة vb وشكرا لك مقدما

صباح الخير هل .. ارجو فقط تعليمي كيف الدخول الي باقي الواجهات في البرنامج المرفق وشكرا مقدما حضور وغياب - يوزر فورم--.xlsm

شكرا لك استفسار كيف يتم التعديل على الفورم لان في حالة فتح صفحة الكود اجد فقط واجهه واحده وشكرا لك

السلام عليكم محتاج فورم ادخل بيانات يتكون من اسم المعداة كود المعداة ومكان تواجد المعداة ( اي مخزن ) 4 مخازن كومبو بوكس وتاريخ الصيانة وامكانية اضافة صورتين للمعداه تظهر في الفورم والخيارات - اضافه حذف بحث بالكود او اسم المعداه بمعني لو في تشابه بالاسم تظهر لي وانا اخار منها و طباعة تقرير فيه نفس البيانات مع الصور Q8iDev@gmail.com وشكرا لكم مقدما

محتاج فورم ادخل بيانات يتكون من اسم المعداة كود المعداة ومكان تواجد المعداة ( اي مخزن ) 4 مخازن كومبو بوكس وتاريخ الصيانة وامكانية اضافة صورتين للمعداه تظهر في الفورم والخيارات - اضافه حذف بحث بالكود او اسم المعداه بمعني لو في تشابه بالاسم تظهر لي وانا اخار منها و طباعة تقرير فيه نفس البيانات مع الصور وشكرا لكم مقدما

شكرا مقدما لكن البرنامج لا يعمل واقف على هالصفحه

السلام عليكم لقية موضوع لكن المشكله للاكسس وارغب بكود لاخذ صوره بالاكسل Private Const iScanner As Long = 1764 Dim iSh Private Sub Cmd_Pic_Folder_Click() May_Pic = Application.GetOpenFilename("Picture Files (*.jpg; *.jpeg; *.bmp; *.gif),*.jpg; *.jpeg; *.bmp; *.gif") If May_Pic = False Then Exit Sub On Error GoTo 1 Set Image1.Picture = LoadPicture(May_Pic) Exit Sub 1 MsgBox "هذا النوع من الصور غير معتمد في البرنامج", vbExclamation + vbMsgBoxRight, " " End Sub Private Sub CmdSA_Click() On Error GoTo 1 Set s = iSh.Shapes(CStr(Me.Text_PicTo_Copy)) s.CopyPicture iSh.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste iSh.ChartObjects(1).Chart.Export Filename:="monimage.jpg" iSh.Shapes(iSh.Shapes.Count).Delete Me.Image1.PictureSizeMode = fmPictureSizeModeZoom Me.Image1.Picture = LoadPicture("monimage.jpg") Kill "monimage.jpg" 1 Dim N_Pic As String If TBN_Pic.Text = "" Then Exit Sub N_Pic = ThisWorkbook.Path & "\SW\S\" & TBN_Pic & ".jpg" 'bmp SavePicture Image1.Picture, N_Pic UserForm1.LabelPic.Caption = N_Pic Application.Visible = False Unload Me End Sub Private Sub CmdWA_Click() On Error GoTo 1 Set s = iSh.Shapes(CStr(Me.Text_PicTo_Copy)) s.CopyPicture iSh.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste iSh.ChartObjects(1).Chart.Export Filename:="monimage.jpg" iSh.Shapes(iSh.Shapes.Count).Delete Me.Image1.PictureSizeMode = fmPictureSizeModeZoom Me.Image1.Picture = LoadPicture("monimage.jpg") Kill "monimage.jpg" 1 Dim N_Pic As String If TBN_Pic.Text = "" Then Exit Sub N_Pic = ThisWorkbook.Path & "\SW\W\" & TBN_Pic & ".jpg" 'bmp SavePicture Image1.Picture, N_Pic UserForm1.LabelPic.Caption = N_Pic Application.Visible = False Unload Me End Sub Private Sub CommandButton2_Click() On Error Resume Next Set iSh = Sheets("PH") iSh.Activate Application.CommandBars.FindControl(ID:=1764).Execute For Each s In iSh.Shapes Me.Text_PicTo_Copy.Text = s.Name Next Application.Visible = False End Sub Private Sub sCancel_Click() Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True End Sub ارغب بالمساعده في التعديل وشكرا لكم

هل من مساعدة ؟

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

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