VBA - Função DMin interligada com DateSerial

Boa tarde

Estou a desenvolver uma procura da hora mais pequena situada numa determinada data.

A tabela de registos tem hora de inicio, hora fim, data, etc... Nesta tabela poderá haver várias horas de inicio para a mesma data.

Num form tenho caixas de texto com ano e mês.

Para o caso, em VBA defino a data através de dateserial (caixa de texto x, caixa de texto y, 1) , ou seja vai-me dar a seguinte data 1/4/2019

A minha procura terá por base DMin, procurando a hora de inicio, na tabela, campo data = dateserial.

Ao fazer isto, não estou a conseguir preencher o campo de resultado da procura ficando em branco, contudo se o meu dateserial for preenchido com (2019,04,1), a hora de inicio que procura aparece visível no campo de procura conforme esperado. O que estarei a fazer mal? abaixo segue o código que estou a utilizar:

hedm1 = DMin("[Hora início]", "tbRegisto de Horas", "[Data] = #" & DateSerial(Form_frAssid.Ano, Form_frAssid.mes.Column(0), 1) & "#")

Obrigado
 
Back
Topo