نجوم المشاركات

نعم اتفضل اليك موضوع على هذا واليك الحل هنا للاستاذ ابوخليل قم بنسخ هذا الى وحدة النمطية Option Compare Database Public Ok, Cancel, ABORT Public RETRY, IGNORE, YES, NO Private m_hHook As Long Private Const IDOK = 1 Private Const IDCANCEL = 2 Private Const IDABORT = 3 Private Const IDRETRY = 4 Private Const IDIGNORE = 5 Private Const IDYES = 6 Private Const IDNO = 7 Private Const WH_CBT = 5 Private Const GWL_HINSTANCE = (-6) Private Const HCBT_ACTIVATE = 5 Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, _ ByVal lpString As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Sub MessageBoxH(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf _ MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, Ok SetDlgItemText wParam, IDCANCEL, Cancel SetDlgItemText wParam, IDABORT, ABORT SetDlgItemText wParam, IDRETRY, ABORT SetDlgItemText wParam, IDIGNORE, ABORT SetDlgItemText wParam, IDYES, YES SetDlgItemText wParam, IDNO, NO UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function وعن الضغط على الزر تكتب هذا مثلا Private Sub Command1_Click() Dim resalh As Integer Ok = "حسنا موافق" Cancel = "غير موافق طبعا" MessageBoxH Me.hwnd resalh = MsgBox("lllllll", vbOKCancel, "yyyyyy") End Sub

السلام عليكم وكل عام وانتم بخير هذا ملف اكسيل يحتوى على كلمات عديدة بالإنجليزية وترجمتها باللغة العربية-يارب يعجبكم-عندما تضغط على اى حرف من الصفحة الرئيسية سيفتح لك صفحة تضم كلمات عديدة بترجمتها لهذا الحرف بارك الله فيكم جميعا قاموس_-عربى_انجليزى.xls

السلام عليكم استخدم هذا الكود في حدث عند الفتح: MsgBox Me.Name

السلام عليكم ورحمة الله وبركاته فكرة الدرس نفس طريقة وضع المفتاح على حقل في اكسس لمنع تكرار الارقام الدالة المستخدمة هي countif حيث نسمح بادخال البيانات مرة واحدة مرفق ملف العمل وصور من الموضوع اتمنى لكم الفائدة منع التكرار.xlsx

عمل رائع بارك الله فيك-احسنت

السلام عليكم استخدم الدالة DateDiff و قد شرحتها هنا جيدا مع المثال:

غير كلمة Value List الى Table/Query في RowSourceType وامسح ما في داخل RowSource واضغط على ثلاث نقاط كما مبينة في الصورة سيفتح لك نافذة لكي تعمل استعلام

السلام عليكم ورحمة الله وبركاته بسم الله الرحمن الرحيم الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين الله يزيدك من علمه ويجزيك وجميع المساهمين خير الجزاء اللهم باسمك الغفار اغفر لهم يارب العرش العظيم والسلام عليكم ورحمة الله وبركاته

يسلمو ايديك رائع

تفضل الشرح في المرفق وإليك الملف مجمع تجميع الملفين.rar

السلام عليكم ورحمة الله وبركاتة حسب طلب احد الاخوة تم اضافة بحث الكمية لايقونة للمستودع برنامج الافق __.rar

حبيبي في الله جزاك الله كل الخير وتمت العملية بنجاح ... أدام الله عزك

السلام عليكم اخوانى واساتذتى كل عام وانتم جميعا بخير أقدم لكم برنامج اكسيل محاسب المبيعات للأستاذ الكبير محمود حمودة مع فيديو لشرح البرنامج Sales Accounts.xlsm

غير مصدر الكومبوبوكس الى استعلام من الجدول

السلام عليكم ورحمة الله تعالى وبركاته استاذ ابو خليل اولا حضرتك عامل ايه واحشنى جدا جدا جدا جدا ثانيا قمت بالتجربة والكود ماشاء رائع جدا جدا ولكن ممكن سؤال على استحياء ماذا لو كنت اريد عمل رسالة تحتوى على عدد ثلاث ازرار اى vbYesNoCancel حاولت التجربة والتعديل ولكن لم اوفق قمت بارفاق مثال حتى تتضح الرؤية جزاكم الله خيرا msgBox-2003.rar

جربت كثير _____ البرنامج مو كوبي من النت انا تابعت خطوة بخطوة وعملت صفحة من البداية مليت من البرنامج كله الصراحة من شهر وانا بفورمين شفت 37 ساعه يوتيوب ودخلت 3 منتديات و2 منتديات اجنبية الكل بدخل وبطلع رح احاول من جديد اشكرك جدا