مساعدة جعل في مربع نص

[ازهر عبد العزيز]

السلام عليكم .... لدي نموذج FLH يحتوي مربع تحرير وسرد (N1 (NAME1 يحتوي على هذا الكود 

 

Private Sub N1_AfterUpdate()

If DCount("*", "ld", "idlh=" & Me.idlh & "and B='" & Me.N1 & "'") > 0 Then
   Dim stry As String
   stry = Me.N1
   Me.Undo
   
   Dim rs As Object
   Set rs = Me.Recordset.Clone
     rs.FindFirst "[B] = '" & stry & "'"
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
     DoCmd.GoToRecord , , acNewRec
        
End If
End Sub

ويحتوي مربع نص(N2  ( serial number    كيف اجعل مربع النص يعمل كعمل مربع التحرير والسرد عن طريق نسخ واللصق القيمة اي عند ادخال قيمةكمثال 645645656 عن طرق لصق القيمة وكانت مكررة يضيفها الى القيمة التي كانت موجودة مسبقا ثم ينشئ سجل جديد اما اذا كانت القيمة غير موجودة يظهر رسالة خطا

TEST1 (4) - Copy.accdb

تم تعديل مايو 5, 2020 بواسطه ازهر عبد العزيز