Me.Поле76.DefaultValue = """" & ifile & """"

'Подпрограмма предназначенная для получения/задания значения myValue из/в таблиц(ы/е) где:
'  tableName - имя таблицы;
'  fieldName - имя поля;
'  rowPoz - номер записи в таблице
'  myValue - задаваемое/возвращаемое значение
'  Если myValue=Null то подпрограмма вернёт его значение из таблицы.
'  В обратном случае мы задаем её значение в таблице
Sub SetGetTableValue(ByVal tableName As String, _
                     ByVal fieldName As String, _
                     ByVal rowPoz As Long, _
                     ByRef myValue)
    
    Dim mdb As Database
    Dim ast As DAO.Recordset
    Dim rcount
    Dim i
    
    Set mdb = CurrentDb
    Set ast = mdb.OpenRecordset(tableName, dbOpenTable)
    
    rcount = ast.RecordCount
    
    On Error GoTo errend
    
    While True
    
        ast.MoveFirst
        For i = 1 To rcount
        
            If i = rowPoz Then
                If IsNull(myValue) Then
                    myValue = ast.Fields(fieldName)
                    ast.MoveLast
                Else
                    ast.Edit
                    ast.Fields(fieldName) = myValue
                    ast.Update
                    ast.MoveLast
                End If
            End If

            ast.MoveNext
        
        Next
        ast.MoveNext
    
    Wend
    
exitwork:
    Set ast = Nothing
    Exit Sub
    
errend:
    Select Case Err.Number
        Case 3021
            Debug.Print "Цикл обновления ID_model заверщён"
        Case Else
            Debug.Print Err.Number, Err.Description
    End Select
    Resume exitwork
End Sub