runtime error DoCmd.RunCommand acCmdCopy su campo

Question

Buonasera ho un database in formato accdr con maschera singola dove nel campo numeri su evento su pulsante mouse su ho inserito DoCmd.RunCommand acCmdCopy. Il problema che riscontro è che dopo l'apertura se clicco sul campo numeri appare il messaggio in foto e si chiude il database.

Con il database in formato accdb o accde non accade e il problema sembra essere legato al vba DoCmd.RunCommand acCmdCopy, perchè se lo levo anche in formato accdr non mi da errore.

Come posso risolvere?

grazie

Answer 1

Dopo infinite ricerche sul web senza successo, ho risolto in questo modo:

Private Sub NUMERI_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next

If lngLen = lngLen Then 

 DoCmd.RunCommand acCmdCopy 

End If 

End Sub

Adesso con il database in formato accdr quando clicco sul campo numeri, il messaggio di errore in foto non appare, non si chiude il database e posso selezionare solo la parte di testo che mi interessa da copiare. Questa soluzione è valida anche per il messaggio di errore 2046 comando copia non disponibile.

Spero sia di aiuto per chi ha lo stesso problema.

Answer 2

Ciao grazie ma non funziona sendkeys. L'errore me lo da se clicco sul campo, ma se tengo premuto allora non compare il messaggio di errore.

Answer 3

Ciao

Sono Sneha e sarei felice di aiutarti con la tua domanda. Ci scusiamo per l'inconveniente causato.

Sembra che l'errore sia correlato al comando acCmdCopy DoCmd.RunCommand in caso di pulsante del mouse nel campo numeri. Per risolvere il problema, è possibile provare quanto segue:

1. Assicurarsi che il database non sia aperto in modalità esclusiva, in quanto ciò potrebbe causare problemi con il metodo DoCmd.RunCommand.
2. Verificare eventuali errori di sintassi nel codice VBA.
3. Utilizzare un blocco try-catch per gestire eventuali eccezioni che possono essere generate dal metodo DoCmd.RunCommand. Questo può aiutarti a identificare la causa principale del problema e intraprendere le azioni appropriate.
4. Considerare l'utilizzo del metodo Application.SendKeys anziché DoCmd.RunCommand, poiché questo metodo può talvolta risolvere problemi di compatibilità tra diverse versioni di Access.

Esempio:

Private Sub Numbers_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) In caso di errore GoTo ErrorHandler Application.SendKeys "^C" Esci Sub

Metodo ErrorHandler: MsgBox "Si è verificato un errore: " & Err.Description Fine sub

Se hai altre domande o hai bisogno di assistenza con qualsiasi cosa, non esitare a farmelo sapere. Sono qui per aiutare al meglio delle mie capacità.

Restituisci alla comunità. Aiuta la prossima persona che ha questo problema indicando se questa risposta ha risolto il tuo problema. Fai clic su Sì o No di seguito.

Migliori saluti Sneha

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.