Assis em Sab 29 Fev 2020, 6:10 am
Bom dia Damasceno
Por mais que tente não consigo desmembrar a BD para postar, dividida , nem todos os utilizadores tem acesso a todas os formulários.
O campo Encomenda é "Texto"
"EncomendaN" é uma consulta filtrada para e dar a numeração por Loja, e Operação, que depois de executada só mostra 1 linha
Acontece que quando esta consulta "EncomendaN" tem dados a numeração funciona perfeito.
O problema é quando a consulta "EncomendaN" não tem dados e eu queria que nesse caso o resultado fosse "0012020"
Me.Encomenda = Format(Mid(DLast("Encomenda", "EncomendaN", "loja = '" & Me.Loja & "' and " & "operação='" & Me.Operação & "'"), 1, 3) + 1, "0000") & Year(Date)
Obrigado desde já se me conseguir ajudar, se não conseguir .... Obrigado na mesma
Obrigado