How to use a DLL in MS-Access VBA

I am programming an Access database for a blind co-worker. I need to
plug in a DLL, but I've never done it before.
>
Here's all the information that is available (after hours of
Googling):
>
http://blindprogramming.com/pipermai...programming.co...
>
The purpose of this DLL is to pass a string to the DLL which in turns
speaks the string through a JAWS reader to the user.
>
I've tried for hours, but pardon the pun, "I'm flying blind".
>
There are two DLL's that are referenced: JFWAPI.DLL and JFWAPICtrl.dll
the routine in the library I am trying to use is JFWSayString.
>
JFWAPI.DLL will not load through the Tools>References, but
JFWAPICtrl.dll will load.
>
Any help would be greatly appreciated.
>
Thanks,
>
Neil

>I am programming an Access database for a blind co-worker. I need to
plug in a DLL, but I've never done it before.
>
Here's all the information that is available (after hours of
Googling):
>
http://blindprogramming.com/pipermai...ry/005286.html
>
The purpose of this DLL is to pass a string to the DLL which in turns
speaks the string through a JAWS reader to the user.
>
I've tried for hours, but pardon the pun, "I'm flying blind".
>
There are two DLL's that are referenced: JFWAPI.DLL and JFWAPICtrl.dll
the routine in the library I am trying to use is JFWSayString.
>
JFWAPI.DLL will not load through the Tools>References, but
JFWAPICtrl.dll will load.
>
Any help would be greatly appreciated.
>
Thanks,
>
Neil
>

The library JFWAPI.DLL is a standard Windows library and not a COM object.
You do not and cannot set a reference to it from within Access.
>
I spent a few minutes tonight trying to get the control or the standard API
interface to work from an Access form. I cannot test this properly as I do
not have JAWS installed and running on this system.
>
Here's the code I used for the API library interface. I left in the code for
calling the SayString method of the Jaws Com control interface I inserted
onto a form.
>
Private Declare Function apiJFWSayString Lib "C:\SourceCode\JAWS\JFWAPI.DLL"
_
Alias "JFWSayString" (ByVal lpszStrinToSpeak As String, bInterrupt As
Boolean) As Boolean
>
Private Sub cmdPlaySound_Click()
On Error GoTo Err_cmdPlaySound_Click
>
Dim s As String
s = "Hello, wow, you are a Good Looking Guy!"
s = s & s & s & s
Set JW = Me.ActiveXCtl0.Object ' JFWApi
' JW.Enable 0
Dim blRet As Boolean
>
blRet = apiJFWSayString(s, True)
'JW.SayString s, False
>
'Me.ActiveXCtl0.Object.SayString s, True
>
Exit_cmdPlaySound_Click:
Exit Sub
>
Err_cmdPlaySound_Click:
MsgBox Err.Description
Resume Exit_cmdPlaySound_Click
>
End Sub
>
Private Sub Form_Load()
'Dim JW As JFWApi
>
End Sub
--
>
HTH
Stephen Lebanshttp://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
>
<nmana...@gmail.comwrote in message
>
news:1172615606.241107.262970@z35g2000cwz.googlegr oups.com...
>
>
>>>>>>>>>>>
- Show quoted text -