Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Usar Textbox na função If

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
ACGuedelha
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sáb Fev 01, 2020 12:15 pm
Localização: Belo Horizonte

Usar Textbox na função If

Mensagem por ACGuedelha »

Boa noite, a todos.
Antes de mais nada venho agradecer a todos que ajudaram no meu projeto onde uso o banco de dados Sqlite. O grande resultado hoje esta que meu projeto consegue incluir, excluir e alterar dados no banco usando o vba, e além disto também carregar o listview vba com os dados do Sqlite. Bom como tudo na vida estou com outro problema, pois ao rodar a função If vba, não estou conseguindo que vba utilize dado de uma textbox especifica. Veja o código:

Código: Selecionar todos

Dim A               As Integer
Dim Soma            As Double
For A = 1 To INSUMOS.lstv.ListItems.Count
    If INSUMOS.lstv.ListItems.item(A).SubItems(1) = txtRegistro Then
    ElseIf INSUMOS.lstv.ListItems.item(A).SubItems(5) = "Entrada" Then
        Soma = Soma + INSUMOS.lstv.ListItems.item(A).SubItems(4)
    End If
Next A
txtTotEntradas = Soma
txtTotEntradas = Format(txtTotEntradas, "#,#00.000")
O problema é que ao selecionar um novo registro dentro da listview o código não é aplicado a nova seleção, e estou quase certo que se trata do textbox "txtRegistro" não sendo enxergado pelo código.
Já quebrei a cabeça em pesquisas na internet e em arquivos meus e nada, por este motivo venho solicitar se alguém pode me ajudar neste novo entrave fico muito agradecido.

Saúde e paz a todos, e se cuidem.


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Usar Textbox na função If

Mensagem por webmaster »

Tentou depurar? Qual o conteúdo de txtRegistro quando o faz?


ACGuedelha
Colaborador
Colaborador
Mensagens: 10
Registrado em: Sáb Fev 01, 2020 12:15 pm
Localização: Belo Horizonte

Re: Usar Textbox na função If

Mensagem por ACGuedelha »

Boa tarde!
Tomaz
Sim fiz a depuração.
O dado contido no txtRegistro é numérico.
Aproveitando o contato saberia me dizer porque quando coloco uma instrução no textbox para somar determinada coluna o código não é aplicado ao mudar o registro.

Grato.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Usar Textbox na função If

Mensagem por webmaster »

Agora fiquei confuso. Se o txtRegistro contém um valor, não deveria funcionar apropriadamente? É muito pedir para compartilhar o arquivo com a explicação de onde o erro ocorre?


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