none
Consultar registro existente durante cadastro RRS feed

  • Pergunta

  • Olá.

    Estou fazendo uma agenda no access e gostaria de uma ajuda.

    No formulário de cadastro tem os campos para o nome e cargo do funcionário (sendo uma tabela colaboradores.nome, e a outra cargos.nome), eu gostaria que no momento em que fosse cadastrar, o verificasse se já existe um registro com esse nome e cargo? eu já usei querydef, findfirst e seek, porém todos eu só consegui pesquisar um campo, e nunca os dois ao mesmo tempo.

    Desde já agradeço.

    Rafael
    segunda-feira, 7 de setembro de 2009 18:24

Respostas

  • Mas tu tens duas tabelas diferentes. o que tens de fazer e coparar, depois de ver na tabela cloaboradores no campo nome fecha e vais a tabela cargo campo nome se existe o cargo se existe retorna que ja existe se nao grava.

    NO TEU BOTAO GRAVAR:

    Antes de gravar vericas se existe o nome na tabela colabaradores

    Dim db as database, rst as recordset, SQL as string
      set db = currentdb
      Sql = "Select * from Table1 where nome = '" & txtboxnome.text & "'"

       set rst = db.openrecordset(Sql, dbOpenDynaset)



    if rst.eof then ' open tabela cargo

    Dim db as database, rst as recordset, SQL as string
      set db = currentdb
      Sql = "Select * from Cargo where nome = '" & txtboxnome.text & "'"
     set rstt = db.openrecordset(Sql, dbOpenDynaset)

    if rstt.eof then ''' grava as informacoes

    rstt.field!nome= textnome.text
    rst.field!nome=txtcargonome.text

    rstt.update
    rst.update 

    end if

    else

    msgbox ("tabela colaboradores nome existe")
    txtnome.text=""
    txtnome.focus

    exit sub


    else

    msgbox ("Tabela cargo nome existe")
    txtcargo.text=""
    txtcargo.focus

    exit sub

    end if

     

    DeepF1
    segunda-feira, 7 de setembro de 2009 21:05