[Resolvido]Quando já existir um cadastro do Aluno ao inserir seu nome autocompletar todo formulario

Boa noite galera e muito grata pela ajuda que venho tendo aqui no forum. Vocês são D+.
Novamente irei explicar o que tenho pronto, e o que necessito. Não sei se será possível. Tentarei explicar detalhadamente.

Tenho Dua Tabelas prontas

Tabela Aluno - com os seguintes campos

IDaluno.........>chave primaria
NomeAluno
Curso
Datainiciocurso
Periodo
Datanascimento
Endereço
Bairro
Cidade
Estado
Cep
Telfixo
Cel
Telrec
RG
CPF
Email
Obs

Tabela curso apenas dois campos

IDcurso.............>chave primaria
Curso

Relação um para muitos entre IDcurso da tabela curso com curso da tabela aluno.
O que necessito:
Quando cadastro o aluno junto com seus dados pessoais também ja entro com o curso escolhido por ele nesse mesmo formulario.
Agora vamos supor, cadastrei José Maria no curso de ingles. Agora ele retorna depois de meses para cursar espanhol.
Como faço para ao entrar com nome dele, como já é cadastrado, todos os capos ja aparecerem autocompletados? É possível? Assim só preencho o campo curso com esse novo escolhido por ele.
Não é preguiça de digitar galera é que o aluno quando retorna para nova matricula nao necessita trazer os documentos, nem preecher esses dados na ficha de inscrição. Ele só preenche o nome e que ja tem inscrição e o curso que deseja fazer agora.
Não sei se conseguem ajudar,espero que sim, mais grata por tudo assim mesmo.
Até mais MArlene

Você pode fazer isso carregando todos os campos em uma combobox e então utilizar o índice da como, que começa no 0. Se você tiver 10 campos na tabela, tem os índices de 0 a 9. No evento "Após atualizar" da como, use:

Me.Campo1Doform = Me.NomeDaCombo.Column(1)
Me.Campo2Doform = Me.NomeDaCombo.Column(2)
Me.Campo3Doform = Me.NomeDaCombo.Column(3)
Me.Campo4Doform = Me.NomeDaCombo.Column(4)

Se algum campo sair errado, mude o índice para adequar.

Tabem pode ser feito por DLookup ou por Recordset, para os quais você encontra uma boa quantidade de tópicos já resolvidos no fórum.

Criquio sou iniciante confesso que fiquei perdida na resposta desculpa tanta falta de conhecimento. Existe uma forma mais detalhada para acompanhar seu raciocínio? Isso se já não estiver detalhado e eu boiando rs . Desculpe-me se for o caso.

Grata
Marlene

Vamos supor que você tenha uma tabela com os campos Código, Nome, Endereço, Telefone, Email e Observações. Você tem seis campos nessa tabela, certo? Se, em um formulário, você inserir uma combo, ela pedirá a tabela de origem, certo? Quando você escolher a tabela, poderá escolher quais campos irá adicionar à essa combo, certo? Se você escolher todos os seis, e para o exemplo que citei esse seria o caso, você terá seis campos na sua combo, que é o mesmo que seis colunas. Cada uma dessas colunas tem um índice, que começa em zero. Portanto, se a sua combo tiver 6 colunas, os índices dela irá de 0 a 5. Para preencher cada campo do formulário com os dados dessas colunas, basta usar o número da coluna.

Eu tb não conheço muito bem, mas há uns 2 dias encontrei este forum e estou amando. E acho q sua dúvida pode ser resolvida por este exemplo abaixo, os meninos aqui foram quem me ajudaram a fazer. Veja se lhe atende.

http://speedy.sh/ddCA9/Exemplo-combo-2.rar

Aneju obrigada pela ajuda.
Não consegui entrar na estrutura para analisar como vc montou seu formulario, gostaria muito de verificar como vc fez.
Vamos partir desse seu principio, quando existe a pessoa cadastrada os demais campos realmente estão sendo preechidos automaticamente, porém qdo quero cadastrar um aluno novo que sera o primeiro cadastro dele no sistema, no seu formulario não consigo.
Então necessito do que vc fez porém preciso conseguir cadastrar alunos novos também. Entende minha dúvida?
Por favor tenta me passar o modo de estrutura para eu analisar como vc fez.
Muito grata
Marlene

Esse é o código que tenho.

Option Compare Database
Private Sub cbocliente_AfterUpdate()
DoCmd.ApplyFilter , "CodigoCliente = " & Me!cbocliente.Column(0) ' Codigocliente chave primaria, cbocliente, onde vai buscar o nome desejado

Me!cbocliente = Null 'deixa a combo vazia, limpa.


End Sub

Private Sub Form_Load()
Me.Section(0).BackColor = 12180223 ' muda a cor do corpo do formulario
Me.CabeçalhoDoFormulário.BackColor = 12180223 ' muda a cor do cabeçalho
DoCmd.GoToRecord , , acNewRec ' esse comando, inicia com um novo registro, deixando o formulario em branco
' os camandos abaixo trava os campos
CodigoCliente.Enabled = False
Nome.Enabled = False
CPF.Enabled = False
FoneResidencial.Enabled = False
FoneComercial.Enabled = False
Celular.Enabled = False
Email.Enabled = False
Endereco.Enabled = False
PontoReferencia.Enabled = False
Observacao.Enabled = False
End Sub

Private Sub Form_Timer()
Me.TimerInterval = 500
Me.Refresh
End Sub

Para cadastrar novo cria um botão cadastrar e outro salvar coloca este código no evento clicar de cada um.

Private Sub bt_novo_cadastro_Click()
' ao apertar o botão aparece a seguinte mensagem
If MsgBox(" Deseja cadastrar um novo cliente ?", vbYesNo + vbDefaultButton1 + vbInformation, "Mensagem") = vbYes Then
DoCmd.GoToRecord , , acNewRec ' quando clica no ok, abre para inserir o registro.
Me.Section(0).BackColor = 11389934 ' muda a cor do corpo do formulario
Me.CabeçalhoDoFormulário.BackColor = 11389934 ' muda a cor do cabeçalho
' as linhas abaixo liberam os campos para a inserção de dados
Nome.Enabled = True
CPF.Enabled = True
FoneResidencial.Enabled = True
FoneComercial.Enabled = True
Celular.Enabled = True
Email.Enabled = True
Endereco.Enabled = True
PontoReferencia.Enabled = True
Observacao.Enabled = True
Else
MsgBox " Ação cancelada, registro não cadastrado.", vbInformation, "Operação Cancelada"
End If
End Sub

Private Sub bt_salvar_Click()

If IsNull(Me.CodigoCliente) Then
MsgBox "Formulário em branco. Não foi possível salvar.", vbInformation, "Salvar"

Else
If Me.Dirty Then
If MsgBox(" Deseja salvar esse cadastro ?", vbYesNo + vbDefaultButton1 + vbInformation, "Salvar") = vbYes Then
DoCmd.Save ' salva o registro
DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
MsgBox " Cadastro salvo com sucesso!", vbOKOnly, "Cadastro Salvo"
Me.Refresh
DoCmd.GoToRecord , , acNewRec

End If
End If
End If

'ao apertar ok, trava os campos abaixo
CodigoCliente.Enabled = False
Nome.Enabled = False
CPF.Enabled = False
FoneResidencial.Enabled = False
FoneComercial.Enabled = False
Celular.Enabled = False
Email.Enabled = False
Endereco.Enabled = False
PontoReferencia.Enabled = False
Observacao.Enabled = False
Me.Section(0).BackColor = 12180223 ' muda a cor do corpo do formulario
Me.CabeçalhoDoFormulário.BackColor = 12180223 ' muda a cor do cabeçalho

End Sub


O meu eu fiz assim.

Aneju, não estou conseguindo fazer funcionar.

O exemplo que me enviou estava quase la, só bastava funcionar com inclusão de cadastrados ainda não existente.
Porém seu exemplo esta bloqueado a estrutura. Tem como mandar esse exemplo novamente sem bloquear para ver se consigo finalmente um caminho. Pois da forma que enviou por ultimo não consigo acrescentar no meu banco. Se eu entender o seu posso enfim desenrolar o meu.

Grata
Marlene

Marlene,

Meu banco está completamente aberto. Não tem nenhum bloqueio, nada! qdo abre geralmente aparece uma barra do proprio access pedindo para habilitar o conteúdo. é só clicar no botão q dá certo. veja aí e me diga. abs

Olá Marlene!

Eu baixei o exemplo da Aneju e realmente esta totalmente livre (desbloqueado).

Qual a versão do Access que você utiliza?

Marlene,

O que acontece é que na folha de propriedades do formulário estão definidas como "Sim" as propriedades Pop-up e Janela restrita, isso desativa as possiveis formas de exibir o modo design do formulário, quando o mesmo esta aberto. Porém, é possivel abri-lo diretamente no modo design clicando com o botão direito do mouse sobre o formulario (objeto) na lista de formuláros e escolhendo a opção "Modo Design". No caso de não ter cido muito claro, estou enviando o exemplo com os botões "Novo" e "Salvar" com os códigos que a Aneju utilizou.



Sucesso!

Aneju e Lupe estou olhando aqui e retorno pra vcs dizendo se deu certo.

Até mais
Obrigada
Marlene

Aneju e Lupe peço desculpas por ser tão novata no assunto não percam a paciencia comigo rs.
Tem razão, esta sim aberto o modo estrutura, abriu aqui.
Anaju onde você entra para inserir os codigos que me passou acima? Você insere como vB? ou é mais simples que eu esteja imaginando?

Lupe e Aneju é isso que necessito, como me enviaram, autocompletar e cadastrar novo, porém falta um detalhe, tentarei explicar.
Quando existe ja o cadastrado ele preenche os campos tudo certinho, porém preciso de um campo onde posso cadastrar, acrescentar dados.
Como no exemplo que dei acima, existe o aluno cadastrado no inglês, então puxo cadastro existente dele, os campos são completados sem eu digitar nada, porém o campo curso precisa me deixar acrescentar um novo curso, supomos que o aluno agora quer fazer espanhol.
Esses cursos necessitam de codigo proprio pois qdo fazer uma consulta por curso ele me permita listar todos alunos desse curso.
E qdo listar aluno ele me mostre todos os cursos feito por ele. Que acham? Daria certo?
Vamos supor que no exemplo que vcs me enviaram o campo observação fosse Matricula de curso, então qdo autocompletar necessitaria que esse campo me permitisse adicionar novo curso.

Não sei se consegui explicar.
Abraços até mais
Marlene

o marcelo acabou de resolver um problema pra mim. lá tem cópia do meu BD é só copiar e adequar ao seu projeto. abs e sorte.

Marlene,

É perfeitamente possivel o que pretendes fazer. Não sei se há uma forma mais simples, mas, eu criaria uma nova tabela chamada "tblMatricula" na qual informaria o aluno e o curso, conforme o exemplo que anexei no tópico anterior. Ou seja, você teria que fazer uma fusão entre os dois exemplos.

Para inserir os códigos você precisa entrar no VBA. A melhor forma é abrir a folha de propriedades de um controle ou do próprio formulário e no evento que pretendes inserir o código escolha a opção [Procedimento do evento] e clique no botãozinho ao lado (...) para abrir a janela do VBA.

Precisando é só reportar. Não se preocupe, acho que posso falar por todos que se disporem a te ajudar que não perderemos a paciencia com você, nem com nenhum outro membro do fórum.

Sucesso!

Marlene,

Olha um exemplo aqui: Acho q te atenderá perfeitamente. O pessoal aqui foi quem me ajudou a fazer. abs

http://maximoaccess.forumeiros.com/t7273-resolvidoproblema-com-a-combo

Lupe nem imagina o quanto é bom ler suas palavras, de ver que se importam mesmo qdo fazemos perguntas as vezes podem ser tão principiantes no assunto.
Vou ver se acho esse exemplo que vc postou. Obrigada por informar o local correto onde entro com os codigos.

Anaju abri seu exemplo e estou estudando como poderia adequar ao meu trabalho. Hoje e amanhã tenho que ficar ate tarde na facul e não terei muito tempo para testar. Mais assim que mexer te respondo se deu certo. Assim como responderei ao Lupe.
Adorei seu grito de alegria qdo deu certo seu DB. rs. Farei o mesmo qdo o meu rodar .rs

Obrigada amigos
Marlene

Marlene,

Entre uma folginha e outra elaborei o exemplo em anexo pra ver se conseguimos atender a sua necessidade.

No formulário "Matrículas de Alunos", para inserir um aluno, mova o foco para o campo "Código" correspondente e pressione a tecla "F8". A janela "Localizar Registro" será aberta. Digite as iniciais ou qualquer parte do nome do aluno e clique em "OK" para exibir a lista contendo o(s) aluno(s) desejado(s). Clique sobre o nome do aluno para inseri-lo no formulário "Matrículas de Alunos". Faça o mesmo para inserir o curso desejado.

Para visualizar os relatórios, filtrando por aluno ou por curso, clique no botão "Relatório". Será exibida a janela "Parâmetros de Relatório" com as opções de filtrar por aluno ou por curso. Caso você não queira filtrar, por exemplo, o relatório por aluno, basta deixar o campo "Aluno" em branco e clicar em "OK". Neste caso o relatório exibirá todos os alunos matriculados. O mesmo procedimento serve para o relatório por curso.

No formulário "Cadastro de Alunos" eu inseri, no campo CPF, um código que identifica se já existe algum aluno cadastrado com o mesmo CPF. Caso exista, será exibida uma mensagem informando o aluno que já possui o CPF duplicado no novo registro. Você poderá cancelar (recomendável) ou prosseguir com o registro.

Espero que eu não tenha complicado as coisas...(riso). E espero que tenha conseguido lhe ajudar de alguma forma.

Qualquer dúvida é só reportar.

Marlene,
Eu tb não sei usar muito bem não, e nesta zona de VBA estou iniciando agora. rsrsrss Eu não sei como te direcionar corretamente, mas o pessoal aqui pode te ajudar melhor do que eu.

Eu geralmente abro o frm vejo o q quero q funcione, por exemplo um botão, vou para o modo designer e clico no botão q quero conhecer os códigos e clico em propriedades olho o que tem de diferente, adequo ao meu, clico nos procedimentos olho o q tem de diferente e vou fazendo testes, testes e mais testes, olho as tabelas para v as configurações e se nada dá certo recorro aos meus oráculos do MaximoAccess q além de inteligentes, são muito gentis e prestativos.

Boa sorte com seu BD, se eu puder ajudar voltarei a postar e...cuidado com as comemorações, rsrsrsrss

cheiruuu no coração.

Marlene, bom dia...
Se você disponibilizar seu aplicativo com os objetos que envolvem sua dúvida, posso tentar algo p/ você.

Grato.

Amigos Lupe, aneju e Marcelo cheguei agora e irei estudar o que postaram, irei quebrar a cabeça aqui e falo se deu certo as dicas.
Marcelo boa ideia, se dessa vez eu não conseguir passo meu projeto para vc analisar consegue enxergar uma forma de resolver minha duvida ou fazer um relacionamento novo com uma nova tabela chamada matricula por exemplo como foi sugerido acima.
Ate mais vou la queimar neuroniosss rs.

Marlene

Marcelo tenho um problema urgente que surgiu fora esses que ja postei. Tenho dois bancos simples identicos, um é para cadastrar alunos formados e outro para cadastrar alunos desistentes (precisa ser bancos separados, exigencia do chefe). Porém tem aluno que fez o curso de culinaria e desistiu, abandonou o curso de ingles.
Tenho todo cadastro de formandos prontinha, mais de 4 mil alunos. Irei começar a cadastrar os desistentes.
Preciso que ao cadastrar um desistente ele faça uma pesquisa no cadastro de formandos e se tiver o nome desse aluno formado em algum outro curso que retorne os dados e cursos que ele se formou.
É possível?
Estou enviando os dois bancos, pode ver que é bem simples.
Muito grata se puder ajudar
Marlene

Acho que você não anexou os arquivos.
Fiquei na dúvida: são dois arquivos Access?
Acho melhor um tópico específico para essa questão.

marcelo sim são dois arquivos access, porem nao sei porque nao esta anexando, não estou conseguindo anexar, sera que estou anexando errado? Ja deixei em Zip

primeiro formados

segundo desistentes

São identicos, porem quando cadastrar os desistentes necessito que consulte o formados para ver se o aluno se formou em outro curso depois de desistir de outro

Acho melhor um tópico específico para esta questão. Poderás por um título assim: Pesquisar valor em bancos de dados diferentes. E fazer sua descrição. Se continuarmos aqui, estaremos infrigindo as normas do fórum. Te aguardo no tópico que abrir. E não esqueça de anexar lá os arquivos!

ok Marcelo farei isso

Tópico aberto a mais de 15 dias sem retorno
da usuária.
Marcado como Resolvido. Caso contrário, basta
reabrí-lo.