كود للتعامل مع اليوم

[Mostafa Metwally]

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

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

ومرفق ملف للتوضيح

test.rar

[Shivan Rekany]

11 ساعات مضت, Mostafa Metwally said:

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

ومرفق ملف للتوضيح

أتفضل

تم استخدام هذا الكود للنموذج

Private Sub date_day_AfterUpdate()
On Error Resume Next
    Dim myid As Long
    If DCount("[date_day]", "dday", "[date_day]=#" & Format(Me.date_day, "yyyy/mm/dd") & "#") > 0 Then
        myid = DLookup("[id]", "dday", "[date_day]=#" & Format(Me.date_day, "yyyy/mm/dd") & "#")
            DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, (myid)
        Else
            Me.Text5 = Me.date_day
    End If
End Sub

Private Sub Form_Current()
    Me.date_day = Me.Text5
End Sub

وتم اضافة حقل جديد في جدول dday باسم id

وتم اضافة مربع نصي جديد في النموذج

اليك المرفق

 

test (1).rar

[AlwaZeeR]

استخدم هذا الكود في حدث عند الخطأ للنموذج

 

If DataErr = 3022 Then
  Response = acDataErrContinue
End If

 

testError.zip

[Mostafa Metwally]

شكرا جزيلا استاذى الفاضل

Shivan Rekany

 

 

3 hours ago, alwazeer said:

استخدم هذا الكود في حدث عند الخطأ للنموذج

 

If DataErr = 3022 Then
  Response = acDataErrContinue
End If

 

testError.zip

شكرا اخى الفاضل

alwazeer

  على مجهودك وتعبك