السلام عليكم .... لدي نموذج 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