[Resolvido]contador incremendado no ato de gravar

Em meu projeto de banco de dados, o autonumeracao está incrementado no momento ao gravar, em todos os formularios são assim, porem num formulario, está dando erro. Não entendi, já estudei as linhas da programacao, a sistematologia que usei são os mesmos.  Estou postanto o programa. O erro é na aba "paradas". Podem observar que no botão "salvar" desse, o principio de incrementação é igual ou parecido com o botão "salvar" da aba anteriror.

Ola bom dia !

Teste assim, por favor;


Private Sub Comando361_Click()
Dim db As Database 'Definindo variável do banco de dados
Dim rs9 As Recordset 'Definindo a tabela
Set db = CurrentDb 'Definindo banco de dados atual
Set rs9 = db.OpenRecordset("SELECT * FROM paradas", dbOpenDynaset) 'Definindo nome 'da tabela à ser utilizada

Dim strMsg As String
strMsg = "Atenção!!!"
strMsg = strMsg & "...Esta ação é executado SOMENTE UMA VEZ no turno, deseja continuar?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then

rs9.MoveFirst
rs9.MoveLast

Me.seg11 = rs9("seg") + 1 'Iniciando o contador


rs9.AddNew

rs9("maq") = "PASSADOR 09"
rs9("fi") = Me.fi9
rs9("fina") = Me.fina9
rs9("estira") = Me.estira9
rs9("pg") = Me.pg9
rs9("opera") = Me.opera9
rs9("p60") = Me.p60_9
rs9("cv") = Me.cv9
rs9("idlanCTurno") = Me.id
rs9("seg") = Me.seg11

rs9.Update 'Confirmando edição
Me.seg11 = Null



rs9.MoveLast

Me.seg11 = rs9("seg") + 1 'Iniciando o contador

rs9.Edit 'Editando o registro
rs9.Update 'Confirmando edição
rs9.AddNew
Me.seg11 = Me.seg11 + 1
rs9("maq") = "PASSADOR 10"
rs9("fi") = Me.fi10
rs9("fina") = Me.fina10
rs9("estira") = Me.estira10
rs9("pg") = Me.pg10
rs9("opera") = Me.opera10
rs9("p60") = Me.p60_10
rs9("cv") = Me.cv10
rs9("seg") = Me.seg11
rs9.Update 'Confirmando edição

Me.seg11 = Null



rs9.MoveLast

Me.seg11 = rs9("seg") + 1 'Iniciando o contador

rs9.Edit 'Editando o registro
rs9.Update 'Confirmando edição
rs9.AddNew
rs9("maq") = "PASSADOR 11"
rs9("fi") = Me.fi11
rs9("fina") = Me.fina11
rs9("estira") = Me.estira11
rs9("pg") = Me.pg11
rs9("opera") = Me.opera11
rs9("p60") = Me.p60_11
rs9("cv") = Me.cv11
rs9("seg") = Me.seg11
rs9.Update 'Confirmando edição

Me.seg11 = Null



rs9.MoveLast

Me.seg11 = rs9("seg") + 1 'Iniciando o contador

rs9.Edit 'Editando o registro
rs9.Update 'Confirmando edição
rs9.AddNew
rs9("maq") = "PASSADOR 12"
rs9("fi") = Me.fi12
rs9("fina") = Me.fina12
rs9("estira") = Me.estira12
rs9("pg") = Me.pg10
rs9("opera") = Me.opera12
rs9("p60") = Me.p60_12
rs9("cv") = Me.cv12
rs9("seg") = Me.seg11
rs9.Update 'Confirmando edição

Me.seg11 = Null



rs9.MoveLast

Me.seg11 = rs9("seg") + 1 'Iniciando o contador

rs9.Edit 'Editando o registro
rs9.Update 'Confirmando edição
rs9.AddNew
rs9("maq") = "PASSADOR 13"
rs9("fi") = Me.fi13
rs9("fina") = Me.fina13
rs9("estira") = Me.estira13
rs9("pg") = Me.pg10
rs9("opera") = Me.opera13
rs9("p60") = Me.p60_13
rs9("cv") = Me.cv13
rs9("seg") = Me.seg11
rs9.Update 'Confirmando edição

Me.seg11 = Null



rs9.MoveLast

Me.seg11 = rs9("seg") + 1 'Iniciando o contador

rs9.Edit 'Editando o registro
rs9.Update 'Confirmando edição
rs9.AddNew
rs9("maq") = "PASSADOR 14"
rs9("fi") = Me.fi14
rs9("fina") = Me.fina14
rs9("estira") = Me.estira14
rs9("pg") = Me.pg14
rs9("opera") = Me.opera14
rs9("p60") = Me.p60_14
rs9("cv") = Me.cv14
rs9("seg") = Me.seg11
rs9.Update 'Confirmando edição

Me.seg11 = Null



rs9.MoveLast

Me.seg11 = rs9("seg") + 1 'Iniciando o contador

rs9.Edit 'Editando o registro
rs9.Update 'Confirmando edição
rs9.AddNew
rs9("maq") = "PASSADOR 15"
rs9("fi") = Me.fi15
rs9("fina") = Me.fina15
rs9("estira") = Me.estira15
rs9("pg") = Me.pg15
rs9("opera") = Me.opera15
rs9("p60") = Me.p60_15
rs9("cv") = Me.cv15
rs9("seg") = Me.seg11
rs9.Update 'Confirmando edição

rs9.Close

Me.fina9 = Null
Me.fi9 = Null
Me.opera9 = Null
Me.p60_9 = Null
Me.estira9 = Null
Me.cv9 = Null
Me.pg9 = Null

Me.fina10 = Null
Me.fi10 = Null
Me.opera10 = Null
Me.p60_10 = Null
Me.estira10 = Null
Me.cv10 = Null
Me.pg10 = Null


Me.fina11 = Null
Me.fi11 = Null
Me.opera11 = Null
Me.p60_11 = Null
Me.estira11 = Null
Me.cv11 = Null
Me.pg11 = Null

Me.fina12 = Null
Me.fi12 = Null
Me.opera12 = Null
Me.p60_12 = Null
Me.estira12 = Null
Me.cv12 = Null
Me.pg12 = Null

Me.fina13 = Null
Me.fi13 = Null
Me.opera13 = Null
Me.p60_13 = Null
Me.estira13 = Null
Me.cv13 = Null
Me.pg13 = Null

Me.fina14 = Null
Me.fi14 = Null
Me.opera14 = Null
Me.p60_14 = Null
Me.estira14 = Null
Me.cv14 = Null
Me.pg14 = Null

Me.fina15 = Null
Me.fi15 = Null
Me.opera15 = Null
Me.p60_15 = Null
Me.estira15 = Null
Me.cv15 = Null
Me.pg15 = Null

MsgBox ("GRAVADO COM SUCESSO!")

rs9.Close: Set rs9 = Nothing
Else
DoCmd.CancelEvent
End If
End Sub

perfeito, deu certo, obrigado.

Obrigado pelo retorno o forum agradece.