Dim db As DAO.Database
    Dim rst As DAO.Recordset
    
    Set db = CurrentDb
  Set rst = db.OpenRecordset( "select дата,[код валюты], [курс цб] from 
currency_rate where [код валюты] = '" & Forms!Расход!Валюта & "'" , dbReadOnly)
        rst.FindFirst  "Дата = date()" 
    If Not rst.NoMatch Then
        Forms!Расход!ekv = (Forms!Расход!Расход * rst![Курс ЦБ]) / (YeRate(YeType( "1 ")) * YePer( "1 "))
        rst.Close
    Set db = Nothing
    DoCmd.OpenQuery  "BILL_CHARGE_FROM_CHARGE" 
    DoCmd.OpenQuery  "ЗАД_ПОСТ_FROM_CHARGE" 
        DoCmd.Close
    Else
        If MsgBox( "Не введен курс используемой валюты! Данные не могут быть сохранены! Ввести курс?" , vbYesNo,  "Ошибка ввода данных" ) = vbYes Then
        DoCmd.OpenForm  "Ввод курсов валют" 
        End If
        rst.Close
    Set db = Nothing
    End If