BrunoVeríssimo

está ai o codigo..... Pelo menos deu o mesmo valor que o lcs passou...XD Espero que seja isso o que você quer cseri...

Se você me falar como se calcula esse indice, a programacao eu te passo!!!

Usei um exemplo com 3 botoes..... Mas não esquece de mudar o Keypreview pra True, como o lcs falou Private Sub Command1_Click() MsgBox "a" End Sub Private Sub Command2_Click() MsgBox "s" End Sub Private Sub Command3_Click() MsgBox "d" End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Select Case (KeyAscii) Case 97: ' a em Ascii Command1_Click Case 115: ' d em Ascii Command2_Click Case 100: ' s em Ascii Command3_Click End Select End Sub

Concordo com o Graymalkin... Se for o que eu entendi, esse codigo de cima funciona!!!

Iaê chará.... o lcd está certo... faz assim... Private Sub Combo1_Click() If Me.Combo1.Text = "Pessoa Juridica" Then Me.Label1.Caption = "Razao Social" ElseIf Me.Combo1.Text = "Pessoa Fisica" Then Me.Label1.Caption = "Nome" End If End Sub

você quer alterar o nome de usuario e senha????

alguém pode me ajudar.... to tentando fazer um bd em Access XP e usa-lo com ADO.NET no VB.NET... to usando o VS 2005....

Usa o Shareaza ou Emule!!!! oe talvez por torrent!!!! Se quizer por torrent... baxa neste link << http://www.torrentportal.com/details/12002...833.TPB.torrent>>

Confesso que nunca pensei nessa idéia!!!! Apesar de ser trabalho de porco, acho que pode usar isso enquanto não colocarem um outro jeito... ...eu mesmo já tive este problema...

Acredito que se você usar assim dê certo!!! SELECT [Campos] FROM [Tabela] WHERE [Campo] = Rnd()*1000 Acho que com isso ele vai procurar um registro que tenha o campo desejado igual a um numero entre 0 e 1000. mas não se esqueça de botar o Randomize antes da instrução!!!! Qualquer coisa, pergunte novamente!!!

Concordo com o Kuroi.... Faz o seguinte.... Roda o programa com o Debug, é melhor pra achar erros..... Caso não saiba, vai apertando F8.... ou se achar melhor de F9 perto de onde dá o erro e executa o programa, ai depois você vai pelo F8... isso sempre me ajuda a achar erros!!!

Põe isto e vê se resolve!!! sql = "SELECT * FROM Banco WHERE Data BETWEEN " & vDataI & " AND " & vDataF

Fiz o codigo do Lcs...e ele sumiu com a barra do menu iniciar, mas quando você maximiza o MDI ele fica como se tivesse a barra ainda..... da pra ver o papel de parede em baixo dele.... Mas Vlw assim mesmo pessoal!!!

Fiz um exemplo com um MDI e dois forms.... http://www.megaupload.com/?d=AO7DWVF8 espero ter ajudado!!!

Que tipo de conexão você está fazendo??? DAO ou ADO??? Ou outra???

já tentou usar com MDI... lembro que quando eu fiz deu certo... eu mexia com os forms simutaneamente

A função Rnd() gera um numero aleatório entre 0 e 1.... mas você pode fazer o seguinte: Rnd()*1000 , isso fará gerar entre 0 e 1000. mas seu PC sempre vai gerar o mesmos numeros sempre. Por isso, antes de gerar coloque Randomize, assim toda vez será um numero diferente... Ex: Randomize Num=Rnd()*1000 Espero ter ajudado!!!!

Foi mal Lcs...achei muito complicado aquele codigo!!! Alex....esse seu jeito eu já conhecia....eu é que me expressei mal... Eu quero fazer isso com um MDI!!!! e lá não tem a opção de bordas!!!!

Tem algum modo de deixar meu soft rodar em tela cheia??? Ou pelo menos cobrir a barra do menu iniciar do windows???

Vlw Gray.... Funfo o barato!!!

Foi mal Graymalkin.... é qeu quando li seu post, eu usei de forma errada.... Foi mal se eu não entendi o recado!!!! XD eu tava fazendo... MDIform.screen.heigth!! XP

é uma pena que não dá!!!! Mas fazer o que né??? O vb não pode fazer td também.... vamo usar os ifs mesmo..... Vlw

Eu quero limpar os campos do form, mas pra isso estou usando Modulo pra poder usar o recurso em todas as telas....eu to usando assim.... Public Sub LIMPACAMPOS(ByRef Formulario As Form) Dim Controles As Object For Each Controles In Formulario If TypeOf Controles Is TextBox Then Controles.Text = "" Else If TypeOf Controles Is CheckBox Then Controles.Value = False End If End If Next End Sub ...não tem como eu usar um Select case pra diminuir o tamanho do código???

Vlw...deu certo...

funcionou não!!!!