В форме по нажатии на кнопку осуществляется проверка введен курс валюты или нет, ну и, соответственно, в зависимости от этого выполняется или не выполняется определенное действие.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset( "select дата,[код валюты], [курс цб] from
currency_rate where [код валюты] = '" & Forms!реализация!Валюта & "' AND Дата = '" & Me.data & "'" )
If Not rst.NoMatch Then
............
Else: MsgBox "Введите используемые курсы валют" , , "Ошибка"
DoCmd.OpenForm "Курсы валют"
.....
End if
Проблема: если курс не введен, то все работает нормально, а если введен, то программе не нравится это: Дата = '" & Me.data & "'" - несоответствие типов данных в условии выражения отбора
Что тут делать???
