didex

menu window -> results

valeu Raphael... com o onpress também tinha dado certo.... t+

olha deu com o onPress, mas gostaria de ententer porque o onmousedown faz isso, se quiser baixe neste link o meu exemplo : Link Valeuuu

sim, mas usando o onmousedown e o onmouseup, sei que podia fazer um botão mas queria saber se assim há maneira de funcionar....

mas o onmouseDown era pra executar uma ação, como por exemplo abrir um link.

E aeee pessoal...beleza?? Aminha dúvida é a seguinte: Tenho vários mc's no palco, e tenho as ações: _root.mc1.onMouseDown=function { \\instruções } _root.mc1.onMouseUp=function { \\instruções } _root.mc2.onMouseDown=function { \\instruções } _root.mc2.onMouseUp=function { \\instruções } mas quando clico em um mc ele faz a ação dos dois mc's, poderia usar o onrelease mas o onreleaseoutside não funciona da mesma maneira do onmouseup... valeuu...t+

Mas este codigo me retorna os registos da tabela, mas eu queria do banco de dados no geral...

E aeee galera ...beleza??? Eu queria mostrar os ultimos 5 registos adicionados...no banco de dados...tem como? .. valeuuuuuu...

Mas tem como atualizar somente o mysql?

E aeee galera beleza??? Instalei o phpTriad... mas qual a versão do mysql que é intalado junto? pois estou tentando executar uma query e não está dando... o códgo que estou usando é o seguinte: $conecta = mysql_connect('localhost','',''); $bancodados = mysql_select_db('bd1',$conecta); $pesquisa = "SELECT id, nome FROM tabela WHERE id<(SELECT max(id) FROM tabela);"; $resultado = mysql_query($pesquisa) valeu....

Fala galera...beleza???? Tem como fazer um ciclo for invertido? Por exemplo, tenho uma matriz(10,10) quero que comece a preecher apartir da matriz(0,10) depois matriz(0,9) e assim por diante. tentei usar assim mas não deu: for x=10 to 0 flwwwwwwwwww

E aeeee cara beleza??? ;) Bom....esse foi o jeito que eu achei mais facil. para escrever um numero por extenso....acho que não existe uma formula no excel para isso, então fiz esse código no vba do excel: Vá no menu "Ferramentas/macro/Editor do Visual Basic". No lado esquedo, escolha a folha em que quer implementar esse código e cole-o. Fiz somente até o 50, para você ter uma ideia, mas claro que você quer trabalhar com numeros maiores, mas ai é só copiar o codigo e apenas alterar o valores. lembrando este código foi implementado na "folha1", caso a sua folha esteja com outro nome tem que altera-lo... Depois me diga se conseguiu.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Worksheets("folha1").Range("A1").Value < 20 Then menor_que_dez Else: maior_que_dez End If End Sub Function menor_que_dez() If Worksheets("folha1").Range("A1").Value = 1 Then Worksheets("folha1").Range("b1").Value = "UM" ElseIf Worksheets("folha1").Range("A1").Value = 2 Then Worksheets("folha1").Range("b1").Value = "Dois" ElseIf Worksheets("folha1").Range("A1").Value = 3 Then Worksheets("folha1").Range("b1").Value = "Três" ElseIf Worksheets("folha1").Range("A1").Value = 4 Then Worksheets("folha1").Range("b1").Value = "Quatro" ElseIf Worksheets("folha1").Range("A1").Value = 5 Then Worksheets("folha1").Range("b1").Value = "Cinco" ElseIf Worksheets("folha1").Range("A1").Value = 6 Then Worksheets("folha1").Range("b1").Value = "Seis" ElseIf Worksheets("folha1").Range("A1").Value = 7 Then Worksheets("folha1").Range("b1").Value = "Sete" ElseIf Worksheets("folha1").Range("A1").Value = 8 Then Worksheets("folha1").Range("b1").Value = "Oito" ElseIf Worksheets("folha1").Range("A1").Value = 9 Then Worksheets("folha1").Range("b1").Value = "Nove" ElseIf Worksheets("folha1").Range("A1").Value = 10 Then Worksheets("folha1").Range("b1").Value = "Dez" ElseIf Worksheets("folha1").Range("A1").Value = 11 Then Worksheets("folha1").Range("b1").Value = "Onze" ElseIf Worksheets("folha1").Range("A1").Value = 12 Then Worksheets("folha1").Range("b1").Value = "Doze" ElseIf Worksheets("folha1").Range("A1").Value = 13 Then Worksheets("folha1").Range("b1").Value = "Treze" ElseIf Worksheets("folha1").Range("A1").Value = 14 Then Worksheets("folha1").Range("b1").Value = "Quatorze" ElseIf Worksheets("folha1").Range("A1").Value = 15 Then Worksheets("folha1").Range("b1").Value = "Quinze" ElseIf Worksheets("folha1").Range("A1").Value = 16 Then Worksheets("folha1").Range("b1").Value = "Dezesseis" ElseIf Worksheets("folha1").Range("A1").Value = 17 Then Worksheets("folha1").Range("b1").Value = "Dezessete" ElseIf Worksheets("folha1").Range("A1").Value = 18 Then Worksheets("folha1").Range("b1").Value = "Dezoito" ElseIf Worksheets("folha1").Range("A1").Value = 19 Then Worksheets("folha1").Range("b1").Value = "Dezenove" End If End Function Function trunc(Number As Double, DecPlaces As Integer) As Double trunc = Fix(Number * (10 ^ DecPlaces)) / (10 ^ DecPlaces) End Function Function maior_que_dez() If trunc(Worksheets("folha1").Range("A1").Value, -1) = 20 Then Text = "Vinte" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 30 Then Text = "Trinta" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 40 Then Text = "Quarenta" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 50 Then Text = "Cinquenta" End If If Worksheets("folha1").Range("A1").Value > trunc(Worksheets("folha1").Range("A1").Value, -1) Then num Worksheets("folha1").Range("b1").Value = Text & " e " & num Else: Worksheets("folha1").Range("b1").Value = Text End If End Function Function num() If Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 1 Then num = "UM" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 2 Then num = "Dois" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 3 Then num = "Três" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 4 Then num = "Quatro" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 5 Then num = "Cinco" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 6 Then num = "Seis" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 7 Then num = "Sete" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 8 Then num = "Oito" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 9 Then num = "Nove" End If End Function

E aeeee galera.... ;) Será que alguém sabe qual o Limite de Uma matriz no vba??? valeuuuuu....... flwwwwwwwww

Valeu....cara... deu certo..... flwwwwwwwwww.....

E aeee galera.... A minha dúvida é a seguinte: Tenho alguns(bastantes) campos no formulário...teria como fazer um ciclo assim: for x=0 to 20 me.campo(x).value=x next Os nomes dos campos são assim: campo0 campo1 campo2 ...etc. valeuuuuuu....... flwwwwwwwwwwww