[RESOLVIDO]...BLOQUEAR UMA TEXTBOX PARA NÃO DEIXAR EM BRANCO

[Ronaldo Felix]

Olá parceiros, queria a ajuda de vocês em relação a uma textbox, estou com um campo data aqui precisaria que ele assim como os outros não permitisse confirmar o formulário com algum campo em branco, e também gostaria que ele limitasse para o textbox data só permitisse data, a de valor somente números convertendo uma virgula no caso de centavos em ponto para que o Excel interprete caso o usuário coloque virgula ou vir-se versa.

[Mauro Coutinho]

Ronaldo, para se bloquear utilize uma das Propriedades do TextBox "Enabled ou Locked"

Enabeld=False - Impede que se selecione o TextBox
Locked = True - Permite que se acesse mas impede digitação

Quanto a permitir somente Data ou numeros, de uma olhada no tópico abaixo, tem algumas dicas de como proceder :
Fomatar TextBox Eventos KeyPress e Change
viewtopic.php?f=17&t=1505

[]s

[Ronaldo Felix]

Nobre obrigado pela informação, mas o bloqueio que me refiro não é ficar inacessível e sim para que o usuário não deixe em branco a textbox e confirme a inclusão entendes?

[Mauro Coutinho]

Nobre obrigado pela informação, mas o bloqueio que me refiro não é ficar inacessível e sim para que o usuário não deixe em branco a textbox e confirme a inclusão entendes?

A instrução abaixo verifica se vazio e informa ao teclar Enter ou sair do Textbox:

Código: Selecionar todos

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Len(TextBox1) = 0 Then
        MsgBox "O Textbox não pode estar em branco !", vbInformation, "Atenção!"
        Cancel = True
    End If
    
End Sub

Pode ser utilizado tambem no Evento BeforeUpdate, dependendo de como está montando seu formulário.

[]s

[Ronaldo Felix]

Mauro Deu certinho o Form indica o campo em branco, só me acrescenta neste código para que quando clicar em fechar o formulário ele nao ficar ainda apresentando a mensagem e não deixa fechar.

Grato!

[Ronaldo Felix]

Alguém poderia me ajudar nisto?

Grato!

[milton]

Ronaldo, Coloque dentro da TextBox
Private Sub TextBox1_AfterUpdate()
If TextBox1 = "" Then
MsgBox "Preencha o campo TextBox1.", vbExclamation, "Atenção!"
End if
End Sub

ou simplesmente dentro do botão SALVAR
If TextBox1 = "" Then
MsgBox "Preencha o campo TextBox1.", vbExclamation, "Atenção!"
End if

Espero ter ajudado...

[Lúcio Mauro da Silva]

Ronaldo boa tarde,

Segue o modelo em anexo para te auxiliar.

Abraços.

[Mauro Coutinho]

Ronaldo fiz um modelo de como costumo utilizar, de uma olhada se ajuda e consegue adaptar ao seu caso.

Evento Exit - SetFocus
viewtopic.php?f=17&t=4600

[]s

[Ronaldo Felix]

Lúcio mais uma vez você me ajudou muito meu caro,,, Resolvido!!! a dica de Mauro também é interessante.. muito grato a todos!

Abraços!!!