ابوخليل

عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم ارفق الوحدة المسؤولة عن الترجمة تفصل والصقها في صفحة وحدة نمطية جديدة 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, YES UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function

شكرا اخي جعفر على هذه النوادر الجميلة وتفضل اخي عبدالله يمكنك كتابة اي شيء على الزر Dim resalh As Integer Ok = "أكيد موافق" Cancel = "not agree" MessageBoxH Me.hwnd resalh = MsgBox("تفضل هذه الخلطة في اللغة", vbOKCancel, "رسالة")

اجعل مصدر بيانات النموذج الفرعي استعلام خارجي ثم استخدم الدالة Dlookup لفحص الاستعلام

وذات التاريخ الاحدث لا ينطبق عليها الشرط

الموظف لا تنطبق عليه الشروط فالمعيار الموجود هو Between -5 And 6 بينما القيمة عند الموظف المذكور 10-

انا ذكرت لك وجوب استبعاد الحقول ذات القيم المتباينة وفي حال ان الحاجة تدعو الى ادراج هذه الحقول فيمكن في مسألتنا هذه استخدام القيمة last للحقول الاخرى لا حظ انه يمكننا ايضا استخدم last لحقل التاريخ بينما العكس غير صحيح للحقلين الآخرين test3.rar

اختر في حقل التاريخ القيمة max بدلا من group by ايضا لا بد من استبعاد الحقول التي يوجد فيها قيم متباينة ويمكنك جلب التاريخ الاحدث باستخدام الدالة Dmax بمعلومية المعرف مثلا

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

ارفق مثالك حتى يتمكن اخوانك من مساعدتك

اعمل تقرير فرعي داخل التقرير الرئيسي ، ويمكن ان تضع داخل التقرير نموذج فرعي ايضا

عودا حميدا ابا آدم ... اشتقنا لك كثيرا ننتظر بوح قلمك وجميل عباراتك ونبض حرفك في هذا البستان ورحيق افكارك الجميلة التي ستعطر المكان كل اقسام الموقع تردد حياك الله أبا آدم

الملف كامل غير مطلوب فقط انزع النموذجين والجدولين من برنامجك واجعلهما في قاعدة جديدة ثم ارفقهما بعد الضغط

وايضا هذا الرابط في هذا الباب

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

يامرحبـا عـد النجــــــوم بسمانـا ومع جيتــــك عـم الفـرح منتدانـا

جزاك الله خيرا ابا عبدالله وهذا كود للجمع يختلف قليلا والنتيجة واحدة Expr2: (Sum([expr1])\60 & Format(Sum([expr1]) Mod 60;"\:00")) جمع تأخر الحضور.rar

صح يابوعبدالله جبتها الله يقويك طبق ونحن معك ولك الاجر من الله وتجربتي السابقة عند تشغيل البرنامج على جهاز لم يتم اعداد العربية فيه تظهر التسميات بلغة غير مفهومة ولا تظهر رسائل ، وهنا يفهم المستخدم ان جهازه لم يدعم العربية بعد وعند اعداد اللغة العربية وندز هو من يقوم بالتحويل او التغيير

اربط العلاقة بين الجدولين رأس لاطراف واضبط الخصائص في العلاقة على التكامل المرجعي وتتالي حذف السجلات المرتبطة فحين تحذف السجل من الجدول الرئيس يتم حذف السجلات الفرعية تبعا

جعلنا اسم المستخدم في متغير عام ويتم جلبه عند فتح النموذج وعند الضغط على زر جديد ب2.rar

لايتم الجمع بهذه الطريقة وانما يتم استخراج الفارق بالدقائق ثم تتم معالجة مجموع الدقائق الكلي وتحويلها الى ساعات ودقائق

الحل : ان تعمل على نسخة اوفيس english فلو فرضنا ان نسخة الوندز انجليزية ايضا ، فيمكنك كتابة التسميات بحروف عربية ولكن عند العرض والتشغيل ستظهر بحروف غير مفهومة ، حتى تغير اعدادات اللغة الى العربية يعني ان الرسالة المذكورة ستختفي ولن تراها ستسأل ؟ كيف اكتب بحروف عربية والوندز والاوفيس اجليزي ؟ الجواب : انه يمكنك ذلك ، وندز يوفر ذلك من خلال خصائص لوحة المفاتيح

If IsNull(Me.date_from) Or IsNull(Me.date_to) Then Exit Sub Me.da.SetFocus Me.da.Text = CalcAgeD(Me.date_from, Me.date_to) Me.mo.SetFocus Me.mo.Text = CalcAgeM(Me.date_from, Me.date_to) Me.ye.SetFocus Me.ye.Text = CalcAgeY(Me.date_from, Me.date_to) هذه الاسطر الموجودة في النموذج والخاصة باستخراج العمر (الفارق بين تاريخين ) ضعها في حدث الحالي للنموذج فحدث الحالي يقوم بالتغيير عند التنقل بين السجلات

الامر يسير ويجب انك تحاول حتى تستفيد فقط انسخ كود المربع الاول للمربع الثاني وغير ما يلزم Prog.1003.rar

تفضل وآمل ان يكون هو بغيتك Private Sub Text0_Click() Text0 = Text0.Name End Sub db2016x.rar

لا يمكنني فتح المرفق .. لا املك في جهازي الا الاصدار2003