Rodrigo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2007 14:15 hs
Boa Tarde a todos, Tenho um form com maskedbox que utiliza uma máscara para cep. Quando tento preenche-la com uma query do banco de dados (access) dá erro. Alguem saberia me dizer como consigo preencher uma maskedbox com informações do banco de dados? Obrigado, Rodrigo |
|
|
|
|
|
FAV
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2007 14:50 hs
Cara, acho que você deve referenciar a value. Ex. X é um makedbox. RS Recordset x.value=RS("CEP") Não tenho como testar mas verifique que acho que é isso que está dando errado. Um abraço |
|
|
|
Bruno
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2007 14:59 hs
Rodrigo, Tenta assim, Text = txtCEP Acho q rola....eu fiz assim mas para um campo PCC EX.: 0552-5, eu ja alterei para CPF.... 000.000.000.00 Abraço
Function CampoCPF(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) = 4 Or _
Len(OBJ.Text) = 3 Then
OBJ.Text = OBJ.Text + "."
OBJ.SelStart = Len(OBJ.Text)
End If
End If End Function Private Sub txtCPF_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
'Formata automaticamente a entrada do CPF CampoCPF txtCPF, KeyAscii
End Sub Private Sub txtCPF_Change()
txtCPF.MaxLength = 11
End Sub |
|
|
|
cedu
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2007 15:55 hs
Rodrigo, tenta fazer isso: atribua o valor vazio à propriedade mask, insira o valor e depois novamente a máscara conforme exemplo abaixo: maskedbox.mask="" maskedbox.text = insira agora o valor do banco de dados maskedbox.mask = "#####-###" Quando necessitamos atribuir um valor a propriedade text, será necessário antes atribuir vazio à propriedade mask. Abs Eduardo |
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2007 16:13 hs
Cara é por essas e outras que eu não utilizo o maskedit nos meus projetos, se não for muito trabalho, troca o seu maskedit por um text, pois assim você não terá trabalho algum para preencher ele, o valor que tiver no banco de dados é o que estará no text
Para você formatar um número no text faz o seguinte
Após digitar o nº no text, faça assim
TxtCep.Text = Format(TxtCep.Text, "@@@@@-@@@") para cep
TxtCNPJ.Text = Format(TxtCNPJ.Text, "@@.@@@.@@@/@@@@-@@") para cnpj
TxtTelefone.Text = Format(TxtTelefone.Text, "@@@@-@@@@") para telefone
TxtInscEst.Text = Format(TxtInscEst.Text, "@@@.@@@.@@@.@@@") para insc.estadual
Text1.Text = Format(Text1.Text, "@@/@@/@@@@") para data e para verificar se a data digitada é correta eu uso If CDate(IsDate(Text1.Text)) = True
Esses códigos eu tirei do meu programa e como pode ver eu trabalho apenas com o text em qualquer situação, eu particulamente acho bem mais fácil, pois não tenho mais dor de cabeça com o mask, pelo menos essa dor de cabeça não me da mais, rsrsrs
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
Rodrigo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2007 17:59 hs
Agradeço a dica de todos, Acredito que tirando o mask e formatando todos os campos text é mais fácil mesmo e dá menos dor de cabeça. Valeu pela dica Álvaro. Abraços, Rodrigo |
|
|
|
