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.
Il venerdì 22 luglio 2016, email@example.com [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, <firstname.lastname@example.org> wrote :
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
Posted by: Domenico Cozzolino <email@example.com>
|Reply via web post||•||Reply to sender||•||Reply to group||•||Start a New Topic||•||Messages in this topic (3)|