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

    [Resolvido]Adicionar um novo registro

    Compartilhe

    Rosalvo Risso
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Adicionar um novo registro

    Mensagem  Rosalvo Risso em Sex 29 Set 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Adicionar um novo registro

    Mensagem  JPaulo em Sex 29 Set 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Rosalvo Risso
    Novato
    Novato

    Respeito às Regras 100%

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

    Adicionar um novo registro

    Mensagem  Rosalvo Risso em Sex 29 Set 2017, 12:13

    Perfeito JPaulo.

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

    Respeito às Regras 100%

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

    Re: [Resolvido]Adicionar um novo registro

    Mensagem  JPaulo em Sex 29 Set 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 22 Nov 2017, 20:16