kuroi

hum, mas o q você quer dizer com "inverte os campos"?? tipo o q acontece mesmo de errado??

seria isso?? Dim f As Long, senha As String f = FreeFile Open "c:\windows\password.txt" For Input As f senha = Input$(LOF(f), f) Close f[/code] mais sobre arquivos texto: http://www.macoratti.net/txt_arqs.htm

vai ver q eu não to entendendo direito então. ó, qual desses dois você quer: 1 - o cara digita todos os dados de um registro. ai ele clica em gravar. é salvo dessa vez SOMENTE UM registro. ai alguns campos desse primero registro vao ter o mesmo valor no segundo. e esses campos devem estar preenchidos nos textbox quando ele for salvar o proximo. mas alguns outros campos ele pode preencher. e ai quando ele clicar em gravar MAIS UMA VEZ ele grava o segundo registro. 2 - o cara digita todos os dados de um registro. ai ele clica em gravar. dessa vez é salvo um registro com os dados q ele escreveu e logo em seguida, alguns dos dados q ele preencheu são alterados (é você quem altera no codigo e não o usuario) enquanto q otros continuam os mesmos e um segundo registro é gravado sendo Q ELE SO CLICOU EM GRAVAR UMA VEZ. opcao 1 ou 2?? ou não é nd disso??

esse erro me acontece direto, mas é sempre problema dentro do .rpt. pode ser mtas coisas, mas a mensagem não da os detalhes no visual basic. ai você teria q abrir o .rpt e tentar imprimir por la pra ver se acontece alguma coisa de errado. umas dicas q eu posso dar: abra o .rpt no crystal, clique em Verify Database e salve. dexe desabilitada a opcao Save Data With Report de dexe habilitada a opcao Verify on Every Print. se o erro persistir, abra o preview do relatorio no crystal e clique no botao q vai pra ultima pagina pra q ele passe por todos os dados assim se o erro for em algum registro no meio do arquivo, ele vai passar por ele.

você ta imprimindo na impressora?? ou ta querendo q apareca as duas vias na tela?? se for na impressora, você pode passar o numero de copias como parametro. se você tiver usando o Crystal Reports Control, você tem uma propriedade PrinterCopies, é so preencher com o numero de copias. se tiver usando o Crystal Reports ActiveX Design Run Time Library, é so passar o numero de copias no segundo parametro do PrintOut.

ué o codigo ta ali, é so pegar do textbox em vez do inputbox ue

ai mano tem q te calma, as pessoas não ficam abrindo o forum a cada 5 minutos, você pode demora pra te uma resposta. agora pra preencher o array a cada clique, não adianta usar for. porque o q acontece é q a cada clique no botao, o evento clique é chamado. e ai é a cada vez q preenche. se ficar dentro do for, o for é executado a cada clique e ai você vai tar preenchendo td no primero clique. declara uma variavel la em cima (em cima de tudo no codigo) pra contar o numero de cliques. inicializa ela com 0, e a cada clique você, primero guarda o valor no array (q tb tem q estar declarado la em cima. não adianta declarar dentro da sub clique, porque senao o valor vai se perder quando ela acabar), no indice correspondente ao contador. exemplo, se o contador tiver no 0, você guarda no indice 0, se tiver no 1, guarda no indice 1, etc. ai você soma mais um no contador. e quando o contador chegar em 9, você sabe q ele já clicou 10 vezes.

aqui tem exemplos de um componente q faz isso: http://www.macoratti.net/adox.htm acho q você pode usar um for each pra procurar a tabela se já existe, de uma olhada q la tem um exemplo q lista todas as tabelas existentes e é baseado nele q você faz isso. e com esse componente você consegue criar tabelas, consultas e inclusive um novo banco de dados do zero.

é so um exemplo, você q sabe com o q vai preencher as variaveis. imagino q você va pegar os valores do formulario não??

se é a mesma mensagem de erro ainda so imagino q seja nome de campo digitado errado. quando você tenta executar dentro do access, normalmente ele aponta o cursor pro campo q tiver errado (ou ele vai abrir uma janelinha pedidno pra você digitar o valor do campo inexistente. isso acontece, pois ele interpreta o campo inexistente como um parametro, por isso ele pede o valor, e por isso aquela mensagem). ai você poderia identificar qual campo esta errado. abra uma nova consulta no access (se você já tiver salvo essa consulta, não abra ela e sim uma nova) e tenta de novo. se ainda não conseguir, faca o seguinte então, vai apagando os campos da sql e vai testando. tipo um por um. tira o campo DATALT e execute a query e veja se não vai executar. se der certo, você vai saber q é o DATAALT. senao, depois tire o TELEFONE (mas ainda não insira o DATAALT de volta, já q pode ter erro em mais de um campo) e assim por diante. e como pode ser mais de um campo errado, então o melhor é você tb ir inserindo de volta um por um depois.

não sei direito, acho q so se você desvincular os controles do objeto data e fazer todo o controle no codigo. alias, é muito melhor trabalhar assim, alem de q tem mtas vantagens q você pode ler aqui: http://www.macoratti.net/vbc_vinc.htm

acho q isso é campo inexistente. provavelmnet você digitou o nome de algum campo errado ou esqueceu de por algum texto entre ' '. da uma checada e se não conseguir achar o erro, ponha um breakpoint (F9) na linha do erro. e quando chegar la (a execucao deve parar), abra o immediate window (ctrl + g) e digite ? strSql e aperte ENTER. e ai ele deve mostrar como ficuo a query. ai tenta executar como consulta direto no access e ele deve apontar o cursor no lugar no erro. se tiver dificuldade, poste ai o conteudo da query q aparece no immediate window.

é q você não consegue fazer update com group by. não pode usar o sum(). a não ser talvez se o sum() esteja numa subquery q você use no join, tente isso mas não garanto.

não entendi o q você ta falando. isso é visual basic 6 mesmo?? q componente você ta usando pra fazer isso ai??

é no sql, olha: http://scriptbrasil.com.br/forum/index.php?showtopic=73040

op beleza tenho a seguinte duvida tenho um sistema de conexao resreva de cliente servidor e no cliente tenho um listview que aparecem quem ta conectado mas quando tem mas de um cliente conectado so consigo enviar comando para o primeiro conectado então gostaria de saber como faço para conectar dando dois cliques no cliente do listview e da onde vem essa mensagem q você envia?? ta usando winsock??

já consegui usar a 11. quanto a 2008, nunca usei, mas teve esse problema no forum e tenho a impressao q so deve ser compativel com .net.

de novo, vo mover pra office.

hum, já q isso pode ser configuracao do office e não do vba, vou mover pra office e dexar o link do tópico em vba, assim você tem mais chance de ter resposta.

cara se nome e itens são chaves primarias (os dois campos ao mesmo tempo) então o erro q acontece é q você ta tentando gravar uma nota com o mesmo numero e mesmo item de uma já existente, o q não tem como a não ser q você cancele as chaves. você ta tentando numeros diferentes mesmo?? se tiver então posta o codigo q você ta usando pra gravar.

movido pra vba.

não da pra entender direito o q você quer fazer, mas se você quer mostrar um registro por um no timer, então, apague o ultimo if e ponha isso no lugar: If i < total Then rs1.Close Else Timer1.Enabled = False End If[/code] e pode apagar o label Loop2 porque ele não tem utilidade.

esse aqui você testa se não é EOF antes do MoveNext e MoveLast e se não é BOF antes do MovePrevious e MoveFirts. exemplo: If Not recordset.EOF Then recordset.MoveNext End If[/code] quanto ao otro erro, não entendi essa parte. o q é o "código que estiver na frente"??

ue é normal. se a sua classe se chama ClasseX, faca assim: Private Sub Funcao(x as ClasseX) Valor = x.Propriedade 'aqui você acessa normal. End Sub[/code] ai é so chamar normalmente passando o objeto no parametro.

nunca vi isso, o unico grid q eu vi q suporta checkbox (e mtas otras coisas) dentro é um chamado farpoint spread (componente pago).