kuroi

conheco o spread, é um grid muito bom. quanto ao esse codigo, tb sempre uso um form so pra pesquisa de todos. e pra passar o codigo pro otro formulario, eu usava uma variavel publica pra pesquisa. e guardava o codigo sempre nessa variavel. mas isso é porque eu não sabia pra q formulario eu ia passar o codigo. então eu passava no proprio formulario. exemplo, eu chamava a pesquisa aqui: Private Sub cmdPesquisa_Click() frmPesquisa.Show vbModal txtCodigo.Text = intPesquisa 'Aqui eu setava o codigo com o codigo selecionado durante a pesquisa. End Sub[/code] ai no form de pesquisa, eu passava o codigo pra essa variavel em vez de passar para o textbox. mas se você quer passar direto pro formulario, e ele já ta aberto, acho q se você simplesmente fizer isso funciona: [code]frmFilial.txtCodigo.Text = grdPesquisa.GetText Col, Row, vCodigo frmFilial.txtCodigo_Validate False ve ai.

hum, você quer criar tipo um grid com mais opcoes?? então não seria uma ocx (activex control) em vez de dll??

é então, você pos pra abrir a conexao, mas tirou a linha q abria o recordset. essa aqui: .Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly tem q por isso depois de abrir a conexao. mas antes teste se o recordset já não ta aberto como o raphael falou. mas otra coisa, porque você ta abrindo a conexao e depois fechando?? essa linha aqui: cnSQL.Close essa linha fecaha a conexao. se você abrir e depois fechar não tem o menor sentido. se você quiser, pode fechar depois do final das operacoes (no final da sub). mas se você não fechar no final, antes de abrir então, vai testar se já não ta aberto, como no codigo do raphael, faca tb com a conexao. mas o melhor é se já estiver aberto, não é pra fechar e abrir de novo, se já estiver aberto, então simplesmente dexe aberto. so abra se estiver fechado. mas o melhor talvez fosse abrir a conexao no Load e fechar no UnLoad do formulario.

ele vai passando em tudo e vai levar quanto tempo passando em tudo?? e pra depois fazer em todas as paginas se for pra fazer blur porque não faz por filtro q faz tudo de uma vez direto?? e faz bem mais bem feito. afinal se você passar em tudo na mao, com certeza vai ter falhas, regiaos q ficarao com menos ou mais blur.

ou aninha para de escreve em letra gde q isso é muito ruim pra ler. ai o problema é q a conexao ta fechada, se você não abrir a conexao você não consegue acessa o banco. olhai, da onde vem esse cnSQL?? ele tem q ser uma conexao aberta. igual aqui onde você abre uma conexao chamada conexao: 'cria a conexao com o banco de dados via ADO conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\DIGITAL ART´S\Meus documentos\teste\db1.mdb;Persist Security Info=False"[/code] essa conexao não é publica?? porque você não usa ela em vem desse cnSQL?? se por acaso você quiser usar mesmo um objeto diferente, tem q abrir ele tb.

ai acho q tem um programa q chama GTXRaster CAD q faz isso. e tb o Scan2CAD. mas são pagos, não sei se você encontra algum programa free... mas tenta olhar no google... não conheco autocad, mas pelo q li por ai, enqto as imagens de cad são vetoriais, as imagens comuns (tif, jpg, etc) eles chamam de raster. então em vez pesquisar por tif, pesquisa por raster. ai mesmo se o programa não trabalhr diretamente com tif, você converte pra alguma otra coisa antes de converter pra dwg.

então, eu tb. disse q faco do 0, mas eu faco no editplus q é um bloco de notas melhorado e q tb faz o realce da sintaxe. pelo menos geralmente uso ele, mas se tenho q usar computador onde não tem ele instalado faco no bloco de nota mesmo. usei muito poco o linux, mas vi q o bloco de notas do ubuntu tb é bom nesse sentido, faz todo o realce, qualquer programa desse tipo ta bom pra mim. já no asp.net, faco no visual studio mesmo, ne, tb por conta q não precisa digitar intero, mas raramente uso a parte do design tb (se eu for por um <asp:Label> eu não arrasto o controle no design, e sim digito o codigo no editor de codigo).

cara o q é uma "aba"?? você ta usando um controle sstab ou tabcontrol?? ou por acaso você ta falando de item de menu?? o q exatamente você quer desabilitar??

vamos ver se alguém na sala de .net sabe.

não entendi o problema... talvez meu crystal seja diferente, mas se eu clico em Insert -> OLE Object, eu seleciono Criar do arquivo e posso passar o path la. ou você ta tentando fazer por codigo?? q objeto é q você quer por (qual o tipo)??

mas então, onde ta sua duvida exatamente?? não sei onde ta o problema, é so você gravar de novo embaxo de onde você já ta gravando a venda, ue. se o seu problema for pra gravar os dados de cada parcela separadamente, então você vai ter q ter uma tabela separada para parcela (ou você grava tudo numa string só, o q acho q so daria mais trabalho).

ta endendi, faca o seguinte. apague ou comente a linha On Error Resume Next e roda o programa de novo. ve q deve aparecer alguma mensagem de erro quando você abrir o formulario. se aparecer, e você não conseguir descobrir o problema, posta aqui a mensagem e aponta qual é a linha q ela acontece. se não aparecer, então avisa aqui tb. e sempre presta atencao no On Erro Resume Next. de preferencia nunca use isso a não ser q tenha total certeza do q ta fazendo. ele vai ignorar falhas da programacao, e mtas vezes vai atrapalhar ate o programador (você), como imagino q teja acontecendo nesse caso.

a então, olhei la e o principal erro é q você ta dando o find no Data1, mas o data q ta vinculado com o formulario é o Data1Animal. se você der find no Data1 não vai acontecer nd. acho q você ta confundindo, a ideia do segundo objeto data era só pra usar filter, você pode usar o find no data original. otro problema q aconteceu aqui tb é problema com o tempo do clique. tipo, se você clica no grid o evento é chamado normalmente em menos tempo q ele leva pra mudar de registro. ai você preenche o label do otro form com o codigo q ele tava antes de clicar e não no q ele clicou. pelo menos aconteceu aqui comigo, acho q o melhor seria por no evento DblClick não?? fora isso, nessa parte aqui: If lblCliChama.Caption = "x" Then cmdEditar_Click Unload ConAnimal If lblAux2.Caption <> "0" Then Data1.Recordset.FindFirst "CodigoDoAnimal = " & lblAux2.Caption '& Verificar2 End If End If[/code] acho q você devia chamar o editar só depois do find ne?? ve ai q deve funcionar. EDITADO: ou e quanto a instalacao automatica da ocx q você comentou na mp, é so você adicionar quando você for fazer o instalador. você faz o instalador em menu Iniciar -> Programas -> Microsoft Visual Studio 6.0 -> Microsoft Visual Studio 6.0 Tools -> Package & Deployment Wizard ou usar o programa InnoSetup (procura no google, é free), q é bem melhor.

como assim antes q você acesse?? você chama o form, mas antes de ele aparecer ele da a mensagem?? e so depois da mensagem ele mostra o form?? então... você ta chamando o MontarLista ou ta alterando o conteudo do txtDadosPesquisa em algum lugar tipo no form_load??

a é verdade, olhei aqui e saiu em 2006, achei q era mais recente.

isso mesmo. e por isso tb q não gosto de fechar topicos. olhai já tinha mais gente interessada no assunto, se eu tivesse fechado, o new_rayderss não teria postado aqui. sempre tem mais a se discutir. mas, então, não sei o q ele fez, mas acho q da pra resolver com o unload. tipo: Unload Forms(2) onde 2 é o indice do formulario (o primero formulario aberto é o indice 0, cada novo formulario inserido, é o proximo indice). se você quiser remover o form q chama "Form2", faca tipo assim: Dim x As Form For Each x In Forms If x.Name = "Form2" Then Unload x Next[/code] EDITADO: mas tb olhando o seu codigo agora, xistyle... se não tem permissao de abrir, pra q você vai carregar então?? se ele não vai abrir, o mais facil não seria nem carregar?? tipo assim: [code]If sPermiteAbertura = "S" Then Set oTela = Forms.Add(sTela) oTela.Show End If so adiciona se tiver permissao.

a mas tipo, você já não tava usando esse lblCliChama pra saber se vem do cliente?? ele já não ta testando o x em otra parte do codigo?? acho melhor usar dois labels separados. nem precisa desse do cliente. usa so o do codigo. ai pra testar, faca: If lblAux2.Caption <> "" Then Data1.Recordset.FindFirst "CodigoDoAnimal = " & lblAux2.Caption[/code] ou seja, se tiver preenchdio, ele procura, senao não. (obs: logico, q se você puser outro texto no label - como você q você pos o texto "Aqui!!" no label do x - então você tem q alterar tb no codigo acima) mas pra falar a verdade acho q não seria nd disso... você não respondeu, mas eu passei esse codigo imaginando q ele ta no form de consulta mas o formulario não ta aberto ainda. mas olhei no seu projeto, não sei se você alterou, mas ele so chama o form de consulta a partir do frmAnimal, certo?? então o frmAnimal já ta aberto quando ele ta no form de consulta?? bom então, se tiver nd disso vai funcionar mesmo. ai como eu disse, deve funcionar se você puser o find depois do show. tipo assim: [code]Private Sub cmdLocalizar_Click() ConAnimal.Show 1 If lblAux2.Caption <> "" Then Data1.Recordset.FindFirst "CodigoDoAnimal = " & lblAux2.Caption End If End Sub

hum, mas quando ele chamar a consulta o form do cadastro já vai estar aberto?? se tiver, ponha o codigo no evento q chama o form de consulta depois do show (imagino q teja chamando como modal) senao, você tem q por essa linha aqui: frmAnimal.lblCliChama.Caption = "x" antes de acessar qualquer otra coisa no frmAnimal. porque senao o load é chamado antes de você setar o x e quando ele abrir o x não ta la. se tb não funcionar, tenta por o find então, em vez de no load do frmAnimal, ponha no activate.

o problema não é o ultimo & _ quando você concatena tdo no strbody?? se o comando acaba la não é pra ter isso. ai você concatena embaxo com uma expressao boolean por isso ta voltando false.

no evento Exit, quando você não quiser q saia ponha Cancel = True

a ta tudo aqui ó, é so ler: http://pt.wikipedia.org/wiki/C_(linguagem_...a%C3%A7%C3%A3o) http://pt.wikipedia.org/wiki/C%2B%2B http://pt.wikipedia.org/wiki/C_sharp uma explicacao rapida: a linguagem original é c, criada em 1972 baseada na linguagem b. o c++ é uma implementacao do c (é o c com melhorias), e suporta orientacao a objetos. se você usa o compilador dev c++ por exemplo, ele compila tanto c quanto c++. basicamente tdo o q você pode fazer em c, você pode fazer em c++ tb. o c++ seria o c com mais recursos. ou seja, o seu compilador de c++ tb é um compilador de c. hj basicamente é uma coisa so, eu nem olho esses detalhes quando to programando no dev c++ nem sei direito se a funcao q to usando é de c ou de c++, vai tdo virar exe mesmo. não sei hj em dia se tem muito lugar onde você precisa usar o c e não o c++. muito provavelmente, a não ser q seja em exercicio de escola q o professor especifique q não pode ser c++, não acho q você va encontrar mtas ocasioes em q você não possa usar o c++. então o importante é saber aproveitar as vantagens do c++ em relacao ao c classico. o c# já é bem diferente. é uma otra linguagem q foi baseada no c++. é tb orientada a objetos e tem quase q exatametne a mesma sintaxe e etc, mas é uma linguagem diferente, ela foi criada pela microsoft pra se programar no .net, ou seja, ela é baseada nos objetos do .net framework. pra saber mais sobre o .net, veja aqui: http://pt.wikipedia.org/wiki/.net_framework ai sei q a microsoft ta lancando uma plataforma q não lembro o nome pra você programar jogos em c# q rodariam tanto em windows quanto no xbox. o q você quer dizer com uma linguagem q seja usada pra tudo?? cada linguagem serve (ou é mais indicada) pra uma determinada coisa, se uma linguagem servisse pra tudo, existiria so ela, não existiriam otras. com o c# você pode programar paginas pra web em asp .net por exemplo. agora o c ou o c++ é mais indicado pra programacao de baxo nivel, pra fazer sistemas operacionais, jogos, etc. a como disse não sei direito as diferencas do c pro c++. no c seria tipo isso aqui: #include <stdio.h> int main(void) { printf("xxxxx"); }[/code] agora esse exemplo acima tb serve pro c++. seila, da pra fazer por cout tb, se não me engano ele é exclusivo do c++: [code]#include <iostream> using namespace std; int main(void) { cout << "xxxxx"; } e no c#, depende, se você ta fazendo aplicacao asp.net, desktop, etc. se você tiver fazendo aplicacao pra console, como nos exemplos do c/c++, acho q seria isso: Console.WriteLine("xxxxx");

em vba no access?? acho q seria isso: DoCmd.TransferSpreadsheet acExport, 8, "NomeDaTabela", "C:\Caminho\NomeDaPlanilha.xls", False, ""

mas é assim mesmo. você queria q aparecesse tudo?? ele so vai mostrar o q ficar dentro do filtro. onde aparece esse saldo?? no report footer?? tenta então por a formula do filtro no Group Selection Formula em vez do Record Selection Formula. ou use um subreport so pra mostrar esse total.

então aninha, mas quando der um erro e você for postar aqui no forum, posta qual a mensagem q aparece escrito, senao fica dificil pra gente. se ta dando erro nessa linha, pode ser o sql. mas tipo, o formload abre a conexao, certo?? então se a conexao ta aberta certinha, deve ser erro na query. veja q você seta o sql aqui ó: x = InputBox("Digite o Codigo a ser procurado") 'CRIA UMA INPUT PRA ENTRADA DO CODIGO sql = "Select * from tabela where codigo = " & x & "" 'SELECIONA TODOS OS DADOS DA TABELA E TIVEREM O[/code] esse é o sql q ta sendo executado la embaxo. então o erro pode estar aqui e não la. tipo, os nomes dos campos tão certo?? a tabela chama mesmo tabela e o campo chama mesmo codigo no seu banco de dados?? o campo codigo é do tipo numero ou é do tipo texto?? se for text você tem q por entre '' assim: [code]sql = "Select * from tabela where codigo = '" & x & "'" se for numerico, então vai dar erro caso você não digite um valor numerico ou caso não digite nd no inputbox. então, ve ai se consegue descobrir, senao posta pra gente qual a mensagem q aparece na janela do erro.

mudar o BackgroundQuery pra true significa q o usuario não precisa esperar o codigo ser executado. ele pode usar o excel enquanto a macro ta sendo executada. mas fora isso, parece q ele seleciona uma planilha depois da otra, não sei qual a finalidade. você não pode perguntar pra pessoa q fez??