MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 2013, 15: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)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]contador incremendado no ato de gravar

    Mensagem  JPaulo em Seg 02 Dez 2013, 09: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


    .................................................................................
    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 02 Dez 2013, 11:09

    perfeito, deu certo, obrigado.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]contador incremendado no ato de gravar

    Mensagem  JPaulo em Seg 02 Dez 2013, 12:15

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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: Qua 07 Dez 2016, 20:10