تفضل هذه الاسطر البرمجية تقوم بعمل اللازم
Public fld1 As Integer
Public Function tstfld()
Dim rs As Object
Dim fld2 As String
Dim i As Integer
Set rs = CurrentDb.OpenRecordset("tbl1")
If rs.RecordCount > 0 Then
rs.MoveFirst
Else
Exit Function
End If
With rs
Do While Not (.EOF)
If !wrd = 3 Then
fld1 = !id
.MoveNext
If !wrd = 1 Then
Call werCrtr
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tbl1 SET Tbl1.tst = 1 WHERE (((Tbl1.id)=werCrtr() Or (Tbl1.id)=werCrtr()+1))"
DoCmd.SetWarnings True
End If
End If
.MoveNext
Loop
End With
Set rs = Nothing
End Function
Public Function werCrtr()
werCrtr = fld1
End Function
db2.rar