[Resolvido]Adicionar novo "sub" registro

Boa tarde meus amigos que tanto tem me ajudado nessa tarefa que tem sido a construção do sistema escolar. Estou com mais um empasse!

esse é meu formulário



essa é a relação das minhas tabelas



e esse é o código que estou utilizando para inserir novos "sub" registros, ou novos cursos.

Código:

Private Sub Comando432_Click()

    'adiciona dados a tabela
    NovoCurso = "INSERT INTO DADOS_CURSO_MENSALIDADE (ALUNO, PROFESSOR, CURSO, DIA_DA_SEMANA, HORARIO, VALOR_MENSALIDADE, MODO_DE_CURSO, TURMA) Values ('" & Me.[ALUNO] & "', '" & Me.[PROFESSOR] & "', '" & Me.[CURSO] & "', '" & Me.[DIA_DA_SEMANA] & "', '" & Me.[HORARIO] & "', '" & Me.[VALOR_MENSALIDADE] & "', '" & Me.[MODO_DE_CURSO] & "', '" & Me.[TURMA] & "' )"
DoCmd.RunSQL (NovoCurso)

    'atualiza dados da lista do formulário
    DADOS_CURSO_MENSALIDADE_subformulário.Form.Requery
End Sub

Porém, ao inserir um novo curso, o primeiro é atualizado e alterado. Gostaria que o primeiro registro não atualizasse e que conseguisse passar de um para um outro com um botão estilo "próximo". Alguém pode me dar um help?

boa noite , sempre tive problema com esse insert, que entender porque o erro nele, fico de carrona, mas esse vai te ajudar

Código:

Dim DB      As DAO.Database
Dim sSQL    As String
 
Set DB = CurrentDb
        sSQL = "INSERT INTO Tab_Recibos"
        'CAMPOS da tabela----------------------------------------
        sSQL = sSQL & "("
     
        sSQL = sSQL & "  NomeCliente"
        sSQL = sSQL & " ,Endereco"
      ' sSQL = sSQL & " ,cpf"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
   
        sSQL = sSQL & "  '" & Trim(Me.txtNome & "'"
        sSQL = sSQL & " ,'" & Trim(Me.txtEndereco) & "'"
        'sSQL = sSQL & " ,'" & Trim(Me.txtcpfCadastrar) & "'"
        sSQL = sSQL & ")"
        DB.Execute sSQL

      MsgBox "cadastro foi salvo!", vbInformation""
      On Error Resume Next
     

vou testar aqui e digo se deu certo

Bom dia
Respeite as regras. Não escreva em maiúsculas e adeqúe o título

crysostomo, então, coloquei o código que você me mandou, inseriu o curso sim, porém continua o mesmo problema de atualizar o primeiro.

Será que há uma opção de ao inserir um curso os campos meio que se "limparem" ficando prontos para um novo registo? dentro é claro da ficha do mesmo aluno?

Alexandre, me perdoe, já fiz as alterações.

docmd.gotorecord ,,acnewrec
Esse comando já vai para um novo registro com os campos vazios para preencher.

então, eu já tentei usar esse comando, porém ele gera um novo registro "total", eu queria adicionar um novo registro no sub-formulário. O que eu tenho a impressão é que quando estou adicionando um novo curso, o comando está agindo da forma certa, porém como os dados ficam inseridos no formulário o sistema acaba entendendo que é para atualizar o que está ali.

Então o que eu queria era que somente essa parte do curso ao carregar, ficasse em branco para um novo registro. Não sei se estou conseguindo me explicar direito.

já tentei até usar

Código:

docmd.gotorecord ,,acnewrec
me.[curso].setfocus

mas não obtive sucesso. Estou tentando especificar o caminho do subformulário no lugar de curso, mas não estou obtendo sucesso.

Boa tarde a todos !

Primeiramente peço a licença do nosso amigo crysostomo.


Paloma onde colocou o botão para inserir o novo registro ? Se quer inserir um novo registro dentro do subformulário mantendo os dados principais do formulário pai tens que colocar o botão dentro do subformulário.

Se já fez isso, desconsidere.

Caso não teste e nos retorne.

Realmente seria bem  mais rapido colocar um botão  dentro do sub

está dando erro



veja se estou fazendo errado?

Código:

Me.CS_DADOS_CURSO_MENSALIDADE_subformulário.SetFocus 'move o foco para o subformulario
Me.CS_DADOS_CURSO_MENSALIDADE_subformulário!CURSO.SetFocus 'move o foco para um controle no subformulario
DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
DoCmd.GoToRecord , , acNewRec 'cria novo registro

Boa tarde !

Paloma faça um backup desse código, limpe todo o código do botão e dentro do mesmo no subformulário coloque apenas:

DoCmd.GoToRecord , , acNewRec

E teste

tiro todo o código do botão? ou só esse último código? não entendi


Se eu colocar somente esse código no botão, ele vai adicionar um novo registro geral, não é isso?
eu preciso que ele adicione apenas um novo registro no subformulário, ficando em "branco" para adicionar novos cursos.

Boa noite palomasgp. veja o anexo. Não entendi o textão , mas tem 2 botões, um adiciona  nova disciplina , outro adiciona novo registro no subformulário mantendo o registro pai.

crysostomo, então, eu entendi o princípio da sua ideia, vou tentar enviar meu banco de dados por aqui pra que todos consigam entender o que eu preciso.

Então, eu tenho uma tabela principal que é a DADOS ALUNOS, onde estão todos os dados dos alunos, suas necessidades especiais e dados do responsável, todos os dados no mesmo formulário, porém cada um em sua guia.

A guia CURSOS vem de outra tabela, a DADOS_CURSO_MENSALIDADE onde estão os dados do curso do aluno.

Ambas as tabelas estão com a chave primária e chave estrangeira de ID_MATRÍCULA.

O que eu quero é poder adicionar mais de um curso por aluno. Por isso coloquei os dados no formulário e o subformulário é uma consulta da tabela DADOS_CURSO_MENSALIDADE.

Assim, eu queria colocar os dados do curso no form e os mesmos fossem adicionados no subform, porém, pelo que eu estou entendendo os dados ficam salvos no formulário, dai eu até consigo adicionar mais de um curso, porém o primeiro sempre se atualiza, e eu não gostaria que isso acontecesse.

Hoje não consigo, mas amanhã no serviço vou tentar subir o BD para que todos possam entender melhor.

De qualquer forma, estou tentando todos os códigos enviados.

perdão thiagonsilvaa eu não havia visto seu comentário sobre adicionar um botão dentro do subform

vou testar aqui e amanhã lhes dou o feedback

voce quer colocar tipo 200 alunos 200 guias?

Bom dia a todos !

Certo Paloma, veja e nos retorne.

boa tarde pessoal do fórum, desculpe-me pela demora em lhes responder. Passei mal e não consegui ver o sistema ainda, mas assim que eu conseguir eu mando aqui. Tem prazo para deixar o tópico aberto?

Boa tarde a todos !

Paloma, como ficou sua situação ?

Bom dia pessoal, perdoem-me pela demora, tive uns problemas. Enfim, mesmo testando todas as soluções que foram propostas, não consegui chegar ao ponto que eu queria. Vamos lá, eu realmente acho que não consegui me explicar corretamente, peço desculpas por isso.

- Tenho um form para cadastrar os alunos da escola.
      - Esse form depende de informações de 4 tabelas, sendo elas:
                       DADOS ALUNOS
                       DADOS_CURSO_MENSALIDADE
                       PROFESSORES
                       TURMA

- As guias, coloquei somente para organizar as informações na hora de fazer o cadastro.

- Dentro da Guia CURSOS eu tenho os dados da tabela DADOS_CURSO_MENSALIDADE e um subformulário de uma consulta criada a partir da mesma tabela.

Em outro tópico, um amigo me ajudou a inserir os dados dentro do subform. Até ai, ok, o problema é que, toda a vez que eu insiro um outro curso, a primeira linha do subform atualiza também, assim eu fico com dois cursos iguais e não diferentes.

O que eu tenho quase certeza de que esta acontecendo é que ao abrir o form os dados que ficam na tela são do curso que está inserido, assim ao mudar os dados para adicionar um novo curso, ele até adiciona, porém ele também atualiza as informações do primeiro.

O que eu preciso é que ao abrir o form, somente os dados da guia CURSOS esteja em branco para que eu possa adicionar quantos cursos forem necessários para um aluno.

Os códigos acima abrem um novo cadastro do aluno e eu preciso que ele abra um novo curso somente.

Perdoem-me pelo textão, mas espero que agora eu tenha conseguido me explicar corretamente.

Boa tarde Paloma !

Poste sua base de dados para podermos analisar.

Bem, segue a base de banco de dados, não sei se fiz corretamente, mas segue.

Boa tarde !

Se possível postar a base de dados por inteiro, pois falta algumas tabelas que se fazem necessárias, faça um backup e altere os dados pra dados fictícios caso tenha dados pessoais.

Caso o tamanho do projeto ultrapasse o permitido, envie para o email: thiaaguinsilvaa@gmail.com

Então, as tabelas que o form precisa estão todas no banco que eu mandei, o que falta são coisas que não afetam essa parte específica que eu preciso.

Se não conseguirem me ajudar, eu agradeço desde já por toda colaboração, mas infelizmente não fico confortável de postar meu banco de dados completo.

Espero que entendam....

Boa tarde Paloma !

Eu não consigo fazer uma simulação do erro com as partes faltantes.

Veja anexo uma base que fiz pelo que entendi da sua necessidade.

Veja todas as partes, relações, tabelas, formulários e me diga se te clareia as idéias.

Então, vi seu BD, gostei de só clicar e o curso entrar, mas o que acontece aqui na escola é que mesmo o curso tendo um valor fixo, oferecemos desconto, e eu preciso do valor com desconto para a emissão do carnê e o valor original para a folha de pagamento do professor. Como eu faria isso?

Boa tarde !


Veja o anexo e retorne.

Thiago, obrigada! Realmente não tinha pensado dessa forma! Vou tentar implementar isso no meu sistema.

Obrigada a todos, vou colocar o tópico como resolvido pois consegui uma solução para o meu problema!

Boa tarde Paloma !

Qualquer dúvida, só retornar.

O fórum agradece o retorno.

Até a próxima.

Boa tarde a todos! estou refazendo o meu sistema escolar e estou pensando se vale a pena separar os pais dos alunos em tabelas diferentes ja que um pai pode ter varios filhos e um aluno pode ter um ou mais pais .... ate agora so achei exemplos onde os dados dos pais estão juntos com o dados do aluno na mesma tabela.... alguem tem um exemplo diferente?

Bom dia.
Paloma, sucesso.
AmXavier é adequado separar para frente você pode prescisar de mas opções referente aos pais( puxando-os).
Abra outro tópico se caso for criar outro.