ACCESS FEED: Re: [MS_AccessPros] Determine if ocx is registered

Jumat, 22 Juli 2016

Re: [MS_AccessPros] Determine if ocx is registered

Thanks,

sorry I was wrong to paste the code !! I have a program that uses the msflxgrd.ocx control and I would like at runtime check if register but I always get the usual result.

I'd use an alternate grid control , any ideas?

Tanks a lot

Domenico

Il venerdì 22 luglio 2016, wrmosca@comcast.net [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> ha scritto:

The code runs on my two computers, one with Access 2003 and the other with Access 2010.

But tell me, why are you using an ActiveX tab control? ActiveX controls are unpredictable as the user might have a different version than what you have or they might not even have it at all.
---In MS_Access_Professionals@yahoogroups.com, <domcoz@gmail.com> wrote :
Hi,

I found this code in internet:
Option Explicit  Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long  Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long     Private Sub Form_Click()     If IsDLLAvailable("TABCTL32.OCX") Then         MsgBox "DLL or OCX passed!"     Else         MsgBox "DLL or OCX Failed!"         ' MsgBox ApiErrorText(Err.LastDllError)         ' for ApiErrorText, see: http://www.mvps.org/vb/index2.html?tips/formatmessage.htm     End If  End Sub    Function IsDLLAvailable(ByVal DllFilename As String) As Boolean     Dim hModule As Long     ' attempt to load the module     hModule = LoadLibrary(DllFilename)     If hModule > 32 Then         FreeLibrary hModule ' decrement the DLL usage counter         IsDLLAvailable = True     End If  End Function
but does not work !! You have any suggestions?

You can recommend an alternative to MSFlxGrd.ocx?

thank you very much
Domenico