William Rodrigues

Æ cara.. que bom que pude, particularmente, te ajudado.... e qualquer coisa cara, posta aí... Abraços, William Rodrigues

Æ daniel.itow cara, tenta colocar o seguinte (de acordo com a linha de código que passou!): Dim nnome As String nnome = InputBox("Digite o nome:") datCadastro.Recordset.FindFirst "datCadastro.Recordset.nome>='" & nnome & "'" Colocando o "nnome" como String seu programa saberá que "nnome" receberá uma cadeia de caracteres....E não informando que "nnome" é uma TEXT (Caixa de TextO). Espero que tenha ajudado em seu código cara..... Abraços, William Rodrigues

Æ PiGmEu, Se puder postar esse código prá gente cara eu agradeceria brother..... Abraços, William Rodrigues

Æ brother... quanto ao programa, faz um corre atrás meu, fala com alguns amigos seus....sei lá cara, vai atrás.... Já te passamos e dissemos como deve começar a estudar agora é com você.... Abraços, William Rodrigues

Æ Brother !!!! Æ estou aqui no trampo e não posso ficar muito tempo na NET, aí vi o seu poste e resolvi te dar uma ajudinha.... Como estou meio sem tempo cara, fiz um teste com TXT mesmo, deu certo, agora você testa com o Rich Text. Aí vai o código cara: Public Valor As Double Private Sub Command1_Click() Text2.Text = Valor End Sub Private Sub Form_Load() Valor = 1 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Valor = Valor + 1 End If End Sub Mas tem um probleminha cara... Não sei se tinha percebido é o seguinte, quando o cara dá "enter" ele vai contar a linha.....Mas se o cara apagar essa linha ? a contagem deveria ser mudada automaticamente....então cara, coloquei o código meio "sem pensar" e assim que saí da NET percebi o meu erro e estou aqui, agora, para arrumá-lo e notifica-lo do problema que meu código iria ter Espero que tenha te entendido Abraços, William Rodrigues

Beleza cara... Qualquer coisa posta aí cara... Até mais Abraços, William Rodrigues

Iæ cara... Espero que tenha te ajudado cara e qualquer coisa poste aí no fórum... Até mais Abraços, William Rodrigues

Brother !!! você tem que informar na caixa do INPUT o mesmo nome que está no seu banco de dados cara... Lembrando: Se no seu banco de dados tá JOÃO SILVA, você vai ter que informar JOÃO SILVA na caixa do INPUT, pois se não sua busca vai dar errado, isso é, se sua busca foi simples, pois sabes que pode fazer com que seu programa busque pelo primeiro nome também (tipo o CRITÉRIO na Consulta do MS-Access) Espero que tenha entendido o que eu quis dizer cara Abraços, William Rodrigues

Æ brother... agora que explicou o que você realmente procura.... até gostaria de retirar minha resposta pois não tem nada a ver né.... Não sei bem como fazer isso cara, mas vou dar uma estudadinha no seu código e qualquer coisa posto aqui prá você brother... Abraços, William Rodrigues

Æ cara.... Não sei sites que tem apostilas meu, mas você pode acessar esse site que, pessoalmente, acho muito bom... Aí vai: Macoratti Abraços, William Rodrigues

Æ brother... sobre apostila você pode fazer o seguinte meu.... tem vários sites na NET que você pode tá vendo e meio que fazendo sua própria apostila online ou offline cara.... esse site aqui é muito bom: Macoratti Abraços, William Rodrigues

Iæ cara... Bom pelo o que eu entendi é o seguinte: você tem um botão (CommandButton) no seu FORM, e seu código faz com que ele descarregue o FORM (Unload FORM) e você (- Xavier -) gostaria que o fechar (botão fechar padrão da barra de título do seu FORM) tivesse a mesma função que o seu botão (CommandButton), ou seja, quando o cara clicar no botão fechar da barra de título do seu FORM ele apenas descarregasse o FORM. O código seria mais ou menos assim: Private Sub Form_Terminate() Unload FORM End Sub ou então, você poderia estar tentando também cara o seguinte: Private Sub Form_Unload(Cancel as Integer) Unload FORM End Sub Espero que eu tenha entendido o que realmente você queria cara, e que minha resposta tenha te ajudado em algo... Abraços, William Rodrigues

Æ cara.... estou sem VB aqui cara, mas æ, vou tentar ajudar-lhe.... faz assim.... Shell "caminho do programa", vbMaximizedFocus Espero que tenha dado certo... Abraços, William Rodrigues

Iæ brother.... Li a sua dúvida cara e vou passar-lhe um script que resolverá seu pequeno problema cara.... Vamos lá... Inicie um novo projeto no VB 6.0 e insira 3(três) TXT no seu FORM. Se quiser pode alterar a propriedades de uma delas para MULTILINE=TRUE pra que nosso exemplo fique mais veridico. Após ter inserido as 3(três) TXT coloque o componente Commom Dialog (Project/Components..Ctrl+T) e insira-o em seu FORM, coloque também um botão com o Caption de Salvar. Altere as propriedades do nosso componente. Veja: DefaultExt=TXT FilterIndex=755 Filter=Arquivos de textos(*.txt) Ative também CancelError na caixa de propriedades do nosso componente. Agora vamos ao nosso pequeno código cara: Pronto brother.... Agora o seu Commom Dialog salvar as 3(três) ou mais TXT´S que você quiser cara. Ah, a TXT sendo ou não com a propriedade MULTILINE=TRUE. Espero que tenha entendido e que tenha te ajudado cara... Abraços Até mais

Mil desculpas pessoal... Foi uma INFELIZ que veio aqui e apertou o ENTER...mas não se preocupem, brevemente ela já não existirá mais...hehehe Bom, continuando.... --------------------------------------------------------------------------------------------------- Como dizia..... Com esse pequeno código, quando o usuário abrir o FORM2 através do FORMPRINCIPAL, ele irá desabilitar o opção dentro do menu no FORMPRINCIPAL.... espero que tenha entendido... e até mais abraços

Bom, vamos direto ao assunto: você pode criar um MDI (formulário pai) que chame dentro de si os outros formulários cara. ou então fazer da seguinte forma: Private Sub Form2_Load() FORMPRINCIPAL.NOMEMENU.ENABLED = FALSE End Sub Private Sub Form2_Unload() FORMPRINCIPAL.NOMEMENU.ENABLED = TRUE End Sub --------------------------------------------------------------------------------------------------- Com esse pequeno código, quando o usuário abrir o FORM2

É bem simples cara... Bom, vamos ao PEQUENO código.... VocÊ tem um COMBOBOX (caixa de seleção) e dentro desse COMBOBOX vocÊ tem algumas opções tipo...."a123", "b456" e "c789". Beleza, vai entrar no código desse COMBOX e vai criar um código +/- assim cara: --------------------------------------------------------------------------------------------------- Private Sub cboComboBox_Click() 'se a caixa de seleção estiver com o primeiro item selecionado IF ComboBox.ListIndex = 0 then 'vai para o FORM1 frmFORM1.SHOW end if 'se a caixa de seleção estiver com o segundoitem selecionado IF ComboBox.ListIndex = 1 then 'vai para o FORM2 frmFORM2.SHOW end if End Sub --------------------------------------------------------------------------------------------------- e assim vai indo cara....esse exemplo é aplicado a uma Caixa de Seleção (ComboBox) se quiser outro exemplo, coloca em fórum que eu respondo assim que possível. É que estou com um projeto para uma escola e estou estudando pakas cara..... Bom, vou indo nessa, qualquer coisa, se precisar me manda um EMail que se te respondo, assim que possível é claro... falou.. abraços e espero que tenha entendido ! Até mais