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]Preencher dois campos...

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 51
    Registrado : 06/11/2020

    [Resolvido]Preencher dois campos... Empty [Resolvido]Preencher dois campos...

    Mensagem  m_sousa em 16/11/2020, 20:57

    Olá

    Tenho um form que serve para registar a tensão arterial. O form tem 2 campos TAS e TAD e tenho 9 botões 1, 2, 3, 4, etc... O meu problema esta com o codigo, pois tenho o seguinte código nos botões :

    Código:
    Private Sub btn1_Click()
    Me.txtTAS = Me.txtTAS & "1"
    End Sub

    E sim regista o pretendido, mas como faço para poder digitar também no campo TAD !?
    Obrigado

    Um bem hajam !
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  crysostomo em 16/11/2020, 22:16

    não entendi , pode explicar detalhadamente ou passar a parte do bd envolvido


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 51
    Registrado : 06/11/2020

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  m_sousa em 17/11/2020, 09:27

    Olá

    Então tenho um form para registar a tensão arterial, certo ! Esse form tem dois campos TAS e TAD. E tenho vários botões 1, 2, 3, 4, Etc e cada botão ira servir para o utilizador inserir a avaliação efetuada, uma vez que o sistema será touch. Em cada botão eu tenho o seguinte código :

    Código:
    Private Sub btn1_Click()
    Me.txtTAS = Me.txtTAS & "1"
    End Sub

    Este código insere o número 1 no campo TAS, mas eu preciso que o mesmo botão (btn1) inseria também no campo TAD isto se o foco estiver nesse campo . . .
    Entendeu !? Ou consegui fazer-me entender !?
    Obrigado
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 28/10/2010

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  zcarloslopes em 17/11/2020, 11:04

    Bom dia m_sousa,

    O código para verificar se o foco está num determinado controlo seria...
    Código:
    If (NomeDoControlo Is Me.ActiveControl) Then (...)
    No seu caso ao clicar no botão, o foco sai do controlo para o botão e o código não corre...

    Assim à primeira vista a sugestão seria, ou criar botões para o outro campo, ou então inserir em ambos os campos em simultâneo quando clica no botão, tipo..
    Código:
    Private Sub btn1_Click()
    Me.txtTAS = Me.txtTAS & "1"

    Me.txtTAD = Me.txtTAD & "1"

    End Sub
    Altere o nome do campo TAD para o nome real..
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 51
    Registrado : 06/11/2020

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  m_sousa em 17/11/2020, 13:24

    Amigo,
    TAD é o nome real, Tensão Arterial Diastólica.

    E o que esta a propor não é exequível. O TAS e TAD podem ser diferentes, entende !!!
    120x80 é uma tensão arterial boa. E dois botões iria duplicar os botões, deverá haver uma forma com código de se conseguir...
    Obrigado na mesma.
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 51
    Registrado : 06/11/2020

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  m_sousa em 17/11/2020, 13:38

    Deixo exemplo . . .
    Anexos
    [Resolvido]Preencher dois campos... AttachmentExemploTA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 3 vez(es)
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 51
    Registrado : 06/11/2020

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  m_sousa em 17/11/2020, 17:13

    Resolvido !

    Resolvi com o seguinte :

    Código:
    Option Compare Database
    Public strNomeCtl As String

    Private Sub btn1_Click()
    Me(strNomeCtl) = Me(strNomeCtl) & "1"
    End Sub

    Private Sub btn2_Click()
    Me(strNomeCtl) = Me(strNomeCtl) & "2"
    End Sub

    Private Sub Form_Load()
    Me.TAS.SetFocus
    strNomeCtl = "TAS"
    End Sub

    Private Sub TAD_GotFocus()
    strNomeCtl = "TAD"
    End Sub

    Private Sub TAS_GotFocus()
    strNomeCtl = "TAS"
    End Sub

    Deixo aqui se alguém um dia precisar.
    Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  DamascenoJr. em 17/11/2020, 17:50

    zcarloslopes, estou pelo celular e não consigo elaborar, mas existe o screen.previouscontrol


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  DamascenoJr. em 18/11/2020, 01:51

    Para complementação, segue um exemplo usando a propriedade PreviousControl
    Anexos
    [Resolvido]Preencher dois campos... AttachmentPreviousControl.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 6 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    m_sousa gosta desta mensagem

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 28/10/2010

    [Resolvido]Preencher dois campos... Empty Re: [Resolvido]Preencher dois campos...

    Mensagem  zcarloslopes em 18/11/2020, 08:14

    Bom dia DamascenoJr.

    Perfeito!

    Sempre a aprender..

      Data/hora atual: 4/12/2020, 10:49