MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]contador incremendado no ato de gravar

    Compartilhe

    negaodacelia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 06/08/2013

    [Resolvido]contador incremendado no ato de gravar

    Mensagem  negaodacelia em Sab 30 Nov - 10:06

    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.
    Anexos
    fiasul.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.6 Mb) Baixado 24 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9382
    Registrado : 04/11/2009

    Re: [Resolvido]contador incremendado no ato de gravar

    Mensagem  JPaulo em Seg 2 Dez - 4:55

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    negaodacelia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 06/08/2013

    Re: [Resolvido]contador incremendado no ato de gravar

    Mensagem  negaodacelia em Seg 2 Dez - 6:09

    perfeito, deu certo, obrigado.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9382
    Registrado : 04/11/2009

    Re: [Resolvido]contador incremendado no ato de gravar

    Mensagem  JPaulo em Seg 2 Dez - 7:15

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 18 Ago - 12:28