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")
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.