Consulting

Results 1 to 7 of 7

Thread: Run-time error 438: Object doesn't support this property or method

  1. #1
    VBAX Regular
    Joined
    Dec 2019
    Posts
    7
    Location

    Run-time error 438: Object doesn't support this property or method

    Hi

    I have moved over from win7 32bit to win10 64 bit, I update part of the VBA to identify win10 64

    but now I am stuck on this part and it won't run, can anyone advise what i need to do

    Set drift = ThisWorkbook.Sheets("AXIS Scraper").driftctrl


    Thanks

  2. #2
    Knowledge Base Approver VBAX Guru
    Joined
    Oct 2005
    Location
    Surrey UK
    Posts
    4,667
    I've never heard of .driftctrl; what is it?
    p45cal - - - - -This is my signature, it appears after all my posts. Below is not directed at anyone in particular - so don't take offence! - (You might guess why it's there though)
    If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.

  3. #3
    VBAX Regular
    Joined
    Dec 2019
    Posts
    7
    Location
    Quote Originally Posted by p45cal View Post
    I've never heard of .driftctrl; what is it?
    Hi.

    It is a seperate application that it will load from excel and it then runs a list of numbers through the application and scraps the data from there back into excel.

  4. #4
    VBAX Regular
    Joined
    Dec 2019
    Posts
    7
    Location
    Quote Originally Posted by p45cal View Post
    I've never heard of .driftctrl; what is it?
    Here is the full VBA Section - it gets stuck on Set drift = ThisWorkbook.Sheets("AXIS Scraper").driftctrl

    So it was working perfectly fine when I was running win7 32 bit, but due to going to win10 64 bit

    Sub LogOnOff_Click()
    Dim Status As Integer

    Set drift = ThisWorkbook.Sheets("AXIS Scraper").driftctrl

    Status = GetDriftStatus()


    If (Status = STATUS_ROBOTRUNNING) Then
    MsgBox ("Please wait for the script to finish running")
    End If

    If (Status = STATUS_DISCONNECTED) Then

    Password = InputBox("Please enter your AXIS password:")
    If (Password = "") Then
    Exit Sub
    End If

    SetDriftStatus (STATUS_CONNECTING)
    SetGotDataFunction (GOTDATA_LOGINOUT)
    With drift
    .cfg = SetupDriftCfg()
    .Session = "AXIS"
    .LaunchDrift = LFLAG_CAN_LAUNCH
    .TimeOut = 7
    .PutScreenNow = True
    .Attach = True
    End With

    End If

    End Sub

  5. #5
    Knowledge Base Approver VBAX Guru
    Joined
    Oct 2005
    Location
    Surrey UK
    Posts
    4,667
    Without more information on this Application I've no hope of being able to help.
    p45cal - - - - -This is my signature, it appears after all my posts. Below is not directed at anyone in particular - so don't take offence! - (You might guess why it's there though)
    If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.

  6. #6
    VBAX Regular
    Joined
    Dec 2019
    Posts
    7
    Location
    Quote Originally Posted by p45cal View Post
    Without more information on this Application I've no hope of being able to help.
    Thanks anyway

  7. #7
    VBAX Wizard
    Joined
    Apr 2007
    Posts
    6,817
    Location
    Is this something that should be set in Tools, References in the VBE?

    But it's more likely that the control is not 64 bit Office compatible (not the same as Win10 64 bit). A lot of the older controls are not usable with 64 bit Office
    Paul

    ------------------------------------------------------------------------------------------------------------------------
    1. Use [CODE] ....[/CODE ] Tags for readability
    [CODE]PasteYourCodeHere[/CODE ] -- (or paste your code, select it, click [#] button)
    2. Upload an example
    Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s)
    (multiple files can be selected while holding Ctrl key) / Upload Files / Done
    3. Mark the thread as [Solved] when you have an answer
    Thread Tools (on the top right corner, above the first message)
    4. Read the Forum FAQ, especially the part about cross-posting in other forums
    http://www.vbaexpress.com/forum/faq...._new_faq_item3

Posting Permissions

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