[Resolvido]Preencher dois campos...

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 !

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

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

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

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.

Deixo exemplo . . .

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

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

Para complementação, segue um exemplo usando a propriedade PreviousControl

Bom dia DamascenoJr.

Perfeito!

Sempre a aprender..