Dim db As Database, rs As Recordset, tb As TableDef, i As Integer
Npol = Mid([Forms]![Ïîëèñû]![Íîìåð], 1, 4) + Me!tNumber
Set db = OpenDatabase("С:\.....")
Set rs = db.OpenRecordset("Name", dbOpenDynaset)
rs.MoveFirst
Do Until rs.EOF
If Npol = rs!ColumnName; Then Me.Поле 33= "yes"
Loop
rs.MoveNext
|