MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido] Fazer Access falar

    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty fazer access falar

    Mensagem  carlosfn em 27/2/2010, 14:33

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10599
    Registrado : 04/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  JPaulo em 27/2/2010, 14:59

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

    Testado no Access 2003, 2007 e 2010


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Fazer Access falar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Fazer Access falar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Fazer Access falar Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  criquio em 27/2/2010, 15:06

    Talvez esteja faltando o Agent instalado e configurado no pc.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  criquio em 27/2/2010, 15:20

    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.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty segue bd

    Mensagem  carlosfn em 27/2/2010, 16:38

    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
    avatar
    Convidad
    Convidado

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  Convidad em 27/2/2010, 17:00

    esse link tá a dar pau.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  criquio em 27/2/2010, 17:49

    Está dando bad link. Dei um tempo para ver se era falta de terminar o up do arquivo, mas continua o mesmo erro.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  criquio em 27/2/2010, 18:02

    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.


    Última edição por criquio em 2/3/2010, 01:07, editado 1 vez(es)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  carlosfn em 27/2/2010, 18:16

    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]
    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  carlosfn em 27/2/2010, 18:20

    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  carlosfn em 27/2/2010, 18:23

    lembrete que tirei o comando do modulo pois nao funcionava
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10599
    Registrado : 04/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  JPaulo em 1/3/2010, 08:55

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Fazer Access falar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Fazer Access falar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Fazer Access falar Folder_announce_new Instruções SQL como utilizar...
    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  carlosfn em 1/3/2010, 22:12

    ahhhhhh, muito bom! consegui...incrivel!
    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  carlosfn em 1/3/2010, 22:14

    os agentes, instalo em C:?
    carlosfn
    carlosfn
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 39
    Registrado : 03/11/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  carlosfn em 2/3/2010, 01:00

    blza, udo instaldo e tudo ok!
    LEAM
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 02/04/2011

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  LEAM em 14/6/2011, 03:29

    Grande mestres

    essa função pode ser feita

    ao abrir um formulario

    já com a messagem digitada na caixa de texto?


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  criquio em 14/6/2011, 03:37

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    LEAM
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 02/04/2011

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  LEAM em 14/6/2011, 12:18

    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


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    LEAM
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 02/04/2011

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  LEAM em 14/6/2011, 13:58

    Guando coloco no evento

    ao abrir do form

    da erro


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  criquio em 14/6/2011, 14:00

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    LEAM
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 02/04/2011

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  LEAM em 14/6/2011, 15:36

    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)


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  criquio em 14/6/2011, 15:42

    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)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    LEAM
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 02/04/2011

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  LEAM em 14/6/2011, 16:13

    (resolvido)

    vou colocar a messagem em ingles

    pos o cara não fala bem o portugues

    ou tem como mudar a voz?


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    LEAM
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 02/04/2011

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  LEAM em 14/6/2011, 17:01

    baixei as voses do site que JP
    postou acima

    mas não muda em nada continua

    ""falar portugues embaçado""


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    LEAM
    LEAM
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 697
    Registrado : 02/04/2011

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  LEAM em 14/6/2011, 17:20

    Grande JP

    Como faço para ativar as vozes em br

    quando istalar no pc?


    .................................................................................
    Uma vida sem desafios não vale a pena ser vivida.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1338
    Registrado : 23/01/2018

    [Resolvido] Fazer Access falar Empty Re: [Resolvido] Fazer Access falar

    Mensagem  crysostomo em 18/7/2020, 22:58

    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 23/9/2020, 17:58