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


3 participantes

    Não permitir item duplicado

    avatar
    volpemg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 29/11/2016

    Não permitir item duplicado Empty Não permitir item duplicado

    Mensagem  volpemg 21/2/2017, 12:57

    Bom dia,

    Tenho um formulario  com o nome "Frm_ItensRequisitados"  que é alimentado por um sub formulario "Frm_Solicitacao_Itens" , o que eu queria era que ao entrar com um novo registro no "Frm_Solicitacao_Itens" ele realizasse a busca e procurasse pelo codigo que estou tentando entrar e se encontrasse no "Frm_ItensRequisitados" , não permitisse a entrada desse novo registro e voltasse a tela do "Frm_Solicitacao_Itens" .

    No "Frm_Solicitacao_Itens" o campo se chama desenho, ele deve comparar com o campo item ped no "Frm_ItensRequisitados".

    Obrigado.
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 431
    Registrado : 08/10/2012

    Não permitir item duplicado Empty Re: Não permitir item duplicado

    Mensagem  Sidney 22/2/2017, 20:56

    Amigo boa tarde!

    Tente isso

    Ponha esse código no evento "Antes de atualizar" no seu Campo:

    Código:

         If DCount("CodDaTabela","TabeladoFormuláriol", "CodDaTabela='" & Me!CoddaTabela & "'") >= 1 then
                MsgBox "itens já cadastrado",vbInformation,"Informação"

               cancel = true
         end if

    Tente adaptar esses códigos, pois você esqueceu de mencionar as tabelas dos referidos formulários,


    att; Ney
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 25/09/2017

    Não permitir item duplicado Empty Re: Não permitir item duplicado

    Mensagem  Nill.GO 20/10/2017, 01:12

    Amigo,

    Estou fazendo o teste com este código:

    Private Sub cliente_nome_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.cliente_nome.Value
    stLinkCriteria = "cliente_nome= '" & Busca & "'"
    If DCount("cliente_nome", "tb_cliente", stLinkCriteria) > 0 Then
    Me.Undo
    MsgBox "Atenção o registro " _
    & Busca & " já existe." _
    & vbCr & vbCr & "Mostrar o Registo.", vbInformation _
    , "Duplicado"
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    End Sub

    Mas surge erro:

    Erro em tempo de execução '3420':
    O objeto não é válido ou não está definido.

    Ao clicar depurar, mostra esta linha:
    rsc.FindFirst stLinkCriteria



    Conteúdo patrocinado


    Não permitir item duplicado Empty Re: Não permitir item duplicado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:22