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

    Código automático ao salvar

    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Código automático ao salvar Empty Código automático ao salvar

    Mensagem  #JEANHARD 2/6/2018, 12:41

    Bom dia.
    Estou desenvolvendo uma aplicação em vba com banco em access na qual a numeração automática é gerada ao abrir o formulário.
    O que eu quero é inverter, quero que quando for salvar os dados então verifique qual o ultimo registro da tabela e ai gere a numeração e salve a mesma em conjunto com os outros dados.

    sql = ""

    sql = "INSERT INTO Tbl_Fornecedores (CodigoFornecedor, RazaoSocial,"
    sql = sql & " NomeFantasia, CNPJ, CPF, InscricaoEstadual, RamodeAtividade, DataCadastro,"
    sql = sql & " Endereco, Numero, Complemento, Bairro, Cidade, UF, CEP, Referencia )"
    sql = sql & " VALUES ("

    sql = sql & "'" & Me.Txt_CodFabr.Value & "', " ' Aqui quero ao invés de usar o código gerado na textbox que gere a partir da tabela no ato de salvar.
    avatar
    TorresForte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 18/05/2010

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  TorresForte 2/6/2018, 12:52

    Pesquise sobre a função Dmax

    Ela vai retornar o maior valor de determinada coluna de sua tabela, aí vc soma esse valor retornado + 1
    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  #JEANHARD 2/6/2018, 12:54

    Sim conheço essa funçao enao tinha pensado nisso. Vou testar e retorno.
    avatar
    TorresForte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 18/05/2010

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  TorresForte 2/6/2018, 12:56

    Blz, no aguardo
    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  #JEANHARD 2/6/2018, 13:10

    Usei dessa forma mas da Erro Reservado na linha xm = Dmax


    Dim xm As Integer

    xm = DMax("CodigoFornecedor", "Tbl_Fornecedores") + 1 'Aqui da erro reservado

     sql = ""
         
                      sql = "INSERT INTO Tbl_Fornecedores (CodigoFornecedor, RazaoSocial,"
                      sql = sql & " NomeFantasia, CNPJ, CPF, InscricaoEstadual, RamodeAtividade, DataCadastro,"
                      sql = sql & " Endereco, Numero, Complemento, Bairro, Cidade, UF, CEP, Referencia )"
                      sql = sql & " VALUES ("
                     
                      sql = sql & "'" & xm    'Me.Txt_CodFabr.Value & "', " 'campo obrigatorio


    '''' MINHA TABELA NÃO TEM NUMERAÇÃO AUTOMÁTICA
    avatar
    TorresForte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 18/05/2010

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  TorresForte 2/6/2018, 13:14

    Tem dados na tabela?
    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  #JEANHARD 2/6/2018, 13:15

    sim
    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  #JEANHARD 2/6/2018, 13:19

    Vou fazer um modelinho aqui com Banco pra ficar mais facial pra gente
    avatar
    TorresForte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 18/05/2010

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  TorresForte 2/6/2018, 13:25

    Blz
    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  #JEANHARD 2/6/2018, 13:59

    Anexo modelo.
    O Txt_Visual é somente visual mesmo minha intenção não é usálo no código.
    Quero que al clicar em Salvar o código busque no banco o último registro e salve com +1 e traga em uma msgbox o código que foi salvo.

    Isso é pra futuro próximo e se resolvermos pode ajudar muita gente também como vai me ajudar.
    Abraços e vamos lá rs
    avatar
    #JEANHARD
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/03/2018

    Código automático ao salvar Empty Re: Código automático ao salvar

    Mensagem  #JEANHARD 2/6/2018, 14:49

    Resolvi a solução estava no próprio projeto.
    Anexo para que possa ser útil ha algum colega.
    Abraços e muito obrigado
    Anexos
    Código automático ao salvar AttachmentNum_Automatica.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 13 vez(es)

      Data/hora atual: 7/12/2022, 23:24