-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó