Recordset e DAO - Dúvidas: como exibir registros salvos

Boa noite,

Preciso da ajuda de vocês, experts no Access. Já consegui salvar em várias tabelas mas preciso num mesmo formulário "cadastro_noticias" de visualizar e navegar entre os registros. Como proceder?

Segue meu código de salvamento, o mesmo insere todas os campos na segunda tabela "classificacao_noticias" - menos o id_noticia (campo já encontra-se na tabela como FK, a relação é um-para-um porque criei um id_classificacao, pois preciso que para uma notícia exista apenas  uma única classificação). Então, aceito correções neste código e dicas de como exibir os registros já salvos.

Código:

Private Sub Cmd_Salvar_Click()

Dim db As Database
Dim noticias As Recordset
Dim classificacao_noticias As Recordset

Set db = CurrentDb()
Set noticias = db.OpenRecordset("noticias", dbOpenDynaset)
Set classificacao_noticias = db.OpenRecordset("classificacao_noticias", dbOpenDynaset)

With noticias
        .AddNew
        noticias!publicacao = Me.publicacao
        noticias!cliente = Me.cliente
        noticias!veiculo = Me.veiculo
        noticias!titulo = Me.titulo
        noticias!Resumo = Me.Resumo
        noticias!Editoria = Me.Editoria
        noticias!Caderno = Me.Caderno
        noticias!Categoria = Me.Categoria
        noticias!Genero = Me.Genero
        noticias!Natureza = Me.Natureza
        noticias!Assunto = Me.Assunto
        noticias!Replica = Me.Replica
        ' Aqui continuas com os outros campos da tua tabela1
        .Update
End With


With classificacao_noticias
        .AddNew
        classificacao_noticias!id_noticia = Me.id_noticia
        classificacao_noticias!Genero = Me.Genero
        classificacao_noticias!Natureza = Me.Natureza
        classificacao_noticias!Assunto = Me.Assunto
        classificacao_noticias!Replica = Me.Replica
        ' Aqui continuas com os outros campos da tua tabela
        .Update
End With

noticias.Close
Set noticias = Nothing
classificacao_noticias.Close
Set classificacao_noticias = Nothing

    Me.publicacao.Enabled = False
    Me.cliente.Enabled = False
    Me.titulo.Enabled = False
    Me.Resumo.Enabled = False
    Me.Editoria.Enabled = False
    Me.Caderno.Enabled = False
    Me.Genero.Enabled = False
    Me.Natureza.Enabled = False
    Me.Categoria.Enabled = False
    Me.Replica.Enabled = False
    Me.Assunto.Enabled = False
    
    Me.Cmd_Cancelar.Enabled = False
    Me.Cmd_Salvar.Enabled = False
    Me.Cmd_Novo.Enabled = True
    Me.Cmd_Duplicar.Enabled = True
    Me.Cmd_Alterar.Enabled = True
    Me.Cmd_Excluir.Enabled = True
    Me.Primeiro.Enabled = True
    Me.Ultimo.Enabled = True
    Me.Anterior.Enabled = True
    Me.Proximo.Enabled = True
    
End Sub

Segue print do meu relacionamento para tirar dúvida: " />

Gosto de usar caixa de listagem para exibir, alterar e excluir os registros salvos!!!

Cleverson

tem como vc me enviar um exemplo de form desvinculado com sistema de navegação e alguns botões? para que possa estudar como melhorar meu sistema de notícias. Fico no aguardo. Esqueci de falar... no mês, são cerca de 10 mil registros então o form vinculado está lendo, o sistema de pesquisa está lento e demora a aparecer os resultados... preciso de um sistema ágil mas n achei nada que possa me ajudar ainda.

Estou na rua, assim que chegar em casa mando o exemplo.

Pergunto necessariamente precisa mostrar de uma só vez todos os registros do mês?

Uma sugestão, trabalho com execução orçamentária do governo, então fiz um filtro pra mostrar diariamente os lançamentos, basta escolher o dia.

Cleverson

legal... então, fazemos relatórios semanais, então acho que um filtro semanal seria de bom tamanho... para pesar menos a busca no bd... fico no aguardo do exemplo... tava tentando o ado mas bati na trave. Não consegui visualizar os registros. ele ta aquele erro do [field] que não mostro onde é esse erro. um saco. só por curiosidade vou postar aqui...

Código:

Option Compare Database
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Option Explicit

Private Sub Form_Close()
rs.Close
cn.Close
Set rs = Nothing
End Sub

Private Sub Form_Load()
On Error Resume Next
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM noticias"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With

Set Me.Recordset = rs
Me.id_noticia = rs!id_noticia
Me.data = rs!data
Me.publicacao = rs!publicacao
Me.veiculo = rs!veiculo
Me.titulo = rs!titulo
Me.Resumo = rs!Resumo
Me.Editoria = rs!Editoria
Me.Caderno = rs!Caderno
Me.Cliente = rs!Cliente
End Sub


erro: "A expressão que você inseriu como definição da propriedade de evento gerou o seguinte erro: o tipo definido pelo usuário não foi definido.
*talvez a expressão não resulte no nome da macro, no nome de uma função definida pelo usuário ou em um [procedimento de evento]
*talvez tenha ocorrido um erro na avaliação da função, do evento ou da macro.

na ajuda informa:

"Este erro ocorre quando um evento não pôde ser executado porque não foi possível avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], o erro ocorrerá porque espera-se que um nome de evento ou macro seja executado quando o evento acontecer."

Segue meu bd para você ou mais alguém dar uma checada...

Boa noite Deyvson,


Abaixo um link com o exemplo que criei usando o DAO:

https://www.maximoaccess.com/t27241-botao-salvar-lancar-dados-em-estoque#193270


Vou baixar seu exemplo para analisar.

Abraços,

Cleverson

ta, estou analisando tb...

O relacionamento entre as tabelas noticias e classificacao_noticias pelo campo id_noticia, para mim, tá estranho, acho que deveria ser através de um outro campo da tabela noticias.

Mas ai é que ta Cleverson, a intenção era ter apenas uma classificação para uma notícia. Como poderia relacionar essa classificacao?

olha a foto do relacionamento, o id_noticia da nova notícia vai automaticamente para a tabela de classificacao_noticias ou me sugere alguma coisa melhor de um para um?

https://drive.google.com/file/d/0B7I10593ZsP3VWRseGJRejJpamM/view?usp=sharing

Bom dia Deyvson,


o seu raciocínio está correto, uma notícia tem somente uma classificação, mas uma classificação têm várias notícias.

enfim, abaixo uma imagem dos relacionamentos, mas como seu exemplo só tem um form, preciso de mais detalhes de como o mesmo funciona.


imagem:

não consigo ver a imagem... mande-a num link externo por favor...

Mas então tenho duvida nisso, como posso trabalhar com duas tabelas, com um relacionamento um-para-muitos se eu preciso eu considero a tabela principal como "notícias", e no formulário a prioridade é cadastrar a notícia e classificá-la, não o contrário?

Uma das maravilhas dos bancos de dados relacionais, é a SQL.

Bem, novamente seu raciocínio está correto, vamos trabalhar com a tabela noticias, que é a chefe.

Mas preciso dos detalhes do que vc realiza com ela, não se preocupe mais com as tabelas.

Bem, vou bolar algo com o seu arquivo e te mando em seguida, achando que seja o que quer, ai vc analisa e altera.

Obrigado mestre... faz muito tempo que uso o fórum pra otimizar esse arquivo e foi por conta desse projeto que automatizei meus relatórios no trabalho e desenvolvi por aqui... desde já fico muito grato! Estou aprendendo SQL agora, ainda não sou autônomo pra isso!

No aguardo.

Se tiver tempo Cleverson, dê uma olhada nesses relacionamento que fiz baseado nas suas dicas. Eu preciso da tabelas replica de notícias pra fazer relatórios e puder apurar em gráficos todas as replicas das notícias (a assessoria de imprensa trabalha muito com réplicas pra mensurar resultados de emplacamento de notícia na mídia).

Na tabela Notícia eu tenho os campos "classificacao, veiculo, cliente, categoria" são campos numericos relacionados com o bd de origem. No resultado, eu acoplei 2 colunas com um campo pesquisa do id correspondente e o nome do campo tipo Texto, e exibo apenas o campo, com id oculto... Gostei dessa estratégia... Vou fazer isso para a tabela Replicas.



Algum sinal de melhorias nos formulários? Para trabalhar com grande de dados como eu já trabalho? Achei esse vídeo sobre DAO e to estudando o CRUD dele, só não sei se vou conseguir adaptar esse form para meu projeto... vc falou sobre SQL, tem algum modelo com insert, edit, delete e navegação?

vai o vídeo que estou estudando sobre DAO

https://www.youtube.com/watch?v=K6_JOkKuNYw

Boa noite,

Quanto aos relacionamentos tá de boa, sempre uso assim.

Quanto às tabelas réplica e classificação somente os campos de Tipo e Localidade são diferentes da tabela notícia, vc poderia acrescenta-los nesta.