[Resolvido]Subformulário com número fixo de linhas para cada registro do formulário principal.

Boa Noite,

Alguém poderia me ajudar nisso. Gostaria muito saber como faço para, ao abrir meu formulário principal, pudesse ter para cada novo registro nele, um subformulario já com um total pré estabelecido de linhas. Meu objetivo é poder inserir fórmulas para cálculos automáticos relativos aos dados de cada registro do formulário principal.

Desde já, o meu Muito Obrigado.

tuvok@20hotmail.com

Boas Tuvok...

Estás abrindo varios tópicos para a mesma dúvida. Isto contraria as regras do Fórum.

Atente para isto para não lhe ter diminuída a porcentagem de respeito as regras!!!
Tenha paciência e assim que possível algum usuário lhe auxiliará com tua dúvida.


Saudações.

Moderação!

Eis sua solução:

https://dl.dropbox.com/u/26441349/Tuvok.rar



Aconselho a dar uma olhadinha nas regras do Fórum.

Novamente... Seja bem vindo.

Abraços.

Maravilha, cara

Mas na verdade tu fez bem mais do que eu queria.
O que eu queria mesmo era simplesmente poder abrir um subformulário com tipo umas 25-30 linhas em branco para cada registro novo no formulário principal. Minha intenção é , a medida que eu for adicionando no principal novos registros, eu já tenha essas linhas num tamanha de layout fixo para eu poder introduzir umas fórmulas, de preferência aprendendo a fazer isso, senão como vou poder alterar, se eu precisar.

A propósito, seria pedir demais também, me ensinar a fazer login, poder cadastrar usuários para determinar quem pode consultar e quem pode alterar dados no meu aplicativo?

Novamente, Muito Obrigado.

tuvok20

Boas Tuvok, observe o código que coloquei no botão:


Private Sub btnAdicionar_Click()
Dim X As Integer

For X = 1 To Me.txtNum
CurrentDb.Execute "INSERT INTO tblExemploSubl(ID_Cod)" _
& " Values(""" & Me.ID_Cod & """);"
Next X
Me.SubForm.Requery
End Sub


Ele utiliza um procedimento com o For que executa um loop no código começando de 1 até o número contido na caixa texto txtNum. a ao ocorrer isto adiciona um novo registro no sub form.


O que tens que fazer:


Criar um botão BtnNovo. Este botão adicionará novo registro no form e no mesmo código executar a rotina acima. Só que ao invés de colocar o valor manualmente na caixa texto, colocar diretamente no código.


Algo Assim:


Private Sub btnNovo_Click()
Dim X As Integer

DoCmd.GoToRecord , , acNewRec


For X = 1 To 25
CurrentDb.Execute "INSERT INTO tblExemploSubl(ID_Cod)" _
& " Values(""" & Me.ID_Cod & """);"
Next X
Me.SubForm.Requery
End Sub


E retire os botoes de navegação nativos do access, para evitar que o usuario insira novo registro por este.


Cumprimentos.



Ps. Quanto as questão que pediste sobre ensinar sobre login etc...

O Fórum não funciona desta maneira, vá confeccionado seu BD e a medida da evolução, ao surgirem duvidas crie um tópico para que possa ser auxiliado.