AJUDA CONVERSÃO DE DADOSSSSS


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: AJUDA CONVERSÃO DE DADOSSSSS

sk888
não registrado

ENUNCIADA !

Postada em 11/11/2008 18:03 hs

On Error GoTo Dado_errado
    vnome = Str$(txtnomefornecedor.Text)

Dado_errado:
        If Err = 13 Then
           MsgBox "Dado inválido no nome fornecedor", vbExclamation + vbSystemModal, "Aviso"
           txtnomefornecedor.Text = InputBox("Informe o nome correto:", "Nome Fornecedor")
            Resume 0
        End If

PESSOAL NÃO CONSIGO ACERTAR ISSO,
ASSIM ÓO
no campo de nome fornecedor ele deveria estar programado so para aceitar nomes com ec scriptzinho deveria dar só q não ta dando ele deicha passar número e não letras ajuda ai vlw!!

Guaitoli

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 11/11/2008 19:12 hs

Boa Noite

Cara eu sugiro que vc coloque o código no Validate do textbox alguma coisa assim

Private Sub txtnomefornecedor_Validate(Cancel as Boolean)
     If trim(txtnomefornecedor.text) = "" then
          Msgbox "O valor informado não é válido!",vbExclamation, vbSystemModal,"Aviso"
          Cancel = True
     End If
End Sub

[]'s
Eder Guaitoli

ADRIANO2605

CAMPO GRANDE
MS - BRASIL

ENUNCIADA !

Postada em 11/11/2008 19:30 hs

kra é mais facil tu fazer uma função e colocar ela em uma module para não aceitar numeros na digitação da text. Olha só tenta isso aqui, vai travar a escrita de vogais diferentes de abcde

Function SóLetras(Key As Integer) As String
    'selecione os caracteres que desejar
    Const Letras$ = "abcde"
    SóLetras = Key
    If Key <> 8 Then    'conferindo se é backspace
        'vê se é um caracter permitido
        If InStr(Letras$, Chr(Key)) = 0 Then
            SóLetras = 0
        End If
    End If
End Function
Esta função vc pode colocar ela em uma module, caso queira chamar ela em todo aplicativo, assim não tem q ficar copiando ela em todos os forms!
Ai no text tu coloca este codigo
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = SóLetras(KeyAscii)
End Sub

Espero ter ajudado, ha eu fazia assim antes, ela serve para bloquear a escrita de letras tambem, só que parei de usar depois q conheci o ctextbox q é muito mas muito bom, é uma ocx que facilita muito a vida da gente, da uma pesquisada caso lhe interesse!
bom até mas!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR