Не заносятся!
То ли, по строкам не переходят, то ли я не там exit поставила! 
Public Function yceet()
Dim dbs As Database
Dim M, R, B, OT, i, D As Integer
Dim DN, NV, SPD As String
Dim tbltabel, ycet As Recordset
Dim fld As Field
'Текущая БД
Set dbs = CurrentDb
M = InputBox("ВВЕДИТЕ УЧЕТНЫЙ МЕСЯЦ")
DN = InputBox("ВВЕДИТЕ УЧЕТНЫЙ ДЕНЬ")
'MsgBox ("d" & DN)
DoCmd.RunSQL "DELETE DISTINCTROW [УЧЕТ].* FROM [УЧЕТ];"
B = 0
R = 0
OT = 0
Set tbltabel = dbs.OpenRecordset("SELECT * FROM [ТАБЕЛЬ] WHERE MEC =" & M)
tbltabel.MoveLast 'Заполнение массива
tbltabel.MoveFirst
Set ycet = dbs.OpenRecordset("УЧЕТ", dbOpenTable)
For i = 1 To tbltabel.RecordCount
For Each fld In tbltabel.Fields
If fld.Name = "D" & DN Then
NV = tbltabel!NV
SPD = tbltabel!SPD
If IsNumeric(fld.Value) = 0 Or fld.Value = "МО" Then
R = R + 1
ElseIf fld.Value = "Б" Or fld.Value = "Р" Then
B = B + 1
ElseIf fld.Value = "ОТ" Or fld.Value = "ОД" Or fld.Value = "УД" Or fld.Value = "ОЧ" Or fld.Value = "ОЖ" Or fld.Value = "В" Then
OT = OT + 1
End If
End If
Exit For
Next fld
tbltabel.MoveNext
Next i
ycet.AddNew
ycet!MEC = M
ycet!DAAY = DN
ycet!NV = tbltabel!NV
ycet!SPD = tbltabel!SPD
ycet!RAB = R
ycet!bol = B
ycet!OT = OT
ycet.Update
End Function
!
На полке стояла! 
