Convidado 12/6/2011, 03:47
Vou fazer um exemplo com seu banco de dados, mais por enquanto eu vou só colocar a explicação.
1. Crie um forrmulario com o nome desejado.
2. Depois crie uma caixa de listagem com a tabela desejada
3. Agora vamos configurar a caixa de combinação para quando clicar em cima de algum registro apareça o formulario de cadastro para poder alterar os dados. É o seguinte:
No evento ao clicar da Caixa de Listagem coloque o seguinte codigo:
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = " nome do formulario de cadastro"
stLinkCriteria = "]chave primaria da tabela]=" & Me!]nome da caixa de listagem]
DoCmd.OpenForm stDocName, , , stLinkCriteria
4, Vamos agora configurar a Pesquisa. Para isso crie uma caixa de texto com o nome desejado
5. Vamos aos codigos:
No evento apos atualizar da caixa de texto coloque:
Me.nome da caixa de listagem.Requery
E no evento ao alterar da caixa de texto coloque:
Me.Recalc
SendKeys "{F2}"
6. Depois vá em propriedades da caixa de listagem vá em origem da linha e clique nos tres pontinhos. Ai abrirá o construtor de consultas com os campos que contem em sua caixa de listagem.
7. Agora nosso ultimo passo. Colocar o ltimo codigo. Como por exemplo:
Se você quiser que a caixa de texto pesquise o Nome do Cliente ou outro campo é só colocar no Criterio da consulta deste campo o seguinte codigo:
Como [forms]!]nome do formulario onde esta a caixa de listagem]!]nome da caixa de texto] & "*"
Observações: Todos as letras em vermelhas significa no de algum formulario, caixa de listagem, caixa de texto e outros.
Início
