Dados do código mais recente

[Jorge Luiz Nunes]

Boa Noite
No código abaixo gostaria que retornasse em várias TextBox os dados mais recente (3), porém só retorna dados do código (1)
código Data Nome_Visitante RG CPF Setor leito
1 22/09/2022 João da Silva 123 333.333.333-33 Enf 10
2 23/09/2022 João da Silva 123 333.333.333-33 Enf 10
3 24/09/2022 João da Silva 123 333.333.333-33 Tes 20

Código: Selecionar todos

Private Sub UserForm_Activate()
 CbxNome.Clear
 CbxNome.Style = fmStyleDropDownList
 Set Rs = New ADODB.Recordset
 Módulo1.ConectarBD
Rs.Open "SELECT DISTINCT Nome_Visitante FROM Banco_visita ORDER BY Nome_Visitante ASC", Conexao, adOpenKeyset, adLockReadOnly
If Rs.RecordCount > 0 Then
  Do Until Rs.EOF
   'Lista Suspensa Nome do Visitante
   CbxNome.AddItem Rs!Nome_Visitante
   Rs.MoveNext
  Loop
End If
 Módulo1.Fechar_RS
 Módulo1.DesconectarBD
End Sub


Private Sub CbxNome_Change()
 Set Rs = New ADODB.Recordset
 ConectarBD
Rs.Open "SELECT Nome_Visitante, RG, CPF, Nome_Paciente, Setor, Leito, OBS, Max(Código)  FROM Banco_Visita WHERE Nome_Visitante='" & Cadastrado.CbxNome.Text & "' Group by Nome_Visitante, RG, CPF, Nome_Paciente, Setor, Leito, OBS", Conexao, adOpenKeyset, adLockReadOnly

If Rs.RecordCount > 0 Then
  Cadastrado.CbxNome.Text = Rs!Nome_Visitante
  Cadastrado.TxtRG = Rs!RG
  Cadastrado.TxtCPF = Rs!CPF
  Cadastrado.TxtPaciente = Rs!Nome_Paciente
  Cadastrado.TxtSetor = Rs!Setor
  Cadastrado.TxtLeito.Text = Rs!Leito
  Cadastrado.TxtOBS = Rs!OBS
Else
  MsgBox "Não encontrado!", vbInformation, "ReCadastrado"
End If
 Módulo1.Fechar_RS
 DesconectarBD
 End Sub

[webmaster]

Não deveria estar ordenando por codigo ao invés do Nome_Visitante ?

[Jorge Luiz Nunes]

Boa noite Tomás
Não entendi a sua colocação.
Obrigado pela atenção dispensada.

[webmaster]

Perdão Jorge,

Li o código novamente e, assumindo que você esteja falando de preencher o CbxNome no UserForm_Activate, a query deveria a seguinte:

Código: Selecionar todos

Rs.Open "SELECT DISTINCT Nome_Visitante FROM Banco_visita ORDER BY Data DESC", Conexao, adOpenKeyset, adLockReadOnly

Isso trará o registro mais recente de cada Nome_Visitante

[Reinaldo]

Lendo o descritivo da demanda, e a(s) rotinas dispostas; e sem modelo para poder analisar o banco/interface
fico na suposição:
a primeira rotina nomeada como "Private Sub UserForm_Activate()" (que parece incompleta pois não localizei um "End Sub"); e utilizada para povoar um combobox com nomes existentes na tabela,sem repetições; assim como "traz" apenas nome; assim ordenar entre ascendente ou descendente apenas altera a visualização na comobo de A até Z ou de Z ate A.

Já a segunda rotina nomeada como "Private Sub CbxNome_Change()", que deve ser "disparada" quando da seleção/troca de um nome na combobox "CbxNome"; pela composição da clausula/montagem da sql, não há nada que justifique o problema apontado

que retornasse numa combobox o dados mais recente

Aqui o retorno não é em uma combobox, mas sim dados em varias TextBox.
Uma duvida paira quanto ao "termo/campo" Código, se está definido na tabela como numerico é esperado que a função Máx utilizada realizaria o desejado.
Como e dito que não retorna, uma possibilidade e de que "Código" esteja definido como Texto/String (o retorno 01 02 03 e tipico de texto), o que justifica o inconveniente apontado.
Experimente por exempo utilizar o Máx do campo/termo Data
Caso deseje disponha um modelo de seu projeto com alguns dados significativos; e ficticios quando necessario; de sua composição para uma analise mais parametrizada

[Jorge Luiz Nunes]

Boa noite
Caro Reinado, fiz algumas modificações no código vba e na descrição supracitada, pôs estava mal colocada.
A primeira rotina nomeada como "Private Sub UserForm_Activate() funciona normalmente do jeito que gostaria, agora a segunda rotina Private Sub CbxNome_Change() tentei alguns procedimentos não tive êxito.
O nome do campo "Código" é o dado padrão do Access 2007 (numeração automática) acredito que seja do tipo numérico.
tentei usar a linha de comando:
Max(Data)
Max(Data) As Data
Max(Código) As Código
Max(Código)
sempre retorna os dados Código 1 e não do Código 3, realmente não sei como escrever um código que retorne os dados mais recente.
Obrigado pela atenção.

[Reinaldo]

Se possivel disponibilise uma pequena versão de seu modelo (BD e FE) com alguns dados significativos da estrutura; ficticios se necessario; para uma analise

[Jorge Luiz Nunes]

boa noite
Tentei anexar 2 arquivos, mas infelizmente o fórum não aceitou que fosse anexado arquivos.

[Reinaldo]

Para aceitar e preciso que os anexos estejam compactados (Zip/Rar/7z...)

[Jorge Luiz Nunes]

Bom dia
Segue anexo 2 arquivos para analise.

TESTE.zip

(59.05 KiB) Baixado 610 vezes