للفائدة فقط ......

لتنفيذ مهمة مسح محتويات مجلدات معينة عند إغلاق الويندوز بدون استخدام برنامج 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 مخازن كومبو بوكس

وتاريخ الصيانة

وامكانية اضافة صورتين للمعداه تظهر في الفورم

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

وشكرا لكم مقدما

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

السلام عليكم

لقية موضوع لكن المشكله للاكسس وارغب بكود لاخذ صوره بالاكسل

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