-

   rss_sql_ru_access_programming

 - e-mail

 

 -

 LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


Access

, 01 2014 . 17:49 +
Access 2013 dll /, , . . , . Access , .

Private Declare Function GetPadeg Lib "D:\YandexDisk\\access\\Padeg.dll" Alias "GetFIOPadegFSAS" _
           (ByVal pFIO As String, ByVal nPadeg As Integer, _
           ByVal pResult As String, ByRef nLen As Integer) As Integer
'   cFIO   nPadeg
Public Function MakePadeg(ByVal cFIO As String, _
                          ByVal nPadeg As Integer) As String
Dim tmpS As String
Dim nLen As Integer
Dim RetVal As Integer
  nLen = 255
  tmpS = String(nLen, 0)
  RetVal = GetPadeg(cFIO, nPadeg, tmpS, nLen)
  If RetVal = -1 Then MsgBox "   - " & _
                             "(" & nPadeg & ")", , ""
  MakePadeg = Mid(tmpS, 1, nLen)
  Debug.Print MakePadeg
End Function

Function my()
Debug.Print MakePadeg("  ", 5)
End Function

http://www.sql.ru/forum/1097999/sklonenie-po-padezham-fio-v-access


: [1] []
 

:
: 

: ( )

:

  URL