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


    Código automático ao salvar

    avatar
    #JEANHARD
    Novato
    Novato

    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 em 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 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 em 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 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 em 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 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 em 2/6/2018, 12:56

    Blz, no aguardo
    avatar
    #JEANHARD
    Novato
    Novato

    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 em 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 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 em 2/6/2018, 13:14

    Tem dados na tabela?
    avatar
    #JEANHARD
    Novato
    Novato

    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 em 2/6/2018, 13:15

    sim
    avatar
    #JEANHARD
    Novato
    Novato

    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 em 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 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 em 2/6/2018, 13:25

    Blz
    avatar
    #JEANHARD
    Novato
    Novato

    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 em 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 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 em 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 11 vez(es)

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/5/2019, 14:11