MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Localizar Código

    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 15/09/2014

    Localizar Código Empty Localizar Código

    Mensagem  cicero.meneses em 1/10/2020, 19:50

    Boa tarde! Podem me ajudar!

    Tenho um formulário onde lanço um código em uma tabela, quero verificar se esse código já existe, se existir, dar mensagem "Código Cadastrado e perguntar se deseja incluir novamente", se "sim", incluir novo registro para que as informações sejam lançadas.

    Obrigado
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 282
    Registrado : 07/02/2018

    Localizar Código Empty Re: Localizar Código

    Mensagem  alozs em 1/10/2020, 20:37

    você pode executar uma rotina de consulta em vba para verificar se existe o código, coloque no evento após atualizar do seu campo o código abaixo.


    Código:
    Dim rs As DAO.Recordset
    Dim strsql As String

    DoCmd.SetWarnings False

    strsql = "Select * From SuaTabela"
    Set rs = CurrentDb.OpenRecordset(strsql)

    Do While Not rs.EOF
     If rs!CampoDaSuaTabelaQueDesejaVerificar = Me.NomeDoCampoNoFormulario Then 'verifica se o código cadastrado é igual ao da tabela e lança a mensagem abaixo
        MsgBox "Esse código já foi cadastrado, por favor altere o código para poder salvar o cadastro!", vbCritical, "ATENÇÃO!"
        DoCmd.CancelEvent
        Undo
        NomeDoCampoNoFormulario.SetFocus
        Exit Sub
    End If
    rs.MoveNext
    Loop
    DoCmd.SetWarnings True

    adapte as suas necessidades
    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 15/09/2014

    Localizar Código Empty Re: Localizar Código

    Mensagem  cicero.meneses em 1/10/2020, 20:46

    Talvez não me fiz entender bem.

    O que eu preciso é que avise que o código existe e pergunte se quer incluir esse mesmo código novamente, se sim, insere-se um novo registro e deixa o código ser incluído novamente. Vai existir repetições de código.
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 282
    Registrado : 07/02/2018

    Localizar Código Empty Re: Localizar Código

    Mensagem  alozs em 1/10/2020, 20:47

    use o código acima informado e adapte as suas necessidades

      Data/hora atual: 28/10/2020, 09:01