اذهب الي المحتوي
أوفيسنا

محمد أبوعبدالله

الخبراء
  • Posts

    1,997
  • تاريخ الانضمام

  • Days Won

    26

محمد أبوعبدالله last won the day on ديسمبر 24 2021

محمد أبوعبدالله had the most liked content!

السمعه بالموقع

1,389 Excellent

عن العضو محمد أبوعبدالله

  • تاريخ الميلاد 01 ينا, 1974

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم
  • البلد
    مصر
  • الإهتمامات
    حب الله ورسوله صلى الله عليه وسلم

اخر الزوار

3,108 زياره للملف الشخصي
  1. الف مليون مبروك اخونا وحبيبنا الغالي ابو جودي تستاهل كل خير استاذنا الفاضل راجياً من الله لك ولجميع الاخوة دوام التوفيق تجياتي
  2. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub فتح_ادخال_تذاكر_Click() DoCmd.Close On Error GoTo Err: DoCmd.OpenForm "تذاكر_ادخال" Err: If Err.Number = 3043 Or Err.Number = 3024 Or Err.Number = 3044 Or Err.Number = 3078 Then MsgBox "فشل الاتصال بالسيرفر يرجى ابلاغ المسؤول", vbExclamation, "حالة الاتصال بالشبكة" Exit Sub End If End Sub اثناء انقطاع الشبكة.rar تحياتي
  3. تفضل اخي الكريم Private Sub رقم_الهوية_Exit(Cancel As Integer) If DCount("[رقم الهوية]", "[BeneficiaryT]", "[رقم الهوية] =" & Me.رقم_الهوية) = 0 Then Exit Sub Else MsgBox "هذا الرقم مكرر", vbCritical Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[رقم الهوية] = " & Me.رقم_الهوية Me.Bookmark = rst.Bookmark Set rst = Nothing End If End Sub مساعدات.rar تحياتي
  4. الحفيقة لم افهم المطلوب كما انا جميع زر الامر غير مرتبطة بكود فتضطر للخروج من النموذج والدخول مرة اخرى فلا تظهر المشكلة برجاء التوضيح اكثر بارك الله فيك تحياتي
  5. وعليكم السلام ورحمة الله وبركاته لا يوجد as commandbuttoncontrol في اكسيس برجاء توضيح الاستخدام حتى يتم فهم المطلوب تحياتي
  6. تفضل اخي الكريم If Len(Me.[الخدمة] & vbNullString) = 0 Then Me.[السعر] = 0 Else Me.السعر = IIf([الخدمة] = "ايواء", [مبلغ الشراء], IIf([الخدمة] = "يومي", (Nz([عدد الايام]) * Nz([الايجار])), 0)) End If بيانات القيد.rar تحياتي
  7. جرب الكود التالي If Len(Me.[الخدمة] & vbNullString) = 0 Then Me.[السعر] = 0 Else Me.السعر = IIf([الخدمة] = "ايواء", [مبلغ الشراء], (Nz([عدد الايام]) * Nz([الايجار]))) End If تحياتي
  8. تفضل اخي الكريم رقم DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 =" & myWhere) نص DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 ='" & myWhere & "'") تاريخ DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 = #" & myWhere & "#") تحياتي
  9. وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي Dim MyPath As String MyPath = CurrentProject.Path & "\" DoCmd.OutputTo acOutputForm, "جدول1", acFormatPDF, MyPath & "1.pdf", False او وضع المعايير في استعلام والتصدير بالكود التالي Dim MyPath As String MyPath = CurrentProject.Path & "\" DoCmd.OutputTo acOutputQuery, "Query1", acFormatPDF, MyPath & "1.pdf", False تحياتي
  10. تفضل اخي الكريم Private Sub Form_BeforeUpdate(Cancel As Integer) Me.السعر = IIf([الخدمة] = "يومي", [مبلغ الشراء], (Nz([عدد الايام]) * Nz([الايجار]))) End Sub بيانات القيد.accdb تحياتي
  11. اذا كان الملف ACCDE لن يعمل الملف الا على نسخة 32bit تحياتي
  12. مع اني لا احبذ كثرة الاكواد بدون هدف يُذكر وارشح لك اول مشاركة لي فبها الفائدة ولا يوجد الى كود من سطر صغير تفضل اخي الكريم test.rar تحياتي
×
×
  • اضف...

Important Information