MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda com código relação/critérios formulários

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    [Resolvido]Ajuda com código relação/critérios formulários

    Mensagem  toyebom em Ter 17 Jun 2014, 13:03

    Necessito de ao abrir um formulário, me restrinja opções com base em uma caixa de verificação de outro formulário, tipo permitir adições e edições, proibir eliminações e impressão pelo CTRL+P e ocultar botões

    Pensei neste código mas ainda não testei, or isso não sei se funciona, pelo menos na impressora não deve funcionar, julgo.

    A caixa de verificação está no Formulário nome Principal e o código é para abrir o Formulário nome Pessoas

    Alguem pode ajudar???? Obrigado.

    Private Sub Form_Open(Cancel As Integer)
    DoCmd.Restore
    If Forms!Principal.Verificação61 =True Then
    Forms!Pessoas.AllowEdits = True
    Forms!Pessoas.AllowDeletions = False
    Forms!Pessoas.AllowAdditions = True
    .Controles ("Imprimir Pré & view"). Enabled = False
    Me.Comando570.Visible = False
    End If

    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Ajuda com código relação/critérios formulários

    Mensagem  toyebom em Qua 18 Jun 2014, 01:04

    Obrigado a todos os que tentaram ajudar  lol! , resolvi da seguinte forma:

    No formulário Pessoas coloquei:

    Código:
    Private Sub Form_Current()
    If Forms!Principal!printe = True Then 'botão imprimir
    Me.Comando79.Enabled = False
    Me.Comando570.Enabled = False
    Me.Comando108.Enabled = False
    Me.Comando482.Enabled = False
    Form.AllowAdditions = True
    Form.AllowDeletions = False
    Form.AllowEdits = True
    End If
    End Sub

    O formulário Principal deve manter-se aberto, nem que seja em modo oculto

    Quanto à impressão, utlizer uma ajuda do Avelino e coloquei os códigos no próprio relatório, assim:

    Código:
    Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = 80 Then KeyCode = 0 'bloqueia o CTRL+P
    End Sub

    Utilizei ainda um código do JPaulo par desabitar o Print Screen (juntamente com um módulo), ficou assim

    Código:
    Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = 80 Then KeyCode = 0 'bloqueia o CTRL+P
    Call RegisterHotKey(hwnd, 0&, 0&, vbKeySnapshot)
    End Sub

    Aproveitei também uma dica do Criquio para desabitar o botão direito do rato no relatório

    No separador outros em barra de menus e atalhos coloquei "=0" sem aspas.

    Pode ser que estes códigos ajudem alguém.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: Sab 10 Dez 2016, 12:39