AnsweredAssumed Answered

ActiveX(VisualBasic6.0 App) sometimes fail

Question asked by petit on Sep 18, 2012
Latest reply on Sep 18, 2012 by wimdecorte

ActiveX(VisualBasic6.0 App) sometimes fail

 

 

Environment:FileMakerPro11 + Windows7

 

 

The code is to acquire an active fileName from the FileMakerFiles.

But sometimes fail at Specific code

 

 

Usually the error doesn't work until rebooting OS

 

 

VB Err.Number is unknown.

 

 

The code is below

Error occurs somewhere in 4 lines between ▲&▼

(sorry, I do not know where the err occur in 4 Lines,

Because I cannot reoccur it again either)

 

 

It is unclear that Why and When the error occurs.

Please show me the solution or the factor.

 

 

 

 

Dim FMApp As FMPRO70Lib.Application

Dim FMDocs As FMPRO70Lib.Documents

Dim FMActiveDoc As FMPRO70Lib.Document

 

 

Dim myOpenFile As Object 'Opened FileMaker File

Dim strOpenFilePath As String 'Path

 

 

'Get Opened FileMaker Object

Set FMApp = GetObject("", mstrFILEMAKER_APP)

 

 

Set FMDocs = FMApp.Documents

 

 

▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼

'Acquire Active File Name

Set myOpenFile = FMDocs.Active

'Show APP

FMApp.Visible = True

 

 

Set FMActiveDoc = FMDocs.Active

strOpenFilePath = FMActiveDoc.FullName

▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

 

 

Msgbox strOpenFilePath

 

 

’Clear Objects

Set FMDocs = Nothing

Set FMActiveDoc = Nothing

Set myOpenFile = Nothing

Set FMApp = Nothing

Outcomes