Graymalkin

Bom, o seu caso parece ser um problema de modelagem de banco de dados e não de Delphi propriamente. O jeito mais prático de matar os dois problemas citados é criar uma tabela Vendas e uma tabela ItensVendidos. Na tabela Vendas você vai guardar informações relativas a venda em si, como a data e o número dela. Na tabela ItensVendidos você terá um registro para cada item que for vendido e em cada registro constará também qual o número da venda (que vem da outra tabela, de Vendas). Vamos supor que seja feita a compra de nº 1, com 3 itens. Na tabela ItensVendidos constarão os 3 itens (com suas respectivas informações, como código, descrição, preço, etc.) e mais o número da venda (que, no caso, é 1). Como todos os três terão o nº 1 como número de venda, você saberá a qual venda eles pertencem. E, como todos os itens vendidos (de qualquer data) ficam na mesma tabela, que é ItensVendidos, não vai ser difícil você fazer um somatório da semana. Abraços, Graymalkin

Bom, você pode fazer isso no evento KeyPress da TextBox: Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If Acho que o preenchimento fica exatamente como você quer. Dê uma olhada. Abraços, Graymalkin

Crie outro tipo e defina os atributos desejados para este tipo: Private Type Pessoa Nome As String Cor As String End Type Private Type Teste teste1 As Pessoa teste2 As Pessoa End Type Certo? ;) Graymalkin

O programa para criar um instalador do seu aplicativo, no VB6, se chama Package & Deployment Wizard. Ele fica lá no menu Iniciar, junto do VB6, em uma subpasta chamada "Microsoft Visual Studio 6.0 Tools". Abraços, Graymalkin

Dê uma olhada neste tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=75026 Abraços, Graymalkin

O que apareceu no navegador quando você fez esse teste? Abraços, Graymalkin

:) Assim: Range("A:A").Select Selection.Delete Mas, qualquer coisa que você quiser fazer em VBA é só gravar uma Macro realizando a ação desejada e depois olhar o código gerado para ela (no editor do VBA - ALT+F11). Sim, se você colocar uma ProgressBar na planilha, bastará definir a sua propriedade Max com o total e depois incrementar a propriedade Value para ela "encher". Acredito que vá ser necessário chamar DoEvents dentro do loop para liberar o processamento a fim de encher a barra. Abraços, Graymalkin

Você precisa ter um jeito de dizer qual é o final da lista ou então verificar todas as linhas. O ideal seria verificar até que a célula fosse vazia, mas no caso, vazio é um valor possível para uma célula, então não se pode utilizá-lo como delimitador. Para verificar todas as células de uma coluna você pode fazer: coluna = "A:A" Range(coluna).Select qt = Selection.Count For i = 1 To qt If Selection.Item(i) = "VALOR" Then Selection.Item(i) = "DELETA" End If Next i Só vai levar um tempinho porque são 65536 linhas para serem verificadas (pelo menos é isso aqui no Excel 2003). Certo? ;) Graymalkin

O PrimoPDF é bem prático e é usado como se fosse uma impressora: http://www.primopdf.com/ Abraços, Graymalkin

Bom, o que é "Ami"? Mas, o problema também pode estar em qualquer uma das rotinas chamadas nesta rotina (Data_Ano, Maiusculas, Campanha, FormW.Show e FormAguarde.Show). Abraços, Graymalkin

Não repete a palavra "While": While ActiveSheet.Range("A" & i).Value <> "VALOR" And ActiveSheet.Range("A" & i).Value = "" Sendo que a condição é essa mesmo? Ela é estranha... :blink: Abraços, Graymalkin

Ok, então o que é feito neste botão? Qual o código que está no evento Click dele? Poste aqui pra gente poder dar uma olhada e verificar se percebemos o problema. Abraços, Graymalkin

Isso não deveria ser feito durante a instalação do programa? Se for o caso, o InnoSetup faz isso para você. Abraços, Graymalkin

Então, se for possível, instale o VB na dele e abra o fonte lá para ver se ocorre o mesmo erro. Abraços, Graymalkin

Por que você não executa o programa no próprio VB para que ele pare na linha do erro? Abraços, Graymalkin

Claro que cabe mais do que 4,7GB. DVDs originais, em geral, são do tipo DVD-9, que ao contrário do DVD-5 (4,7GB), armazenam mais de 8GB. Sendo que este tamanho não tem muito haver com o tamanho do vídeo, mas sim com a qualidade dele. Não achei nenhum lugar que dissesse que uma TV de 17 polegadas tem resolução de 1024x768, mas sim que as TVs normais tem até somente 480 linhas horizontais. E um DVD tem essa mesma quantidade ou mais de linhas horizontais. Abraços, Graymalkin

Na verdade, isso é dependente do sistema operacional e não do VB propriamente. Já ouvi falar sobre existir uma limitação de conexões no Windows XP SP2, mas que era configurável. Uma busca no Google deve lhe render bons resultados sobre o assunto. Abraços, Graymalkin

Alguém falou, em algum lugar aqui mesmo, sobre ser necessário ter no mínimo 600 posts para poder fazer essa alteração. Isso confere? Abraços, Graymalkin

Você quer dizer "sem usar a API do Windows *diretamente*", né? Porque não tem como criar uma janela qualquer no Windows sem usar a API Win32, uma vez que na verdade é ela que cria. Nesse caso, você pode dar uma olhada na wxWidgets, que é um framework para criação de interfaces gráficas: http://www.wxwidgets.org/ Mas, o Dev-C++ não atende as suas necessidades de uma IDE? Abraços, Graymalkin

O Perl da ActiveState é bem legal: http://www.activestate.com/ Abraços, Graymalkin

Isso só tem como você saber na prática, ou seja, fazendo várias conexões e verificando como fica a performance. Uma coisa que já se pode pressupor é que quanto maior for a velocidade da conexão (56KBps, 256KBps, 512KBps, 1MBps, etc.) maior será o número de conexões simultâneas. Abraços, Graymalkin

Você está colocando o IP da internet? Se sim, a conexão passa por algum roteador? Se passar, deve ser necessário que você faça um redirecionamento no seu roteador (para poder realmente chegar na determinada porta do seu computador). Abraços, Graymalkin

Type Mismatch ocorre quando você tenta atribuir um valores inaceitáveis para um determinado tipo de dado. Seria necessário você verificar exatamente qual é a linha de código em que isso ocorre. Abraços, Graymalkin

Se cada uma tem um socket, não. Múltiplas mensagens só se misturam quando enviadas e/ou recebidas no mesmo socket. Abraços, Graymalkin

Eu vejo dar esse erro quando o nome do campo está errado na instrução SQL. Abraços, Graymalkin