MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    É possível... ouvir o access?

    Compartilhe

    JotaPA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 15/06/2013

    É possível... ouvir o access?

    Mensagem  JotaPA em Sab 28 Dez 2013, 20:18

    Boa tarde, boas festas e um excelente 2014 para todos.
    É possível por OCX/DLL's ou qq outro meio, implementar via VBA (no access por exemplo) algo do género como tem o Google no tradutor, isto é, por o access a falar quando se utiliza o botão ouvir ?

    Simplesmente o que pretendo é por exemplo, ao passar com o cursor em determinado controlo ou um botão receber o foco, o sistema informar o utilizador via audio a descrição que coloquei na propriedade "Texto da descrição do controlo" desse mesmo controlo.
    Se for possível, o sistema poderá "dizer" ao utilizador as informações das Msgbox's por exemplo, ou informá-lo que o cursor do rato está fora da área de trabalho útil.

    Obrigado.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: É possível... ouvir o access?

    Mensagem  JPaulo em Sab 28 Dez 2013, 22:10

    Ola seja bem vindo ao forum.

    Veja se ajuda,

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JotaPA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 15/06/2013

    Re: É possível... ouvir o access?

    Mensagem  JotaPA em Dom 29 Dez 2013, 16:37

    Boa tarde.
    Obrigado João Paulo.
    Fiz o que o MESTRE mandou e funfou. Até superou as espectativas tirando a parte da voz da menina  Very Happy , mas...

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

    Private Sub txt_NIF_KeyPress(KeyAscii As Integer)
    'Limita o campo apenas a numeros
       If KeyAscii = vbKeyReturn Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyTab Then Exit Sub
       If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then
           KeyAscii = 0

    Call FazerFalar("Tecla não autorizada. Só teclas numéricas são permitidas")

    Exit Sub
       End If
    'Limita o campo a 9 caracteres, com a chamada da Public Sub LimitaCaracteres
    Call LimitaCaracteres(Me.txt_NIF, 9, KeyAscii)
        If IsNull(txt_NIF) = True Or txt_NIF.Text = "" _
       Or IsEmpty(Me.txt_NIF) Or Len(txt_NIF.Value) < 9 _
       Or Me.txt_NIF.Value < 100000000 Then
          txt_NIF.BorderColor = vbRed
       Else
          txt_NIF.BorderColor = vbBlack
       End If
    End Sub
    '_

    mas agora acontece isto no evento KeyPress
    A função FazerFalar() executa-se tantas vezes quantas as que é carregada uma tecla errrada.
    Se por exemplo digitar “SFrDp” (que são teclas não permitidas) implica ouvir 5 vezes a mesma coisa  Rolling Eyes 
    Como posso por travão nisto?

    Obrigado.

      Data/hora atual: Dom 11 Dez 2016, 00:14