PROBLEMA COM CODIGO
Amigos eu fiz esse codigo para numerar automaticamente o textbox quando o usuario der um click em CmdNovo... mais ele soma 91 .0001.... 9100002 .... 9100003 ... 9100004 ... e não passa do quarto registro a não coloca o ponto depois do 91.
Private Sub NUMEROAPOLICE()
If Apolice.RecordCount = 0 Then
TXTAPOLICE.Text = "91.00001"
Else
Data1.Recordset.MoveLast
TXTAPOLICE.Text = Data1.Recordset("APOLICE") + 1
End If
Private Sub NUMEROAPOLICE()
If Apolice.RecordCount = 0 Then
TXTAPOLICE.Text = "91.00001"
Else
Data1.Recordset.MoveLast
TXTAPOLICE.Text = Data1.Recordset("APOLICE") + 1
End If
Tenta aÃ:
txtapolice.text = left(Data1.Recordset("APOLICE"),2) & "." & Format(val(right(Data1.Recordset("APOLICE"), 5) +1), "00000")
O Problema do Ponto 91.00001 tubo bem resolveu mais .. ele cadastra dois 91.00001 ,, 91.00002 e não sai do 91.00002 a numeração não avanca
tente definir as variaves
dim atual as double
atual = txtapolice.text
atual = Data1.Recordset("APOLICE") + 1
txtapolice.text = atual
dim atual as double
atual = txtapolice.text
atual = Data1.Recordset("APOLICE") + 1
txtapolice.text = atual
???
Tópico encerrado , respostas não são mais permitidas