تعديل علي كود الحاق بشرط

[mostafaatiya]

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

مرفق بالملف كود الحاق بشرط لبيانات بنموذج غير منضم لجدول 

عندي جدول DATATB

ونموذج FRM_DATA

ويوجد بالنموذج كود الحاق بشرط 

لحقول غير منضمه 

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

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

ده كلو موجود بالكود 

ولكن انا محتاج تعديل الكود ان يتحقق من ID العميل و YearCODE العام 

يعني لو العميل اللي رقم هويته 2013 تم تسجيلة في عام 2020 وانا جيت في نفس العام اضيفة يظهر رسالة بان العميل تم تسجيلة من قبل ولا يقوم بالتسجيل 

واذا كان العميل لا يتم تسجيلة لهذا العام يسجل عادي 

ده الكود 

    
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From DATATB Where [ID]=" & Me.ID)
        rst.FindFirst "[data_eldfa1]=" & DateFormat(Me.d1)
        If rst.NoMatch = False Then
        MsgBox "سبق وتم تسجيل رقم الهوية لها العام"
        Exit Sub
    End If
        For i = 0 To Me.f - 1
            rst.AddNew
                      rst!ID = Me.ID
            rst!NAMEClient = Me.NAMEClient
            rst!Governorate = Me.Governorate
            rst!YearCODE = Me.YearCODE
          rst.Update
    Next i
        MsgBox "تم الالحاق بنجاح"
    وده السطر تحديدا اللي محتاج اعدل عليه 

rst.FindFirst "[data_eldfa1]=" & DateFormat(Me.d1)

 

الملف بالمرفقات

ولكم جزيل الشكر 

 

الحاق بشرط.accdb

[mostafaatiya]

UP

[عمر ضاحى]

مهتم

[د.كاف يار]

اتفضل التعديل

 

الحاق بشرط.accdb

[mostafaatiya]

شكرا جدا لحضرتك د. كاف يار 

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

[amir_adam83]

On 8/7/2021 at 4:52 AM, د.كاف يار said:

اتفضل التعديل

 

الحاق بشرط.accdb 444 kB · 9 downloads

ممتاز الله يعطيك الف عافيه استاذنا الكريم