ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Problemas na minha edição de registro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
peculio
Colaborador
Colaborador
Mensagens: 14
Registrado em: Sex Fev 18, 2022 1:24 pm

Problemas na minha edição de registro

Mensagem por peculio »

olá a todos tenho uma rotina onde eu dou um clique e aperto o botão editar cadastro.

porem após isto ele só mostra o ultimo registro da minha listview o que seria e como posso resolver?

Sub INSERIR_REGISTRO_NA_FORM_DE_AGENDAMENTO()

Dim X As Integer
Dim LINHA As Integer

For X = 1 To Me.LISTA_AGENDAMENTOS.ListItems.Count
If Me.LISTA_AGENDAMENTOS.ListItems.Item(X).Checked Then

'RETORNA OS VALORES PARA CAIXA DE TEXTO DO FORMULARIO DE AGENDAMENTO

Me.MATRICULA = Me.LISTA_AGENDAMENTOS.ListItems.Item(X)
Me.NOME = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(1)
Me.TextBox1 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(2)
Me.NOME_DOCUMENTO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(3)
Me.DATA_TRANSITO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(4)
Me.HORARIOAGENDADO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(5)
Me.OBSERVAÇÕES = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(6)
Me.DESTINO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(7)
Me.MOTORISTA = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(10)
Me.VEICULO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(11)
Me.TextBox3 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(12)
Me.TextBox4 = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(13)
Me.USUARIO = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(14)
Me.SETOR = Me.LISTA_AGENDAMENTOS.ListItems.Item(X).SubItems(15)


End If

Next X


End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder