Data: 2010-04-26 | Author: JWBizDê uma olhada nas esta poderosa técnica avançada para adicionar cor codificação lógica para seus formulários.
Color coding agrega valor a uma forma fácil, uma vez que direciona o olhar do usuário para os dados críticos. Esta é uma poderosa técnica que permite que um usuário para avaliar rapidamente uma páginas de dados para erros ou informações advertência.
Access 2000 para o Access 2003 tem um limite de quatro cores que você pode usar para cada campo em um formulário contínuo. Usando a condição descrita neste código methos ponta, não há limite para a lógica que você pode aplicar para definir o campo de uma das quatro cores opções.
Criar uma tabela nome é ColorCoding
Digite os seguintes campos (sem os números)
1] CntrID como AutoNumeração, torná-lo o principal campo chave
2] Cntname como texto
3] WorkDesc como texto - os dados deverão ser "min" ou "maj"
4] EMR como o número, o único - os dados devem ser qualquer inteiro entre 1 e 10
5] aggdate como data / hora
6] aggamnt como moeda
7] wcompdate como data / hora
8] wcompamnt como moeda
9] concode como número, tempo inteiro neste campo será calculado por forma a deixar em branco.
Digite alguns dados na tabela para o teste.
Crie um formulário contínuo estilo usando o formulário ColorCoding tabela como a fonte de dados.
Adicionar um formulário cabeçalho / rodapé.
Coloque um formulário de título, sob a forma cabeçalho seção do formulário (opcional).
Utilize as outras guia sobre as propriedades formulário e atribuir a cada campo do mesmo nome, uma vez que o controlo da fonte. Então, o nome [EMR] campo "EMR", por exemplo. Então você pode usar o campo nomes como variável nomes quando você criar código VBA.
Adicione todos os campos para a tabela e alinhar a linha em um campo com a etiqueta acima de cada campo, mas na forma cabeçalho sectionof o formulário.
Isso deve deixar uma linha de campos na seção detalhe do formulário.
Coloque um botão no rodapé com a legenda refresh.
No modo design do seu formulário, escolha Formatar / Condicional formating.
Use o comando Mid para verificar a condição de um personagem em código e definir o seu estado cores. Olhe para o [EMR] campo. É o quarto campo da esquerda. O comando Mid direciona Acesso para verificar o domínio concode na quarta chracter lugar para um espaço de 1 caracteres para o valor de 3.
Definir as condições como esta
Deixe o padrão de formatação para definir fundo branco e preto cor.
Expressão é Mid ([concode], 4,1) = "3" Escolha uma cor - vermelho para eu usar 3 ou não uma condição
Expressão é Mid ([concode], 4,1) = "2" Escolha uma cor - eu uso amarelo para 2 ou uma condição de aviso
Expressão é Mid ([concode], 4,1) = "1" Escolha uma cor - verde eu uso para 1 ou passar uma condição
Repita este procedimento para cada campo que você deseja definir as condições em. Note que cada personagem da condição código a partir da esquerda para a direita irá representar um respectivo campo da esquerda para a direita. Então, um 3 em 2 lugar na condição de campo código irá definir o CntName campo para vermelho. Veja o campo números acima. Posteriormente campos seguir a mesma seqüência.
Só mais um exemplo para o [aggdate] campo condtional o formato seria algo parecido com:
Expressão é Mid ([concode], 5,1) = "3" Escolha uma cor. Este
A condição campo Código, [concode], os valores são criados com qualquer lógica que pretende atribuir a ela. Neste exemplo estou usando oito campos assim conidition o código é de oito caracteres de largura e cada personagem poderia ser qualquer um 0,1,2, ou 3. Então, ela pode ser assim 10112321. Agora, usando o comando meados acima, o quarto personagem é um 1 para a condição para o quarto campo, [EMR], seria um 1 que as condições para verde.
Depois de ter a forma projetados e testados, você pode querer voltar e definir o campo para concode invisível. Seus usuários não precisam de ver que os dados.
Depois de ter criado o formulário de aplicar o seguinte código. Você pode recortar e colar esse direito no formulário, se você usou os mesmos nomes campo descrito sem digitação.
Corte aqui --------
Option Compare Database
Dim rec Como DAO.Recordset
Dim db Como Database
Função Pública SetConCode ()
On Error GoTo erout
Dim Xcode (10) As Integer, x As Integer, ccode As String, y As Integer
«Xcode valores 1 = verde, 2 = amarela, 3 = vermelho, 0 = branco
'Usar a linha seguinte, se tiver centenas de registros e não quiser esperar no ecrã para actualizar
«DoCmd.Echo Falso
'Definir o campo contador a zero
x = 0
«incremento do campo contra as you go
x = x + 1 'Passo 1
If IsNull (CntrID) Then
Xcode (x) = 0
Diferente
Xcode (x) = 1
End If
x = x + 1 'Step 2
If IsNull (Cntname) Then
Xcode (x) = 0
Diferente
Xcode (x) = 1
End If
x = x + 1 'Passo 3
If IsNull (WorkDesc) Then
Xcode (x) = 0
Diferente
Xcode (x) = 1
End If
x = x + 1 'Passo 4
If IsNull (EMR) Then
Xcode (x) = 0
ElseIf EMR 3 E EMR
Article Source : http://www.muitoartigo.com/MS-Access-Tutorial-Como-usar-cores-Codificação-para-reforçar-as-suas-aplicações_119353/