[Resolvido]Relatório de retorna o campo desejado.

Banco de Dados

Boa noite

Estou precisando de uma ajuda com um relatório.

É o seguinte.

Dentro da caixa no relatório a mesma recebesse o campo "txt_turista" cujo o campo
"txt_poltrona" obtiver o valor da caixa, que esta enumerada de 1 a 8.

Exemplo: Se o campo txt_poltrona estiver com o valor =1, este ira retornar para o campo "txt_1" o valor do campo "txt_turista" e assim sucessivamente.
Não teria problema eu ter que fazer um comando para cada caixa. Mais este comando eu ainda não encontrei.


Desde já agradeço.

Bom dia amigo, seria bom o banco para entender melhor, se eu entende corretamente tente assim.

no campo do set txt_1 coloque assim

=seimed([txt_poltrona]=1;[txt_1]=[txt_turuista];"")

Bom dia

Eu postei o banco de dados sim

link do banco de dados:
Click aqui: Banco de Dados


Mesmo assim vou verificar sua resposta.

Tópico movido da sala de formulários, afinal, trata-se de dúvidas no objeto relatório. Favor atentar-se a descrição de cada sala antes de abrir tópicos.

Veja ai

Usando a função Split

Public Function NPoltrona()
   'maximos access
   'desenvolvido por Scandinavo 03/11/2020
   
   Dim ctl As Control
   Dim k 'recebe o nome do campo usando a fun??o Split
   Dim M As Integer 'converto ele para numero
   Dim rs As Recordset
   'chama a consulta com os turista e poltronas
   Set rs = CurrentDb.OpenRecordset("cons_turista")
   Do While Not rs.EOF 'come?a do ini?io
         
      For Each ctl In Me.Controls 'Passo por todos os controles
      Select Case ctl.ControlType 'seleciona o tipo de controle
      Case acTextBox 'caixa de texto
     
       'utilizo a fun??o Split para separar o numero do texto
        k = Split((ctl.Name), "_") 'usa como separador o _ que esta no nome das caixas de texto
        M = k(1) 'repassa a variavel em forma de numero
   If M = rs!poltrona Then 'faz a compara??o
        ctl = rs!turista  'o controle recebe o nome do turista
       
   End If
     
       End Select
 
       Next ctl
     
   rs.MoveNext 'Movo para proximo registro ...
   Loop


Set rs = Nothing


End Function

e no evento ao formatar do relatório
chame a função.

Boa Noite

Haveria possibilidades de acrescentar neste código uma função que ele abrisse o formulário aberto no momento?

Código:

Usando a função Split

Public Function NPoltrona()
   'maximos access
   'desenvolvido por Scandinavo 03/11/2020
  
   Dim ctl As Control
   Dim k 'recebe o nome do campo usando a fun??o Split
   Dim M As Integer 'converto ele para numero
   Dim rs As Recordset
   'chama a consulta com os turista e poltronas
   Set rs = CurrentDb.OpenRecordset("cons_turista")
   Do While Not rs.EOF 'come?a do ini?io
        
      For Each ctl In Me.Controls 'Passo por todos os controles
      Select Case ctl.ControlType 'seleciona o tipo de controle
      Case acTextBox 'caixa de texto
    
       'utilizo a fun??o Split para separar o numero do texto
        k = Split((ctl.Name), "_") 'usa como separador o _ que esta no nome das caixas de texto
        M = k(1) 'repassa a variavel em forma de numero
   If M = rs!poltrona Then 'faz a compara??o
        ctl = rs!turista  'o controle recebe o nome do turista
      
   End If
    
       End Select
 
       Next ctl
    
   rs.MoveNext 'Movo para proximo registro ...
   Loop


Set rs = Nothing


End Function

Pois eu tentei colocar na consulta, porém não deu certo.
E outra coisa, de acordo com a quantidade de poltronas, ele abre uma página.
Se tem 10 poltronas, ele abre 10 páginas. E os 10 quadros ficam preenchidos.

Desde já agradeço.

Veja ai
Primeiro abra o formulário para depois executar a consulta.
no relatório mudei os campos para o cabeçalho da pagina.

Deu certinho.


Muito Obrigado.