[Resolvido]Numeração Personalizada

Em um Form Folha de Dados tem um campo texto com mascara de entrada dessa forma 99.99.9
Ao digitar neste campo ficaria assim: 11.11.0 tem como ao ir para um novo registro este campo me daria automaticamente o proximo numero Ex: 11.12.0

http://maximoaccess.forumeiros.com/t5417-resolvidonumeracao-em-sequencia

entre muitos outros aqui.

Sim o zero tem que manter
EX:11.11.0
Proximo Nº11.12.0
proximo: 11.13.0 e assim por diante

no topico em que o colega Mario Fernandes menciona não funcionou?

A lógica é a mesma, basta adicionar o zero.

se nao consegue, diga que faço-lhe um exemplo.

Aquele topico foi duvida minha tambem
ja tentei usar este codigo mas tem que fazer algumas adaptações (e não sei )
pois este codigo segue assim:11.01.01 ,11.01.02
e preciso que ele não some o ultimo numero,pois o ultimo numero tem que se manter em 0
Ex: 11.01.0 , 11.02.0 e assim por diante

Ola Eduardo, coloque aqui parte do seu banco com esse código, para adaptar-mos à sua necessidade.

ai esta uma parte do banco

http://dl.dropbox.com/u/47339960/Banco%20de%20Dados.accdb

Cole esta função no mesmo módulo;


Public Function NovoNumII() As Long
'Gera o próximo número da tabela de numeração simples
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim x, y, z

'Verifica o último número e soma +1
Set db = CurrentDb()

Set rst = db.OpenRecordset("SELECT CodigoVenda FROM EquipamentoConj " & _
"ORDER BY CodigoVenda DESC")

With rst
If .BOF And .EOF Then
NovoNumII = 1
Else
.MoveFirst
x = Mid(!CodigoVenda, 1, 2)
y = Mid(!CodigoVenda, 3, 2) + 1
z = Mid(!CodigoVenda, 5, 5)

If Len(y) = 1 Then
NovoNumII = x & "0" & y & z
Else
NovoNumII = x & y & z
End If
End If
.Close
End With
Set rst = Nothing
Set db = Nothing

End Function



No formulario;


Private Sub TipoEquipamento_AfterUpdate()
Dim resultado As VbMsgBoxResult

resultado = MsgBox("DESEJA FAZER NOVO CADASTRO DE SUBCONJUNTO", vbYesNo, "CADASTRO DE EQUIPAMENTOS")
'Se não for Alterar o Pedido
If resultado = vbNo Then
MsgBox "POR FAVOR ENTÃO FECHE O CADASTRO DE EQUIPAMENTOS", vbOKOnly, "CADASTRO DE EQUIPAMENTOS"
' DoCmd.GoToRecord , "FormCadastroConjuntos", acNewRec
Me.CodigoVenda.DefaultValue = ""

Exit Sub
End If
If resultado = vbYes Then
DoCmd.GoToRecord , "", acNewRec
Me.CodigoVenda.DefaultValue = NovoNumII()
Me.Equipamento.SetFocus
End If
End Sub

Perfeito JPaulo era deste modo que precisava
Muito Obrigado
Estou dando este topico como resolvido

Obrigado pelo retorno o forum agradece.