ник: Lukas
Простенький пример:
Public Function GetSQL(strAvto As String) As String
GetSQL = "SELECT * FROM tblItems WHERE Avto='" & strAvto & "'"
End Function
|
Функция возвращает SQL строку для выборки записей, в которых значение текстового поля Avto таблицы tblItems равно значению переданного ей аргумента (strAvto).
Если функция в модуле формы, то можно вместо аргументов использовать ссылки на поля формы:
Private Function GetSQL() As String
GetSQL = "SELECT * FROM tblItems WHERE Avto='" & Me.Avto & "'"
End Function
|
Возвращаемую функцией строку SQL можно использовать как источник записей формы, источник строк списка и комбобокса и для прочих потребностей.