MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Pesquisa em form desvinculado

    Compartilhe
    avatar
    Jocion
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 06/05/2015

    Pesquisa em form desvinculado

    Mensagem  Jocion em Seg 24 Jul 2017, 13:45

    Bom dia pessoal,
    Preciso de ajuda...

    Tenho uma tabela tbtresecao com os campos secao, zona, local, bairro, cidade, estado. e um formulário desvinculado para realizar pesquisa nessa tabela através de duas caixas de textos respectivamente, txzona e txsecao, ao encontrar o registro exibir o resultado nas caixas de textos txlocal, txbairro, txcidade e txestado. Se não encontrar nenhum registro relacionado a zona e secao, exibir uma mensagem informando e perguntando se o usuario quer cadastrar, se sim, então abri o formulário de cadastro frmzona.

    De já agradeço a atenção de todos.
    Obrigado.

    joão2017
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 16/09/2017

    Re: Pesquisa em form desvinculado

    Mensagem  joão2017 em Qui 05 Out 2017, 01:38

    Boa noite!Caso não tenha conseguido ainda, faça a pesquisa com duas combobox em lugar de txt.
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 524
    Registrado : 18/01/2013

    Re: Pesquisa em form desvinculado

    Mensagem  CassioFabre em Seg 09 Out 2017, 19:07

    Boa tarde,

    Supondo que tenha um botão "pesquisar" coloque no clique:

    Código:
    If isnull(txzona) = false and isnull(txsecao) = false then
    dim db as database
    dim rs as recordset

    set db = currentdb
    set rs = db.openrecordset("SELECT * FROM tbtresecao WHERE zona = " & txzona & " and secao = " & txsecao & "")

    if rs.recordcount = 0 then
        If msgbox("Dados não encontrados para zona e seção. Deseja cadastrá-los?", vbquestion + vbyesno, "Cadastro") = vbYes Then docmd.openform "frmzona"
    else
        txlocal = rs!local
        txbairro = rs!bairro
        txcidade = rs!cidade
        txestado = rs!estado
    end if

    rs.close
    db.close
    else
    msgbox "Informe a zona e a seção!", vbExclamation, "Pesquisa"
    end if

    Obs.: estou supondo que os campos na tabela sejam zona e secao e sejam do tipo numérico. Além disso, supus também que os outros campos sejam de mesmo nome, descontando-se os prefixos, dos campos do formulário.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

      Data/hora atual: Sab 18 Nov 2017, 08:04