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


3 participantes

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

    avatar
    claudiojr93
    Novato
    Novato


    Respeito às regras : 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 Empty Verificar a existência de um dado e salvar as alterações realizadas

    Mensagem  claudiojr93 3/1/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
    Verificar a existência de um dado e salvar as alterações realizadas AttachmentCadastro Clientes DELTA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 6 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 3/1/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DARTH
    DARTH
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DARTH 4/1/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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:21