mrnooo2000

بالتأكيد اخى يمكن ذلك جرب التعديل فى الكود فى الامثلة السابقة الى Dim intCtrlDown As Integer intCtrlDown = (Shift And acShiftMask) > 0 If intCtrlDown And (KeyCode = vbKeyF2) Then DoCmd.OpenForm "form1" End If و هو يربط f2و shiuft

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

بالطبع اخى العزيز ( القلوب عند بعضها ) صدفة ما أحلاها

اخى ضع فى حدث عند الفتح للنموذج هذا الكود Dim strInput As String Dim strMsg As String Beep strMsg = "ادخل كلمة السر." strInput = InputBox(Prompt:=strMsg, title:="Special Password") If strInput = "123" Then 'password is correct Exit Sub Else 'password is incorr…

و هذا المرفق اذا كانت الدورات لا يتم ادخالها لبالترتيب لن يتم ادخال التاريخ اذا كان يتعارض مع اى دورة اخرى hospital.rar

تفضل اخى و لكن سيتوجب عليك ادخال الدورات بترتيب تاريخها و لن يتم ادخال التاريخ اذا كان اقل من اخر تاريخ تم ادخاله جرب المرفق hospital.rar

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

اخى استخدم قفل التعديل بعد الذهاب الى السجل me.allowedits=false و اعد فتحها عند الذهاب الى سجل جديد

اخى حاول ان تعمل مثال مصغر جدول + نموذج + تقرير لما تحاول عمله لانى لم استطع الوصول الى ما تريد عموما MC = DMax("[last_think_No]![main_Table]") CN = Count(MC) هذه الجزئية لم أفهمها كيف تريد عد ناتج الدالة و هى سترجع قيمة و احدة فقط

شكرا اخى محمد نحن نحاول ان نمشى على دربك بارك الله فيكم و وفقكم و اصلح بالكم

اخى عمليات التعديل على تصميم النماذج تؤدى الى زيادة الحجم يمكنك ان تنتهى من تصميم القاعدة ثم تقوم بالضغط و الاصلاح فى نهاية الامر

اخى الحل بسيط فقط احذف علامة التنصيص semicolon من الكود لانها تستخدم عندما يكون الحقل نص و الحقل فى الكود رقم لى ملاحظة بسيطة لا تستخدم كلمات name كتسمية للحقل لانها من الكلمات المحجوزة و ستتسب لك فى اخطاء فيما بعد بالنسبة لحجم الملف فكل ما تحتاج اليه هو ضغط و…

ما شاء الله اخى ابو عدنان دائما سباق الى كل ماهو مفيد و رائع

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

اخواى محمد وليد و أبو محمد شكرا على كلماتكما الرقيقة و بارك الله فيكما أخى أبو محمد اعتذر لتأخرى فى الرد لانشغالى الشديد كلامى السابق كان يخص ملفات ocx اما بالنسبة للخط فان الامر يحتاج الى طريقة اخرى بالمرفق مثال لكلا منهما بالنسبة لل ocx سيتم عمل كل شىء عن طر…

تفضل اخى m.rar

اخى المرفق الاخير فى المشاركة رقم 10به ما تريد

يرجى التوضيح

اخى هل تريد ان يتم ذلك يدويا ام بالكود اذا كانت الاولى بالمرفق ملف تقوم بالضغط عليه ضغطا مزدوجا لاضافته الى الريجسترى ثم كليك يمين على المكتبات المراد تسجيلها (ocx & dll) ستجد انه تم اضافة اختيار للتسجيل و اختيار لازالة التسجيل ام اذا كانت الثانية فستحتاج الى …

اخى لقد تركت لك طريقة تحديد العام حسب ما يتراء لك عموما استخدم هذا السطر بدل الموجود عندك year_limit = DLookup("limits", "tbl_limits", "tyear =" & Format(Me.Date_Start, "yyyy") & "") [code\] و هو يربط العام بتاريخ البداية