'ошибки не видно, у меня все отработало'
'1-заблокируй ON ERROR
'2-пусти мм
'3-видимо ошибка в имени поля или нет 2511
'4-где используется парaметр ACC
Sub mm()
Debug.Print GetVer2(1)
End Sub
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
|