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

    Verificar a existência de um dado e salvar as alterações realizadas

    Compartilhe

    claudiojr93
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 03/01/2014

    Verificar a existência de um dado e salvar as alterações realizadas

    Mensagem  claudiojr93 em Sex 03 Jan 2014, 16:57

    Boa tarde amigos do fórum,

    Estive consultando o material aqui disponível e não encontrei algo que pudesse sanar meu problema. Estou criando uma planilha no excel utilizando o VBA e é a primeira vez que trabalho nessa linguagem, por isso estou tendo um pouco de dificuldade. Eis o problema:

    Ao gravar um novo cliente preciso verificar se existe outro com o mesmo CPF já cadastrado e, se existir, perguntar ao usuário se ele deseja alterar o registro. Do jeito que a minha planilha se encontra, sempre que digito o mesmo CPF ele cria um novo registro.

    Gostaria também de incluir na pesquisa o Nome. Para poder buscar o cliente no banco de dados tanto por cpf, quanto por nome.

    Segue em anexo a planilha do modo que está até então.

    Obrigado,
    Cláudio Júnior
    Anexos
    Cadastro Clientes DELTA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 6 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3642
    Registrado : 20/04/2011

    Re: Verificar a existência de um dado e salvar as alterações realizadas

    Mensagem  Silvio em Sex 03 Jan 2014, 17:45

    Olá, seja bem vindo ao fórum !

    Mas sei não....... esse ,fórum a qual nós estamos, é para o MsAccess, e talvez, pode ser que haja algum membro daqui que saiba como mexer em *.XLS.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    DARTH
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 07/12/2013

    Re: Verificar a existência de um dado e salvar as alterações realizadas

    Mensagem  DARTH em Sab 04 Jan 2014, 03:36

    Claudiojr93

    O código que anexo, permite procurar na coluna que você especificar e faz aparecer os dados gravados na folha, numa listbox. No entanto podes alterar para outro objeto.
    No caso eu utilizo para editar registos, mas  por certo o funcionamento da minha aplicação é diferente da tua, por isso adapta de acordo com as tuas necessidades.
    Código:

    Private Sub CommandButton9_Click()
    Dim Alt As Variant
    Dim address As Variant, RangColC As Range, RangRow As Range, RegCorr As Integer

    D100:
        Alt = InputBox("" & vbLf & vbLf & "INSIRA O NOME CORRETO.", "        ........ALTERAÇÃO DE DADOS........")
            If IsNumeric(Alt) = True Or Alt = "" Then
            MsgBox "------- NÃO ALTERADO" & vbLf & "VERIFIQUE O NOME INSERIDO.", vbCritical
    GoTo D100
            Else
            Set RangColC = Sheets("DADOS").Range("C2:C20000")

                For Each RangRow In RangColC.Rows
                    If RangRow.Cells(1, 1) = Me.ListBox4.Value Then
                    address = RangRow.Cells(1, 1)
                    RangRow.Cells(1, 1).Select
                    RegCorr = RegCorr + 1
                    ActiveCell = Alt
                    TextBox_nome.Value = Alt
    MsgBox vbLf & "   - -  REGISTOS SUBSTITUÍDOS COM SUCESSO.  - - " & vbLf & _
            vbLf & "                                                 " & RegCorr & vbLf _
            & vbLf & "                            REGISTOS CORRIGIDOS."

                    End If
                Next
        End If
            MultiPage_Historico.Value = 0
            TextBox8.Value = ""
            ListBox4.Clear
            
    ThisWorkbook.Save

    End Sub


    Espero que funcione.
    Boa sorte

      Data/hora atual: Dom 22 Out 2017, 11:10