Use o Office 2000 Proving Tools no Access 2010 Runtime

Question

Estou usando o Access 2010 Runtime para executar meu aplicativo de banco de dados personalizado. O Office 2000 Professional também está instalado na mesma máquina. eu uso DoCmd.RunCommand acCmdSpelling um casal diferente para realizar uma verificação ortográfica dos dados inseridos.

Isso funciona muito bem na versão completa do Access 2000, mas quando eu o abro em 2010, tempo de execução, recebo a mensagem MS Access can't start the spell checker because it isnt' installed. Eu sei que se a versão completa do Office não está instalada, a verificação de ortografia não funcionará.

Agora para minha pergunta. A versão completa do Office está instalada, mas é uma versão diferente. Existe alguma maneira de fazer o Access 2010 Runtime usar as ferramentas de prova do Office 2000?

Eu realmente quero usar o tempo de execução de 2010 por causa de várias melhorias na interface do usuário que meu aplicativo usa. Eu sei que poderia voltar para acessar 2000, mas isso seria o último recurso.

Answer 1

Você considerou um verificador ortográfico de terceiros? Você pode inserir controles WinForms personalizados desenvolvidos em C# em um banco de dados de acesso? Que tal um controle VB6? Se você pudesse encontrar um controle com verificação de ortografia usando uma biblioteca de terceiros, isso pode funcionar.

Answer 2

Usando as funções VBA do Excel no MS Access:

Você pode chamar funções do Excel da Access, adicionando uma referência ao Excel.

No projeto VBA de acesso, vá Tools → References, e depois localize e inclua a biblioteca "Microsoft Excel 16.0 Object Library" (ou a versão mais recente que você tem).

Em seguida, crie um objeto referente a um aplicativo do Excel e ligue para quaisquer comandos conforme necessário.

Por exemplo, para verificar a ortografia de uma palavra ou frase:

Sub demo_Spellcheck()
   Dim textToCheck As String, excel As New excel.Application 'create Excel object
   textToCheck = InputBox("Enter a word or phrase:", "Spellcheck", "blah blah")

   If excel.Application.CheckSpelling(textToCheck) Then 'check spelling
       MsgBox textToCheck & vbLf & "is spelled Correctly", 64 'TRUE = correct
   Else
       MsgBox textToCheck & vbLf & "is mis-spelled", 16 'FALSE = misspelled
   End If

   Set excel = Nothing 'always cleanup after your objects
 End Sub

---

Mais Informações:

• Documentos do escritório: Application.CheckSpelling método (Excel)
• Documentos do escritório: Application.WorksheetFunction propriedade (Excel)