MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Localizar Código

    avatar
    cicero.meneses
    Novato
    Novato

    Respeito às regras : 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 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 : Respeito às Regras 100%

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

    Localizar Código Empty Re: Localizar Código

    Mensagem  alozs 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 : 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 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 : Respeito às Regras 100%

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

    Localizar Código Empty Re: Localizar Código

    Mensagem  alozs 1/10/2020, 20:47

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

      Data/hora atual: 22/9/2021, 07:13