PREENCHER NUMERO DE FICHA QUE ESTA FALTANDO

KERPLUNK 27/05/2022 16:30:48
#499972 Resposta escolhida

Esse número de ficha é um número mesmo no banco ou um varchar?

EDSON.PEREIRA 27/05/2022 16:36:39
#499973

KERPLUNK, sim
If (ConsultaRegistro.EOF = False) And (ConsultaRegistro.BOF = False) Then
While (ConsultaRegistro.EOF = False) And (ConsultaRegistro.BOF = False)
Set objConsulta = Me.CarregarRegistro.ListItems.Add
With objConsulta
If Not IsNull(ConsultaRegistro.Fields("BD_STA").Value) Then .SubItems(1) = UCase(Trim(ConsultaRegistro.Fields("BD_STA").Value)) Else .SubItems(1) = Empty
If Not IsNull(ConsultaRegistro.Fields("BD_FIC").Value) Then .SubItems(2) = UCase(Trim(ConsultaRegistro.Fields("BD_FIC").Value)) Else .SubItems(2) = Empty
If Not IsNull(ConsultaRegistro.Fields("BD_PLA").Value) Then .SubItems(3) = UCase(Trim(ConsultaRegistro.Fields("BD_PLA").Value)) Else .SubItems(3) = Empty
If Not IsNull(ConsultaRegistro.Fields("BD_LOJ").Value) Then .SubItems(4) = UCase(Trim(ConsultaRegistro.Fields("BD_LOJ").Value)) Else .SubItems(4) = Empty
If Not IsNull(ConsultaRegistro.Fields("BD_NOM").Value) Then .SubItems(5) = UCase(Trim(ConsultaRegistro.Fields("BD_NOM").Value)) Else .SubItems(5) = Empty
If Not IsNull(ConsultaRegistro.Fields("BD_REC").Value) Then .SubItems(6) = MCase(Trim(ConsultaRegistro.Fields("BD_REC").Value)) Else .SubItems(6) = "0,00"
Valor = (Valor + ConsultaRegistro.Fields("BD_REC").Value)
ConsultaRegistro.MoveNext
End With
Wend

KERPLUNK 27/05/2022 17:29:23
#499975

Se no banco está "65182" mesmo, esse número, de uma olhada nisso

EDSON.PEREIRA 27/05/2022 23:37:23
#499981

KERPLUNK, Desculpa a demora.
"Se no banco está "65182"...
Não ele está assim "065.182"
eu fez assim:
Dim Primeiro As Long
Dim Ultimo As Long
If (ConsultaPrimeiro.EOF = False) And (ConsultaPrimeiro.BOF = False) Then
ConsultaPrimeiro.MoveFirst
Primeiro = ConsultaPrimeiro.Fields("BD_FIC").Value - 1
End If

If (ConsultaUltimo.EOF = False) And (ConsultaUltimo.BOF = False) Then
ConsultaUltimo.MoveLast
Ultimo = ConsultaUltimo.Fields("BD_FIC").Value
End If

Dim Proximo As Long
Me.ListView1.ListItems.Clear
For Proximo = Primeiro To Ultimo
Primeiro = (Primeiro + 1)
Set objConsulta = ListView1.ListItems.Add
With objConsulta
.SubItems(2) = Format(Primeiro, "000\.000")
End With
Next Proximo

quase deu certo.

KERPLUNK 28/05/2022 15:48:47
#499982

Então crie uma view onde vai ter uma coluna virtual com o valor numérico e então use o sql que te passei, isso vai certamente resolver seu problema.

KERPLUNK 28/05/2022 15:51:34
#499983

Para criar a view:

select Cast(Concat(Left("db_fic", 3), right("db_fic", 3)) as int) from SUA_TABELA

E nas próximas vezes, poste o que quer fazer e não um monte de código. Gaste um tempo, explique a situação e o que quer, código não ajuda em quase nada