كل الانشطه

غالي والطلب رخيص بإذن الله ستكون هذه هي الأداة التالية

السلام عليكم اتفضل اخي العزيز عند تحديث Esal ضع الكود التالي If Me.Esal = 0 Then Me.NO = Me.NO + 1 End If عندما يصل esal الى 999 يكون عند الرقم 000 no=56 وكلما يصل الى 000 يزيد 1 مع القدير

شكرا أخي الكريم أنا طبقت الكود كما هو علي الملف تبعي ولكن بعد فتح النموذج تختفي قاعدة البيانات

الخبراء الافاضل كل عام وانتم بخير عيد سعيد على كل المنتدى عندى جدول بة الكتير من المرضى وكل مريض لة ايصال مكون من 5 ارقام مثال 55033 55041 مع الغلم ان الايصالات غير مرتبة او متسلسة ولكن الثابت هو اخر رقمين 55 اريدها ان تصبح هكذا _ _ _ 55 حتى اكتب ثلاثة ارقام فقظ وماذا افعل عندما اصل الى رقم 55999 هل تتغير55 الى 56 تلقائيا ام سيتم تغيرها يدويا ارجو المساعدة بمثال بسيط لو تكرمتم حتى اقوم بتطبيقة على برنامجى لكم الشكر اريد طريقة افضل من الموجودة بالمرفق الكتابة فى خانة واحدة بدل من تقسيم الرقم Lab.rar

شكرا لك أخي منتصر على هذه الإبداعات .. 🙂 أنت تجعل الحياة أجمل .. والعمل أسهل 🌼 أقترح عليك تصميم أداة جديدة لتصميم الرسائل الاعتيادية أيضا ( 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 .

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