mestre fyoda

valeu gente por enquanto sobre toolbar não tenho mais duvida , mas pesso aos admins que não tranquem porque possa ser que eu venha a ter alguma duvida .

foi mal gente , mas não sei o que aconteceu , eu fechei o programa e abri ele e funcionou . Esse vb as vezes é foda . pode trancar.

axei umas figuras muito loucas mas eles no micro eles estao com as cores normais mas quando coloco no vb ela fica preto e branca , o q esta acontecendo ?

valeu mano . teria como você me mandar para o meu email icones para cadastrar , excluir , atualizar , icone do word , icones de abrir arquivos . o_drunk@yahoo.com.br Grato pela atenção .

valeu mano deu certinho , outra duvida , para os submenus como que eu faço ? como eu deixo uma toolbar invisivel ou enable , detalhe eu coloquei a key do icone como cadastro . Por favor me passe os dois codigos do enable e do visible .

valeu pela dica , agora estou em na Facu , mas quando chegar em casa vou testar qualquer coisa eu posto aqui , mas tenho uma duvida . Como faço para que cada icone que esteja no toolbar eles fiquem independentes da toolbar , tem como fazer na propriedade do toolbar isso ? Por exemplo , eu tenho 2 icones , um para sair e o outro para abrir o cadastro , como faço para que cada botão execute o seu cvodigo ? E aonde eu coloco o nome do icone na propriedade ?

já resolvi o outro problemas mas agora tenho outro . como faço para dar espaço entre os icones nesse codigo abaixo ? Private Sub Form_Load() Toolbar1.ImageList = ImageList1 Toolbar1.Buttons.Add , , "teste1", , 1 Toolbar1.Buttons.Add , , "teste2", , 2 End Sub

consegui fazer , mas agora tenho uma duvida cruel , eu tenho 4 icones , e eu quero que cada icone faça coisas diferentes . Como que se faz isso ? Detalhe , eu fiz com toolbar e um ImageList .

mas como eu faço para criar um evento na propriedade click de qualquer imagem e pronto!!! ela é um botão?

como eu poderia fazer com que um icone virace um botao ? e aonde eu acho esse toolbar ?

valeu pela força gente , já resolvi o problema .

acharam um detalhe telefone'" & telefone.Text & "' e o certo é telefone='" & telefone.Text & "' mas ainda tem um probleminha , ele não esta atualizando o campo placa , porque não esta atualizando ? e o campo placa ele é por exemplo AAA-0201 sql2 = "UPDATE clientes set nome='" & xnome & "' ,endereco='" & endereco.Text & "' ,numero='" & numero.Text & "' ,bairro='" & bairro.Text & "' ,telefone='" & telefone.Text & "' ,rg='" & rg.Text & "' ,modelo='" & modelo.Text & "' ,ano='" & ano.Text & "' ,placa='" & placa.Text & "' WHERE nome = '" & xVar1 & "' "

ta dando erro assim mesmo . o campo numero na tabela no bd é como texto . eu uso o access . run time error '-2147217900 (80040e14)' : Erro de sintaxe na instrução update . è isso que aparece de e erro .

erro de sintaxe na instrução update o que esta aconteçendo ? Private Sub atualizar_Click() nome = nome.Text xnome = Replace(nome, "'", "''") xmodelo = modelo.Text Dim sql2 As String sql2 = "UPDATE clientes set nome='" & xnome & "' ,endereco='" & endereco.Text & "' ,numero='" & numero.Text & "' ,bairro='" & bairro.Text & "' ,telefone'" & telefone.Text & "' ,rg='" & rg.Text & "' ,modelo='" & modelo.Text & "' ,ano='" & ano.Text & "' ,placa='" & placa.Text & "' WHERE nome = '" & xVar1 & "' " cn.Execute sql2 -----------> aqui esta dando o erro If placa.Text <> Placa_antiga Then Kill "c:\" & Placa_antiga & ".doc" n = FreeFile() Open "c:\" & placa.Text & ".doc" For Output As #n Close #n Call Limpa_dados_cadastrais End If End Sub

Por exemplo , se eu apertar F1 desabilita o botao cadastrar . if( me ajudem aqui ) cadastrar().visible = false

mas eu não axei nenhuma propriedade mask , aonde fica ?. como eu faço para limpar um campo mask sem que ele perca as propriedades . por exemplo Telefone : ####-#### Limpando campo mask iria ficar assim Telefone : Eu quero que o campo Telefone : ####-#### fica assim depois de limpo . como se faz ?

valeu , mas isso já sei , mas como faço para ficar desse geito ____-____ sem que o cursor esteja no campo mask ?

Esse script ta com um probleminha , quando eu gravo as informaçoes grava numa boa mas na segunda vez que vou garvar ele grava por sima , o que devo faze para gravar abaixo ? Dim bd As New ADODB.Recordset Var1 = List1.List(List1.ListIndex) xVar1 = Replace(Var1, "'", "''") With bd .Open "Select * From clientes where nome = '" & xVar1 & "' ", cn, adOpenStatic, adLockReadOnly If Not .EOF Then n = FreeFile() Open "c:\" & bd.Fields("placa").Value & ".doc" For Output As #n Print #n, "Data : " & Now Print #n, "Ordem de Serviço : " & servico.Text Print #n, "Kilometragem : " & km.Text Close #n End With

Teria como eu fazer uma campo mask assim : Telefone ____-____ Como se faz se tiver .

Gostaria de saber se tem como eu fazer uma busca dentro do word e quando abrir o word ele abre exatamente no dia que foi registrado ? Essa data ela é adicionada no word . sege um ex : linha 1 -> 8/5/2005 linha 2 -> Troquei a ventoinha e a vela do carro . linha 3-> 20/5/2005 linha 4-> Troquei o motor . linha 5 -> 8/5/2005 linha 6 -> Troquei o oleo . e assim continua então como faço para abrir o word na linha 20 por exemplo ?

pode trancar

uma duvida do combobox . eu tenho numa combobox assim : a list ta assim Chevrolet VolksVagen Fiat Ford a Itemdata 0 1 2 3 E quando ensere no banco de dados ensere os numeros . Como faço para inserir as maracas dos carros ?

valeu pela super dica mas não seria isso , eu queria que ele criasse um arquivo .doc na minha maquina , teria como ?

eu gostaria de saber como se faz para salvar arquivos , e me ajude explicando o que cada linha faz . Grato pela atenção a todos que me aguentam . ehehhehe

já resolvi o problema valeu pela super dica .