[Resolvido]Dados em tabelas diferentes

Olá amigos!

Estou criando um BD para cadastro de discos e esbarrei num problema:

Criei um formulário chamado LISTA DE DISCOS atrelado a uma tabela LISTA_DISCOS. Este formulário possui diversas informações sobre os discos (artista, nome do disco, ano, estilo, número de músicas, etc.). Os dados são lançados na tabela LISTA_DISCOS, com exceção dos dados ARTISTA e NOME DO DISCO. Para estes dois dados utilizo uma ComboBox para cada um e criei uma tabela chamada ARTISTA (com a relação de cantores e bandas) e outra tabela chamada NOME_DISCO (com os nomes dos discos).

O problema: quando preencho o formulário LISTA DE DISCOS ele escreve tudo certinho nos respectivos campos da tabela LISTA_DISCOS, mas se eu necessitar digitar um novo ARTISTA (que ainda não existe na lista) ou um novo DISCO (idem) estes novos registros não são lançados nas respectivas tabelas ARTISTA ou NOME_DISCO.

Gostaria de uma dica de como posso resolver este problema.

Antecipadamente agradeço.

Abraços.

Valeu Norberto!

Vou fazer o teste e verificar o aplicativo dos filmes.

Depois informo a resposta.

Abs.

Amigo Norberto,

Não sei o que fiz de errado, mas não funcionou.

Fiz alguns testes e os registros continuam não aparecendo nas tabelas ARTISTA e NOME_DISCO.

Abraço!

Caro Norberto,

Não aparece nenhuma mensagem de erro.

Anexo uma imagem do meu formulário para você entender melhor e ver as tabelas que criei.

Os campos ARTISTA e DISCO das ComboBox são o problema. Eles estão em tabelas específicas (Tab_Artista e Tab_Disco). Os outros campos estão na tabela Tab_Produtos. Eu não deixei ARTISTA e DISCO na Tab_Produtos porque quando eu abria a ComboBox aparecia nomes repetidos dos artistas. Exemplo: se eu tiver 5 discos do Chico Buarque, quando eu abrisse a ComboBox ARTISTA apareceria na lista o nome do Chico Buarque 5 vezes.

Abaixo está o código da ComboBox ARTISTA, já com os comandos que você mandou:



Option Compare Database

Private Sub ComboxArtista_Click()

End Sub

Private Sub ComboxArtista_NotInList(NewData As String, Response As Integer)
On Error GoTo Trato
Response = acDataErrContinue
If Confirmar("Deseja adicionar " & NewData & " ao cadastro?") Then
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tab_Artista")
rs.AddNew
rs!Artista = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Response = acDataErrAdded
Else
Me.ComboxArtista.Undo
End If
Exit Sub
Trato: MsgBox Err.Description
End Sub

Private Sub ComboxArtista_NotInList(NewData As String, Response As Integer)

End Sub

Private Sub OK_Produto_Click()

End Sub



Para o módulo que você enviou eu criei um módulo novo e colei as linhas lá.

O que na verdade acho que está faltando é adicionar alguma instrução ao botão OK para que, além de salvar o registro na Tab_Produtos, também salve os novos registros ARTISTA e/ou DISCO nas Tab_Artista e Tab_Disco.

Será que ficou mais claro?

Obrigado mais uma vez.

Abraço!

Amigo Norberto,

Funcionou para ARTISTA. Quando insiro um registro inexistente no formulário aparece a tela perguntando se quero inserir o novo registro e ele aparece na Tab_Artista.

Para o campo DISCO tentei fazer o mesmo, mas não consigo editar o código e quando tento inserir um registro novo aparece a mensagem "O TEXTO DIGITADO NÃO É UM ITEM DA LISTA. DESEJA EDITAR OS ITENS DA LISTA?"

Estou também com mais algumas dúvidas:

- Na Tab_Produtos eu criei os dois campos ARTISTA e DISCO, conforme orientado, mas estes registros ficam em branco. É assim mesmo?

- Quando clico para inserir novo registro as ComboBox ARTISTA e DISCO não apagam e permanecem com o registro digitado antes. O mesmo acontece quando navego pelos registros com as setas. Os campos alteram, mas o ARTISTA e DISCO digitado antes permanecem.

- O que utilizar ao invés de campos de pesquisa (que são coisa do "maligno")? Como listar as opções para a ComboBox?

- O que faz aquele módulo que você pediu para criar?

- Como fazer para o aplicativo de filmes exibir os elementos do BD? Não consigo ver as tabelas, formulários, etc...

Abaixo coloco como ficaram os códigos da ComboBox ARTISTA:



Private Sub ComboBox_NotInList(NewData As String, Response As Integer)
On Error GoTo Trato
Response = acDataErrContinue
If Confirmar("Deseja adicionar " & NewData & " ao cadastro?") Then
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tab_Artista")
rs.AddNew
rs!Disco = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Response = acDataErrAdded
Else
Me.ComboBox.Undo
End If
Exit Sub
Trato: MsgBox Err.Description
End Sub


Agradeço mais uma vez.

Norberto,

Vou analisar o aplicativo de filmes e retorno.

Grato!

Caro Norberto,

Tentei analisar o BD de filmes e aplicar uma metodologia parecida, mas meus registros de DISCO continuam não funcionando como eu gostaria. Já estou ficando meio maluco com isso, pois não consigo achar onde está o problema.

O problema acontece quando tento inserir um novo registro que não está na lista. Para ARTISTA eu consigo fazer isso na boa, mas para DISCO não está funcionando.

Anexei um arquivo ZIP com algumas telas do meu BD para ajudar a elucidar o mistério.

Peço se possível mais uma vez sua valiosa ajuda.

Obrigado!

Caro Norberto,

Posto novamente o arquivo em formato 2003.

Obrigado pelo retorno.

Abraço.

Amigo Norberto,

Eu (acho) que fiz as alterações que você falou e agora a ComboBox ARTISTA passou a dar outro erro. Quando eu digito um artista que não está na lista o Access pergunta "DESEJA ADICIONAR XXX AO CADASTRO?", e quando seleciono SIM aparece a mensagem "ITEM NÃO ENCONTRADO NESTA COLEÇÃO". Para a ComboBox DISCO continua da mesma forma.

Gostaria de aceitar a sua valiosa oferta de ajuda, mas não estou conseguindo converter meu BD para .mdb. Veja a mensagem de erro na figura anexa. Mesmo assim vou postar o BD no formato atual em outra mensagem.

Vou me dedicar mais ao estudo de VBA e Access, porém eu preciso terminar logo esse BD para poder utilizá-lo no controle dos meus discos. Hoje estou fazendo tudo no Excel e no Word e isso tem me tomado muito tempo, pois tenho outra atividade principal. Os discos são apenas uma espécie de hobby.

Com certeza terei mais dúvidas quando chegar nos outros formulários, nas consultas e nos relatórios, mas como você disse, vamos deixar isso mais para a frente. Quem já analisou este meu BD disse que ele é simples e por ser monousuário fica menos complexo.

Um outro formulário que prevejo que vai dar algum trabalho é o de vendas, porque vou necessitar incluir alguns cálculos e controles para gerar as informações finais (relatórios) que necessitarei.

Uma pergunta final: existe uma forma do Access dizer no momento que eu estiver cadastrando um novo disco que ele já existe cadastrado? Ou você acha melhor criar uma consulta dos discos cadastrados em ordem alfabética e eu verifico esta consulta? Pergunto isso porque mesmo que eu tenha discos duplicados eu só cadastro um por vez no BD. As duplicatas eu armazeno separadamente. Mas lembro que mesmo discos duplicados devem ser permitidos cadastrar novamente. Na verdade eu vou pensar numa maneira de informar ao BD quando o disco for vendido e retirar ele da lista geral de produtos. Quando eu cadastrar novamente ele entrará de novo na relação de produtos à venda.

Obrigado por sua paciência e boa vontade em ajudar.

Abraço!

Norberto,

Segue o BD em 2007.

Abs.

Norberto,

O que posso fazer é colocar num documento Word ou PowerPoint todas as informações e imagens necessárias. É só me dizer o que você precisa que eu preparo este documento.

Obrigado!

Norberto,

Acho que consegui.

Segue em anexo.

Depois me avise se deu certo, OK?

Obrigado amigão!

Nem imagina como fico feliz com isso!

Obrigado!

Peço perdão pela desobediência! Estava tão focado em tentar resolver os problemas e terminar esse BD que realmente devo ter pulado algumas instruções importantes.

Já fiz as correções e envio o arquivo novamente.

Abraços!

RESOLVIDO!!!!!!

Muito obrigado, meu caro!