William Rodrigues
-
Total de itens
1.935 -
Registro em
-
Última visita
Posts postados por 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:
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:
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:
Dim txt1 as StringDim txt2 as String
Dim txt3 as String
txt1 = Text1.Text
txt2 = Text2.Text
txt3 = Text3.Text
On Error Resume Next
Me.CMDialog.ShowSave
Open Me.CMDialog.Filename For Output As #1
Print #1, txt1, txt2, txt3
Close #1
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
Localizando Registro
em Visual Basic
Postado
Æ cara..
que bom que pude, particularmente, te ajudado....
e qualquer coisa cara, posta aí...
Abraços,
William Rodrigues