MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    tenho uma lista de alunos, é possivel acessar os cadastros(formulario) somente clicando nos nomes

    Compartilhe

    mrmuller_mar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 05/10/2017

    tenho uma lista de alunos, é possivel acessar os cadastros(formulario) somente clicando nos nomes

    Mensagem  mrmuller_mar em 5/10/2017, 18:38

    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

    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

    w_fabricio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 19/09/2010

    tenho uma lista de alunos, é possivel acessar os cadastros(formulario) somente clicando nos nomes Responder

    Mensagem  w_fabricio em 6/10/2017, 07:20

    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.

    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 934
    Registrado : 08/02/2011

    Re: tenho uma lista de alunos, é possivel acessar os cadastros(formulario) somente clicando nos nomes

    Mensagem  cafpr em 6/10/2017, 22:47

    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

      Data/hora atual: 21/11/2017, 17:56