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

3 participantes

    [Resolvido]Criar um sequencial em uma consulta

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Criar um sequencial em uma consulta Empty [Resolvido]Criar um sequencial em uma consulta

    Mensagem  =>Nois 20/12/2018, 12:57

    bom dia!

    preciso acrescentar em um consulta um numero sequencial com base no ultimo acrescido de + 1

    se ultimo é 10, preciso que ao importar os registros ele me retorne o sequencial a partir do 11



    Código:
    INSERT INTO tbl_inventario_geral ( Desenho_nota, Descricao_nota, Qtde_Nota, Bem_Nota, Dac_Nota, Locacao_Nota, Nome_Inv, Responsavel_Nota, Data_HR_Nota, Nome_Arquivo_Nota, Status, Num_Nota )
    SELECT tbl_inventario_Excel.Desenho_nota, tbl_inventario_Excel.Descricao_nota, tbl_inventario_Excel.Qtde_Nota, tbl_inventario_Excel.Bem_Nota, tbl_inventario_Excel.Dac_Nota, tbl_inventario_Excel.Locacao_Nota, [Forms]![frm_inventario_importar]![txtNomeInventario] AS InsereNomeInv, [Forms]![frm_inventario_importar]![txtResponsavel] AS InsereResponsavel, Now() AS InsereDtHr, [Forms]![frm_inventario_importar]![txtNomeArquivo] AS InsereNome, "ATIVO" AS InsereStatus, pega_Reg() AS InsereNumNota
    FROM tbl_inventario_Excel;

    o problema esta aqui: pega_Reg() AS InsereNumNota


    montei isso só que ainda não consegui fazer funfar

    Código:
    Function pega_Reg()

    Dim ULTIMO_REG, ttRegistros, NotaResultado As Double

    ULTIMO_REG = Nz(DMax("Num_Nota", "tbl_inventario_Geral"), 0) + 1

    ttRegistros = Nz(DCount("*", "tbl_inventario_Excel"), 1)

    NotaResultado = ULTIMO_REG

    Dim I As Integer

    For I = ULTIMO_REG To ttRegistros

    NotaResultado I

    Next

    End Function


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Criar um sequencial em uma consulta Empty Re: [Resolvido]Criar um sequencial em uma consulta

    Mensagem  vieirasoft 20/12/2018, 13:16

    Utilize uma função para isso. Veja este exemplo e adapte

    Option Compare Database

    Global GBL_Category As String
    Global GBL_Icount As Long

    Public Function increment(ivalue As String) As Long

    If Nz(GBL_Category, "zzzzzzzz") = ivalue Then
    GBL_Icount = GBL_Icount + 1
    Else
    GBL_Category = ivalue
    GBL_Icount = 1
    End If
    increment = GBL_Icount
    End Function
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Criar um sequencial em uma consulta Empty Re: [Resolvido]Criar um sequencial em uma consulta

    Mensagem  =>Nois 20/12/2018, 18:38

    não consegui

    pensei em fazer assim mas da problema tb no sequencial

    Dim sSql As String

    sSql = "INSERT INTO tbl_inventario_geral ( Desenho_nota, Descricao_nota, Qtde_Nota, Bem_Nota, Dac_Nota, Locacao_Nota, Nome_Inv, Responsavel_Nota, Data_HR_Nota, Nome_Arquivo_Nota, Status, Num_Nota )"
    sSql = sSql & " SELECT"
    sSql = sSql & " tbl_inventario_Excel.Desenho_nota"
    sSql = sSql & " ,tbl_inventario_Excel.Descricao_nota"
    sSql = sSql & " ,tbl_inventario_Excel.Qtde_Nota"
    sSql = sSql & " ,tbl_inventario_Excel.Bem_Nota"
    sSql = sSql & " ,tbl_inventario_Excel.Dac_Nota"
    sSql = sSql & " ,tbl_inventario_Excel.Locacao_Nota"
    sSql = sSql & " ,Forms!frm_inventario_importar!txtNomeInventario AS InsereNomeInv"
    sSql = sSql & " ,Forms!frm_inventario_importar!txtResponsavel AS InsereResponsavel"
    sSql = sSql & " ,Now() AS InsereDtHr"
    sSql = sSql & " ,Forms!frm_inventario_importar!txtNomeArquivo AS InsereNome"
    sSql = sSql & " ,'ATIVO' AS InsereStatus"
    sSql = sSql & " ,PegaReg() AS InsereNumNota"
    sSql = sSql & " FROM tbl_inventario_Excel;"

    DoCmd.RunSQL sSql


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Criar um sequencial em uma consulta Empty Re: [Resolvido]Criar um sequencial em uma consulta

    Mensagem  FabioGO 21/12/2018, 12:28

    Pode ser que com recordset seja melhor, veja se esse meu post desse tópico te ajuda: https://www.maximoaccess.com/t34372-resolvidocomo-fazer-uma-tabela-continua#237120
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Criar um sequencial em uma consulta Empty Re: [Resolvido]Criar um sequencial em uma consulta

    Mensagem  =>Nois 26/12/2018, 12:02

    estava trabalhando em um recordset e consegui concluir hoje, não utilizei seu modelo mas agradeço,

    consegui fechar aqui.

    Obrigado a todos. santa


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 1/8/2021, 12:49