MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


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

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  toyebom 17/6/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
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  toyebom 18/6/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: 6/5/2024, 13:15