none
Teamviewer remote to access RRS feed

  • Question

  • I am getting a error when I use teamviewer to access access, This happens when I click on a listbox on my Main Menu page. Also is this the best way to remote to access from my phone or tablet. Thanks for any help...........Bob

    Error is:

    Runtime error "2486"

    You cant carry out this action at the present time


    xxx

    Sunday, August 14, 2016 9:50 PM

All replies

  • Hi. I can't imagine the error would be caused by TeamViewer. Why are you using the Click event of a Listbox?
    Sunday, August 14, 2016 11:39 PM
  • The list box contains the Invoices, so when I click on a client his Invoices opens..........Thanks Bob 

    xxx

    Monday, August 15, 2016 12:01 AM
  • >>>I am getting a error when I use teamviewer to access access, This happens when I click on a listbox on my Main Menu page. Also is this the best way to remote to access from my phone or tablet. 

    According to your description, could you get same error without useing teamviewer to access MS Access? If not, I think that this issue is maybe related to TeamViewer, so I suggest that you could post your question with TeamViewer's Contact & Feedback.

    In addition you could consider one more option — turning your Access application into a Web-based application.
    Monday, August 15, 2016 1:54 AM
  • The list box contains the Invoices, so when I click on a client his Invoices opens..........Thanks Bob 

    xxx

    Hi Bob. If the Listbox is not Multi-select, I would recommend using the AfterUpdate event. Can you post the code you're using to open the invoice? Thanks.
    Monday, August 15, 2016 2:03 AM
  • Let's be very clear on one thing, Teamviewer is not the cause of the error.  There is a problem with the database itself that needs to be remedied.  Whatever you do don't waste your time contacting Teamviewer about this!

    As for: "is this the best way to remote to access from my phone or tablet"

    That depends greatly on the database itself.  You could:

    • Use remote software (Teamviewer is one of many)
    • Convert your db into a web database assuming you don't need any VBA or need any reporting capabilities
    • Switch technologies altogether and use a proper web app such as PHP/MySQL or .Net ... 

    If you truly need web access or a regular basis, I would strongly be looking into alternate technologies, Access simply is not there.  Until they give us a real programming language/interface, it will not be a viable option.


    Daniel Pineault, 2010-2012 Microsoft MVP
    http://www.cardaconsultants.com
    MS Access Tips and Code Samples: http://www.devhut.net


    Monday, August 15, 2016 12:02 PM
  • This is the On click to my list box:
    Private Sub lstModify_Click()
    DoCmd.OpenForm "frmInvoice", , , , , , "ModifyHoldingInvoiceFromMain"

    End Sub

    Thanks Bob


    xxx

    Wednesday, August 17, 2016 1:45 AM
  • Hi TurnipOrange,

    Based on error "You can't carry out this action at the present time.", it means that you tried to run a macro or used the DoCmd object in Visual Basic to carry out an action. However, Microsoft Access is performing another activity that prevents this action from being carried out now. For example, no actions on a form can be carried out while Microsoft Access is repainting a control or calculating an expression.

    Could you upload your Access Database file on OneDrive, that will help us reproduce and resolve it.

    Thanks for your understanding.
    Wednesday, August 17, 2016 9:45 AM
  • Hi Bob. You don't have any error handler in your code. If Access gives you the option to Debug, can you tell us which line is getting highlighted?
    Wednesday, August 17, 2016 3:12 PM
  • The yellow line is on this part of the code:DoCmd.OpenForm "frmInvoice", , , , , , "ModifyHoldingInvoiceFromMain"

    When I get the error Access has calculating showing for about a minute on the bottom bar

    Thanks for any help............Bob


    xxx

    Wednesday, August 17, 2016 10:54 PM
  • >>>When I get the error Access has calculating showing for about a minute on the bottom bar

    According to your description, you could try to use DoEvents:
    Private Sub lstModify_Click()
    
    DoCmd.OpenForm "frmInvoice", , , , , , "ModifyHoldingInvoiceFromMain"
    DoEvents
    
    End Sub
    In addition I still advise that you could upload your Access Database file on OneDrive, that will help us reproduce and resolve it.

    Thanks for your understanding.
    Thursday, August 18, 2016 5:19 AM
  • Hi Bob. Thanks for the additional information. Can you manually open the same form while using TeamViewer? For example, show the Navigation Pane and double-click (open) frmInvoice to see if it opens without any problems. Just curious...
    Thursday, August 18, 2016 3:11 PM
  • Thanks Guys, My database is a bit sensitive to upload as I have worked on it for 10 years and don't want it copied.

    As for opening from navigation pane , frmInvoice will not open because it does not have a InvoiceID to know what to open , but opens from my Main Page with out teamviewer

    Testing teamviewer on my database its only the 2 list boxes on my opening page that I am getting the error

    Thanks For the help...............Bob


    xxx

    Thursday, August 18, 2016 10:51 PM
  • Hi Bob. When you said the form opens fine from your Main Page, is it on the same computer (therefore the same copy) which is having a problem with TeamViewer? Or, are you using TV on another machine with a different copy of your db? Also, what is the code to open the form on your Main Page? Is it different than the one you're using in the Listbox?

    Friday, August 19, 2016 12:57 AM
  • This is my code when main page is opened when data base is opened

    The 2 list boxes when clicked on through Teamviewer give me the error, but not when I open them from my computer they open fine..........Thanks for the help........Bob

    Private Sub Form_Open(Cancel As Integer)

    Dim vCountInv As Variant
    CurrentDb.Execute "DELETE from TblHorseDetails WHERE TblHorseDetails.HorseID Not In (SELECT HorseID FROM tblHorseInfo)"
    CurrentDb.Execute "DELETE from TblHorseDetails WHERE TblHorseDetails.HorseID Is Null "

    Me.tb1Code.value = FunMyCode(Nz(tbCode1.value, ""))
    Me.tb2Code.value = FunMyCode(Nz(tbCode2.value, ""))
    Me.tb3Code.value = FunMyCode(Nz(tbCode3.value, ""))
    Me.tb4Code.value = FunMyCode(Nz(tbCode4.value, ""))
    Me.tb5Code.value = FunMyCode(Nz(tbCode5.value, ""))
    Me.tb6Code.value = FunMyCode(Nz(tbCode6.value, ""))
    Me.tb7Code.value = FunMyCode(Nz(tbCode7.value, ""))
    Me.tb8Code.value = FunMyCode(Nz(tbCode8.value, ""))

        Me.tbHorseAlert.DefaultValue = Chr(34) & "Due" & Chr(34)
    Me.lstModify.Requery

    tbWarn1.value = DLookup("Warning1", "tblCompanyInfo")
    tbWarn2.value = DLookup("Warning2", "tblCompanyInfo")
    tbWarn3.value = DLookup("Warning3", "tblCompanyInfo")
    tbWarn4.value = DLookup("Warning4", "tblCompanyInfo")
    tbWarn5.value = DLookup("Warning5", "tblCompanyInfo")
    tbWarn6.value = DLookup("Warning6", "tblCompanyInfo")
    tbDOB1.value = DLookup("DOBWarning1", "tblCompanyInfo")
    tbDOB2.value = DLookup("DOBWarning2", "tblCompanyInfo")
    tbDOB3.value = DLookup("DOBWarning3", "tblCompanyInfo")
    tbDOB4.value = DLookup("DOBWarning4", "tblCompanyInfo")
    tbDOB5.value = DLookup("DOBWarning5", "tblCompanyInfo")
    tbDOB6.value = DLookup("DOBWarning6", "tblCompanyInfo")
    tbWormingDays = DLookup("WormingDays", "tblCompanyInfo")
    tbWormingDaysLong = DLookup("WormingDaysLong", "tblCompanyInfo")
     Me.cbDisList.Visible = False
    Me.cmdCreateHoldingInvoices.Visible = False
    Me.cmdCreateHoldingInvoicesNoTax.Visible = False
    Me.lblDist.Visible = False
    Me.subfrmDisList.Visible = False
    Me.cboClient.Visible = False
    Me.cboClientNoTax.Visible = False
    Me.cbActiveHorses.Visible = True

     If ckbTaxNoTax = True Then
     cmdCreateClientInvoice.Visible = True
     cmdCreateClientInvoiceNoTax.Visible = False
     Else
      cmdCreateClientInvoice.Visible = False
      cmdCreateClientInvoiceNoTax.Visible = True

        End If
      ' End If
     If ckbTaxNoTax = True Then
     Me.lblNoTax.Visible = False
     Else
     Me.lblNoTax.Visible = True
     End If

     Me.tbDateCode = Now()
     tbDateCode.value = Format(tbDateCode, "ddmmmddd")
     vCountInv = DCount("*", "qryInvoiceAll", "InvoiceID")
        If vCountInv > 200 Then
    Me.lblBackUp.Visible = False
    Else
    Me.lblBackUp.Visible = True
    End If
    If ckbCompact = True Then
    cmdQuitSlow.Visible = True
    cmdQuit.Visible = False
    cmdClientsSlow.Visible = True
    Else
    cmdQuitSlow.Visible = False
    cmdQuit.Visible = True
    cmdClientsSlow.Visible = False
    If Me.ckbShowClients = False Then
    Me.subfrmOverview.Visible = True
    Else
    Me.subfrmOverview.Visible = False
    End If

    End If
       'lblUpdate.Visible = Nz(tbUpdate < DateSerial(Year(Date), Month(Date), 1))
       Dim getListboxCount As Integer
    Dim setHeight As Integer

    getListboxCount = Me.lstInvoiceID.ListCount
    ' Adjust Number Accordingly
    setHeight = 250

    Me.lstInvoiceID.Height = getListboxCount * setHeight
     'cmdQuit.SetFocus


    getListboxCount = Me.lstInvoiceID.ListCount
    ' Adjust Number Accordingly
    setHeight = 750

    Me.lblInvoiceID.Height = getListboxCount * setHeight
     'cmdQuit.SetFocus
    End Sub


    xxx

    Friday, August 19, 2016 10:39 PM
  • Hi Bob. Do you know which line gets highlighted when you go to Debug?  
    Saturday, August 20, 2016 4:15 PM
  • After doing some testing I am also getting the same error when I click on my list box not using Team Viewer but my home mouse, If I have Team Viewer open and not minimised and click on List box  I get the error.............Any Help thanks....Bob

    xxx

    Monday, August 29, 2016 12:59 AM

  • xxx

    Monday, August 29, 2016 1:01 AM
  • Hi Bob. Did you mention which line gets highlighted when you click Debug?
    Monday, August 29, 2016 2:50 AM
  • The DoCmd Line...............Thanks BobPrivate Sub lstModify_Click()

    DoCmd
    .OpenForm "frmInvoice", , , , , , "ModifyHoldingInvoiceFromMain"
    DoEvents

    End Sub

    xxx

    Monday, August 29, 2016 10:50 PM
  • Hi TurnipOrange,

    According to your description, I suggest that you detect this form is loaded, you could try using 'IsLoaded'.
    If CurrentProject.AllForms("frmInvoice").IsLoaded Then
    
    End If

    Thanks for your understanding.
    Tuesday, August 30, 2016 6:23 AM
  • Thanks David do I use it with this code?  Thanks for the help..bob

    DoCmd.OpenForm "frmInvoice", , , , , , "ModifyHoldingInvoiceFromMain"


    xxx

    Wednesday, August 31, 2016 1:51 AM
  • Hi TurnipOrange,

    You could use this code to detect whether this form is loaded, do you get any result?

    Thursday, September 1, 2016 9:44 AM