Início
Um exemplo pego na net, não sei o autor pois não tem créditos no modulo.
+2
wsenna
Fernando Bueno
6 participantes
Corretor Ortografico
Fernando Bueno- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012
.................................................................................
Um abraço
Fernando Bueno
O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
wsenna- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 491
Registrado : 22/12/2009
Grande Fernando.
Magnífica contribuição.
Abraços, WSenna
Magnífica contribuição.
Abraços, WSenna
Fernando Bueno- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012
Obrigado WSenna, forte abraço.
.................................................................................
Um abraço
Fernando Bueno
O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
Mylton- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010
Bom dia.
Poderia disponibilizar novamente?
Obrigado.
Poderia disponibilizar novamente?
Obrigado.
mrguim- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 77
Registrado : 23/02/2013
bom dia, poderia disponibilizar novamente?
Fernando Bueno- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2115
Registrado : 13/04/2012
Boa noite;
Infelizmente não tenho mais esse exemplo em meus arquivos,
vamos aguardar se algum colega tenha salvo.
Infelizmente não tenho mais esse exemplo em meus arquivos,
vamos aguardar se algum colega tenha salvo.
.................................................................................
Um abraço
Fernando Bueno
O aumento do conhecimento é como uma esfera dilatando-se no espaço
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
quanto maior a nossa compreensão,
maior o nosso contacto com o desconhecido
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Bom dia
Num modulo novo cole:
Depois no formulário no acontecimento:
Num modulo novo cole:
- Código:
Public Sub SpellCheck(ctlToCheck As Control)
On Error GoTo Handle_Err
Const conProcName As String = "SpellCheck"
Dim ctlActive As Control
If Not IsNull(ctlToCheck) Then
If (ctlToCheck.OldValue <> ctlToCheck.Value) Or _
IsNull(ctlToCheck.OldValue) Then
Set ctlActive = Screen.ActiveControl
With ctlToCheck
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
DoCmd.RunCommand acCmdSpelling
If Not ctlActive Is ctlToCheck Then ctlActive.SetFocus
End If
End If
Exit_Here:
Exit Sub
Handle_Err:
Select Case err.Number
Case 64535
Resume Next
Case Else
End Select
Resume Exit_Here
Resume
End Sub
Depois no formulário no acontecimento:
- Código:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Call SpellCheck(NomeDoCampoQueQuerCorrigir)
End Sub
.................................................................................
*** Só sei que nada sei ***
fsouza32- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 132
Registrado : 22/01/2013
Muito obrigado Assis!
Seu código funcionou muito bem e ajudou muito!!!
Obrigado!!
Seu código funcionou muito bem e ajudou muito!!!
Obrigado!!