[Resolvido]Criar uma clausula que pesquise o cadastro, caso exista abra um frm

Boa tarde!
Desejo criar um BOTÃO que abra uma CAIXA(Digite o RG) para digitar o RG, Assim realiza uma pesquisa caso exista abra o frm_venda caso não exista abra o FrmCadastro?


No aguardo,
orival junior

Você pode usar o DLookup:

If Not IsNull("RG", "NomeDaTabela", "RG=" & Me.txtRG) Then
    DoCmd.OpenForm "frm_venda"
Else
    DoCmd.OpenForm "frmCadastro"
End If

Basicamente, é o proposto acima, só que assim fica meio incompleto, pois se supõe que ao encontrar o RG digitado no campo txtRG, esse número seja usado no formulário de vendas, certo? Podemos realizar outra pesquisa usando o DLookup para preencher os campos referentes ao cliente no formulário de vendas. Acredito que o campo usado nesse formulário de vendas seja o Código do cliente, que seria a chave primária, certo? Ou a chave primária é o próprio RG? Se for o RG, basta colocar ele no campo da chave primária do cadastro de vendas. Incluindo ele no código acima, fica assim:

If Not IsNull("RG", "NomeDaTabela", "RG=" & Me.txtRG) Then
    DoCmd.OpenForm "frm_venda"
    Forms!frm_venda!RG = Me.txtRG
Else
    DoCmd.OpenForm "frmCadastro"
    Forms!frmCadastro!RG = Me.txtRG
End If

Caso seja outro código, então usaremos o DLookup

If Not IsNull("RG", "NomeDaTabela", "RG=" & Me.txtRG) Then
    DoCmd.OpenForm "frm_venda"
    Forms!frm_venda!RG = DLookup("Código", "NomeDaTabela", "RG=" & Me.txtRG)
Else
    DoCmd.OpenForm "frmCadastro"
    Forms!frmCadastro!RG = Me.txtRG
End If

Observe que no caso de ainda não existir, tambem podemos incluir automaticamente o RG pesquisado no campo do formulário de cadastro.

Criquio boa noite!
Há como eu colocar este codigo no For_Cadastro_Clientes? Penso que ficaria assim: Eu digito o RG caso exista abrira a tela de clientes...caso NÃO....exibe uma mensagem do Tipo( Complete o Cadastro).....

Assim eu mudo o titulo do For_Cadastro_Clintes para CONFIRME RG DO CLIENTE....por exemplo...

Agradeço...
Orival Junior

Não entendi. O que é esse For...? Você disse que queria digitar o RG e abrir um formulário para o caso do RG já estar cadastrado ou outro para o caso de não estar. O que passei acima seria feito em um formulário principal aonde você teria um campo para digitar o RG, o que no caso do exemplo que passei seria o campo txtRG e teria um botão para clicar a fazer a pesquisa para depois abrir o formulário adequado. O código que passei seria colocado no evento "Ao clicar" desse botão.

Desculpa meu caro...eu não tinha entendido onde seria colocado o codigo...vou tentar e retorno...
Obrigdao pela atenção..
ORIVAL JUNIOR

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Boa noite!
Criei um form para pesquisa coloquei um campo Text no Form e coloquei os codigos no botão para pesquisar...retorna erro logo na primeira linha IsNull....

Alguem tem algum exemplo para que eu possa ter sucesso neste quesito....

Obrigado,
orival_junior

Amigão, existem inúmero fatores que podem ocasionar erros, entes eles, nomes de campos ou de elementos errados, sintaxe errada na instrução, etc. Sempre que ocorrer erro, descreva-o para que possamos entender de imediato o que possa ser. Forneça a mensagem de erro quando houver e diga para que linha o vba depura, quando isso ocorrer.

Criquio boa tarde!
Apenas para explicar, este projeto consiste em um Banco de Dados para registrar as ocorrencia que ocorrem na minha empresa. Assim tenho as tabelas de DESCRICAO DA OCORRENCIA e outra envolvidos(os infratores assim digamos).
Caso este infrator ja esteja cadastrado ao digitar o cracha dele em campo texto abre O FORMULARIO DESCRICAO DA OCORRENCIA, CASO não esteja cadastrado abrirá o FORMULARIO CADASTRO ENVOLVIDOS...

Sendo assim coloquei o codigo APÓS ATUALIZAR no campo texto Cracha na pagina inicial do programa..


Private Sub Textprocura_AfterUpdate()

If Not IsNull("Cracha", "Tab_Envolvidos", "Cracha=" & Me.Cracha01) Then 'Entendi que este codigo pesquisa a Tab_Envolvidos onde é a tabela de cadastro principal que contem o Cracha, nome, empresa e veiculo caso este cracha digitado esteja nesta tabela então..[/color]

DoCmd.OpenForm "For_Descricao_Ocorrencia" 'Abra o Formulario de Cadastro da Ocorrencia
Forms!For_Descricao_Ocorrencia!Cracha01 = DLookup("[Nome]", "Tab_Envolvidos", "[Código_Cad_Envolvidos]=" & Cracha01.Value) 'Se o cracha foi encontrado automaticamente retornara o CRACHA, NOME,EMPRESA E VEICULO cadastrados
Else: DoCmd.OpenForm "For_Cad_Envolvidos" 'Ou abra o Formulario de Cadastro caso o cracha ainda não esteja cadastrado
Forms!frmCadastro!RG = Me.txtRG 'Abre o formulario de Cadastro para Cadastrar o envolvido
End If

Esta retornado Erro: Compile error: Wrong number of arguments or invalid property assignment


Á disposição
Orival Junior

Está fazendo fazer a pesquisa, ou seja, está faltando o DLookup:

If Not IsNull(DLookup("Cracha", "Tab_Envolvidos", "Cracha=" & Me.Cracha01)) Then
...

Caro Criquio estamos proximo..
Quando eu digito um crachá já cadastrado...ele esta abrindo o Formulario para cadastro...
Será que esta pesquisando o cracha na tabela Envolvidos?

Orival Junior

Criquio apenas para naum tomar seu tempo....esta quase certo...estou acertando aqui e retorno.
orival junior

Criquio já isto por aqui...apesar de não saber bem o que é...FUNFAR
O Codigo FUNFOU...esta perfeito...
Obrigado pela atenção de sempre..
ORIVAL JUNIOR

Então ficou assim..


Private Sub Textprocura_AfterUpdate()

If Not IsNull(DLookup("Cracha", "Tab_Envolvidos", "Cracha=" & Me.Textprocura)) Then 'Textprocura é o campo que faz a pesquisa do cracha
DoCmd.OpenForm "For_Descricao_Ocorrencia"
Forms!For_Descricao_Ocorrencia!Cracha01 = DLookup("[Cracha01]", "Tab_Envolvidos", "[Código_Cad_Envolvidos]=" & Cracha01.Value)
Else
DoCmd.OpenForm "For_Cad_Envolvidos"
Forms!For_Cad_Envolvidos!Cracha = Me.Textprocura
End If

Bom que deu certo. É devagar que se vai longe. Sucesso.