MaximoAccess

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

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9546
    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.]


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

    [Você precisa estar registrado e conectado para ver este link.]
    [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: Qui 21 Set 2017, 20:34