Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

Leonardo Fernandes

FORMULÁRIOS - GERENCIAMENTO DE CLIENTES

Mensagens Recomendadas

Leonardo Fernandes    0
Leonardo Fernandes

Boa noite:

Estou com problema nos seguintes comandos, vocês poderiam me ajudar.

Obs: Sou novo no VBA e não entendo muito.

cmdExcluir

Erro em tempo de execução '1004':

Erro de definição de aplicativo ou de definição de objeto

Private Sub cmdExcluir_Click()

If MsgBox("Você tem certeza que deseja excluir definitivamente o cliente " & Me.lstClientes.Value & "?", vbYesNo + vbQuestion, "Exclusão de registro") = vbNo Then

Exit Sub

End If

Range("Clientes").Item(Linha).EntireRow.Delete << Depurar

End Sub

-----------------------------------------------------------------------------------------

cmdAlterar

Private Sub cmdAlterar_Click()

Dim n As Range

'Consistência das informações

'Verifica se o nome não está vazio ou se não é composto por espaço(s)

If Trim(Me.txtNome) = Empty Then

MsgBox "Por favor, digite um nome para o cliente.", vbExclamation, "Faltam dados"

Me.txtNome.SetFocus

Exit Sub

End If

'Executa um loop no intervalo Clientes e, se o novo nome estiver na lista, não deixa continuar

If UCase(Me.txtNome.Text) <> UCase(Me.lstClientes.Value) Then

For Each n In Range("Clientes")

If UCase(n.Value) = UCase(Trim(Me.txtNome)) Then

MsgBox "Este cliente já existe e não pode ser duplicado.", vbExclamation, "Cliente existente"

Me.txtNome.SetFocus

Exit Sub

End If

Next

End If

'Se houver e-mail, a função instr verifica se tem @ no endereço

If InStr(1, Me.txtMail, "@") = 0 And Me.txtMail <> Empty Then

MsgBox "O e-mail não é válido.", vbExclamation, "E-mail não válido"

Me.txtMail.SetFocus

Exit Sub

End If

'Altera os dados do cliente

Dim email As String, site As String

email = Me.txtMail.Text

Telefone = Me.txtTelefone.Text

Range("Cliente").Item(Linha) = Me.txtNome

Range("Mails").Item(Linha) = email

Range("Telefone").Item(Linha) = Telefone

'Redefine o formulário

Me.lstClientes.ListIndex = -1

Me.txtNome.Text = Empty

Me.txtMail.Text = Empty

Me.txtTelefone.Text = Empty

Me.framCliente.Enabled = False

Me.lblNome.Enabled = False

Me.lblMail.Enabled = False

Me.lblTelefone.Enabled = False

Me.cmdAlterar.Enabled = False

Me.cmdExcluir.Enabled = False

End Sub

-------------------------------------------------------------

cmdInserirNovo

Private Sub ClassificarDadosClientes()

Range("DadosClientes").Sort key1:="cliente", order1:=xlAscending, Header:=xlYes

ClassificarDadosClientes.Font.Bold = True

End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.