helvio

Olá Leandro É o seguinte: Quando eu incluir o Codigo_Inicial e a Quantidade no formulário principal ele gere automaticamente a sequência numerica no sub formulário e armazene os codigos gerados e a descrição do produto. não encontrei onde anexar este db para você verificar o que ocorre. meu email é helvio@saude.to.gov.br, se você puder me envie um email e eu lhe mandarei o DB.

É o seguinte: deve ser gerado qualquer sequencia numerica sequencial: ex: 1 até quat. 1 até 10, 1,2,3,4,5,..... e serem gravados em uma tabela qualquer. Quando for gerar outra vez pega-se o último número até quantidade e gera a nova sequencia: se for possivel eu envio o arquivo em access para você ver como é: o codigo para o botão que vai gerar a sequência: Function Gerar_Codigo() Dim F As Form Dim S As Form Dim C As Control Dim Qtde, Descricao, i Set F = Forms![Formulario_Principal] Set S = Forms![Formulario_Principal]![sub_Formulario].Form Set C = Forms![Formulario_Principal]![sub_Formulario] '' Quantidade informada no Formulário principal : Qtde = F![Quantidade] '' Descrição da Ferramenta : Descricao = F![Descricao_Ferramenta] ''Código Inicial da Ferramenta : CodInicial = F![Cod_Inicial] Forms!Formulario_Principal.SetFocus DoCmd.GoToControl "Sub_Formulario" For i = 1 To Qtde S![Cod] = CodInicial S![Descricao] = Descricao CodInicial = CodInicial + 1 Forms!Formulario_Principal.SetFocus DoCmd.GoToControl "Sub_Formulario" DoCmd.GoToRecord acActiveDataObject, , acNewRec Next i ''DoCmd.RepaintObject A_FORM, "Formulario_Principal" F.Refresh F.Requery End Function

Ok, obrigado. mas o problema é que eu devo digitar uma quantidade de vezes que o numero inicial dever ser somado com 1 e cada vez que fizer esta soma gravar em uma tabela. ex: Quantidade "5" Cod_inicial = 6 resultadto 6 7 8 9 10 11 .

Meu problema é o seguinte: Quero gerar uma deterninada sequencia numerica a partir de um numero. ex: 17001 e informar a quantidade de de numeros a serem gerados. ex: 3, a sequencia criada em uma tabela de ficar assim 17001, 17002, 17002. Tentei criar uma tabela com um sub_formulário e um botão para gerar os numeros mas não funcionou. alguém porde me ajudar?