كل الانشطه

شكرا لك أخي منتصر على هذه الإبداعات .. 🙂 أنت تجعل الحياة أجمل .. والعمل أسهل 🌼 أقترح عليك تصميم أداة جديدة لتصميم الرسائل الاعتيادية أيضا ( MSGBOX ) وللتغذية البصرية هذه أداة تم تصميمها في إضافة (غير مجانية) للأكسس تقوم بعمل هذه المهمة : ويوجد مثلها لصندوق الإدخال InputBox : ولك الأجر والمثوبة 😇🌹

الاساتذه الكرام المشكله هي عند تشغيل محرك البحث انتاء اعداد البرنامج يعمل بشكل طبيعي ولكن عند تشغيله في الشاشه الرئيسيه لا يعمل

وطبعا لان الخاصية دى لو مش مظبوطة تمام سوف يتم اخفاء اطار اكسس ومع احفاء النموذج تمام وسف تعلق القاعدة فى البرامج المشغلة فى الخلفية ولن تستطيع اعادة فتح القاعدة الا بالاغلاق القسرى من ال/ Task Manager ومن اجل ذلك خطر على بالى تعديل كود الاخفاء الى الكود التالى Public Function HideAppWindow(Optional ByVal frm As Access.Form = Nothing) As Boolean On Error GoTo ErrHandler ' -- Resolve the target form ----------------------------------------- Dim frmTarget As Access.Form ' Set frmTarget = IIf(frm Is Nothing, ActiveFormOrNothing(), frm) If frm Is Nothing Then Set frmTarget = ActiveFormOrNothing() Else Set frmTarget = frm End If If frmTarget Is Nothing And Forms.Count > 0 Then Set frmTarget = Forms(0) End If If frmTarget Is Nothing Then LogError "HideAppWindow", "No open form found to promote to the taskbar." HideAppWindow = False Exit Function End If ' -- [1] Checking PopUp first — completely independent of hWnd ------- If Not frmTarget.PopUp Then LogError "HideAppWindow", _ "Form '" & frmTarget.Name & "' must have PopUp = Yes " & _ "to appear independently after hiding the Access shell." HideAppWindow = False Exit Function End If ' -- [2] Obtain hWnd after verifying the PopUp ----------------------- #If VBA7 Then Dim hForm As LongPtr #Else Dim hForm As Long #End If hForm = frmTarget.hWnd ' -- [3] hWnd Validation --------------------------------------------- If hForm = 0 Then LogError "HideAppWindow", _ "Could not obtain a valid hWnd for: " & frmTarget.Name HideAppWindow = False Exit Function End If ' -- [4] Apply WS_EX_APPWINDOW -------------------------------------- #If VBA7 Then Dim lExStyle As LongPtr #Else Dim lExStyle As Long #End If lExStyle = GetWindowLongPtr(hForm, GWL_EXSTYLE) SetWindowLongPtr hForm, GWL_EXSTYLE, lExStyle Or WS_EX_APPWINDOW ' -- [5] Hiding the shell and detecting the form --------------------- ShowWindow Application.hWndAccessApp, SW_HIDE ShowWindow hForm, SW_SHOW DoEvents m_bAppWindowHidden = True HideAppWindow = True Exit Function ErrHandler: LogError "HideAppWindow", Err.Number & " - " & Err.Description HideAppWindow = False End Function

ملاحظة هامة يجب ضبط خاصية النموذج Pop Up =Yes

انشئ وحدة نمطية عامة جديدة باسم : modWindowManager قم باضافة الكود التالى الى الوحدة النمطية العامة Option Private Module Option Compare Database Option Explicit ' ----------------------------------------------------------------------- ' Windows API declarations — conditional for 32-bit / 64-bit compatibility ' ----------------------------------------------------------------------- #If VBA7 Then Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr #Else Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If ' ----------------------------------------------------------------------- ' Window-style constants ' ----------------------------------------------------------------------- Private Const GWL_EXSTYLE As Long = -20 Private Const WS_EX_APPWINDOW As Long = &H40000 ' ShowWindow state constants (Public so callers may use them directly) Public Const SW_HIDE As Long = 0 Public Const SW_SHOWNORMAL As Long = 1 Public Const SW_SHOWMINIMIZED As Long = 2 Public Const SW_SHOWMAXIMIZED As Long = 3 Public Const SW_SHOW As Long = 5 ' Tracks current visibility state Private m_bAppWindowHidden As Boolean Public Function HideAppWindow(Optional ByVal frm As Access.Form = Nothing) As Boolean On Error GoTo ErrHandler ' -- Resolve the target form ----------------------------------------------- Dim frmTarget As Access.Form Set frmTarget = IIf(frm Is Nothing, ActiveFormOrNothing(), frm) If frmTarget Is Nothing And Forms.Count > 0 Then ' Screen.ActiveForm غير جاهز بعد — نأخذ أول نموذج مفتوح Set frmTarget = Forms(0) End If If frmTarget Is Nothing Then LogError "HideAppWindow", "No open form found to promote to the taskbar." HideAppWindow = False Exit Function End If ' -- Obtain the form window handle ----------------------------------------- #If VBA7 Then Dim hForm As LongPtr #Else Dim hForm As Long #End If hForm = frmTarget.hWnd If hForm = 0 Then LogError "HideAppWindow", "Could not obtain a valid hWnd for: " & frmTarget.Name HideAppWindow = False Exit Function End If ' -- Apply WS_EX_APPWINDOW so the form appears on the taskbar -------------- #If VBA7 Then Dim lExStyle As LongPtr #Else Dim lExStyle As Long #End If lExStyle = GetWindowLongPtr(hForm, GWL_EXSTYLE) SetWindowLongPtr hForm, GWL_EXSTYLE, lExStyle Or WS_EX_APPWINDOW ' -- Hide the Access shell then bring the form forward --------------------- ShowWindow Application.hWndAccessApp, SW_HIDE ShowWindow hForm, SW_SHOW DoEvents m_bAppWindowHidden = True HideAppWindow = True Exit Function ErrHandler: LogError "HideAppWindow", Err.Number & " - " & Err.Description HideAppWindow = False End Function Public Function RestoreAppWindow(Optional ByVal nCmdShow As Long = SW_SHOW) As Boolean On Error GoTo ErrHandler If Not IsValidShowCmd(nCmdShow) Then LogError "RestoreAppWindow", "Invalid nCmdShow value: " & nCmdShow RestoreAppWindow = False Exit Function End If RestoreAppWindow = SetAccessWindow(nCmdShow) If RestoreAppWindow Then m_bAppWindowHidden = False Exit Function ErrHandler: LogError "RestoreAppWindow", Err.Number & " - " & Err.Description RestoreAppWindow = False End Function Public Property Get IsAppWindowHidden() As Boolean IsAppWindowHidden = m_bAppWindowHidden End Property Private Function SetAccessWindow(ByVal nCmdShow As Long) As Boolean On Error GoTo ErrHandler ShowWindow Application.hWndAccessApp, nCmdShow DoEvents SetAccessWindow = True Exit Function ErrHandler: LogError "SetAccessWindow", Err.Number & " - " & Err.Description SetAccessWindow = False End Function Private Function ActiveFormOrNothing() As Access.Form On Error Resume Next Set ActiveFormOrNothing = Screen.ActiveForm On Error GoTo 0 End Function Private Function IsValidShowCmd(ByVal nCmdShow As Long) As Boolean Select Case nCmdShow Case SW_HIDE, SW_SHOWNORMAL, SW_SHOWMINIMIZED, SW_SHOWMAXIMIZED, SW_SHOW IsValidShowCmd = True Case Else IsValidShowCmd = False End Select End Function Private Sub LogError(ByVal sSource As String, ByVal sMessage As String) Dim sEntry As String sEntry = "[" & Format(Now, "yyyy-mm-dd hh:nn:ss") & "] " & "modWindowManager." & sSource & " >> " & sMessage Debug.Print sEntry End Sub وفى نموذج البدء فى حدث تحميل النموذج Private Sub Form_Load() HideAppWindow End Sub او ان اردت عمل زر أمر لاخفاء اطار الاكسس ضع به فقط الاستدعاء التالى HideAppWindow و ان اردت عمل زر أمر لاستعادة اطار الاكسس مرة أخرى ضع به فقط الاستدعاء التالى RestoreAppWindow

استخدم خاصية البحث ، وستجد الكثير من المواضيع التي تحدثت عن نفس الموضوع . والتالي احدثها

نعم صحيح أستاذي الكريم ، فعلاً نحتاج إبداعات الأخوة بشتى خبراتهم .. ولكن لا أريد إحباطك 😅 بعض الأخوة الموهوبين يحتاج للتوجيه ، وخط مرسوم له حتى يسير عليه. وللأسف ينقصنا الإبتكار وخلق شيء برمجي من لا شيء ، حتى مع فتح الباب بالمساعدة لكل الوسائل المتاحة الحديثة ؛ ....... 🤐

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق محتاج أخفي شاشة الاكسس والتعامل مع النماذج SaadPermissionsLast-1.rarSaadPermissionsLast-1.rar

تم الوصول إلى الحل بالتجربة إذ يبدو أن الخصائص لها أولية عن الكود لذلك تم تغيير خاصية التوسيط للنموذجين بـ "لا" واستدعاء توسيط النموذج عند الفتح باستخدام الكود أعلاه Private Sub Form_Open(Cancel As Integer) CenterFormOnScreen "frm_M1" End Sub

شكرا أخي الفاضل حليت المشكلة لازم أوسع الليست حتي تظهر الأسماء

دا صورة من الملف بتاع حضرتك أنا بستعمل اوفيس 2010 23 بت

فعلا نحتاج مثل هذا النظام اشكرك على هذا الطرح

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

بارك الله فيك أخي الكريم أنا اسف بتعبك معاي وكل عام وانت طيب جزئية المستخدمين لم تظهر

https://www.facebook.com/share/v/18D6YJBhMn/ ولو مديونية العميل الف فاتورة تقدر تحقق قيمة الشيك من الف فاتورة موجودة تلقائيا بضغطة زر واحدة للتواصل واتس اب 0201282870428

جرب اجعله بعد اغلاق نفسه

https://www.facebook.com/share/v/18D6YJBhMn/ ولو مديونية العميل الف فاتورة تقدر تحقق قيمة الشيك من الف فاتورة موجودة تلقائيا بضغطة زر واحدة

اعرض الملف أداة إظهار الرسائل في منطقة الإشعارات {سلسلة الأدوات المساعدة المخصصة} أقدم لكم اليوم أداة جميلة ستجعل تطبيقاتكم تظهر بمظهر برامج ويندوز الأخرى وذلك لأنها تسمح لكم بإظهار رسائل التنبيه في منطقة الإشعارات كما بالصورة يتميز هذا النوع من الرسائل عن مربع الرسائل المعروف في أنها لا تكون منبثقة أمام بقية النماذج ولاتتسبب في إيقاف العمل لإغلاقها تشمل هذه الرسالة عنوان ونص وأيقونة كما بالصورة العمل بالأداة سهل جداً وكما يقولون بأن الصورة تعادل ألف كلمة فقد أرفقت معها صورة متحركة توضح طريقة العمل بها بالإضافة إلى بعض التعليمات الإضافية تجدونها داخل الملف المرفق والتي توضح الشروط الواجب توافرها حتى تعمل بنجاح وكيفية الإستفادة منها في تطبيقاتكم الخاصة أرجو أن تنال إعجابكم تحياتي صاحب الملف منتصر الانسي تمت الاضافه 03/22/26 الاقسام قسم الأكسيس  

بكتب على وورد 2010 . بعمل اختصار لإدراج رمز صلى الله عليه وسلم ورضى الله عنه من لوحة المفاتيح . بعد إدراج الرمز بظلله واضغط Alt F3 لإضافته إلى معرض الأجزاء السريعة . ولما احب اعمل إدراج للرمز بكتب صلى أو رضى واضغط F3 .

متشكر جدا لذوقك وجزاك الله خيرا

متاح تصميم برامج vbaexcel حسب الطلب للتواصل 01067787035

الاخ tamerfayed يرجى تعديل الإسم للغة العربية طبقا لتعليمات المنتدى مشكلة COUNTIFS $C$8:$C$795,AF8,$B$8:$B$795,$T$9 تعديل مدى البحث c / b من 795 إلى 1000 $C$8:$C$1000,AF8,$B$8:$B$1000,$T$9 OK Otlob Sheet -Feb ,2026.xlsx

المشكلة تكمن فى معادلة COUNTIFS " عند سحب المعادلة لاخر الشيت تعطينى خطأ " برجاءالتكرم بحل هذة المشكلة Otlob Sheet -Feb ,2026.xlsx

شكراً لك لا يوجد مشكلة ، بل هى ناحية جمالية فقط النموذج الأول يفتح النموذج الثانى فى موضع أعلى منه قليلاً فى الشاشة قبل إغلاق نفسه والنموذج الثانى عند إغلاقه يعيد فتح النموذج الأول فى نفس الموضع الأول أى أسفل قليلاً من النموذج الثانى سأجرب هذا الكود لكل من النموذجين Public Sub CenterFormOnScreen(formName As String) Dim screenWidth As Long Dim screenHeight As Long screenWidth = GetSystemMetrics(SM_CXSCREEN) screenHeight = GetSystemMetrics(SM_CYSCREEN) Dim targetForm As Form Dim formWidthTwips As Long Dim formHeightTwips As Long Dim formWidthPixels As Long Dim formHeightPixels As Long Dim fleftPos As Long Dim ftopPos As Long Set targetForm = Forms(formName) ' الحصول على عرض النموذج وارتفاعه بالتويبس formWidthTwips = targetForm.windowWidth formHeightTwips = targetForm.windowHeight ' تحويل الأبعاد من تويبس إلى بكسل formWidthPixels = formWidthTwips / 15 formHeightPixels = formHeightTwips / 15 ' Calculate left and top positions for centering fleftPos = (screenWidth - formWidthPixels) / 2 ftopPos = (screenHeight - formHeightPixels) / 2 ' اعاده التحويل لوحدة القياس تويبس fleftPos = fleftPos * 15 ftopPos = ftopPos * 15 ' نقل النموذج إلى الموضع المركزي DoCmd.MoveSize fleftPos, ftopPos End Sub