MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Não permitir item duplicado

    Compartilhe

    volpemg
    Novato
    Novato

    Respeito às Regras 100%

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

    Não permitir item duplicado

    Mensagem  volpemg em Ter 21 Fev 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.
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Não permitir item duplicado

    Mensagem  Sidney em Qua 22 Fev 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
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Não permitir item duplicado

    Mensagem  Nill.GO em Sex 20 Out 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



      Data/hora atual: Dom 20 Maio 2018, 22:43