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

محمود ادريس

02 الأعضاء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    94

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه محمود ادريس

    عند تكرار الرقم تظهر رسالة نتبيه بان الرقم موجود

    في قسم الأكسيس Access

    قام بنشر

    الساده اعضاء المنتدي الاعزاء

    السلام عليكم ورحمة الله وبراكاته

    في المرفق التالي يوجد حقل اسمه الرقم الوظيفي به الارقام الوظيفية للموظفين

    ما اريده هو عند اضافة رقم جديد اذا كان هذا الرقم موجود مسبقا تظهر رسالة تنبيه بوجود هذا الرقم ان شئت ابقيته وان شئت ازلته

    ولكم مني كل التقدير والاحترام

    هذا المرفق

    مرفق.rar

    فتح مجلد حسب الاسم

    في قسم الأكسيس Access

    قام بنشر

    الف شكر لك الاخ مارد

    الكود يعمل بشكل ممتاز في المرفق الذي قمت بتعديله لاكن عندما نقلت الكود الى قاعدة اخري تظهر الرسالة التالية

    Snap_2015.10.31_07h08m25s_008_.thumb.png

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

    Public Function GetDBPath() As String
        GetDBPath = CurrentProject.path & "\"
    End Function

    بارك الله فيك وجعله في ميزان حسناتك

    اخفاء حقل في التقرير

    في قسم الأكسيس Access

    قام بنشر

    1. وجدت هذه الاكواد ربما تكون لها علاقة بالموضوع
    2.  
    3.  
    4. :In the report's Declarations enter
    5.     Option Explicit
          (Dim fBlankNext As Integer 'Flag: print next line blank? (True/False
          Dim intLine As Integer    'A line counter
    6. :Select the Page Header section, and enter this in the OnFormat event procedure
          intLine = 0               'Reset line counter at top of page
          fBlankNext = False        'Never print first line of page blank
    7. Now select the Detail Section's OnPrint, and enter this code without the line numbers:
      1. If PrintCount = 1 Then intLine = intLine + 1
      2. If fBlankNext Then
      3.     Me.PrintSection = False
      4.     Me.NextRecord = False
      5.     fBlankNext = False
      6. Else
      7.     Me.PrintSection = True
      8.     Me.NextRecord = True
      9.    (fBlankNext = (intLine Mod 5 = 0
      10. End If

    نسخ البيانات من شهر الى شهر

    في قسم الأكسيس Access

    قام بنشر · تم تعديل بواسطه abenjalo

    السلام عليكم

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

    في المرفق التالي ومن خلال جدول الاشهر يمكن نسخ بيانات شهر 2 الى شهر 3 من خلال تحديد السجلات وعملية النسخ واللصق

    لاكن ما اريده ان تتم هذه العملية عن طريق كود بالنموذج .

    المرفق للتعديل

     نسح البيانات2.rar

    نسح البيانات2.rar

    طلب كود تصفية النموذج بناء على حقلين

    في قسم الأكسيس Access

    قام بنشر · تم تعديل بواسطه abenjalo

    هذا كود يقوم بتصفية النموذج Form2 حسب اسم المصرف اريد بالاضاف الى المصرف مثلا  الشهر او الجنس

     

    Private Sub أمر147_Click()
       Dim stDocName As String
        Dim stLinkCriteria As String

     

     
        stDocName = "FORM2"
        If stLinkCriteria <> اسمالمصرف Then
     stLinkCriteria = "[اسمالمصرف]=" & "'" & Me![اسمالمصرف] & "'"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
     Else
     MsgBox "يرجى اختيار اسم الموضوع من القائمة", vbInformation, 
     اسمالمصرف.SetFocus
    End If
    Exit_أمر147_Click:
        Exit Sub

     

    Err_أمر147_Click:
        MsgBox Err.Description
       
        Resume Exit_أمر147_Click

    End Sub

×
×
  • اضف...

Important Information

  I accept