[Resolvido] Carregar registro específico no formulário (Erro no Bookmark)

Pesquisei no fórum, achei algumas soluções mas nenhuma funcionou comigo. o máximo que consegui foi o código abaixo, mas dá erro:

Private Sub Matrícula_BeforeUpdate(Cancel As Integer)
   Dim rst As DAO.Recordset

   Set rst = Me.RecordsetClone
   rst.FindFirst "Matrícula = " & Me.Matrícula
   If rst.NoMatch Then
       MsgBox "Matrícula não cadastrada.", vbInformation
   Else
       Me.Bookmark = rst.Bookmark
   End If

Set rst = Nothing
End Sub

preciso que quando digitar a matrícula apareça o respectivo registro no subformulário, uma aba é caixa de texto e a outra é caixa de combinação
parte do meu BD está anexo para quem puder me ajudar entender o erro, só pra adiantar matrícula é do tipo Inteiro Longo

Bom dia,
Em formato não reconhecido. O mais comum é 2003/2007.

Olá,
Quanto ao formato será sempre mehor disponibilizar o exemplo base de dados compativel em 2007 ou 2003.
Relativamente à questão o campo matricula de pesquisa deve ser desvinculado e no evento AfterUpdate.



Abraço

Alexandre, mudei o formato. Minhas desculpas!

Teixeira, se o campo estiver "Não Aclopado", caso não exista a matrícula irá incluir na tabela?

Já tentou Usar o DLookup?

Ao Evento "Ao Perder Foco" coloque a função abaixo:

DLookup("NºMatrícula", "Tabeladaondetáamatricula", "NomedoSeuCampo= " & Me!NomedoSeuCampo).

Olá kleyton,
Não, não irá alterar.
No entanto uma sugestão, porque não deixa ficar o campo matricula só para adição ou alteração (apenas retirar o código BeforeUpdate e Afterupdate por mim sugerido) e cria um campo novo para pesquisa desvinculado.
Até poderá ser uma ComboList para a Matricula.
Abaço.

João Marcos,

não consegui, deu erro a função.

Eu fiz e funcionou.

Dá uma olhada e vê se isso que você precisa.

Olá Kleyton, Verifique também a sugestão do colega João Marcos.

João Marcos é quase isso!!

O seu código ele cria um novo registro, e eu havia esquecido de colocar que a matrícula e o nome são campos exclusivos da tabela CARREIRA E MILTIAR_D.

e esqueci de mencionar que o BD que postei é apenas um extrato de um banco bem maior com mais 8 fomulários, 10 tabelas

eu coloquei um botão de localizar (ícone binóculos) mas em alguns teste para apresentação com alguns usuários percebi que seria mais apropriado, conveniente, INTUITIVO que a busca (localizar registro) fosse pelo combobox e pela caixa de texto e que seja em todas as ABAS (formulários) ora com subformulários (Ex. DEPENDENTES) ora sem (Ex. CARREIRA)

consegui mostrar a minha necessidade? por isso acredito que a função Bookmark seja a mais apropriada, o código que postei no inicio do tópico, mas da erro, posso estar errado até porque comecei a pouco com VBA.

hoje estou um pouco corrido, mas até o fim do dia vou revisar o meu exemplo e postar de novo para vocês poderem me ajudar.

(aliás quando eu vi seu código entendi porque estava dando errado no meu)

Ok.

Poste para que possamos te ajudar!

Tomei a liberdade de postar o projeto na integra.

Tudo que tem nele foi tirado deste fórum, do usandoaccess e JR's. Ainda tenho algumas coisas a adicionar.

Vamos a minha necessidade:

No formulário de [Edição da Ficha Individual] existe vários subformulários, onde coloquei um botão de [Localizar], todavia quando fiz uma pequena demonstração aqui no serviço para alguns usuários comuns percebi que foi intuitivo para eles digitar a [Matrícula] e esperava que o formulário carregasse as informações da respectiva matrícula. E não clicar no botão de Localizar.

A tabela [CARREIRA] é o lado um de todos os relacionamentos.

Conseguem entender a minha necessidade?

Só fiz o código no primeiro formulário tipo caixa de texto, pretendo fazer o mesmo nos demais formulários com combobox

Quando eu uso o código abaixo ocorre o erro "3314: Você deve digitar um valor no campo <>" na linha em negrito

CÓDIGO escreveu:    Dim rst As DAO.Recordset
   Set rst = Me.RecordsetClone
   With rst
       .FindFirst "Matrícula = " & Me.Matrícula & ""
       If .NoMatch Then  'se não encontrado, então...
           MsgBox "Matrícula '" & Matrícula & "'" _
           & vbCrLf & "não cadastrada no sistema!", vbExclamation, _
           "Resultado da Pesquisa"
           GoSub Sai
       Else
           'move o registro atual do Form para o registro encontrado
           Me.Bookmark = .Bookmark
   End If
End With

Sai:
   Set rst = Nothing 'libera a memória
Exit Sub

Para quem baixou o meu BD antes deste tópico vai encontrar um erro na hora de gerar Relatório com a mensagem de que a tabela OBM está bloqueada, foi um descuido meu tirei algo que não podia, ahahaha, para corrigir:

consulta FI_ tem que colocar na grade TOTAIS/Agrupar e funfa!!!

Não vou anexar o BD com a correção, porque estou em casa meu MSO é 2013. Mas se querem posso fazer isso amanha (sexta) no serviço que é MSO 2010

Kleyton


Não da pra colocar o código diretamente no campo matricula,
Então veja o que fiz o formulário ficha na aba carreira.

Nb

Noob, virei seu fã!!!!!!!!       

Como você disse que não dá pra colocar direto no controle acoplado, então

Vou usar a sua solução para mudar o menu de busca dos formulários!!!!

Valeu mesmo, graças a você o BD ta ficando além de bom muito funcional.

Quando eu terminar eu te envio o projeto completo, até lá, com certeza vou precisar de mais ajuda!!!

A propósito, eu li alguns itens falando sobre converter o BD em executável do tipo .exe?

Você que trabalha a mais tempo com Access poderia me dizer quais as vantagens e desvantagens?

Olha o que eu achei para converter. Link do desenvolvedor: http://cpap.com.br/orlando/DBtoEXEMais.asp

Quer saber mesmo o que eu acho?

Em poucas palavras e usando as tuas,  não sou fã de depender de softwares de terceiros
para "finalizar" meu aplicativo.
Nos temos duas ferramentas excelentes no próprio Access que são:
-Dividir o aplicativo em Back End(BE) onde só ficam as tabelas e Front End(FE) onde ficam os demais objetos.
-Compilar o aplicativo criando um outro arquivo.mde  ou accde conforme a versão do Access.
Então funciona assim:
-Contigo fica o aplicativo mdb/accdb e distribui para os teus clientes as cópias em mde/accde;
Fim de papo   

Uma dica sobre teu formulário Ficha

Porque não usa as tab's ?
Assim, quando  selecionar um registro, já pode trazer de uma vez todos as informações dele, dependentes e outros.


Nb

Noob, desculpe a demora para responder, não fique com gripe ou qualquer outra coisa parecida, rsrsrs

Não compreendi bem: "Porque não usa as tab's ?"

Como seria isso: usar as tabelas como?

Não é isso não.

As tab's são as guias de um controle guia.

Se  não conhece, crie um form em branco

E la onde vc pega as caixas textos, pegue um controle guia e coloque no formulário.

Então verá   

Nb

Deu pra ver que sou iniciante, hahaha

Mas agora sei do que esta falando, se abrir o meu exemplo na Consulta da Ficha Individual no Menu verá que fiz com Guias, digo Tab's. usei esse link para fazer: http://www.ativoaccess.com.br/mostra.artigo.php?artigo=28
Seria isso?

Um Formulário para edição e outra para consulta e impressão.

Olha meu amigo

Sendo franco, nunca vi esses controles, vou estudar eles, mas não é controle guia, são difierentes.
Não vou  falar mais pra não cair em erro.

Se este tópico já está resolvido pra você, só falta o resolvido no titulo dele   

Em tempo: Vi la o tópico no Ativo Access, um segredinho:
Eu contribui para aquele artigo, de como colorir a guia na figura 10- teste1 e teste 2


Abraços


Nb

Novamente obrigado!!! o link que te mandei não era o que eu tinha intenção.
Pra ajudar seu estudo: no tutorial que eu usei e não achei mais, coloquei o mesmo controle [Matrícula e Nome] sobreposto as Guias invisível, você vai perceber no meu exemplo.

Pra encerrar no momento, preciso do seguinte:

Se a data do campo for maior que Hoje, ficar vermelho? Preciso na tabela, no formulário eu consegui.

Não vou incomodar o fórum por pelos menos uma semana, ahahahah

Ahh!!

Foi bom tocar nesse assunto.

Tabelas é o coração do teu aplicativo.

NUNCA devem ser manipuladas diretamente.

Então, meu amigo, sugiro que retire as tabelas dos suformulários e crie subformulario para usar no lugar delas.
Você tem um exemplo que eu fiz ai nesse exemplo modificado.
Não precisa responde, já que esse tópico está resolvido.

Boa sorte   


Nb