Showing results 1 to 4 of 4

Thread: VBA error after upgrading rpoject to 6.51

  1. #1
    Join Date
    28.08.2009
    Posts
    26

    Unglücklich VBA error after upgrading rpoject to 6.51

    After upgrading project from 6,50 to 6,51. I have VBA error code '91'.Object variable or With variable block not set.

    The code is

    Private Sub zAlarm_AlarmComes(ByVal obItem As IAlarmItem)
    '||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||||||||||||
    If DebugLogEnable Then Debug.Print "zAlarm_AlarmComes" & Now
    '||||||||||||||||||||||||||||||||||||||||||||||||| ||||||||||||||||||||||||||


    Dim funkcija As RtFunction
    Set funkcija = thisProject.RtFunctions.Item("Open_Activ_Alarm_Window")
    Dim Alarm_Window As DynPicture
    Set Alarm_Window = thisProject.DynPictures.Item("Activ_Alarm_Window")

    If Not Alarm_Window.Online Then <---Error comes here
    funkcija.Start
    Else
    Alarm_Window.Activate
    End If
    '------------------------------------------------------------------------------------
    End Sub

    It is very Strange.
    This code works fine in 6,50. !!!
    I don't know how to fix it. And why Alarm_window variable is nothing.
    What diferences between 6.50 and 6.51.
    How to solve this ....
    Please help me..

  2. #2
    Join Date
    30.05.2007
    Location
    Salzburg
    Posts
    879

    Default Re: VBA error after upgrading rpoject to 6.51

    Which build version of zenon 6.51 SP0 do you use?
    There was a problem in certain build versions of zenon 6.51 SP0 when creating a object from a picture by its name.
    This has been fixed with Build5 of 6.51 SP0.
    The scheduled release of this build is 01.06.2011

    Regards,
    Herbert

  3. #3
    Join Date
    28.08.2009
    Posts
    26

    Default Re: VBA error after upgrading rpoject to 6.51

    I use 6.51 SP0 build 4

  4. #4
    Join Date
    30.05.2007
    Location
    Salzburg
    Posts
    879

    Default Re: VBA error after upgrading rpoject to 6.51

    check if you have globaly declared "zAlarm" and also set the object....

    Dim WithEvents zAlarm As Alarm
    
    'procedure is executed on startup of the zenOn runtime
    Private Sub Project_Active()
        'init the alarm object for events
        Set zAlarm = thisProject.Alarm
    End Sub

    -> check out the example in the help documentation at Object Model -> Alarm

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •