[Resolvido] Fazer Access falar

Pessoal, estou testando dica a dica...uma melhor que a outra!!! Valeu !!!
A do access falar, nao completa no meu pc.....e como nao entendo nada de VBA, pergunto se estou fazendo algo errado:
azer o Ms Access Falar

Uma maneira muito simples de fazer o Ms Access falar:

Num módulo novo, cole este código e salve:

Option Explicit
Public Function FazerFalar(str As String)
'By JPaulo 2008
Dim objVo As Object
Set objVo = CreateObject("SAPI.SpVoice")
objVo.Speak str
End Function

No seu form, coloque uma caixa de texto vazia e dê-lhe o nome de txtFala.
No evento VBA depois de actualizar dessa caixa de texto, coloque:

Private Sub txtFala_AfterUpdate()
FazerFalar (Me.txtFala)
End Sub

Agora é só escrever dentro da caixa de texto e fazer Enter.


Resposta do access
<>>>>>>>>>>>>>>>>>>>>>>>..erro de compilacao > era esperado variavel ou procediemnto,nao modulo

Acabei de fazer tal e qual como está aí descrito, e funcionou na perfeição.

Testado no Access 2003, 2007 e 2010

Talvez esteja faltando o Agent instalado e configurado no pc.

Olha só, fiz um teste aqui tambem e deu esse erro, aí peguei e colei o código no vba do próprio form, logo abaixo da linha Option Compare Database e desse modo funcionou perfeitamente. Pode ser alguma falha na configuração ou algum componente que não está explicitado. Não conferi esse detalhe ainda.

Fiz um BD de teste....eu realmente devo estar falhando algo...ou minha versao do access nao permite
http://www.esnips.com/doc/9749076e-d667-4552-b5ef-751ccffd20c8/bd3

esse link tá a dar pau.

Vai uma dica para usar um botão no lugar do AfterUpdate. Qual a vantagem? Bem, não é exatamente uma vantagem, é só para o caso de querer repetir a fala sem ter que digitar de novo. Nesse caso, o botão vai fazer o tratamento de erro para o caso da caixa estar vazia, quando a mensagem dirá que a caixa está vazia, colocará o fundo na cor vermelha e as letras na cor dourada, colocando o foco na caixa de texto.

Private Sub btnFalar_Click()
If IsNull(Me.txtFala) Or Me.txtFala = "" Then 'Se a caixa estiver vazia
MsgBox "Não há texto a ser falado" 'mensagem diz que não há texto a ser falado
Me.txtFala.BackColor = 4210943 ' caixa de texto fica com fundo vermelho
Me.txtFala.ForeColor = 55295 ' texto fica com cores douradas
Me.txtFala.SetFocus 'o foco vai para a caixa de texto
Exit Sub 'pára o procedimento para inserir o texto
Else 'caso contrário, se o texto estiver inserido na caixa, ou após ser inserido
FazerFalar (Me.txtFala) 'o Access fala o texto
End If
End Sub

Espero que possa ser útil para estudos.

Private Sub btnFalar_Click()
If IsNull(Me.txtFala) Or Me.txtFala = "" Then 'Se a caixa estiver vazia
MsgBox "Não há texto a ser falado" 'mensagem diz que não há texto a ser falado
Me.txtFala.BackColor = 4210943 ' caixa de texto fica com fundo vermelho
Me.txtFala.ForeColor = 55295 ' texto fica com cores douradas
Me.txtFala.SetFocus 'o foco vai para a caixa de texto
Exit Sub 'pára o procedimento para inserir o texto
Else 'caso contrário, se o texto estiver inserido na caixa, ou após ser inserido
-------------------------------------------------------------------------------------nao sei se outros testaram, mas o meu ate aqui funciona......o comando abaixo, o access diz que esperava funcao e nao modulo...
FazerFalar (Me.txtFala) 'o Access fala o texto
End If
End Sub
[img][/img]

http://www.esnips.com/doc/e23b0749-e3a1-472f-a2ec-1f80c59e5295/bd4

lembrete que tirei o comando do modulo pois nao funcionava

Ola Carlos bom dia;

Não estou a ver qual é o problema, a não ser que você não tenha os Agentes instalados.

Para instalar, tem em PT - BR
http://www.htmlbible.com/MicrosoftSpeechComponents/

Veja se este exemplo funfa;
http://dl.dropbox.com/u/771097/Carlos.rar

ahhhhhh, muito bom! consegui...incrivel!

os agentes, instalo em C:?

blza, udo instaldo e tudo ok!

Grande mestres

essa função pode ser feita

ao abrir um formulario

já com a messagem digitada na caixa de texto?

Pode ser na caixa de texto ou em uma variável ou buscando de uma tabela.

como ficaria essa adptçaõ
no código

pos tentei

com 102 codigos vba mestre JP
fazer access falar

mas não deu certo ao abrir formulario

pois já tinha digitado
na caixa de texto a frase

Guando coloco no evento

ao abrir do form

da erro

Bota o código completo para nossa apreciação.

Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.txtFala) Or Me.txtFala.Value = "" Then
Exit Sub
Else
FazerFalar (Me.txtFala)
End If
End Sub

não sei se e assim

já tenho uma messagem pré definida nessecaixa de texto(txtfala)

Tente o evento "Ao carregar" ao invés do "Ao abrir" ou tente colocando o valor da caixa de texto antes:

Me.txtFala = "Seu texto"
FazerFalar (Me.txtFala)

(resolvido)

vou colocar a messagem em ingles

pos o cara não fala bem o portugues

ou tem como mudar a voz?

baixei as voses do site que JP
postou acima

mas não muda em nada continua

""falar portugues embaçado""

Grande JP

Como faço para ativar as vozes em br

quando istalar no pc?

boa noite, ja corri dentro do forum aonde esta meu problema e nada. estou queredo que access fale a partir de da hora
Ao clicar no botão ele executa, mas na horas não!

Código:

If Me.txtHoras = #7:00:00 PM# Then
    Aviso (Me.txtCampoQueAvisa)
Else
end if
End Sub