ник: user12345
Добрый день.
Никак не могу сделать так чтобы функция работала.
Может кто подскажет в чем моя ошибка ???
Public Function GetVer2(ACC As String) As String
On Error GoTo Err_GetVer2
Dim rstGetVer2 As DAO.Recordset
Set rstGetVer2 = CurrentDb.OpenRecordset("SELECT ACCTurn.AccSumm, ACCTurn.ACCDeb FROM ACCTurn where (ACCTurn.ACCDeb=2511)")
GetVer2 = rstGetVer2!ACCSumm
rstGetVer2.Close
Set rstGetVer2 = Nothing
Exit_GetVer2:
Exit Function
Err_GetVer2:
MsgBox Err.Description, vbCritical
Resume Exit_GetVer2
End Function