Oi pessoal.
Estou desenvolvendo um sistema onde o form principal é carregado na tela, mostrando o primeiro registro da tabela. Todos os campos em textbox estão com a propriedade Locked = True (vide o código abaixo).
Contudo, ao clicar em qualquer textbox, mesmo travadas, o dado registrado na textbox desaparece. Tem como desabilitar o evento click do mouse, caso o usuário resolva clicar num desses campos?

(Função que trava as textbox e retira a propriedade TabStop)
Private Function CancelaDigitação()
    Dim F, M
    For F = 0 To Me.Count - 1
    If TypeOf Me.Controls(F) Is TextBox Then
        Me.Controls(F).Locked = True
    End If
    Next F
    cmbLocal.Locked = True
   
    For M = 0 To Me.Count - 1
    If TypeOf Me.Controls(M) Is TextBox Then
        Me.Controls(M).TabStop = False
        End If
    Next M

(rotinas para entrar com dados. Uma função PermiteDigitação habilita as
textbox).

Private Sub txtTit_GotFocus()
    txtTit = ""
End Sub

Private Sub txtTit_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        txtAut.SetFocus
    End If
End Sub

Private Sub txtTit_LostFocus()
    If Trim$(txtTit) = vbNullString Then
        txtTit = ""
        MsgBox "Preenchimento obrigatório!...", vbQuestion + vbOKOnly, "Entre o título do livro..."
        txtTit.SetFocus
    End If
End Sub

Chico.

Chico, é o seguinte:

o teu problema tá no GotFocus do controle. A propriedade Locked é só pra edição  (utilizando o teclado). Como o EVENTO GotFocus ta limpando o controle, a tua rotina fura... sacou?

espero ter ajudado.

 

Abraços,

Só funciona com o enabled = false do controle em questão ...

 

Ajuda??