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

    [Resolvido]verificar se ja esta cadastro

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 318
    Registrado : 13/03/2011

    [Resolvido]verificar se ja esta cadastro Empty [Resolvido]verificar se ja esta cadastro

    Mensagem  msilveir 26/9/2021, 03:38

    Ola Pessoal

    coloquei esse código no meu cadastro de fornecedor exemplo

    quando digito um nome de fornecedor que tem na tabela ele acha ok , mas esta substituindo pelo que cadastro

    exemplo ele acho marcio silveira e digito ricardo ele substitui o marcio

    acho que fui claro

    Dim Fornecedor As Variant


    Fornecedor = DLookup("Fornecedor", "Tbl_Fornecedor", "txtFornecedor ='" & Me!txtFornecedor & "'")

    Me.RecordsetClone.FindFirst "Fornecedor = '" & Me!Fornecedor & "'"
    If Not Me.RecordsetClone.NoMatch Then

    MsgBox ("Fornecedor já está Cadastrado:" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & txtFornecedor), vbInformation, "Atenção"

    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    Me.Bookmark = Me.RecordsetClone.Bookmark

    end if
    end sub
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 318
    Registrado : 13/03/2011

    [Resolvido]verificar se ja esta cadastro Empty Re: [Resolvido]verificar se ja esta cadastro

    Mensagem  msilveir 26/9/2021, 22:39

    Ola Pessoal

    Consegui resolver com esse código abaixo

    If DCount("Fornecedor", "Tbl_Fornecedor", "Fornecedor = '" & Me.txtFornecedor & "' And Fornecedor = '" & Me.txtFornecedor & "'") > 0 Then
    MsgBox " O Cliente " & Me!Fornecedor & " Já está Cadastrado verifique...", vbOKOnly, "ATENÇÂO"
    Me.Undo
    End If

    caso alguém queira testar o código fico no aguardo se esta ok

      Data/hora atual: 16/10/2021, 22:55