biskra

عن طريق زر امر بواسطة الكود التالي: Private Sub Command1_Click() If DCount("*", "اسم الاستعلام") = 0 Then MsgBox "لا توجد بيانات للعرض أو مطابقة" Else DoCmd.OpenForm ... End If End Sub أو عن طريق نموذج يفتح خال من البيانات يغلق بعد ظهور رسالة التنبيه: Private …

من خلال الرابط التالي يمكنك تنزيل أداة لوظائف اضافية للأكسس رائعة جدا,مجموعة من الوظائف الرائعة, اضافة الى امكانية تصميم رسائل التنبيه بالعربي بالكامل و بشكل رائع, فـ OK يمكنك كتابة مكانها نعم بسهولة بالاضافة الى أن النص يكتب بالألوان. لنجربها مع بعض و نكتشفها…

هذا هو الكود Private Sub bDisableBypassKey_Click() On Error GoTo Err_bDisableBypassKey_Click 'ÊÃßíÏ ÇáÑÞã ÇáÓÑí ááÏÎæá Úáì ÇáÈÑäÇãÌ Dim strInput As String Dim strMsg As String Beep strMsg = "åá ÊÑíÏ Êãßíä ãÝÊÇÍ ÇáÔÝÊ ¿" & vbCrLf & vbLf & _ "ÇáÑÌÇÁ ÇÏÎÇá ÇáÑÞã …

اذا سمحت صاحبة الموضوع لكي أضع الملف بعد السيطرة عليه سوف أرفعه, و أترك الفرصة للاٍخوة للمحاولة.

Private Sub WinExit_Click() Call ShutDownWindows End Sub هذا الأمر يستدعي الوحدة النمطية التي تقوم بغلق الوندوز و هي: Function ShutDownWindows() 'This will quit all applications and shut down Windows. Dim x As Long x = ExitWindowsEx(0, 0) Application.Quit acEx…

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

هل يمكن وضع نسخة مصغرة ليتم التعديل عليها

جربي الكود التالي في المعيار للاٍستعلام: Forms!اسم حقل التحرير و السرد!اسم النموذج.Value

جرب نفس الكود في حدث قبل التحديث لنموذج ادخال البيانات

جرب الكود التالي في حدث عند فقدان التركير للحقل المطلوب if me.اسم الحقل = "" Or IsNull(اسم الحقل) Then MsgBox "البيانات مطلوبة في اسم الحقل " اسم الحقل.SetFocus

هل الشرط على حقل واحد أم كل الحقول الموجودة على النموذج؟

هذا مستند باللغة الأنجليزية يبين الخطوات الواجب اتباعها لتصميم شريط أدوات مخصص, يمكن عرضه فوق النموذج. How do I create a menu bar on a form.rar

لا لها حل ان شاء الله, من خصائص التقرير أختر تنسيق ثم إتجاه ثم من اليمين الى اليسار حولها الى من اليسار لليمين.

و لكن في سالك طلبت ان يكون الحساب على أن الدرجة تساوي 100 اذا المدير او الموجه التربوي لم يقم بالتنقيط, و مع ذلك فالحل يكون بتغيير المعادلة في الكود: If Me.moudir = 0 Then Me.daraja = Me.tarbawi Else If Me.tarbawi = 0 Then Me.daraja = Me.moudir Else Me.daraja …

تفضل ربما كانت هناك مشكلة في مصدر البيانات عارف.rar

يجب التأكد من الكود, هل وضعت كود معين أو عدلت على شيء ما؟ استعمل استراد كافة كائنات قاعدة البيانات الى قاعدة بيانات جديدة و جرب.

يعني فيه شبه مع هذا؟ عدد أيام التأخير.rar

هذا مثال مرفق اعتمدت فيه على كود من موقع أجنبي للنسخ الاحتياطي, المثال يعتمد على النسخ للجداول عند الخروج من التطبيق, فيقوم بالبحث عن winzip فان وجده فسوف يستعمله في الضغط, و ان لم يجده فانه يقوم بعملية نسخ عادية. ميزة المثال أنه يخيرك لتحديد مكان حفظ النسخة ,…

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

الفكرة ممتازة جدا و فعلا تستحق التطوير و سوف أتابع الموضوع.