Mauro, boa noite! Postei o meu modelo reduzido. Poderia dar uma olhada nele para mim? Sds,

Mauro, Segue em anexo o modelo reduzido! Tentei fazer a consulta dos valores para o carbono, semelhante à consulta entre datas. Mas acontece que n...

  Private Sub MontaClausulaWhere(ByVal NomeControle As String, ByVal NomeCampo As String, ByRef sqlWhere As String)'NomeDoContatoIf Trim(Me.Con...

Reinaldo, Deu certo usando assim: sqlWhere = sqlWhere & " UCASE(status) LIKE UCASE('" & Trim(lstStatus.List(i - 1)) & "')...

Reinaldo, Na verdade onde teremos que mexer, é na Private Function PreecheRecordSet, veja: 'Status For i = 1 To lstStatus.ListCount ...

Reinaldo, Valeu pela grande dica! Esta linha de código me ajudou muito.

Wagner, bom dia! Você conseguiu baixar o meu exemplo? Sds, Diovanino Cássio

Senhores, Compartilhei no OnDrive, segue o link: Sds, Diovanino Cássio

Eu já tenho um modelo pronto, mas não consegui anexá-lo, pois o mesmo tem 805KB, e o fórum só permite, anexo até 50KB. Existe alguma outra forma de an...

Senhores, Após várias pesquisas e inúmeros testes, descobri que o problema estava relacionado ao PROVEDOR: - Apresentava o erro: .Provider = "Mi...