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


    Bloqueio de Colunas no SubForm (Folha de Dados)

    guilhas23
    guilhas23
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 29/09/2015

    Bloqueio de Colunas no SubForm (Folha de Dados) Empty Bloqueio de Colunas no SubForm (Folha de Dados)

    Mensagem  guilhas23 28/3/2019, 18:20

    Olá, amigos!

    Estou com um problema, parece simples, mas não consigo resolver.

    Preciso bloquear a coluna do subform (folha de dados), para que não seja apagada, e também seu tamanho não seja alterado. Porém, eu gostaria da possibilidade de apagar linhas selecionadas, e de certa forma, selecionar a coluna para que eu consiga colar dados vindo do excel.

    Eu tentei usar a função do nosso amigo JPaulo, porém ela me impede de selecionar os dados para colar.

    Código:
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    'By JPaulo ®️ Maximo Access

    If Button = acLeftButton Then
    MsgBox "Você não pode Redimensionar as Colunas.", vbCritical, ""
    End If
    If Button = acRightButton Then
    MsgBox "Você não pode Redimensionar as Colunas.", vbCritical, ""
    End If
    If Button = acMiddleButton Then
    MsgBox "Você não pode Redimensionar as Colunas.", vbCritical, ""
    End If
    End Sub

    Também tentei usar essa função do FabioPaes que peguei no fórum:

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then
    Dim F As String
    'F = Screen.ActiveControl.Name
    CurrentDb.Execute "UPDATE tbtopico SET " & F & " = Null"
    Me.Recalc
    KeyCode = 0
    End If
    End Sub

    Porém ela me impede de excluir linhas.

    Eu pensei numa solução semelhante a esse último código, onde eu ao invés de eu selecionar a coluna, que é o que esse código faz, apagar a linha selecionada, não a coluna.

    Peço ajuda de vocês, e desde já, obrigado!
    guilhas23
    guilhas23
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 29/09/2015

    Bloqueio de Colunas no SubForm (Folha de Dados) Empty Re: Bloqueio de Colunas no SubForm (Folha de Dados)

    Mensagem  guilhas23 29/3/2019, 18:24

    UP
    guilhas23
    guilhas23
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 29/09/2015

    Bloqueio de Colunas no SubForm (Folha de Dados) Empty Re: Bloqueio de Colunas no SubForm (Folha de Dados)

    Mensagem  guilhas23 3/4/2019, 16:35

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyDelete Then
    Dim F As String
    F = Screen.ActiveControl.Name
    CurrentDb.Execute "UPDATE tbtopico SET " & F & " = Null"
    Me.Recalc
    KeyCode = 0
    End If
    End Sub


    Esse código seleciona a coluna. Se eu conseguir selecionar a linha consigo resolver o problema.

    Conteúdo patrocinado


    Bloqueio de Colunas no SubForm (Folha de Dados) Empty Re: Bloqueio de Colunas no SubForm (Folha de Dados)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 23:53