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"=-

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>:

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

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 :


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 <domcoz@gmail.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (5)

Save time and get your email on the go with the Yahoo Mail app
Get the beautifully designed, lighting fast, and easy-to-use Yahoo Mail today. Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.



Tidak ada komentar:

Posting Komentar