Campo Autonumerico

[Robert Rodrigues]

Bom dia tenho os seguintes codigos o primeiro esta funcionando porem o segundo nada o que esta errado????

ele pega o numero inicial e soma mais 1.

Private Sub Form_BeforeInsert(Cancel As Integer)

Dim Letra

Dim Numero

DoCmd.RunCommand acCmdRefreshPage

If DCount("S04NumGuia", "SCE04") = 0 Then

Exit Sub

Else

DoCmd.RunCommand acCmdRefreshPage

DoCmd.GoToRecord , , acLast

Letra = Left(S04NumGuia, 3)

Numero = Right(S04NumGuia, 4)

DoCmd.GoToRecord , , acNewRec

Me.S04NumGuia = Letra & Format(Numero + 1, "000000")

End If

End Sub

----------------------------------------------------------------------

Private Sub Control_BeforeInsert(Cancel As Integer)

Dim Numero1

Dim Numero2

DoCmd.RunCommand acCmdRefreshPage

If DCount("S04NumControl", "SCE04") = 0 Then

Exit Sub

Else

DoCmd.RunCommand acCmdRefreshPage

DoCmd.GoToRecord , , acLast

Numero1 = Left(S04NumControl, 1)

Numero2 = Right(S04NumControl, 9)

DoCmd.GoToRecord , , acNewRec

Me.S04NumControl = Numero1 & Format(Numero + 1, "000000000")

End If

End Sub

Agradeço qualquer ajuda

[MrMALJ]

Aparentemente os 2 codigos estão corretos, qual erro que ocorre? Você já verificou se não está pegando a possição errada para extração da letra?

[Robert Rodrigues]

O da letra esta funcionando o que não faz nada é o de baixo quando sai do primeiro das 3 letras + numero funciona beleza e quando sai do numero é que não dá nada.

[MrMALJ]

Fera poste o seu bd ou parte dele pra poder analisar melhor.