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

    SendKeys fora da sequencia programada

    avatar
    Pietrobom
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 13/08/2017

    SendKeys fora da sequencia programada Empty SendKeys fora da sequencia programada

    Mensagem  Pietrobom 7/5/2021, 02:42

    Olá, gostaria de um auxilio:

    Com o código abaixo eu gostaria que o seguinte acontecesse:

    Dados antes do comando

    Textbox"Datahist" - 06/05/2021
    Textbox"Usuário" - Pietrobom
    Textbox"Historico" - Teste

    após rodar o comando (Botão - SubmitHist)

    Textbox"Datahist" - "vazio"
    Textbox"Usuario" - "vazio"
    Textbox"Historico" - 06/05/2021 - Teste - Pietrobom

    mas está saindo assim - 06/05/2021TestePietrobom - -

    Segue comando

    Código:
    Private Sub SubmitHist_Click()
        
        With Me.Historico
        Me.datahist.SetFocus
        DoCmd.RunCommand acCmdCut
        .SetFocus
        .SelStart = 0
        
        DoCmd.RunCommand acCmdPaste
        
        TWait = Time
        TWait = DateAdd("s", 1, TWait)
        Do Until TNow >= TWait
        TNow = Time
        Loop
            
        .SelStart = 10
        
        TWait = Time
        TWait = DateAdd("s", 1, TWait)
        Do Until TNow >= TWait
        TNow = Time
        Loop
        
        SendKeys " - "
        
        Me.Usuario.SetFocus
        DoCmd.RunCommand acCmdCut
        .SetFocus
        .SelStart = Len(.Text)
        
        TWait = Time
        TWait = DateAdd("s", 1, TWait)
        Do Until TNow >= TWait
        TNow = Time
        Loop
        
        SendKeys " - "
        
        TWait = Time
        TWait = DateAdd("s", 1, TWait)
        Do Until TNow >= TWait
        TNow = Time
        Loop
        
        DoCmd.RunCommand acCmdPaste
        
        
        End With
              
    End Sub

    Poderiam me ajudar a fazer o sendkeys rodar na sequencia da codificação?
    Grato.

      Data/hora atual: 25/7/2021, 03:44