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

    [Resolvido]Adicionar um novo registro

    avatar
    Rosalvo Risso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/05/2015

    [Resolvido]Adicionar um novo registro Empty [Resolvido]Adicionar um novo registro

    Mensagem  Rosalvo Risso 29/9/2017, 03:48

    Boa noite amigos!

     Tenho um formulário "Cadastramento de clientes" vinculado a tabela clientes.

     Copiei um código postado pelo mestre JP que tem a função de me avisar se o registro é "Duplicado", se for, o código me avisa e cancela o registro. Bom
    até aí beleza. Mas o que eu preciso é que além de me avisar ele também me mostre os detalhes deste cliente em um outro formulário que criei de nome
    "Detalhes dos Clientes" que deverá ser aberto, claro que no registro específico, para que o usuário possa certificar-se que se trata da mesma pessoa ou de um novo cliente que tenha o mesmo nome. Isso é possível?
    aqui o código:

                      Alerta e Mostra Registo Duplicado no Ms Access

    Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.SeuCampoNoForm.Value
    stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
    If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
    Me.Undo
    Cancel = True
    MsgBox "Atencao, registo " _
    & Busca & " ja existe." _
    & vbCr & vbCr & "Vai ser mostrado o Registo.", vbInformation _
    , "Duplicado"
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    End Sub

     Um detalhe: Tive que retirar a linha "Me.Bookmark = rsc.Bookmark" pois aparece a seguinte mensagem de erro: Erro em tempo de execução '3021': Nenhum registro atual.

    Access 2010
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Adicionar um novo registro Empty Re: [Resolvido]Adicionar um novo registro

    Mensagem  JPaulo 29/9/2017, 10:37

    Se é para você abrir um outro form, já filtrado pelo registo que já existe, terá de ser assim;

    Código:
    Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.SeuCampoNoForm.Value
    stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
        If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
        Me.Undo
        Cancel = True
        MsgBox "Atencao, registo " _
        & Busca & " ja existe." _
        & vbCr & vbCr & "Vai ser mostrado o Registo.", vbInformation _
        , "Duplicado"
            rsc.FindFirst stLinkCriteria
            'Me.Bookmark = rsc.Bookmark
            DoCmd.OpenForm "SeuSegundoForm", , , "SeuCampoNoSegundoForm = '" & Busca & "'"
        End If
    Set rsc = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adicionar um novo registro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adicionar um novo registro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adicionar um novo registro Folder_announce_new Instruções SQL como utilizar...
    avatar
    Rosalvo Risso
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 21/05/2015

    [Resolvido]Adicionar um novo registro Empty Adicionar um novo registro

    Mensagem  Rosalvo Risso 29/9/2017, 12:13

    Perfeito JPaulo.

    Muito obrigado! Grande abraço.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Adicionar um novo registro Empty Re: [Resolvido]Adicionar um novo registro

    Mensagem  JPaulo 29/9/2017, 13:25

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Adicionar um novo registro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Adicionar um novo registro Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Adicionar um novo registro Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Adicionar um novo registro Empty Re: [Resolvido]Adicionar um novo registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:30