Bom dia,
Peço a vossa ajuda para o seguinte:
Necessito ter o resultado de uma consulta numa texbox de um Relatório.
O resultado é uma String que pode vaiar entre 0 e 4 linhas.
Uma forma de resolver é colocar uma ListBox (ListBoxA) Invisível com a Consulta na origem dos dados, para depois colocar os resultados na TextBox (txtBoxB) com o seguinte código:
Não haverá uma forma mais simples?
Obrigado
Peço a vossa ajuda para o seguinte:
Necessito ter o resultado de uma consulta numa texbox de um Relatório.
O resultado é uma String que pode vaiar entre 0 e 4 linhas.
Uma forma de resolver é colocar uma ListBox (ListBoxA) Invisível com a Consulta na origem dos dados, para depois colocar os resultados na TextBox (txtBoxB) com o seguinte código:
- Código:
Dim i As Integer, S As String
With Me.ListBoxA
For i = 0 To .ListCount - 1
S = S & .ItemData(i) & "; "
Next
End With
S = Left(S, Len(S) - 2)
Me.txtBoxB = S
Não haverá uma forma mais simples?
Obrigado