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

Rabu, 27 Juli 2016

Re: [MS_AccessPros] Determine if ocx is registered

excuse me any ideas?

Thanks Domenico

2016-07-25 10:44 GMT+02:00 Domenico Cozzolino <domcoz@gmail.com>:

Hello friends

I have a strange problem in my application access so composed:

Windows Server 2012 R2

Access Applicazione Form with MsflxGrd Active X

User A (Terminal server)
User B (Terminal Server)

In User A and User B run

Step 1
Killbit operation

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{6262D3A0-531B-11CF-91F6-C2863C385E30}]
"Compatibility Flags"=-

and

Step 2
regsvr32 "%USERPROFILE%\app_path\msflxgrd.ocx"

The program in User B works perfectly, in User A I get an error 438 but if re run Step 1 e Step 2 in User A the program works perfectly in User A and Not in User B. If I repeat the procedure in User B again User B good and User A no good.

I apologize if I was not clear but my English is not so good

Thanks a lot Domenico
2016-07-23 0:41 GMT+02:00 Domenico Cozzolino <domcoz@gmail.com>:
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