كل الانشطه

نموذج خاص لمشروعك @منتصر الانسي ☕🌹❤️ لعمل زر انهاء واغلاق هذا الكود 1- الغاء الكود Private Sub Form_Unload(Cancel As Integer) ' ' منع إغلاق النموذج ' Cancel = True ' HandleCloseAttempt End Sub 2- تعديل كود زر اغلاق وانهاء كما موضع بسطر الكود في المرفق ' تعطيل إمكانية الإغلاق عند التحميل SetAccessCloseAbility False ' تفعيل إمكانية الإغلاق عند التحميل SetAccessCloseAbility True Private Sub Run_Click() On Error GoTo Qut SetAccessCloseAbility True Dim frmXrpt As Integer Dim frmX As Integer Dim rptX As Integer For frmXrpt = 1 To 1 For frmX = 0 To Forms.count - 1 DoCmd.close acForm, Forms(0).name Next frmX For rptX = 0 To Reports.count - 1 DoCmd.close acReport, Reports(0).name Next rptX Next frmXrpt 'DoCmd.Quit acQuitSaveAll SafeExit Exit Sub Qut: MsgBox err.Description End Sub =============================================== :نستفيد من اخفاء الملفات بطريقة المتاهات تذكرة لعبة المتاهات كان عند @Foksh مشكلة ما قدر يحلها المهم توضيح 1- قاعدة فارغة لتشغيل القاعدة واغلاق لماذا بسبب ان اختصار سطح المكتب يعرف فيه مكان قاعدة التشغيل 2- اجعل مجلد القاعدة الفارغه هو اختصار سطح المكتب وعند مجلده اضافة ملفات برقة بيضاء شكلا ووهم ان هذه هي القاعدة دالة التشفير وفك التفير تزيد امان مع تفعيل غفل القواعد بكلمة مرور ودالة العكس والمعالجه المهم جرب طريقة بتشغيل اختصار وهمي On Error GoTo ErrorHandler Dim folderPath As String Dim result As Long Dim fs As String fs = Application.CurrentProject.Path ' تنظيف المسار من أي فواصل أو مسافات زائدة '==================( من غير حقل مفقط مسار قاعدة folderPath = Trim(fs) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' التحقق من وجود المجلد If Dir(folderPath, vbDirectory) = "" Then MsgBox "المجلد غير موجود!", vbExclamation, "خطأ" Exit Sub End If ' إخفاء المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_HIDDEN) If result <> 0 Then Me.lblStatus.Caption = "تم إخفاء المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إخفاء المجلد!" Me.lblStatus.ForeColor = vbRed End If Exit Sub ErrorHandler: Me.lblStatus.Caption = "حدث خطأ: " & err.Description Me.lblStatus.ForeColor = vbRed واذا كان الاستخدام لمفات تتعلق بنظام او القاعدة تكتب سطر سطر من غير & Run من غير جدول من غير حقول Dim Path_X0 As String Dim Path_X1 As String Dim Path_X2 As String Dim Path_X3 As String Dim Path_X4 As String Dim Path_X5 As String Dim Path_X6 As String Dim Path_X8 As String Dim Path_X9 As String Dim Path_X10 As String Dim Path_X11 As String Dim Path_X12 As String Dim Path_X13 As String Dim Path_X14 As String Dim Path_X15 As String Dim Path_X16 As String Dim Path_X17 As String Dim Path_X18 As String Dim Path_X19 As String Dim Path_X20 As String Dim Path_X21 As String Dim Path_X22 As String Dim Path_X23 As String Dim Path_X24 As String Dim Path_X25 As String Dim Path_X26 As String Dim Path_X27 As String Dim Path_X28 As String Dim Path_X29 As String Dim Path_X30 As String Dim Path_X31 As String Dim Path_X32 As String Dim Path_X33 As String Dim Path_X35 As String Dim Path_X36 As String Dim Path_X37 As String Dim Path_X38 As String Dim Path_X39 As String Dim Path_X40 As String Dim Path_X41 As String ' On Error GoTo ErrorHandler Dim folderPath As String Dim result As Long Dim Run As Integer Path_X0 = Application.CurrentProject.Path & "\DDB_Control" Path_X1 = Application.CurrentProject.Path & "\IMG_Company" Path_X2 = Application.CurrentProject.Path & "\IMG_Company_ReP" Path_X3 = Application.CurrentProject.Path & "\IMG_Wallpaper_backgreound" Path_X4 = Application.CurrentProject.Path & "\App_IMG_Wallpaper_backgreound" Path_X5 = Application.CurrentProject.Path & "\IMG_Editor_Menu" Path_X6 = Application.CurrentProject.Path & "\Cantry_IMG" Path_X7 = Application.CurrentProject.Path & "\fonts" Path_X8 = Application.CurrentProject.Path & "\Icon_Button" Path_X9 = Application.CurrentProject.Path & "\Icon_Msgbox" Path_X10 = Application.CurrentProject.Path & "\Sound" Path_X11 = Application.CurrentProject.Path & "\Wallpaper" Path_X12 = Application.CurrentProject.Path & "\Video" Path_X13 = Application.CurrentProject.Path & "\db_BE" Path_X14 = Application.CurrentProject.Path & "\ExE" Path_X15 = Application.CurrentProject.Path & "\IMG_Report" Path_X16 = Application.CurrentProject.Path & "\File_word" Path_X17 = Application.CurrentProject.Path & "\File_Excel" Path_X18 = Application.CurrentProject.Path & "\Book" Path_X19 = Application.CurrentProject.Path & "\File_PowerPoint" Path_X20 = Application.CurrentProject.Path & "\File_Text" Path_X21 = Application.CurrentProject.Path & "\File_Code" Path_X22 = Application.CurrentProject.Path & "\All_InFile_One_Zip_Rar" Path_X23 = Application.CurrentProject.Path & "\ICOn" Path_X24 = Application.CurrentProject.Path & "\Icon_bar_DB" Path_X25 = Application.CurrentProject.Path & "\Icon_bar_Form_Report" Path_X26 = Application.CurrentProject.Path & "\Icon_Button" Path_X27 = Application.CurrentProject.Path & "\icon_Gif" Path_X28 = Application.CurrentProject.Path & "\Icon_Msgbox" Path_X29 = Application.CurrentProject.Path & "\LinkedDB_Backups" Path_X30 = Application.CurrentProject.Path & "\Office_Video" Path_X31 = Application.CurrentProject.Path & "\Qr" Path_X32 = Application.CurrentProject.Path & "\QR_User" Path_X33 = Application.CurrentProject.Path & "\Resources" Path_X34 = Application.CurrentProject.Path & "\World_Cantry" Path_X35 = Application.CurrentProject.Path & "\Gif_IMG" Path_X36 = Application.CurrentProject.Path & "\Fix_Photo" Path_X37 = Application.CurrentProject.Path & "\db_db_db_test_link" Path_X38 = Application.CurrentProject.Path & "\Corrupted_DBs" Path_X39 = Application.CurrentProject.Path & "\Corrupted_Archives" Path_X40 = Application.CurrentProject.Path & "\Change_Dy_Time_All_Table" Path_X41 = Application.CurrentProject.Path & "\Add Fonts.bmp" For Run = 0 To 40 If Run = 0 Then ' تنظيف المسار folderPath = Trim(Path_X0) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 1 Then ' تنظيف المسار folderPath = Trim(Path_X1) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 2 Then ' تنظيف المسار folderPath = Trim(Path_X2) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 3 Then ' تنظيف المسار folderPath = Trim(Path_X3) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 4 Then ' تنظيف المسار folderPath = Trim(Path_X4) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 5 Then ' تنظيف المسار folderPath = Trim(Path_X5) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 6 Then ' تنظيف المسار folderPath = Trim(Path_X6) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 7 Then ' تنظيف المسار folderPath = Trim(Path_X7) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 8 Then ' تنظيف المسار folderPath = Trim(Path_X8) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 9 Then ' تنظيف المسار folderPath = Trim(Path_X9) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 10 Then ' تنظيف المسار folderPath = Trim(Path_X10) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 11 Then ' تنظيف المسار folderPath = Trim(Path_X11) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 12 Then ' تنظيف المسار folderPath = Trim(Path_X12) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 13 Then ' تنظيف المسار folderPath = Trim(Path_X13) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 14 Then ' تنظيف المسار folderPath = Trim(Path_X14) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 15 Then ' تنظيف المسار folderPath = Trim(Path_X15) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 16 Then ' تنظيف المسار folderPath = Trim(Path_X16) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 17 Then ' تنظيف المسار folderPath = Trim(Path_X17) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 18 Then ' تنظيف المسار folderPath = Trim(Path_X18) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 19 Then ' تنظيف المسار folderPath = Trim(Path_X19) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 20 Then ' تنظيف المسار folderPath = Trim(Path_X20) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 21 Then ' تنظيف المسار folderPath = Trim(Path_X21) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 22 Then ' تنظيف المسار folderPath = Trim(Path_X22) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 23 Then ' تنظيف المسار folderPath = Trim(Path_X23) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 24 Then ' تنظيف المسار folderPath = Trim(Path_X24) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 25 Then ' تنظيف المسار folderPath = Trim(Path_X25) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 26 Then ' تنظيف المسار folderPath = Trim(Path_X26) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 27 Then ' تنظيف المسار folderPath = Trim(Path_X27) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 28 Then ' تنظيف المسار folderPath = Trim(Path_X28) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 29 Then ' تنظيف المسار folderPath = Trim(Path_X29) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 30 Then ' تنظيف المسار folderPath = Trim(Path_X30) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 31 Then ' تنظيف المسار folderPath = Trim(Path_X31) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 32 Then ' تنظيف المسار folderPath = Trim(Path_X32) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 33 Then ' تنظيف المسار folderPath = Trim(Path_X33) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 34 Then ' تنظيف المسار folderPath = Trim(Path_X34) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 35 Then ' تنظيف المسار folderPath = Trim(Path_X35) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 36 Then ' تنظيف المسار folderPath = Trim(Path_X36) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 37 Then ' تنظيف المسار folderPath = Trim(Path_X37) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 38 Then ' تنظيف المسار folderPath = Trim(Path_X38) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 39 Then ' تنظيف المسار folderPath = Trim(Path_X39) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 40 Then ' تنظيف المسار folderPath = Trim(Path_X40) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If If Run = 41 Then ' تنظيف المسار folderPath = Trim(Path_X41) If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" ' إظهار المجلد result = SetFileAttributes(folderPath, FILE_ATTRIBUTE_NORMAL) If result <> 0 Then Me.lblStatus.Caption = "تم إظهار المجلد بنجاح: " & folderPath Me.lblStatus.ForeColor = vbGreen Else Me.lblStatus.Caption = "فشل في إظهار المجلد أو غير مخفي أساساً!" Me.lblStatus.ForeColor = vbRed End If End If Next Exit Sub ErrorHandler: Me.lblStatus.Caption = "حدث خطأ: " & err.Description Me.lblStatus.ForeColor = vbRed End Sub ما رايك في الفكرة 😇 @منتصر الانسي

أخي الفاضل ( أبو خليل ) بعد سلام الله عليكم ورحمة الله وبركاته لعلك والأخوة الكرام بصحة وعافية في الملف المرفق الذي أسسته بكرمك وفضلك وعلمك زاد الله ( من علمك ) في نتيجة الدور الثاني بالصف الثالث طبعا حضرتك علي علم بأن من شروط النجاح حصول الطالب علي 50 % من الدرجة فيه طالب عنده دين من مواد الرسوب من الترم الثاني وفي الدور الثاني حصل علي 50 % من الدرجة ولكن هذه الطالب لم يظهر في النتيجة علي اعتبار انه ناجح الطالب اسمه ( ابراهيم محمد ابراهيم حسن ) عايز اعرف ايه السبب ؟ Data129.rar

السلام عليكم اخي @منتصر الانسي هل لازالت المشاركات بينك وبين @hanan_ms تخص هذا الموضوع؟ تأمين التطبيق ، Taskbar ، اخفاء المجلد ، حفظ علاقات الجدول ، هذه المواضيع لا علاقة لها بالموضوع!! سيتم فصل هذه المشاركات الى موضوع جديد

وعليكم السلام متابع 🖐️

السلام عليكم ورحمة الله اخواني الكرام أطلب منكم مساعدة في اظهار 4 أعمدة في الليست بوكس عندما أبحث عن اللقب ويكون مكرر أريد اظهار الإسم وشكرا إضافة عمود في الليست بوكس أوفيسنا.xlsm

لكم مني كل الشكر والتقدير والاحترام

اممممممممم .. طيب جرب هذا التعديل ؟ الإستعلام الأصلي السابق ، وفي حدث في الحالي تعيين قيمة مربع النص الخاص بالترتيب .. baseC5.zip

بعد التجربة أخي الاستعلام يشتغل جيدا فيما يخص : حساب ترتيب الطالب وكذا حساب مجموع الطلاب في النموذج لكن لا يمكن التعديل على علامات الطلاب في النموذج - إذا ما كان خطأ ما. و بارك الله فيك

بالطبع اخي الكريم كلا ، هذا استعلام فرعي داخل استعلام رئيسي المرفق للتوضيح أكثر baseC4.zip

إليك برنامج مجاني موجود على النت لو يصلح معك اجازات الموظفين - Copy.xlsm

السلام عليكم أخي @Foksh مشكور جدا على هذا الرد هل أجعل هذا الاستعلام كمصدر للسجلات في النموذج frm_modul و هل غيرت اسم الجولين

وعليكم السلام ورحمة الله وبركاته ,, هذا يعني انه يمكن ان يكون المعيار مختلفاً !!!! طيب ، أمامك حلين اثنين في الوقت الحالي .. الأول من خلال معادلات مع الإستعانة بخلية ( عمود مساعد ) . وسيكون الحل كالآتي :- سنجعل المعايير متغيره بحيث يتم ادخال عدد الذكور والإناث وعدد القاعات في الخلايا ( i5 , j5 , h5 ) في الخلية المساعدة ولنفترض E2 ، نستعمل هذه المعادلة :- =IF(D2="M", COUNTIF($D$2:D2,"M"), COUNTIF($D$2:D2,"F")) طبعاً ، وسنسحب المعادلة الى آآآخر خلية للتنفيذ عليها . ولا مشكلة لو تم اخفائها على سبيل المثال . الآن في العمود C والخلية C2 نستخدم هذه المعادلة :- =IF(D2="M", "قاعة " & CEILING(E2/$I$5,1), "قاعة " & CEILING(E2/$J$5,1)) الثاني من خلال الماكرو التالي :- Sub DistributeStudentsToRooms() Dim ws As Worksheet Dim lastRow As Long, i As Long Dim totalRooms As Integer, malesPerRoom As Integer, femalesPerRoom As Integer Dim maleCount As Integer, femaleCount As Integer Dim roomAssignment As Integer Dim roomCounters() As Integer Dim gender As String Set ws = ThisWorkbook.Sheets("ورقة1") totalRooms = ws.Range("H5").Value malesPerRoom = ws.Range("I5").Value femalesPerRoom = ws.Range("J5").Value ReDim roomCounters(1 To totalRooms, 1 To 2) lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ws.Range("C2:C" & lastRow).ClearContents For i = 2 To lastRow gender = ws.Cells(i, "D").Value For roomAssignment = 1 To totalRooms If gender = "M" Then If roomCounters(roomAssignment, 1) < malesPerRoom Then roomCounters(roomAssignment, 1) = roomCounters(roomAssignment, 1) + 1 Exit For End If Else If roomCounters(roomAssignment, 2) < femalesPerRoom Then roomCounters(roomAssignment, 2) = roomCounters(roomAssignment, 2) + 1 Exit For End If End If If roomAssignment = totalRooms Then roomAssignment = 0 Next roomAssignment ws.Cells(i, "C").Value = "قاعة " & roomAssignment Next i MsgBox "تم توزيع الطلاب على القاعات بنجاح", vbInformation + vbMsgBoxRight, "" End Sub وهذا ملف مرفق للطريقتين :- Desktop.zip

راجع هذا الرابط https://www.officena.net/ib/topic/114544-تصميم-وعمل-برنامج-كامل-عن-أجازات-الموظفين/#findComment-690656

مشاركة مع معلمي الفاضل .. جرب هذا الاستعلام :- SELECT m.*, i.*, (SELECT COUNT(*) FROM info_stagiere i2 LEFT JOIN modul m2 ON i2.ID = m2.id WHERE i2.annee = i.annee AND i2.grade = i.grade AND i2.wilaya = i.wilaya AND (m2.mouadel_3am > m.mouadel_3am OR (m2.mouadel_3am = m.mouadel_3am AND i2.ID <= i.ID))) AS myoutonum FROM info_stagiere i LEFT JOIN modul m ON i.ID = m.id WHERE i.annee = [Forms]![frm_examen_fin_formation]![annet] AND i.grade = [Forms]![frm_examen_fin_formation]![grade1] AND i.wilaya = [Forms]![frm_examen_fin_formation]![wilaya1] ORDER BY m.mouadel_3am DESC, i.ID ASC;

اريد توزيع الطلاب علي 26 قاعة بالتساوي حسب معيار اما كل 5 طلاب ذكور و 5 طلاب انات في قاعة ..علما بان بعض الطلاب تم توزيعهم بشكل يدوي قد ينقص او يزيد عن المعيار المصنف2.xlsx

للرفع

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

MCP server And workflow automaton platform السلام عليكم اصبح الترند الان في عالم الذكاء الاصطناعي هو مصطلحين MCP server And workflow automaton platform اما الاول وبدون اخذ التعريفات العلمية فهو ربط نماذج الذكاء الصناعي ب الملفات او قواعد البيانات او الاي بي اي فمن خلاله مثل في الاكسيل تستطيع من خلال امرللذكاء الصناعي من تعديل ملف او اضافة ملف او اضاف سطر او حذف وغيرها انظر هذا السيرفر https://lobehub.com/ar/mcp/haris-musa-excel-mcp-server طبعا لعمل سيرفر تستخدم بايثون او جافا سكربت بالنسبة للاكسيس هنالك محاولة من احد الاسخاص في بدايتها للتحكم ببعض ملفات الاكسيس وعمل الاستعلامات https://lobehub.com/mcp/scanzy-mcp-server-access-mdb?activeTab=deployment بالنسبة للاكسيس ساحاول ان شاء الله بمساعدة الذكاء الصناعي محاولة انشاء سيرفر اذا اتيح لي الوقت وتيسرت الامور ولم تعقد بانشاء سيرفر قد يفيد المستخدمين كون لدي معرفة جيدة ببايثون اما المصلح الثاني فهية اتمتة العمليات سواء الية او نص الية مثلا موقع n8n او pipedream وغيرها تستطيع انشاء مثلا اتمتة من استقبال السيرة الذاتية على البريد الإلكتروني وتحليلها عن طريق الذكاء الصناعي وفرزها حسب تلبية الشروط المطلوبة ثم ارسالها برسالة لشؤون الموظفين لمن يطابق الشروط بشكل الي 100٪ وفي مثالنا السابق تستطيع من خلال بوت تيليجرام من خلال رسالة نصية او صوتية مثلا ان تتحكم بملف الاكسيل من حذف واضافة وتعديل ثم ارسال الملف الى البريد الاكتروني اذا كان هناك اهتمام من الاعضاء ساقوم بشرح وافي عنهما

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

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

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

اما اذا اردنا استعمال Dlookup في الاستعلام ، بجميع الطرق اعلاه ، تحويل التاريخ الى رقم تعامل التاريخ هنا كرقم D1_Double: DLookUp("[date2]","[tbl2]","Cdbl([date2]) =" & CDbl([date1]) & " And [usr_id] ='" & [user_id] & "'") تنسيق التاريخ: \#mm/dd/yyyy\# تعامل التاريخ هنا كنص D1_Format_#D: DLookUp("[date2]","[tbl2]","Format([date2],'\#mm/dd/yyyy\#') ='" & Format([date1],'\#mm/dd/yyyy\#') & "' And [usr_id] ='" & [user_id] & "'") تنسيق التاريخ: yyyy-mm-dd hh:nn:ss تعامل التاريخ هنا كنص D1_Format_yyyy-mm-dd: DLookUp("[date2]","[tbl2]","Format([date2],'yyyy-mm-dd hh:nn:ss') ='" & Format([date1],'yyyy-mm-dd hh:nn:ss') & "' And [usr_id] ='" & [user_id] & "'") مناداة الدالة: DateFormat تعامل التاريخ هنا كرقم D1_Module: DLookUp("[date2]","[tbl2]","[date2]=" & DateFormat([date1]) & " And [usr_id] ='" & [user_id] & "'") . وهذه هي الدالة DateFormat : Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat([The_Date_Field])) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function . وبغض النظر عن كيفية تعاملنا مع جلب التاريخ ، سواء كان رقم او نص ، إلا ان نتيجة الامر Dlookup يكون نص . ملاحظة هامة: اذا كان حجم الشاشة يعرض 30 سجل (مثلا) ، واذا كان عندنا استعلام به 100 او 10000 سجل (اي رقم اكبر من حجم العرض 30) ، وبغض النظر عن المحتويات والقيم والاوامر والمعادلات في الاستعلام ، فالاكسس يقوم بحساب السجلات المعروضة على الشاشة فقط ، وفي حالتنا فالاكسس يحسب نتائج 30 سجل فقط ، وعليه ، اذا كان هذا الاستعلام هو مصدر بيانات لنموذج او تقرير ، فلن يكون هناك تأخير وبطئ في العرض (طبعا سيكون هناك بطئ بسيط ، ولكن ليس كما هو الاعتقاد السائد بأن البطئ سيلاحظه المستخدم) ، فالمصطلح المتداول في البطئ ، هو اذا اردت جلب بيانات الاستعلام كاملا دفعة واحدة ، مثل اذا اردت ان تبحث عن قيمة معينة فيه ، او تصدير جميع البيانات دفعة واحدة الى ملف اكسل او pdf ، بينما لا يوجد بطئ عند الطباعة لان الطباعة تتطلب بيانات صفحة واحدة فقط وهي الصفحة التي يتم طباعتها حاليا (بمعنى آخر ، حتى لو اردت طباعة 1000 صفحة ، فانت تطبعها صفحة صفحة) . مع ملاحظة تفادي استعمال فرز/تصفية للحقول التي بها معادلات والحقول التي تستعمل الامر Dlookup والحقول التي تنادي دوال خارجية ، لأنه هنا الاستعلام يجب ان يقوم بحساب قيم جميع السجلات ، ثم يقوم بعملية الفرز/التصفية. لهذا السبب ، فمناداة دالة خارجية (فيها معادلات فقط) لا تعمل بطئ عند استعمالها ، حسب ملاحظاتي اعلاه 🙂 1636.1.d8.accdb

استاذى الفاضل خالص الشكر لاهتمامك شكرا لتعبك شكرا لكل الاساتذة الذين شاركوا فى كل المشكلة

#مركز_الفرسان_الدولي_للتدريب #Alforssan International Training Center بسم الله الرحمن الرحيم مركزالفرسان الدولي للتدريب AL-Forssan يقدم دورات فى السلامة والصحة والبيئة يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... يحصل المتدرب على شهادة معتمدة من مركز الفرسان الدولي للتدريب للتواصل والإستفسار وطلب المحتوي العلمى يرجى التواصل بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com دورة إدارة النفايات: المنهجية الحديثة والمستدامة دورة التخطيط للاستجابة في حالات الطوارئ: إدارة الأزمات في البيئات الخطرة دورة إدارة النفايات الخطرة دورة إدارة مخلفات الإنسكاب النفطي دورة طرق تنظيف الانسكابات النفطية في البحر دورة علم الحرائق وطرق المكافحة والإطفاء والإنقاذ دورة الإجراءات والمعايير الدولية للأمن والسلامة الصناعية دورة الأمن والصحة والسلامة المهنية دورة الجدارة الادارية والفنية لمشرفي الامن والسلامة دورة آليات التعامل الآمن مع تجهيز و رفع السقالات دورة الإتجاهات الحديثة في التميز والإبداع القيادي لمدراء الأمن والسلامة دورة التقنيات الحديثة في هندسة السلامة المهنية وإدارة الصحة البيئية دورة تطـوير ورفـع كفاءة أنظمــة الأمـن والسلامــة وتنفيذ معايير الجودة دورة السلامة والادارة الآمنة للنفايات الخطرة دورة الاستراتيجيات الحديثة لتنمية مهارات الإدراك والحس الأمني والتفكير الذهني (أمن البنوك والمؤسسات المصرفية) دورة معايير الأمن والسلامة البيولوجية وتوكيد الجودة فى المعامل والمختبرات دورة النظم المتقدمة للأمن الصناعى والتحقيق الفني للحوادث المهنية دورة نظام السلامة الغذائية HACCP دورة إدارة معايير التعامل مع المواد الخطرة HAZMAT - HAZCOM دورة تطوير ورفع كفاءة انظمة الامن والسلامة وتنفيذ معايير الجودة دورة إدارة العمل الآمن والتقليل الى نسبة \"الصفر\" حوداث واصابات العمل دورة نظم إدارة الصحة الوظيفية والسلامة OHSAS 18001 دورة تطوير المهارات العملية و التقنية لضباط الأمن في كافة المنشآت دورة التكنولوجيا الحديثة في السلامة وتحليل المخاطر دورة هندسة الامن والسلامة والصحة المهنية دورة إدارة أنظمة الآمان الالكترونية في المنشآت دورة الوقاية والسيطرة ورصد المخاطر وتحليل الحوادث دورة البرنامج المكثف حول السلامة والصحة المهنية طبقاً لمواصفات OSHA & NFPA دورة مكافحة الحرائق والوقاية من أخطارها وكيفية التعامل معها دورة المدونة الدولية لأمن السفن والمرافق المينائية المتقدمة دورة نظم إدارة السلامة والصحة المهنية وفقاً لمعايير الأوشا الأمريكية OSHA دورة إدارة أنظمة السلامة والصحة المهنية وإعداد الخطط التنفيذية دورة نظم السلامة الصناعية وخدمات الطوارئ الحديثة دورة أهم مخاطر بيئة العمل الصاخبة وطرق تجنبها دورة إدارة سلامة العمليات الخطرة (RBPS) دورة هندسة الإطفاء والسلامة والوقاية من الحريق دورة هندسة السلامة إدارة المخاطر ومنع الخسائر دورة مخاطر السوائل شديدة البرودة والطرق المتبعة في معالجتها دورة التميز المهنى لمشرفى الأمن الصناعى والسلامة المهنية دورة إستراتيجية إدارة الأزمة دورة التفتيش والرقابة الأمنية دورة سلامة التمديدات الكهربائية في المنشآت الصناعية دورة طرق المعالجة المتقدمة في تقييم المخاطر و إدارتها دورة تكنولوجيا السلامة من الحريق وهندسة لإطفاء الفني المتقدم دورة الصيانة وفقاً لمفهوم الهندسة القيمية دورة معايير NFPA للسلامة المهنية دورة تكنولوجيا حماية البيئة ومنع الخسائر دورة تطبيقات إستخدام الخرائط الجغرافية في نظم المعلومات الجغرافية دورة الإتجاهات الحديثة في الوقاية من الحوادث الصناعية دورة إدارة نظم البيئة وتكنولوجيا السيطرة على التلوث البيئي دورة إدارة التأمين الطبي دورة طرق تأمين الصحة و السلامة في أماكن العمل دورة هندسة السلامة وتقييم المخاطر دورة تنمية مهارات الإدراك و الدخول الآمن إلى الأماكن الضيقة دورة أسس التفتيش والمراجعــة فى أعمال السلامة دورة إعداد وتطبيق معايير السلامة والصحة المهنية دورة مهارات إعداد وصياغة التقارير الأمنية والتفتيش الأمنى دورة التدابير المتبعة في طرق السلامة في البيت و المكتب دورة نظام سلامة الأغذية HACCP دورة التقنيات المتقدمة لتخطيط وتصميم خطط الطوارئ دورة رسم سياسات واجراءات السلامة وفق المعايير الدولية دورة هندسة السلامة وإدارة العمليات الأمنية فى حماية المنشأت دورة قياس وادارة معايير وإجراءات السلامة في محطات تعبئة الوقود دورة الإدارة المتقدمة للأمن و السلامة دورة إدارة الأزمات الأمنية ومهارات التفاوض الأمني دورة أخصائي هندسة التحكم في مخاطر بيئة العمل دورة الهندسة الأمنية لتأمين المنشآت الحيوية والحساسة والتخطيط لادارة الطوارئ دورة تكنولوجيا هندسة السلامة والوقاية من الحوادث المهنية دورة تحليل الأخطاء البشرية وآليات تجنبها دورة النيبوش العامة الدولية للسلامة والصحة المهنية دورة المهارات المتقدمة في كتابة التقارير الأمنية دورة التخطيط البيئي و تقييم الاثار البيئية و قوانين حماية البيئة دورة أهم وسائل تجنب خطر الإشعاعات دورة الإستراتيجيات المتقدمة في إدارة الأزمات الأمنية و مهارات التفاوض دورة التعرف على طرق الإسعافات الأولية في موقع العمل دورة المعايير والمقاييس العالمية NFPA لأخصائيي الحرائق والسلامة وتجنب الخسائر والأمن الصناعي دورة الأوشا OSHA في السلامة والصحة المهنية دورة استراتيجيات التخطيط والتنظيم الادارى والتوجيه و إدارة الأزمات دورة التقنيات الحديثة لأنظمة إدارة الصيانة بالحاسب الألي دورة سلامة المشروعات الهندسية و الإنشائية من المخاطر و حوادث الحرائق دورة القيادة ، التخطيط ، والمهارات التنظيمية لادارة عمليات الطوارئ والانقاذ والاخلاء دورة الأمن والسلامة فى الموانيء Hazard Ports دورة تنمية مهارات فحص تجهيزات الرفع دورة تأمين وحماية المنشأت الجامعية والتعليمية دورة تقنيات السلامة و إدارة المخاطر دورة قيادة عمليات الإطفاء والإنقاذ والتدخل السريع دورة التدريب الأمثل في إدارة السلامة دورة التحليل الأمنى وبناء المنظومة الأمنية للمواقع المهمة دورة إدارة الأزمات الأمنية ومهارات التفاوض الأمني دورة إدارة نظم البيئة وتكنولوجيا السيطرة على التلوث البيئى دورة أسس السلامة المهنية في الورشة و المستودع دورة الهندسة الأمنية لتأمين المنظمات الهامة والحساسة والتخطيط لإدارة الطوارئ دورة إعداد خطط الطوارىء وفرق إدارة الأزمات والكفاءة فى عمليات الإخلاء دورة إدارة السلامة الغذائية وتحليل المخاطر ونقطة المراقبة الحرجة - HACCP دورة ادارة انظمة السلامة والصحة المهنية واعداد الخطط التنفيذية دورة الشهادة العامة الدولية في السلامة والصحة المهنية دورة تقييم أداء مشرفي السلامة وفقا ً لمعايير OSHA دورة التعريف بـH2S وطريقة تجنب مخاطره …………………………… للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام كما يعقد مركز الفرسان الدولي للتدريب الدورات التالية بالتخصصات المذكورة ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر مركز الفرسان الدولي للتدريب مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من مركز الفرسان الدولي للتدريب لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام

#مركز_الفرسان_الدولي_للتدريب #Alforssan International Training Center بسم الله الرحمن الرحيم مركزالفرسان الدولي للتدريب AL-Forssan يقدم دورات فى السلامة والصحة والبيئة يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... يحصل المتدرب على شهادة معتمدة من مركز الفرسان الدولي للتدريب للتواصل والإستفسار وطلب المحتوي العلمى يرجى التواصل بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com دورة إدارة النفايات: المنهجية الحديثة والمستدامة دورة التخطيط للاستجابة في حالات الطوارئ: إدارة الأزمات في البيئات الخطرة دورة إدارة النفايات الخطرة دورة إدارة مخلفات الإنسكاب النفطي دورة طرق تنظيف الانسكابات النفطية في البحر دورة علم الحرائق وطرق المكافحة والإطفاء والإنقاذ دورة الإجراءات والمعايير الدولية للأمن والسلامة الصناعية دورة الأمن والصحة والسلامة المهنية دورة الجدارة الادارية والفنية لمشرفي الامن والسلامة دورة آليات التعامل الآمن مع تجهيز و رفع السقالات دورة الإتجاهات الحديثة في التميز والإبداع القيادي لمدراء الأمن والسلامة دورة التقنيات الحديثة في هندسة السلامة المهنية وإدارة الصحة البيئية دورة تطـوير ورفـع كفاءة أنظمــة الأمـن والسلامــة وتنفيذ معايير الجودة دورة السلامة والادارة الآمنة للنفايات الخطرة دورة الاستراتيجيات الحديثة لتنمية مهارات الإدراك والحس الأمني والتفكير الذهني (أمن البنوك والمؤسسات المصرفية) دورة معايير الأمن والسلامة البيولوجية وتوكيد الجودة فى المعامل والمختبرات دورة النظم المتقدمة للأمن الصناعى والتحقيق الفني للحوادث المهنية دورة نظام السلامة الغذائية HACCP دورة إدارة معايير التعامل مع المواد الخطرة HAZMAT - HAZCOM دورة تطوير ورفع كفاءة انظمة الامن والسلامة وتنفيذ معايير الجودة دورة إدارة العمل الآمن والتقليل الى نسبة \"الصفر\" حوداث واصابات العمل دورة نظم إدارة الصحة الوظيفية والسلامة OHSAS 18001 دورة تطوير المهارات العملية و التقنية لضباط الأمن في كافة المنشآت دورة التكنولوجيا الحديثة في السلامة وتحليل المخاطر دورة هندسة الامن والسلامة والصحة المهنية دورة إدارة أنظمة الآمان الالكترونية في المنشآت دورة الوقاية والسيطرة ورصد المخاطر وتحليل الحوادث دورة البرنامج المكثف حول السلامة والصحة المهنية طبقاً لمواصفات OSHA & NFPA دورة مكافحة الحرائق والوقاية من أخطارها وكيفية التعامل معها دورة المدونة الدولية لأمن السفن والمرافق المينائية المتقدمة دورة نظم إدارة السلامة والصحة المهنية وفقاً لمعايير الأوشا الأمريكية OSHA دورة إدارة أنظمة السلامة والصحة المهنية وإعداد الخطط التنفيذية دورة نظم السلامة الصناعية وخدمات الطوارئ الحديثة دورة أهم مخاطر بيئة العمل الصاخبة وطرق تجنبها دورة إدارة سلامة العمليات الخطرة (RBPS) دورة هندسة الإطفاء والسلامة والوقاية من الحريق دورة هندسة السلامة إدارة المخاطر ومنع الخسائر دورة مخاطر السوائل شديدة البرودة والطرق المتبعة في معالجتها دورة التميز المهنى لمشرفى الأمن الصناعى والسلامة المهنية دورة إستراتيجية إدارة الأزمة دورة التفتيش والرقابة الأمنية دورة سلامة التمديدات الكهربائية في المنشآت الصناعية دورة طرق المعالجة المتقدمة في تقييم المخاطر و إدارتها دورة تكنولوجيا السلامة من الحريق وهندسة لإطفاء الفني المتقدم دورة الصيانة وفقاً لمفهوم الهندسة القيمية دورة معايير NFPA للسلامة المهنية دورة تكنولوجيا حماية البيئة ومنع الخسائر دورة تطبيقات إستخدام الخرائط الجغرافية في نظم المعلومات الجغرافية دورة الإتجاهات الحديثة في الوقاية من الحوادث الصناعية دورة إدارة نظم البيئة وتكنولوجيا السيطرة على التلوث البيئي دورة إدارة التأمين الطبي دورة طرق تأمين الصحة و السلامة في أماكن العمل دورة هندسة السلامة وتقييم المخاطر دورة تنمية مهارات الإدراك و الدخول الآمن إلى الأماكن الضيقة دورة أسس التفتيش والمراجعــة فى أعمال السلامة دورة إعداد وتطبيق معايير السلامة والصحة المهنية دورة مهارات إعداد وصياغة التقارير الأمنية والتفتيش الأمنى دورة التدابير المتبعة في طرق السلامة في البيت و المكتب دورة نظام سلامة الأغذية HACCP دورة التقنيات المتقدمة لتخطيط وتصميم خطط الطوارئ دورة رسم سياسات واجراءات السلامة وفق المعايير الدولية دورة هندسة السلامة وإدارة العمليات الأمنية فى حماية المنشأت دورة قياس وادارة معايير وإجراءات السلامة في محطات تعبئة الوقود دورة الإدارة المتقدمة للأمن و السلامة دورة إدارة الأزمات الأمنية ومهارات التفاوض الأمني دورة أخصائي هندسة التحكم في مخاطر بيئة العمل دورة الهندسة الأمنية لتأمين المنشآت الحيوية والحساسة والتخطيط لادارة الطوارئ دورة تكنولوجيا هندسة السلامة والوقاية من الحوادث المهنية دورة تحليل الأخطاء البشرية وآليات تجنبها دورة النيبوش العامة الدولية للسلامة والصحة المهنية دورة المهارات المتقدمة في كتابة التقارير الأمنية دورة التخطيط البيئي و تقييم الاثار البيئية و قوانين حماية البيئة دورة أهم وسائل تجنب خطر الإشعاعات دورة الإستراتيجيات المتقدمة في إدارة الأزمات الأمنية و مهارات التفاوض دورة التعرف على طرق الإسعافات الأولية في موقع العمل دورة المعايير والمقاييس العالمية NFPA لأخصائيي الحرائق والسلامة وتجنب الخسائر والأمن الصناعي دورة الأوشا OSHA في السلامة والصحة المهنية دورة استراتيجيات التخطيط والتنظيم الادارى والتوجيه و إدارة الأزمات دورة التقنيات الحديثة لأنظمة إدارة الصيانة بالحاسب الألي دورة سلامة المشروعات الهندسية و الإنشائية من المخاطر و حوادث الحرائق دورة القيادة ، التخطيط ، والمهارات التنظيمية لادارة عمليات الطوارئ والانقاذ والاخلاء دورة الأمن والسلامة فى الموانيء Hazard Ports دورة تنمية مهارات فحص تجهيزات الرفع دورة تأمين وحماية المنشأت الجامعية والتعليمية دورة تقنيات السلامة و إدارة المخاطر دورة قيادة عمليات الإطفاء والإنقاذ والتدخل السريع دورة التدريب الأمثل في إدارة السلامة دورة التحليل الأمنى وبناء المنظومة الأمنية للمواقع المهمة دورة إدارة الأزمات الأمنية ومهارات التفاوض الأمني دورة إدارة نظم البيئة وتكنولوجيا السيطرة على التلوث البيئى دورة أسس السلامة المهنية في الورشة و المستودع دورة الهندسة الأمنية لتأمين المنظمات الهامة والحساسة والتخطيط لإدارة الطوارئ دورة إعداد خطط الطوارىء وفرق إدارة الأزمات والكفاءة فى عمليات الإخلاء دورة إدارة السلامة الغذائية وتحليل المخاطر ونقطة المراقبة الحرجة - HACCP دورة ادارة انظمة السلامة والصحة المهنية واعداد الخطط التنفيذية دورة الشهادة العامة الدولية في السلامة والصحة المهنية دورة تقييم أداء مشرفي السلامة وفقا ً لمعايير OSHA دورة التعريف بـH2S وطريقة تجنب مخاطره …………………………… للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام كما يعقد مركز الفرسان الدولي للتدريب الدورات التالية بالتخصصات المذكورة ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر مركز الفرسان الدولي للتدريب مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من مركز الفرسان الدولي للتدريب لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام