[Resolvido]Lista de alunos, é possivel acessar os cadastros(formulario) somente clicando nos nomes

Boa Noite

estou tentanto criar:

Tenho um formulario(lista dos alunos) e nele aparece uma lista de alunos(uso como pesquisa)
To tentando criar um VBA para quando eu clicar eu abro o formulario direto do aluno
Consegui fazendo num relatorio
mas nao consegui no formulario

Fiz o codigo baseado no relatorio que deu certo

Código:


Option Compare Database  ' Usa ordem do banco de dados em comparações de seqüências.
Option Explicit          ' Requer que as variáveis sejam declaradas antes de serem usadas.
Dim VarTecla

Sub ImprimirRelatórios(ModoDeImpressão As Integer)
On Error GoTo Erro_Visualizar_Click
   ' Este procedimento é usado nos procedimentos Visualizar_Click e Imprimir_Click.
   ' Visualiza ou imprime o relatório selecionado no grupo de opção RelatórioAImprimir.
   ' Fecha então o formulário Diálogo Relatórios de Vendas.

   Dim strCategoriaOnde As String

   strCategoriaOnde = "Turma = Forms![F_Turmas/Alunos_Pesquisar]!ListaTurma"
     Select Case Me!RelatórioAImprimir
     Case 1
           If IsNull(Forms![F_Turmas/Alunos_Pesquisar]!ListaTurma) Then
               DoCmd.OpenReport "F_Turmas/Alunos", ModoDeImpressão
           Else
               DoCmd.OpenReport "F_Turmas/Alunos", ModoDeImpressão, , strCategoriaOnde
           End If
               
   End Select
  ' DoCmd.Close acForm, "F_Turmas/Alunos_Pesquisar"

Sair_Visualizar_Click:
   Exit Sub

Erro_Visualizar_Click:
   Resume Sair_Visualizar_Click
End Sub

Private Sub Cancelar_Click()
' Este código foi criado pelo Assistente de Botão de Comando.
On Error GoTo Erro_Cancelar_Click

   ' Fecha o formulário.
   DoCmd.Close
   
Sair_Cancelar_Click:
   Exit Sub
   
Erro_Cancelar_Click:
   MsgBox Err.Description
   Resume Sair_Cancelar_Click
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  If KeyAscii = 32 Then
VarTecla = 1
End If
End Sub

Private Sub TXT_Turma_AfterUpdate()
ListaTurma.Requery
End Sub

Private Sub TXT_Turma_Change()
   If VarTecla = 1 Then
VarTecla = 0
Else
Me.Recalc
SendKeys "{F2}"
End If
End Sub

Private Sub Visualizar_Click()
' Visualizar relatório selecionado. Este procedimento usa o procedimento
' Sub ImprimirRelatórios definido na seção (Geral) deste módulo.
   
   ImprimirRelatórios acPreview
End Sub

Private Sub Imprimir_Click()
' Imprimie o relatório selecionado. Este procedimento usa o procedimento
' Sub ImprimirRelatórios definido na seção (Geral) deste módulo.

   ImprimirRelatórios acNormal
End Sub

Meu caro, bom dia!

Teu formulário está em modo pop-up? Passa o nome do campo código do registro de cada formulário.

Substitua os campos em negritos pelos seus e teste.

Private Sub NomeForn_DblClick(Cancel As Integer)
Dim strNomeDoDoc As String
Dim strFiltro As String
strNomeDoDoc = "Frm_NF_Entrada"
strFiltro = "[IdEntrada] = [Forms]![Frm_Consulta_NF_Entrada]![IdEntrada]"
DoCmd.OpenForm strNomeDoDoc, , , strFiltro
DoCmd.Close acForm, "Frm_Consulta_NF_Entrada"
Exit_IdEntrada_Click:

End Sub

Resolvido

obrigado!

Rsolvido