inputbox

[mestre fyoda 1]

teria como colocar um mask no intbox ?

[luiz humberto 0]

Acredito que não tenha como, mas você pode fazer um formulário ou um Frame que substitua o InputBox.

[mestre fyoda 1]

esse formulario seria um TextBox ?você poderia me dar um exemplo ?

[luiz humberto 0]

Seria um MaskEditBox, na propriedade Mask você atribuie a sua mascára.

[mestre fyoda 1]

no meu caso seria assim , eu vou fazer uma busca e é por cpf ( chave primaria) e no bd ta assim 000.000.000-00 , e eu presizo desses . e - . Como que faço para colocar um MaskeDitBOx no inputbox ?

[luiz humberto 0]

Como havia te dito, acredito que não tem como colocar Mask no InputBox, por isso sujiro a você fazer um formulário ou um frame para obter esses dados do usuário.

MskCPF=###.###.###-##

[mestre fyoda 1]

entao você esta me sugerindo para nao usar um inptbox ? e usar um maskeditbox ?

[luiz humberto 0]

Correto, haja visto que com o InputBox não tem como colocar mask. Sugeri então que você criasse um Formulário ou Frame que substituísse o InputBox.

[mestre fyoda 1]

eu fiz o q você me disse criei um maskeditbox e fiz isso

Private Sub Command1_Click()Dim Preenche As ListItemDim Busca_cod As adodb.RecordsetSet Busca_cod = cn.Execute(" Select * from cliente where cpf = '" & busca_cliente.Text & "' ")If Not Busca_cod.EOF = True ThenLista_cliente.ListView.ListItems.Clear           Set Preenche = Lista_cliente.ListView.ListItems.Add(, , Busca_cod("nome"))           Preenche.ListSubItems.Add , , Busca_cod("cpf")           Preenche.ListSubItems.Add , , Busca_cod("rg")           Lista_cliente.ListView.View = lvwReportEndElseErro = MsgBox("O CPF : " & busca_cliente.Text & " não está cadastrado na nossa Base de Dados", vbDefaultButton2)End IfEnd Sub

Como faço para fechar apenas esse formulario ? Eu usei o End e fechou tudo .

[Luizgrs 0]

Faz assim:

unload me 'para fechar o formulário onde esse código está