MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    É possível... ouvir o access?

    avatar
    JotaPA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    É possível... ouvir o access? Empty É possível... ouvir o access?

    Mensagem  JotaPA 28/12/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
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 28/12/2013, 22:10

    Ola seja bem vindo ao forum.

    Veja se ajuda,

    http://maximoaccess.forumeiros.com/t10465-resolvidoaccess-falar-em-portugues


    .................................................................................
    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

    É possível... ouvir o access? Folder_announce_new Utilize o Sistema de Busca do Fórum...
    É possível... ouvir o access? Folder_announce_new 102 Códigos VBA Gratuitos...
    É possível... ouvir o access? Folder_announce_new Instruções SQL como utilizar...
    avatar
    JotaPA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JotaPA 29/12/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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 11:39