MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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, 14: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)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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, 15: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.]

    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, 01: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: Qui 08 Dez 2016, 12:02