[Resolvido]Cabeçalho da Página do Relatório de acordo com a Empresa Logada

Bom dia

O meu objetivo ao criar esse tópico e para ver se tem como alterar o cabeçalho da Página do Relatório de Acordo com o Login efetuado. Sendo que deve aparecer os seguintes dados: NomedaEmpresa, Endereco, Bairro, CEP, Cidade, UF, Telefone, Email, Web; todos esses dados estão armazenados em uma tabela de login.
 
Exemplo:
Faço o login como RS Informática, veja:

RS Informática Rua da Araras Nº 630 - Paraisinho 73.770-000 - Alto Paraíso de Goiás/GO Fone: (62) 3446-1954  E-mail: rsinformatica@gmail.com  Web: www.rsinformatica.com

Você pode no momento do login preencher variáveis globais tipo string com as informações da empresa e no evento ao abrir do relatório adiconar essas variáveis à legenda de um rótulo no cabeçalho do mesmo.

Em um módulo você define as variáveis globais

Global strNomeEmpresa As String
Global strEnderecoEmpresa As String
Global strCepCidadeEstadoEmpresa As String
Global strContatoEmpresa As String

No relatório, no evento ao abrir crie um rótulo, como exemplo: rtlCabecalhoEmpresa

E insira as infos com esse código:

Me!rtlCabecalhoEmpresa.Caption = strNomeEmpresa & vbcrlf & strEnderecoEmpresa & vbcrlf & strCepCidadeEstadoEmpresa & vbcrlf & strContatoEmpresa

Leandro, não apareceu nada no relatório.

Veja:

Abra o banco de dados e depois o finicial e faça o login e o botão pra abrir o relatório esta no formMovimento.
Quanquer usuário a senha é 123.

Mas você não carregou as variáveis no formlogin com os dados da empresa?

Não estou dando conta.

Você não teria um exemplo para mim estudar?

Onde no formlogin você insere as informações da empresa?

No formulário, só porque os campos estão não estão visíveis.

Estão como coluna na combo?

Veja eu coloque na combox. E não deu certo.

Dessa forma você carrega as variáveis no evento após atualizar da combo.


exemplo:

strNomeEmpresa = Me!SuaCombo.Column(1) 'Veja o número correto da combo.

Bom dia Leandro
Sim o nome da empresa apareceu mais os outros dados não.

Veja:

Código:

strNomeUsuario = Me.cboUsuário.Column(1)
strNomeEmpresa = Me.cboUsuário.Column(1)
strEnderecoEmpresa = Me.cboUsuário.Column(4)
strCepCidadeEstadoEmpresa = Me.cboUsuário.Column(5)
strContatoEmpresa = Me.cboUsuário.Column(6)

Então veja na combo se as colunas dos outros dados estão informadas para a combo, entendeu?
Você pode ter inserido na combo a sql, mas pode ter deixado sem informar que há tal número de colunas.
Se na sql tiver 10 colunas, nas propriedades da combo tem que estar 10 para que os dados das colunas sejam carregados nas variáveis.

E não esqueça das larguras também.  

Eu mudei o SQL:

Código:

Dim strSQL As String
On Error Resume Next
strSQL = "SELECT ConCod,ConNom,ConSenh,ConEnd,ConBai,ConCid,ConEst,ConCEP,ConTel,ConEml FROM TabCon "
strSQL = strSQL & "WHERE ConBloq =0 ORDER BY ConNom;"
Me!cboUsuário.RowSource = strSQL

Mais apena apareceu o Nome da Empresa, Endereço.

Manda o banco em access 2000, por favor.
Do jeito que você alterou.

Banco de dados.

Veja as alterações na combo e no relatório.

Na combo, eu informei que ela possui 10 colunas, conforme te instruí e você não fez ou não percebeu e coloquei o carregamento das variáveis no evento Após Atualizar.
No relatório, inseri: Me!rtlCabecalhoEmpresa.Caption = strNomeEmpresa & vbCrLf & strEnderecoEmpresa & vbCrLf & strCepCidadeEstadoEmpresa & vbCrLf & strContatoEmpresa
no evento Ao formatar do cabeçalho.

Certo.
Obrigado.

Obrigado pelo retorno e agradecimento.