Na tak rzeczywiście nie zrozumiałem tego od razu.
Przerzuciłem tą procedurę do siebie i
Kod:
Public MxIC As MXINTERLib.MxInterConnection
Public db As New mxdokfkforte.BtDatabase
Private Sub Document_Open()
Document.Title = "XXXX"
Set MxIC = Document.CommandDoc("GetMxInterConnection", 1)
Set MxIC = Document.CommandDoc("GetMxInterConnection", 1)
w linijce powyżej mam error 424 Object required
Kod:
MxIC.ExecuteApp "OpenDB", db
If db.IsOpen = 0 Then
MsgBox "juz otwarta"
End If
db.CurrentDate = Application.WybranaFirma.AktualnaData
dok.Open Trim(str(Application.WybranaFirma.WybranyRok.rok)) + ";BUFOR", db ' np "0;BUFOR", db
End Sub
Czy u Ciebie tan fragment kodu działa ??
Może brakuje mi jakiś referencji ??