| |
|
|
| | Добрый день.
Никак не могу сделать так чтобы функция работала.
Может кто подскажет в чем моя ошибка ???
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 | |
| |
| |
| |
|
|
| | а что не работает? и что она должна делать? | |
| |
| |
| |
|
|
| |
'ошибки не видно, у меня все отработало'
'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
|
| |
| |
| |
| |
 22 Кб. |
|
| | Спасибо за ответы.
С ошибкой вроде бы разобрался. Надо было писать не (ACCTurn.ACCDeb=2511) а (ACCTurn.ACCDeb='2511')
А как надо сделать то же самое но в место фиксированного значения (2511) использывать значение переменной 'ACC'
Public Function GetVer2(ACC As String) As String.
Прикрепляю пробнуя базу. | |
| |
| |
| |
|
|
| |
Было:
ACCTurn.ACCDeb='2511'
Надо:
...ACCTurn.ACCDeb='" & ACC & "'...
|
| |
| |
| |
| |
|
|
| | А если тоже самое но формат поля ACC дата ??? | |
| |
| |
