Olá...
Estou com um probleminha para construir uma consulta SQL que separe, para um determinado código de produto, apenas o registro de seu último movimento.
O nome da tabela é TbAndamento, e o nome do campo (tipo date) é Retirada.
Tentei assim (mas não deu certo):

 

Option Explicit
Dim BD as DataBase
Dim TbAndamento as RecordSet

 

Private Sub cmdLocalizar_Click()
    Dim Localizar As String
    Localizar = InputBox("Coloque o código do remédio:", "Localizar medicamento")
    Set TbAndamento = BD.OpenRecordset("Select * from Tbandamento Where Max(Retirada)", dbOpenTable)
    If TbAndamento.RecordCount = 0 Then
        MsgBox "Registro não encontrado...", 64, "Aviso"
    Else
        AtualizaFormulario
    End If
End Sub

 

Alguém pode ajudar?