[Resolvido]Deixar em negrito o texto de todos os campos de um registro selecionado

Num formulário continuo tenho diversos campos.
Como faço para deixar em negrito o texto (de todos os campos) do registro selecionado?

No evento current form:

me.NomedoCampo.FontBold = True

Não deu certo!
Ficou em negrito os campos de todos os registros!
Preciso que fique em negrito só os campos do registro selecionado.
Mas valeu a atenção.
Obrigado

Abra o form no modo design...
Clique na caixa texto, No menu Design na barra de ferramenta do access Va em condicional
Em condição 1 estabeleça as definiçoes que quer, cor da fonte, estilo, cor da caixa...

e coloque a condição Campo com Foco...


Cumprimentos.

Oi
Harysohn.

Assim também não deu certo.

Alterou o campo de todos os registro.
Quero por em destaque só os campos de um único registro (O registro em que estou).

Ex:

COD NOME TELEFONE
1 Maria 2916-0029
2 Paulo 2222-8383
3 José 3333-4343
4 Pedro 9283-8484

Quero, estando no registro 2, que os campos COD, NOME e TELENONE, só do registro 2, fiquem em negrito.
É possível?

Gente, procure sempre informar a versão do Access!

http://dl.dropbox.com/u/26441349/LuisGustavo_26_09_11.rar

Cumprimentos.

Desculpe-me!
Não sabia que haviam diferença entre as versões do Access.
Uso Access 2003

Não observou o exemplo postado acima se lhe serve?

Delculpe-me pela minha ignorançia!!!
Mas é do http://dl.dropbox.com/u/26441349/LuisGustavo_26_09_11.rar que está falando?
Se for, não consegui. Executei e descompactei! Recebo mensagem que o Windows não pode abrir o arquivo.

Estava em 2007

Segue em 2003

http://dl.dropbox.com/u/26441349/LuisGustavo_26_09_11.rar

Cumprimentos.

Você pode criar uma sub-rotina e chamá-la na combo de sua consulta para por em negrito os campos que você desejar desta maneira:
No modo design, na aba Outra => Marca. Coloque -1 nesta Tag de cada campo de seu registo que deseja que fique em negrito

Public Sub PorNegrito()
Dim ctl As Control
Const conVinculado = -1

For Each ctl In Me.Controls
If ctl.Tag = conVinculado Then
If ctl.ControlType = acTextBox Then
ctl.FontBold = True
End If
End If
Next
End Sub

Não estou conseguindo!!!

Por sugestão do amigo good guy fiz as alterações (...modo design, na aba Outra => Marca. Coloque -1 nesta Tag de cada campo de seu registo que deseja que fique em negrito)mas não sei em qual evento por:

Public Sub PorNegrito()
Dim ctl As Control
Const conVinculado = -1
For Each ctl In Me.Controls
If ctl.Tag = conVinculado Then
If ctl.ControlType = acTextBox Then
ctl.FontBold = True
End If
End If
Next
End Sub

O do amigo harysohn (http://dl.dropbox.com/u/26441349/LuisGustavo_26_09_11.rar) é um bom começo, mas não sei como aplicar no meu sistema. No meu formulário continuo quando apertar a tecla enter preciso que haja o descolamento para linha de baixo (próximo registo), ou desclocar de um registro pro outro através das setas ou mouse (para cima ou para baixo), e quando estiver no registro preciso dar destaque a linha toda (só daquele registro).

Em resumo: Continuo "enrolado".

Obrigado aos colaboradores.

Poste parte do seu BD para que possamos lhe ver uma solução..

A principio que que me falou.. o que fiz era suficiente..

Cumprimentos.

vou tentar anexar (Postar) o BD.
É a primeira vez que faço

Harysohn
Como faço para postar meu BD?

Chame o código no evento BeforeUpdate de sua combo. Se você quiser que além de suas caixas de texto as suas combos, as listbox, checkbox também fiquem em negrito, faça como está abaixo. Caso contrário é só suprimi-las do código. Valew?(Obs: Não esqueça de tirar a vírgula também)

Public Sub PorNegrito()
'Código de Eduardo Vieira Machado.
Dim ctl As Control
Const conVinculado = -1

For Each ctl In Me.Controls
If ctl.Tag = conVinculado Then
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox 'é opcional as listboxes, checkboxes
'Ou Case acTextBox, acComboBox
ctl.FontBold = True
End Select
End If
Next
End Sub

Public Sub SuaCombo BeforeUpdate()
Call PorNegrito
End Sub

Agradeço muito o esforço.
Mas infelizmente não está dando certo!!!
Não sei o que estou fazendo errado.

No modo design, na aba Outra => Marca => coloque -1 em de cada campo de meu registo.

No evento Antes de Atualizar, ficou assim:

Private Sub ChequesNúmero_BeforeUpdate(Cancel As Integer)
Public Sub PorNegrito()
Dim ctl As Control
Const conVinculado = -1

For Each ctl In Me.Controls.....(não sei de o Me.Constrols deve ser substituido)
If ctl.Tag = conVinculado Then
Select Case ctl.ControlType
Case acTextBox
ctl.FontBold = True
End Select
End If
Next
End Sub

Public Sub SuaCombo BeforeUpdate()......(esta linha ficou em vermelho)
Call PorNegrito
End Sub

End Sub

Não, meu amigo Luís:

Private Sub ChequesNúmero_BeforeUpdate(Cancel As Integer) 'Esta deve ser a sua combo(caixa de combinação de onde você seleciona o campo clonado e busca o registro que você quer

Call PorNegrito 'Aqui com a instrução Call você chama a sub-rotina PorNegrito
End Sub

Public Sub PorNegrito() 'Esta é a sua sub-rotina com o looping For Each... Next que percorre todos os campos com a marca(Tag) = -1 e deixa em negrito todo o conteúdo do campo
Dim ctl As Control
Const conVinculado = -1

For Each ctl In Me.Controls.....(não sei de o Me.Constrols deve ser substituido)
If ctl.Tag = conVinculado Then
Select Case ctl.ControlType 'Tipo de controle
Case acTextBox 'Caso seja caixa de texto. Você pode acrescentar acComboBox(combo)
ctl.FontBold = True
End Select
End If
Next
End Sub


Observe bem se ChequesNúmero for uma combo de pesquisa funcionará sem problema. No evento AfterUpdate deve haver ou uma macro ou um código que faz a pesquisa.

Caso ainda haja dúvidas: Poste seu bd em um dos seguintes sites:

www.esnips.com ou www.4shared.com

Nota: SuaCombo aqui é apenas um exemplo sem significado refere-se a ChequesNúmero

Amigão
Ta valendo a ajuda.
Obrigado.

Postei o BD no www.4shared.com conforme sua orientaçao, veja:

http://www.4shared.com/document/pKmO82iJ/Registro_-_Linha_em_Negrito.html

Abraços

Luiz Gustavo

Bom dia Luís,

De meu computador no meu trabalho não me é permitido visualizar ou baixar seu arquivo. Vou ver se acho um computador particular com algum amigo aqui. Caso contrário aguarde até mais à noite. Enquanto isso, vamos tentar resolver seu problema de outra maneira. Qual é o objeto ou controle (para você entender melhor) que a partir dele você quer deixar todos os campos em negrito? Novamente, se for uma combo (caixa de combinação) que você arrastou da barra de ferramentas, só me diga o que está no evento AfterUpdate: uma macro ou um código? Pense com cuidado para a gente tentar te ajudar. Poste aqui o código.
Se for realmente uma combo o seu objeto coloque no evento BeforeUpdate desta combo:

Call PorNegrito

Muito obrigado amigo pela atenção que vem dando.
Como já disse, sou um bebê no que tange a Access e VBA.
Tenho dificuldades de entendimento dos termos, funções, expressões!!!

Mas vamos lá, vou tentar expor:

Tenho duas tabelas: BANCO (campos: COD e NOME) e CHEQUES (Campos: COD, NUM, DATA e VALOR)
Tenho um formulário BANCO e subformulário CHEQUES.
No formulário BANCO tenho uma caixa de combinação onde seleciono um dos bancos cadastrados (COD da tabela BANCOS).
No subformulário CHEQUES, que é um formulário contínuo, tenho as caixas de texto COD, NUM, DATA e VALOR, dados estes que vem da tabela CHEQUES, porem são fitrados pelo valor (COD) inserido na caixa de combinação do formulário BANCO.

O sub formulário (Continuo) é uma lista onde aparece em cada linha o COD, NUM, DATA e VALOR. Quero "navegar" neste subformulário usando as setas do teclado ou PageUp e PagDown. Não quero ir de caixa de texto em caixa de texto, que ir de linha em linha e preciso que, quando estiver em uma linha (Registro), está linha (todas as caixas de texto) fique em destaque (Texto em negrito ou cor de fundo da linha toda diferente ou uma borda escura em toda a linha). Obs: Uso o Access 2003

É isto aí amigo.
Mais uma vez
Obrigado
Abraços

Olá Luís,

Andei estudando o seu bd e verifiquei o seguinte: o código que lhe dei só funciona em formulário simples e em formulário contínuo deixa todas as linhas em negrito e isto é o que você não quer, não é mesmo? Portanto, o ideal no seu caso é trabalhar com ListBox. Grande parte dos programadores trabalham com ListBox. Em uma única ListBox no seu formulário modifique o seu código para que a origem do controle alterne pela seleção de sua combo. Na ListBox aí sim você ficará em destaque o item selecionado. Você poderá modificar a cor do fundo e o item selecionado terá um cor diferente. Vá testando para a cor que melhor lhe convir. Qualquer coisa me avise.

Usando o ListBox eu consigo fazer.
O problema é que realmente preciso de um formulário contínuo.

Nossa!
Ésta é uma aplicação tão comum nos aplicativos que vejo que pensei que fosse algo simples!!!

Já fiz inúmeras pesquisas e estou há alguns dias com o tópico em aberto aqui no forum e não consegui uma solução!!!

Estou quase desistindo.
Será que não é possivel, no Access, usar esta rotina?

Olá Amigo

Segue exemplo:

Baixe aqui o exemplo

Observe que criei um campo na tabela, chamado de status. Veja também no eveno "No atual" um pequeno código utilizado, que controla o campo status. Este campo Status serve para configuração da formatação condicional de cada campo.

No exemplo abaixo tem um código para navegação (não testei)

Baixar exemplo navegação

Bom estudo!

Agradeço pelos 2 otimos exemplos mestre avelino

Olá Avelino.

Muito obrigado por sua atenção.
Parabéns por sua didática.
De uma forma simples, clara e concisa, você, além de ajudar-me na solução do problema, transmitiu-me conhecimento.

Fiquei com uma dúvida: - no evento "Ao receber foco" do campo NOME você colocou um código: Me!Nome.SelStart = Len(Me!Nome & ""). Não entendi o por quê? Não o utilizei em meu sistema e está funcionando.

Parto agora em busca da solução para outro desafio: A formatação condicional permite no máximo 3 condições e meu sistema requer 6.

Meu muito obrigado a você Avelino e a todos os outros colaboradores, em especial aos senhores Harysohn e Good Guy.

Saudações

Olá Luiz

Quando o campo recebe o foco é marcado todo o texto. Qualquer bobiada com o teclado vc apaga o conteúdo do campo e isso é muito comum de acontecer. O que o SelStart faz neste caso é posicionar o cursor no final do texto, evitando com isso o problema citado.

Lista aqui as suas 6 condicionais para verificarmos se há outro caminho.

No aguardo

Oi
Avelino
Vamos lá!

Só relembrando:(access 2003), num formulário (Cheque) tenho uma caixa de combinação (ChequesBanco), dentro dele tenho um sub formulário continuo (Cheques Subformulário) cujo a fonte de registro é uma consulta (ChequesCadastradosPorBanco)com os campos:(ChequesCod, ChequesBanco, ChequesNúmero, ChequesStatus, ChequesData, ChequesValor e Neg)oriundos da tabela (Cheques). A consulta (ChequesCadastradosPorBanco)tem um filtro ([Formulários]![Cheques]![ChequesBanco]). No sub formulário continuo (Cheques Subformulário)tenho os campos (ChequesCod, ChequesBanco, ChequesNúmero, ChequesStatus, ChequesData, ChequesValor e Neg) e todos eles, exceto o campo (Neg), são bloqueados e não permite a Auto Tabulação ou Parada de Tabulação (A intenção é navegar pelos registros e não pelos campos. A navegação ocorrerá através setas, para cima ou para baixo, e através das teclas pg up e pg dn). o Campo (Neg) foi criado (Avelino Sampaio) para criar uma condição (0 ou -1), ou seja, para dar destaque (Texto negrito ou cor do campo, ou ambros) para todos os campos daquele registro. No evento (No Atual) do sub formulário (cheques Subformulário), temos:

'por Avelino Sampaio...
Private Sub Form_Current()
CurrentDb.Execute "update Cheques set neg = 0;"
Me.Repaint
Me!Neg = -1
DoCmd.RunCommand acCmdSaveRecord
End Sub

Formatação que necessito para os campos

1 - Campo [Neg]= -1: Texto negrito e cor amarela para os campos ChequesNúmero, ChequesStatus, ChequesData e ChequesValor
2 - Campo [ChequesStatus]= "Disponível"; Texto preto / "Utilidazo"; Texto azul / "Cancelado"; Texto preto (para os campos ChequesNúmero, ChequesStatus, ChequesData e ChequesValor)

Abraços

Luiz Gustavo

Segue modificações.
O campo NEG não precisar ficar visível

Baixar exemplo

No aguardo

Valeu Amigão!!!
Por hora vou adotar esta solução.
No entanto, minha intenção era:

> se [Neg] = 0 e [ChequesStatus] = "Disponível"; textos preto normal e campos fundos transparentes.
> se [Neg] = 0 e [ChequesStatus] = "Utilizado"; textos azul normal e campos fundos transparentes.
> se [Neg] = 0 e [ChequesStatus] = "Cancelado"; textos vermelho normal e campos fundos transparentes.
> se [Neg] = -1 e [ChequesStatus] = "Disponível"; textos preto negrito e campos fundos cinza.
> se [Neg] = -1 e [ChequesStatus] = "Utilizado"; textos azul negrito e campos fundos cinza.
> se [Neg] = -1 e [ChequesStatus] = "Cancelado"; textos vermelho negrito e campos fundos cinza.

Acho que através da formatação condicional do access não será possível, talvez seja possível através de códigos do VB, mas aí ultrapassa em muito meus conhecimentos.

Valeu!!!
Forte abraço
Obrigado

Funcionou a dica do Good Guy - mas em MODO DE FOLHA DE DADOS, não.  Temos como adaptar?


Private Sub Form_Current()
Call PorNegrito
End Sub


'Esta é a sua sub-rotina com o looping For Each... Next que percorre todos os campos com a marca(Tag) = -1 e
'deixa em negrito todo o conteúdo do campo
Public Sub PorNegrito()
Dim ctl As Control
Const conVinculado = -1

For Each ctl In Me.Controls '.....(não sei de o Me.Constrols deve ser substituido)
If ctl.Tag = conVinculado Then
Select Case ctl.ControlType 'Tipo de controle
Case acTextBox 'Caso seja caixa de texto. Você pode acrescentar acComboBox(combo)
ctl.FontBold = True
End Select
End If
Next
End Sub