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

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

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 873
    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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 873
    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: Ter 24 Out 2017, 06:58