object Error

• Question

• 

  

  0

  Sign in to vote

  When I trying run This code 

  [

  
  calendar_week = DatePart("ww", date_time)
  If calendar_week < 10 then
  calendar_week = "0" & calendar_week
  End if
  'MsgBox calendar_week 
  
  'Set password
  password = GlobalVar.GetGlobalVarStatic("__ZERA_EN_PASSWD")
  
  'command assembles  
  ENRealtime = GlobalVar.GetGlobalVarStatic("__ZERA_EN_REALTIME")
  If ENRealtime <> "" then
  GlobalVar.SetGlobalVarStatic "__ZERA_EN_PARAM",ENRealtime _
  & "(" & z_year & z_month & z_day & ")" & "(" & password & ")"
  else
  GlobalVar.SetGlobalVarStatic "__ZERA_EN_PARAM",GlobalVar.GetGlobalVarStatic("__ZERA_DATE")_
  & "(" & z_year & z_month & z_day & ")" & "(" & password & ")"
  end if
  
  RealDate = GlobalVar.GetGlobalVarStatic("__ZERA_EN_PARAM")
  'MsgBox RealDate
  
  End Sub

  ]

  An object Error occure  

  Object required: "Globalvar"

  line:        99

  Error code:0x0800a01a8

  • Moved by Bill_Stewart Tuesday, December 11, 2018 8:57 PM Unanswerable drive-by question

  Sunday, July 15, 2018 2:53 PM