الاخوة الاعزاء
السلام عليكم ورحمة الله وبركاته
وكل عام وانتم بخير
ياريت توضيح ما هو الخطأ بالكود الحالى حيث انه لا ينفذ
Private Sub Command15_Click()
On Error GoTo RError
Dim strsql2 As String
Dim rst2 As Recordset
Dim rss As Object
Set rss = Me.Recordset.Clone
rss.FindFirst "[sanfBarcode] = " & Str(Nz(Me![sanfBarcode], 0))
If Not rss.EOF Then Me.Bookmark = rss.Bookmark
strsql2 = "select * from Tat3em where SanfBarcode= " & Str(Nz(Me![sanfBarcode], 0)) And SarfID = " & Str(Nz(Me![sarfID], 0))"
Set rst2 = CurrentDb.OpenRecordset(strsql2, dbOpenSnapshot)
If rst2.RecordCount > 0 Then
MsgBox "Error" & Text23, vbOKOnly, "aa"
Me.SanfBarcode.SetFocus
Else
RError:
Me.SanfBarcode.SetFocus
End If
End Sub
