MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Função DMax e DLast

    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Função DMax e DLast Empty [Resolvido]Função DMax e DLast

    Mensagem  caiosouza 17/10/2017, 13:42

    Bom dia,

    Gostaria de fazer a seguinte instrução usando umas das funções do assunto:

    Ex. de tabela:

    Status | Serial

    Pendente| 1

    Pendente| 2

    Pendente| 3

    Pendente| 4


    Gostaria que todos que tiver o mesmo Status = "Pendente" atualize o Serial Com + 1, fincando desta forma:

    Status | Serial

    Pendente| 2

    Pendente| 3

    Pendente| 4

    Pendente| 5


    Por enquanto ainda não consegui fazer de forma individual, eta ficando desta forma:

    Status | Serial

    Pendente| 4

    Pendente| 4

    Pendente| 4

    Pendente| 4



    Teria alguma forma de executar a função em cada registro individualmente?


    .................................................................................
    Caio Souza

    Engenheiro de Software
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função DMax e DLast Empty Re: [Resolvido]Função DMax e DLast

    Mensagem  JPaulo 17/10/2017, 17:18

    Se a tabela só tem isso mesmo é o simples;

    Abra uma consulta em modo SQL e escreva;

    Código:
    update SuaTabela set Serial=Serial+1 where Status='Pendente';


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Função DMax e DLast Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Função DMax e DLast Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Função DMax e DLast Folder_announce_new Instruções SQL como utilizar...
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Função DMax e DLast Empty Re: [Resolvido]Função DMax e DLast

    Mensagem  caiosouza 17/10/2017, 18:32

    Boa tarde Jpaulo,

    Amplificando...

    Tenho um form onde escolho uma determinada peça, depois de ter escolhido aquela peça preciso que na tabela todos Serials que tiver com aquele nome aumente + 1.
    De acordo com seu código, fiz um mais ainda assim continua atualizando todos de forma igualada.

    Código:
    CurrentDb.Execute "UPDATE tab_padroes SET Serial=Serial + 1 WHERE [grupo]='" & item & "'"


    .................................................................................
    Caio Souza

    Engenheiro de Software
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Função DMax e DLast Empty Re: [Resolvido]Função DMax e DLast

    Mensagem  caiosouza 17/10/2017, 20:53

    Jpaulo,

    Consegui resolver da seguinte forma:

    Criei um form Oculto, para atualizar os registros individuais.
    Código:

    Private Sub Form_Timer()
    If Me.Serial = 0 Or IsNull(Me!Serial) Or Me.Serial = "" Then
        DoCmd.Close acForm, "fml_atualizar"
    Else
        Me.Serial = Me.Serial + 1
        DoCmd.Save
        DoCmd.GoToRecord , "fml_atualizar", acNext
    End If
    End Sub


    .................................................................................
    Caio Souza

    Engenheiro de Software

    Conteúdo patrocinado


    [Resolvido]Função DMax e DLast Empty Re: [Resolvido]Função DMax e DLast

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:20