[Resolvido]Contar Valores Contendo Delimitador

Amigos Boas Noite


Estou com essa situação é queria uma ajuda para resolver conforme abaixo:

Queria contar a quantidade de Notas forme dados abaixo e no banco em anexo


DATA EMISSAO NF'S                                          VALOR MERCADORIA  Qtda_NF
01/02/2022 78591                                                   3.513,92         1
01/02/2022 78495 78512 78678                                 14.637,94         3
01/02/2022 78513 78675                                           5.741,60         2
01/02/2022 78674 78700 78719 78720                           2.551,48         4
01/02/2022 78648 78679                                         11.705,15         2
01/02/2022 78490 78511 78701                                   8.975,08        3
01/02/2022 78534                                                   2.285,32        1
01/02/2022 78622                                                   3.887,16        1
10/02/2022 79856 79857 79858 79859 79860 79861 79862 79863 79864 79865 79866 79867 79868 79869 79870 79871 79872 79873 79874 79903 13.6250,03    20


podemos verificar que temos dados com delimitador (espaço com + de 1 NF'S)
é quando e somente 1 não se tem o espaço


Poderiam me ajudar nessa solução




Um braço à todos....

Em um módulo cole o código abaixo que cria a função

Código:

Public Function fncContadorNFs(ByVal strCampo As String) As Long

    If strCampo = "" Then
        fncContadorNFs = 0
    Else
        fncContadorNFs = UBound(Split(strCampo, " ")) + 1
    End If

End Function

Crie um consulta, adicione os campos das tabelas, e por fim adicione mais um campo com o seguinte texto

Código:

Qtd: fncContadorNFs(Nz([NF'S]))

DamascenoJr. bom dia !!


Ficou Perfeito


Só uma outra dúvida

Como faria para pegar a Primeira nota no campo NF'S no mesmo banco?

pegando os primeiros caracteres até antes do delimitador por o numero da NF é crescentes




Muito Obrigado até aqui

Usando a lógica anterior, bastaria

Código:

Public Function fncPrimeiraNFs(ByVal strCampo As String) As Long

   If strCampo = "" Then
       fncPrimeiraNFs = 0
   Else
       fncPrimeiraNFs = Split(strCampo, " ")(0)
   End If

End Function

DamascenoJr.

Boa noite!


Funcionou perfeitamente muito obrigado!!

O fórum agradece o retorno. Sucesso.