kuroi

edu, essa mensagem de erro signfica q ele não esta encontrando algum campo. tipo se o nome do campo estiver digitado errado, ele vai dar essa mensagem. tenta, em vez de executar o codigo, por um breakpoint (F9), e quando chegar ai, em vez de executar a query, copie o conteudo dela, e tente executar como consulta direto no access q ele deve indicar qual o campo q esta errado.

esse é um codigo q o graymalkin postou aqui no forum há algum tempo, q faz isso q você quer. ai é so você adaptar: Dim pessoas As New Collection Do While pessoas.Count <> 32 n = Int(Rnd() * 32) + 1 achou = False For Each pessoa In pessoas If pessoa = n Then achou = True End If Next pessoa If Not achou Then pessoas.Add n End If Loop grupo = 1 For i = 1 To 32 Step 4 Debug.Print "Grupo nº " & grupo & ": ", pessoas(i), pessoas(i + 1), pessoas(i + 2), pessoas(i + 3) grupo = grupo + 1 Next i[/code]

veja se esse tópico ajuda: http://scriptbrasil.com.br/forum/index.php?showtopic=112972

primeiro q o codigo do link q você passou é pra Visual Basic .NET, apesar q deve funcionar tb no Visual Basic 6, exceto pela linha da declaracao da sub. mas acho q você tem q adicionar tb a referencia não?? em menu Project -> References.

como assim dinamico?? você quer dizer q a cada vez o numero pode ser um diferente?? então, em vez de passar o 100, você não pode passar a variavel concatenada na string??

sim, veja se essa funcao ajuda: http://scriptbrasil.com.br/forum/index.php?showtopic=108910

hum não tem como falar assim. simplesmente é so fazer, mas pra isso precisa ter nocoes muito boas de logica e ai você tem q dar um jeito de fazer o pc intepretar as jogadas, é complicado mesmo.

movido pra .NET.

não entendi direito, acho q você teria q por os itens num subreport, não seria isso?? em q section especificamente você ta pondo os itens??

tenta clicar com o botao direito no campo no design do relatorio e entra em "Format Field", ou "Format qualquer coisa" q deve ter la e procure alguma opcao pra altera la. mas você não precisa usar necessariamente o campo Page 1 of 1, o crystal tem campos separados pra pagina atual e pagina final, se não me engano são o PageNumber e PageCount (ou TotalPageCount), de uma olha ai. ai você pode usar os dois campos e escrever em portugues na mao, com um Text Field, ou mesmo pondo tudo numa formula. tenta fazer um campo formula tipo assim (em Basic Syntax): If IsNull({Tabela.VBC}) Then Formula = 0 Else If Trim({Tabela.VBC}) = "" Then Formula = 0 Else Formula = CDbl({Tabela.VBC}) End If End If[/code] não testei, mas deve ser mais ou menos isso. tente ai qualquer coisa poste.

clica com o botao direito no campo, entra em Propriedades, e habilite a opcao Can Grow e veja se funciona.

opa, foi mal a demora. nossa não sei, mas tipo qual seria a finalidade?? se não me engano o nome no recordset não precisa ser o mesmo do ttx, só precisa estar na mesma ordem, então basicamento o nome do ttx não influi em nd. o q exatamente você ta precisando??

o q acontece é q apesar de estar escrevndo não existe você deve estar fazendo o calculo mesmo assim. tipo, ponha o calculo num else, q deve resolver. tipo isso: If x < 0 Then lbl2.Caption = "Não Existe" Else - AQUI você POE O CALCULO - End If[/code]

faca uma busca pela clausula Group By e veja, q acho q ela serve para o q você quer. senao, poste ai.

possivel ate é, se você usar subquerys, mas vai ficar estranho. o q exatamente você quer fazer??

mas a conexao realmente esta aberta?? posta a mensagem do erro, e posta um codigo mais completo.

o Class Module não faz parte desse projeto onde esta dando o erro?? então tente compilar a dll, e adiciona-la como referencia, e excluir a referencia atual, q me parece é feita ao projeto e não à dll.

mude a propriedade KeyPreview do form para True e pegue pelo evento KeyDown do formulario (Form_KeyDown). o Ctrl você pega pelo parametro Shift (mas não to lembrado agora, qual o valor q o contrl retorna).

tente isso: Sql = _ "select" & _ " nomecomprador, expositor, gaiola" & _ " from talao2006" & _ " order by nomecomprador UNION ALL " & _ "select" & _ " nomecomprador, expositor, gaiola" & _ " from talao2007" & _ " order by nomecomprador"[/code]

você quer compactar a pasta pra .zip?? de uma olhada aqui e veja se ajuda: http://www.macoratti.net/pac_arq.htm

Visual Basic .NET tem q ser na sala de .NET. um erro q eu vi aqui, é q, no insert os values() tem q estar entre parenteses. tipo assim: Insert Into Tabela Values(valor1, valor2)

se você entender ingles, tem esse link do site da microsoft: http://msdn2.microsoft.com/en-us/library/a...28VS.60%29.aspx mas tipo, o q exatamente você quer fazer?? acho melhor você estudar html mesmo, e dependendo alguma linguagem server-side tipo asp ou php. se você quer fazer paginas de internet, a DHTML Application do Visual Basic não é recomendada, tb porque a pagina vai funcionar como ActiveX. e ActiveX alem de so funcionar no Internet Explorer, usuarios em geral não vao querer instalar o controle, pois não se pode saber se o ActiveX é um malware ou não.

ue, copiei o seu codigo aqui, e pra mim ficou assim, tanto no ff quanto no ie: não ta certo?? como você queria q ficasse??

calma, você postou as 20 horas e só quatro horas depois já tava postando de novo?? as pessoas não ficam acessando o forum a cada minuto, tem q ter paciencia. mas se você não definir nada vai dar erro mesmo. tipo, o q o fercosmig quis dizer é "qual o valor q esta no campo minimo??" tipo o q realmente acontece?? ele simplesmente não mostra a mensagem?? o explorer acusa algum erro?? olhando o seu codigo aqui to vendo q ta faltando ponto e virgulas, tenta assim ó: var enganche = document.form.enganche.value; var minimo = document.form.minimo.value; if (enganche<minimo){ alert("não pode ser menor que 10%"); document.form.enganche.focus(); return false; }[/code] se não der certo, explica exatamente o q acontece. quais os valors q você passa no minimo e no enganche, e o q ele executa do seu codigo, etc.

hum?? o q exatamente você quer fazer?? pra saber quando o usuario digitou ALT, pegue pelo parametro Shift do evento KeyDown. o Shift tera valor 4 para o ALT.