Teamviewer remote to access

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

Answer 1

Hi. I can't imagine the error would be caused by TeamViewer. Why are you using the Click event of a Listbox?

Answer 2

The list box contains the Invoices, so when I click on a client his Invoices opens..........Thanks Bob 

---

xxx

Answer 3

>>>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.

Answer 4

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.

Answer 5

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

Answer 6

This is the On click to my list box:
Private Sub lstModify_Click()
DoCmd.OpenForm "frmInvoice", , , , , , "ModifyHoldingInvoiceFromMain"

End Sub

Thanks Bob

---

xxx

Answer 7

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.

Answer 8

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?

Answer 9

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

Answer 10

>>>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.

Answer 11

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...

Answer 12

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

Answer 13

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?

Answer 14

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

Answer 15

Hi Bob. Do you know which line gets highlighted when you go to Debug?  

Answer 16

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

Answer 17

---

xxx

Answer 18

Hi Bob. Did you mention which line gets highlighted when you click Debug?

Answer 19

The DoCmd Line...............Thanks BobPrivate Sub lstModify_Click()

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

End Sub

---

xxx

Answer 20

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.

Answer 21

Thanks David do I use it with this code?  Thanks for the help..bob

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

---

xxx

Answer 22

Hi TurnipOrange,

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