ERRO KEYASCII

LEANDROR10 04/02/2013 10:24:43
#418694
Bom dia a Todos.

estou inserindo o códio abaixo para preenchimento automatico da data em uma textbox porem está dando erro quando executa essa linhA [Ô] SendKeys [Ô]{End}[Ô], True[Ô] o erro é:

Run-Time error [ô]70[ô]
Pemission denied

alguem pode me ajudar

Obrigado.!

Private Sub data1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
data2.SetFocus
End If
Select Case KeyAscii
Case 8, 48 To 57 [ô] BackSpace e numericos
If Len(data1) = 2 Or Len(data1) = 5 Then
data1.Text = data1.Text & [Ô]/[Ô]
SendKeys [Ô]{End}[Ô], True
End If
Case Else [ô] o resto é travado
KeyAscii = 0
End Select
End Sub
MARCELO.TREZE 04/02/2013 11:04:11
#418698 Resposta escolhida
Esse sendkeys envia a posição de digitação pro final da linha

troque esta linha do sendkeys por esta

Data1.SelStart = Len(Data1.Text)

se continuar dando erro tente usar esta função

veja

Function CampoDATA(obj As Object, Keyasc As Integer)
If Not ((Keyasc >= Asc([Ô]0[Ô]) And Keyasc <= Asc([Ô]9[Ô])) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(obj.Text) = 2 Or Len(obj.Text) = 5 Then
obj.Text = obj.Text + [Ô]/[Ô]
obj.SelStart = Len(obj.Text)
End If
End If
End Function


para usar

Private Sub txtData_KeyPress(KeyAscii As Integer)
[ô]
CampoDATA txtadmissao, KeyAscii
[ô]
End Sub


pronto
LEANDROR10 04/02/2013 11:34:34
#418699
Valeu!!!

Deu Certo...
Tópico encerrado , respostas não são mais permitidas
Voltar