[Resolvido]Preencher campo desvinculado em Form

Bom dia,
Precisava da preciosa ajudo do forum para resolver este problema.

Tenho um form contínuo onde o campo "txtAssunto" está desvinculado. Eu queria que no Load do form o mesmo fosse preenchido com os dados do campo "Tipo" da tabela "tblCorrespondencia".
Estou a usar um TempVars e pensei usar o select, mas não está a funcionar. Podem ajudar?

Código:

If TempVars!TipoES = "Entrada" Then
      
           Dim strAssuntoEntrada As String
                strAssuntoEntrada = "SELECT tipo FROM Correspondencia WHERE ID = '" & Me.ID & "'"
            Me.txtAssunto = strAssuntoEntrada
            
                
    Else
           Dim strAssuntoSaida As String
                strAssuntoSaida = "SELECT tiposaida FROM Correspondencia WHERE ID = '" & Me.ID & "'"
            Me.txtAssunto = strAssuntoSaida
      
    End If

Grande abraço, obrigado.

Philipe

Experimente assim

Faça uma consulta seleção, colocando nela as 2 tabelas, primeiro a tabela do form contínuo e depois a tblcorrespondencia

Puxe os campos que deseja no form continuo da primeira tabela e o campo tipo da segunda tabela.

Utilize essa consulta como Fonte de registro do form contínuo.

É isso.

Quanto ao campo tipo, você pode colocar na legenda desse controle o nome que deseja (txtAssunto)

Obs.: Esse exemplo irá funcionar somente se foi feito o relacionamento das duas tabela através do ID dos registros

[ ]'s

Noobezinho,
Obrigado pela sua ajuda.

Sucede que eu apenas tenho uma tabela: "correspondencia".
Será que me pode ajudar a construir o código para preencher o campo "txtAssunto", com base na tabela "correspondência", onde campo ID é igual ao campo Me.ID do Form Contínuo.

Obrigado.

Bem, agora fiquei na dúvida.

Tens uma tabela e um formulário.

Tens o campo 'tipo' nessa tabela e quer que o que o controle desacoplado "txtAssunto" do formulário, desta tabela,

seja preenchido com o valor do campo tipo.

É Isso?

Aguardo...

Se calhar não fui claro, mas é isso mesmo que acabou de dizer.
Tenho o campo "tipo" na tblCorrespondencia e queria que o campo desacoplado do "txtAssunto" do form seja preenchido com o valor do campo Tipo da tabela.

O "ControlSource" também serviria para resolver?

Obrigado

Felipes


Na folha de propriedades da caixa de texto "txtAssunto", na propriedade Fonte do controle, coloque:

= [tipo]


[ ]'s

Boas,

Sim, dessa forma eu sei fazer. Precisava era de ajuda em VBA para no load do form o compo desacoplado "txtAssunto" fosse carregado consoante o TempVars!TipoES.
Se TempVars!TipoES="Entrada" a origem seria o campo "Tipo" da Correspondencia, se TempVars!TipoES="Saída", a origem seria o compo "TipoSaida".

Obrigado pela ajuda

Entendi

Isso que colocou no teu código não funciona:

strAssuntoEntrada = "SELECT tipo FROM Correspondencia WHERE ID = '" & Me.ID & "'"

Apenas definiu uma sentença SQL para a variável strAssuntoEntrada , não é uma consulta.

Melhor enviar  a tabela e o formulário com alguns registros para se analisar.

Edit:

Antes, experimente assim:

Crie uma consulta seleção da tabela e  adicione o seguinte:

SELECT Correspondencia.NOMECAMPO, Correspondencia.NOMECAMPO, Correspondencia.NOMECAMPO, Correspondencia.NOMECAMPO, Correspondencia.NOMECAMPO, IIf([Correspondencia].[tipoES]="Entrada",[Correspondencia].[tipo],[Correspondencia].[tiposaida]) AS txtAssunto
FROM Correspondencia;

Substitua os campos pelos campos da tua tabela, NOTE que já coloquei os campos no IIF() (Seimed()), em negrito.

Teste se a consulta funfa e  então use-a como Fonte de registro do formulário.


[ ]'s

Boas.
Obrigado pela ajuda.
Resolvi de outra maneira.
No form coloquei todos os campos que queria e no load, consoante o tempVars mostra ou esconde.
Não é a melhor solução, mas resulta bem.
Obrigado.

Ótimo que conseguiu.

As instruções que passei, estão funcionando  aqui na minha máquina.

É uma simples consulta, sem precisar de código VBA.

Valeu o retorno

Boa sorte