[Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

Bd em Access 2010.

Formulários e campos envolvidos:

Formulário "DevolucaoRemessa": Campo: txtChaveNFe -> Origem: tbl_Compras.CHAVENFE

Formulário "Vendas": Campo: txtREFNFE -> recebe o conteúdo do campo txtChaveNFe ((Formulário DevolucaoRemessa) -> Forms!Vendas.txtREFNFE = txtChaveNFe)


No formulário Vendas há um botão que abre o formulário DevolucaoRemessa a fim de importar para o formulário Vendas, os dados da nota fiscal que será devolvida.
Até aqui o sistema está funcionando perfeitamente.
O problema é que da maneira que está, só é possível armazenar a chave de uma nota... e há casos em que são devolvidas várias notas em uma única nota.
Assim, se ainda dentro do mesmo registro no formulário Vendas, eu buscar uma outra nota a ser devolvida, o chave desta sobrepoem a anterior e assim por diante, pois não há um limite da quantidade de notas a ser devolvida, pode ser apenas uma ou vinte notas de uma vez.

Consultei os tópicos relacionados à "concatenar" nesse Fórum e na internet, mas não encontrei nenhum parecido com este caso.

Existe uma maneira para concatenar o número dessa chave, de forma que não tenha um limite de quantidade de chaves buscadas sem que sejam sobrepostas?

Desde já agradeço!

.

Bom dia,
Se resolveu, convém que explique como, para que ajude outros colegas que tenham o mesmo problema

Alexandre, bom dia!

Na verdade não consegui resolver... Essa questão envolvia muito mais do que eu imaginava... tive que contratar um profissional em desenvolvimento de sistemas da área da NFe para resolver.

Assim, infelizmente não sei explicar os todos ajustes feitos por ele, pois ainda tenho pouco conhecimento em VBA, além de ter sido feito por conexão remota (tudo feito muito rápido e sem muitas explicações).

Por não ter essa segurança em passar as informações, temo por induzir os colegas ao erro.

No mais peço desculpas, pois só tenho a agradecer a colaboração deste forúm.

Sei que foi criada uma tabela "tbl_VendasChaveNFe" para armazenar as chaves e criado um módulo com duas funções para concatenar quando houver mais de uma chave:


Public Function NFe_Referenciada(ByVal NUMEROPEDIDO As String)

Dim ide_NFRefs As String ' Declara a variável que vai receber o XML das notas fiscais referenciadas

Dim objNFeUtil As Object
Set objNFeUtil = CreateObject("NFe_Util_2G.Util")

Dim ssql As String
Dim rst As DAO.Recordset

ide_NFRefs = ""
ssql = ""
ssql = "Select * From tbl_VendasChaveNFe where NUMEROPEDIDO='" & NUMEROPEDIDO & "'"


Set rst = CurrentDb.OpenRecordset(ssql) 'abre o recordeset
While (Not rst.EOF)


ide_NFRefs = ide_NFRefs & objNFeUtil.NFeRef(rst("REFNFE").Value)

rst.MoveNext

Wend

rst.Close

Set rst = Nothing


NFe_Referenciada = ide_NFRefs


End Function

'----------------------------------------------------------------------------------------------------------------

Public Function Concateca_NFeRef(ByVal NUMEROPEDIDO As String) 'Chamon 04-10-2016


Dim ssql As String
Dim rst As DAO.Recordset

ide_NFRefs = ""
ssql = ""
ssql = "Select * From tbl_VendasChaveNFe where NUMEROPEDIDO='" & NUMEROPEDIDO & "'"


Set rst = CurrentDb.OpenRecordset(ssql) 'abre o recordeset
While (Not rst.EOF)


ide_NFRefs = ide_NFRefs & ";" & rst("REFNFE").Value

rst.MoveNext

Wend

rst.Close

Set rst = Nothing


Concateca_NFeRef = "NFe Referenciada: " & Mid(ide_NFRefs, 2)


End Function

Obrigado