RobinhoVB

Amigos me ajudem por favor. vou ser o mais claro possível. Tenho um Relatório (óbvio) que atende 44 itens cada item e uma frase de resposta de uma pesquisa satisfação ou seja o cara escreve o quer e quantos caracteres permitir Agora a duvida se observar na imagem irão ver itens dentro do amarelo e itens dentro do cinza, o que esta dentro do amarelo eu consigo por o titulo(Esses títulos já são pré-moldados então não vem de nenhuma base de dados). Porem eu não consigo colocar o titulo no item cinza, quando mando rodar o texto vai lá pra cima, eu sei que tem GRUPO já ate tentei mas não consegui, pelo menos ate onde vai o meu conhecimento de CR, se existe algum jeito me deem uma Luz. (Lembrando que serão 44 itens do BD) Agradeço ROBSON

Galera vou tentar explicar a vocês Minha empresa resolveu fazer uma pesquisa satisfacao do qual tem 42 itens esses mesmos itens são satisfatório e insatisfatório salvos numa base de dados em mysql ate tudo bem eu criei os 42 itens com botão de opção dentro de 42 frames para que cada item fique idependente o problema esta sendo para salvar no BD eu não queria escrever os 42 itens ia ficar muito grande o codigo o que tentei Dim ItSatisf1, ItSatisf2, ItSatisf3, ItSatisf4, ItSatisf5 ..... ate 42 Dim IT As Integer For IT = 1 To 42 tabela.Fields.Item(IT).Value = ItSatisfX (aqui que eu queria que cada vez que o FOR passar o ItSatisfX variasse para o IT do FOR tipo ficar ItSatis1.. ate 42 e trouxesse o valor da variável) Next IT ps essa variável terá um valor I ou S I - de insatisfeito S - de satisfeito ambos os valores já estão definidos no click do option botão Agradeço to de cabeça enfumaçando já duvida na imagem

Ola pessoal to de volta com problemas em FILTRAR DATA POR CRITERIO, lembrando que o Banco esta em MYSQL e o campo "data" ta no formato data do MYSQL ou seja YYYY-MM-DD to querendo passar parametro de um label, que recebe uma data em dd/mm/aaaa vo postar o codigo: Dim Criterio As String Criterio = CDate(LblDATA.Caption) 'este Label recebe uma data em formato dd/mm/aaaa ex: 25/05/2012 RelatorioGeral.SelectionFormula = "{morto.data} = " & Criterio & "" RelatorioGeral.DiscardSavedData = True RelatorioGeral.Destination = crptToWindow RelatorioGeral.Action = 1 OBS: O rpt "RELATORIOGERAL" esta ligado ao BD em MYSQL via ODBC ta dando erro dizendo que "Uma data seria requerida aqui" me ajuda ai meus queridos grato ROBSON

Meu querido problema resolvido mas tambem agradeço muito a sua vasta colaboracao Muito Obrigado tópico pode ser encerrado refente ao e mail posso te add ?

Meu querido esta dando erro 91 "variavel não esta estabelecida" quando ele passa pelo DO UNTIL eu referenciei o microsoft script runtime, tem algo Mais ? imagen neste link https://www.mar.mil.br/cpse/imagens/erro91.jpg Meu querido 100 palavras ta funcionando direitinho eu achei onde estava o error na verdade era so Obeservar linha a linha ne :( Voce escreveu aqui no Forum a rotina certa, mas no arquivo enviado estava errada tipo (O EXECUTAVEL COMPILADO TAVA CERTO OK) Set arqFormatado = FSO.CreateTextFile(App.Path & "\Teste.txt", True) Essa rotina cria um novo arquivo txt, dai arquivo vazio passava os parametros de false quando o certo seria Set sT = FSO.OpenTextFile(App.Path & "\Teste.txt", ForReading, True) Abrir o arquivo e ler, como você escreveu aqui, tudo bem, queimei pestana mais achei o erro pela logica (NÃO DE O PEIXE ENSINE A PESCAR) Moderador por mim pode fechar o tópico RESOLVIDO A todos o meu muito obrigado senhores, voces fizeram meus filhos muito feliz garantindo meu emprego. :rolleyes:

Meu querido esta dando erro 91 "variavel não esta estabelecida" quando ele passa pelo DO UNTIL eu referenciei o microsoft script runtime, tem algo Mais ? imagen neste link https://www.mar.mil.br/cpse/imagens/erro91.jpg

Confirmou que o tamanho para cada registro é 7 linhas – Vi acima que comentou que pode ser 6 confirma essa possibilidade?. Observando exemplo do arquivo que passou o separador seria “;” certo? Agora faltam dois detalhes... Um seria em relação ao termino do arquivo... Tem algum caractere que finaliza o arquivo ou somente uma linha em branco? No arquivo constam os nomes dos campos em parênteses? Isso mesmo tem bloco de 6 ou de 7 so depois que eu vi O termino do aquivo não tem caracteres uma linha em branco Os aquivo não contem parenteses ex: abaixo WALDIMIR DE SOUZA ;117502430302 ;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA XINGU 17 CA1 AMBAI CEP: 26.050-480 ;60011-RIO DE JANEIRO/RJ ;não CONSTA ;JORCELINA DE SOUZA FLAVIA MARINS DE SOUSA ;116924600388 ;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001 ;CASADO ;PRIMEIRO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA ARAPONGA 189 CA03 GRAMA CEP: 26.061-080 Confirmou que o tamanho para cada registro é 7 linhas – Vi acima que comentou que pode ser 6 confirma essa possibilidade?. Observando exemplo do arquivo que passou o separador seria “;” certo? Agora faltam dois detalhes... Um seria em relação ao termino do arquivo... Tem algum caractere que finaliza o arquivo ou somente uma linha em branco? No arquivo constam os nomes dos campos em parênteses? Isso mesmo tem bloco de 6 ou de 7 so depois que eu vi O termino do aquivo não tem caracteres uma linha em branco Os aquivo não contem parenteses ex: abaixo WALDIMIR DE SOUZA ;117502430302 ;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA XINGU 17 CA1 AMBAI CEP: 26.050-480 ;60011-RIO DE JANEIRO/RJ ;não CONSTA ;JORCELINA DE SOUZA FLAVIA MARINS DE SOUSA ;116924600388 ;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001 ;CASADO ;PRIMEIRO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA ARAPONGA 189 CA03 GRAMA CEP: 26.061-080 ;26578868 ;58696-NOVA IGUAÇU/RJ ;JOAO DE SOUSA ;SANDRA DE ASSIS MARINS WALTER SODRE JUNIOR ;117493920396 ;17/02/1984 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA ALVARENGA PEIXOTO 65 CA1 AMBAI CEP: 26.040-200 ;00000000;58696-NOVA IGUAÇU/RJ ;WALTER SODRE ;FATIMA MARIA DOS SANTOS SODRE CARLOS ROQUE DE ALMEIDA SANTOS ;117495210329 ;10/08/1961 ;MASCULINO ;30/01/2001 ;30/01/2001 ;CASADO ;PRIMEIRO GRAU INCOMPLETO ;999 - OUTROS ;RUA DR SERGIO 30 FIGUEIRAS CEP: 26.000-000 ;35157-FEIRA DE SANTANA/BA ;FERNANDO MIRANDA SANTOS ;IDALICE PEREIRA DE ALMEIDA CAROLINA NOVAIS OLIVEIRA ;117502460345 ;21/05/1983 ;FEMININO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU COMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;EST DA GRAMA 439 GRAMA CEP: 26.060-640 ;00000000;58696-NOVA IGUAÇU/RJ ;EZEQUIEL NOVAIS OLIVEIRA ;DALVA DOS SANTOS FALCAO não tem esses espacos entre um Bloco e Outro coloquei so pra ilustrar.. Mas 1 vez muito obrigado

Meu querido se o moderador permitir eu mando o arquivo txt dai você ver e testa sua função porque aqui não funcionou, quanto a sua afirmacao você tem razao tem mais coisas alem do bloco com 7 mas isso eu ia me virar com a FUNCAO MID, Trocando em miudos : 1 - Esse banco de dados vem de UM mainframe do TRE de informacoes de eleitores da cidade de Nova Iguacu - RJ (e Legalmente ta !! fica tranquilo) Ele tem Blocos de 7 ou de 6 que vai desde o NOME ate os pais do ELEITOR vou destrincar cada 1 deles ex: 1 por 1 ********************************************************* ESSE EO BLOCO COM 7 ONDE FLAVIA MARINS DE SOUSA (NOME) FLAVIA MARINS DE SOUSA ;116924600388 * 116924600388 (NTITULO) ;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001 * 12/11/1982 (DATA NASC) ;CASADO ;PRIMEIRO GRAU INCOMPLETO * FEMININO (SEXO) ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS * 07/02/2001 (DATA FILIACAO) ;RUA ARAPONGA 189 CA03 GRAMA CEP: 26.061-080 * CASADO (ESTADO CIVIL) ;58696-NOVA IGUAÇU/RJ * 931-ESTUDANTE,BOLSISTA (PROFISSÃO) ;JOAO DE SOUSA ;SANDRA DE ASSIS MARINS * RUA + CEP: 26.061-080 (ENDERECO) ********************************************************* 58696-NOVA IGUAÇU/RJ (CIDADE) JOAO DE SOUSA (PAI) SANDRA DE ASSIS MARINS (MAE) como disse gostaria de ficar assim cada bloco FLAVIA MARINS DE SOUSA ;116924600388;12/11/1982 ;FEMININO ;07/02/2001 ;07/02/2001;CASADO ;PRIMEIRO GRAU INCOMPLETO;931- ESTUDANTE.... você Vai ver que no arquivo de vez em quando tem uma informacao do tipo Local : XXX Seção: XXX Então essa linha vai baguncar tudo. mas eu já resolvi isso com a funcao MID para deletar essa linha ou seja comeca com local já deleta (Ate porque não conheco ng nesse mundo que se chama LOCAL) em outra situacao tb encontrei a palavra ALACAO (que o mesmo que acerca de) tb mandei o mid nele e deletei a linha (Ate porque não conheco ng nesse mundo que se chama ALACAO) claro isso no arquivo que estou testado esse que estou te mandando e o arquivo original com todas as sujeiras do MAINFRAME inclusive andei observando que tem bloco de 6. sem mais delongas eu precisaria tb do numero do local e da secao como + 2 campos no banco de dados FLAVIA MARINS DE SOUSA (NOME) 116924600388 (NTITULO) 12/11/1982 (DATA NASC) FEMININO (SEXO) 07/02/2001 (DATA FILIACAO) CASADO (ESTADO CIVIL) 931-ESTUDANTE,BOLSISTA (PROFISSÃO) RUA + CEP: 26.061-080 (ENDERECO) 58696-NOVA IGUAÇU/RJ (CIDADE) JOAO DE SOUSA (PAI) SANDRA DE ASSIS MARINS (MAE) LOCAL (ZONA) Seção (SECAO) E ALARCAO PRO LIXO ISSO não E CAMPO DE NADA qualquer duvida agente se fala no forum muito obrigado eu to em parafusos ROBSON

Isso mesmo Clleiton todos tem blocos fixo de (7) ou seja cada 7 forma uma linha, so esse algoritimo e que me falta conhecimento algo que va ate o final da linha e press DELETE tipo um sendkey algo assim por isso peço ajuda ROBSON

Meus queridos estou precisando muito de ajuda com esse arquivo txt que recebi, segue a duvida (Verifiquem que tudo e o mesmo bloco) delimitado com ";" ponto e vigula até tudo bem. So que o MAINFRAME (Grande porte) so ler a linha completa então como faço para que essa linha não tenha quebras e sim fiquem unica, claro continuando com o ";" ? Obs: a primeira onde ta escrito "WALDIMIR DE SOUZA" não precisa ter o ";" e como está Obs2: Eu falei que era um bloco apos a Ultima linha comeca novamente o nome do outro cadastrado e assim por diante Esta assim WALDIMIR DE SOUZA ;117502430302 ;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001 ;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO ;931 - ESTUDANTE, BOLSISTA, ESTAGIÁRIO E ASSEMELHADOS ;RUA XINGU 17 CA1 AMBAI CEP: 26.050-480 ;60011-RIO DE JANEIRO/RJ ;não CONSTA ;JORCELINA DE SOUZA Gostaria que ficasse assim WALDIMIR DE SOUZA ;117502430302;04/10/1982 ;MASCULINO ;24/01/2001 ;24/01/2001;SOLTEIRO ;SEGUNDO GRAU INCOMPLETO;931 - ................................................. Aqui tambem da quebra mas se gravar no aquivo TXT sem formatação fica unica são 13850 linhas, ficar dando delete no final de cada para subir linha a linha HAJA DEDO NE !!! :) fico muito grato mesmo

Ola amigos me ajudem a terminar meu projeto Fiz um sistema em VB claro que cadastra informacoes de visitantes, ate ai tudo a base de dados era local em ACCSSES então era so apontar para o caminho no HD onde estava as fotos EX: SavePicture Picture1.Picture, "C:\SISCONV\FOTOS\" & IDENT & ".jpg" (SISCONV = Sistema de controle devisitantes) ok a empresa quiz o sistema MULTIUSUARIO, dai pra mim não teve problema passei a usar o BD em MySql perfeitamente foi so migrar os dados. Agora as fotos como eu salvo no diretorio do servidor ? e como carrego do mesmo ? eu não quero salvar diretamente no banco e sim apontar o caminho me ajudem nesse codigo eu meu emprego e minha familia ficariamos muito FELIZES.. OBG ROBSON..........

opa ola meu querido vo explicar passo a passo 1 - O sistema rodava local bd em access migrei para Mysql 2 - Vai agora ser com 2 operadores (2 micros), no salao de entrada dos visitantes, a Base de dados continua no mesmo micro anterior so que com XAAMP instalado 3 - O outro micro vai acessar a BD do micro 1 que estara tb as fotos o que eu não sei e como puxar essas fotos da maquina que vai ser servidor 4 eu não quero fazer por compartilhamento fica um troço esquisito já que o BD ta redondinho, todo relacionado 5 cada micro vai ter uma WebCAM e as fotos serao salvas no micro servidor. O que eu quero e apenas trazer essas fotos para o formulario do micro 2 sinseramente já rodei a internet e não consegui arrumar esse codigo Agradeço ROBSON

Ola amigos me ajudem a terminar meu projeto Fiz um sistema em VB claro que cadastra informacoes de visitantes, ate ai tudo a base de dados era local em ACCSSES então era so apontar para o caminho no HD onde estava as fotos EX: SavePicture Picture1.Picture, "C:\SISCONV\FOTOS\" & IDENT & ".jpg" (SISCONV = Sistema de controle devisitantes) ok a empresa quiz o sistema MULTIUSUARIO, dai pra mim não teve problema passei a usar o BD em MySql perfeitamente foi so migrar os dados. Agora as fotos como eu salvo no diretorio do servidor ? e como carrego do mesmo ? eu não quero salvar diretamente no banco e sim apontar o caminho me ajudem nesse codigo eu meu emprego e minha familia ficariamos muito FELIZ.. OBG ROBSON..........

me da uma dica uso ubuntu 9.4 vlw

Ola a todos me ajudem a sanar essa duvida eu uso ubuntu 9 Eu estou fazendo um aplicação (Sistema) que eu preciso conectar a um banco de dados mysql que esta no servidor remoto eu acesso ele via phpmyadmin numa boa via browser crio banco, tabelas e etc so que quando uso outra aplicação tipo msl-front ou ate mesmo o conector em java não consigo entrar no banco de dados antes que alguém pergunte eu já revisei senha os privilegios, coloquei o root como % ou seja qualquer local o que mais pode ser ? Grato

Ola a todos duvidazinha enjoada essa avaliar esse codigo obs: eu não estou usando o ADODC ok galera nenhum controle vinculado Dim X As Integer Dim BUSCAFORNECEDOR As String BUSCAFORNECEDOR = TxtFORNECEDOR.Text For X = 0 To tabela.recordcount - 1 ' (deu um total de 78) DataGridFORNECEDOR.Row = X If DataGridSO1SG.Text = BUSCAFORNECEDOR Then CONTAFORNECEDOR.Close Set CONTAFORNECEDOR = Nothing Exit For End If Next o DATAGRID tem uma limitacao na tela que so aparece 9 registros. Claro os outros estao em baixo e so rolar a tela acontece que quando o FOR chega em 9 eo .ROW do datagrid tambem chega 9 no proximo NEXT o "X" passa pra 10 mais o DataGridFORNECEDOR.Row continua em 9 ele não desce como resolver isso ? Grato ROBSON

Essa foi sacanagem dessa droga de empresa Kuroi olha isso fiz o SISTEMA na demosntracao um acessor perguntou e a situacao de quem tem filhos ? essa pergunta ferrou tudo que voce tinha me ajudado olha como ficou agora você lembra que por DETERMINACAO era prioridade 0 Zero ate ai nada de novo e so Gravar PRIORIDADE = GRUPO eles estarao sempre nas cabecas. fora ISSO SERA 1 = BAIXA 2 = MEDIA 3 = ALTA mas o FDP que deu a ideia de Filhos baguncou tudo do tipo 1 = BAIXA com filhos 2 = MEDIA com filhos 3 = ALTA com filhos 4 = BAIXA sem filhos 5 = MEDIA sem filhos 6 = ALTA sem filhos ou seja quem tem (FILHOS) tem Prioridade dentro da sua renda :wacko: Dai eu penssei o KUROI já montou essa rotina isso vai ser facil :rolleyes: , em vez de 1 to 3 eu coloco 1 to 6 depois que acabar o ultimo renda alta com filhos, comecaria o primeiro renda baixa "SEM" Filhos :angry: Mas a decisao final não foi. Essa ficando assim : Um exemplo do que pode acontecer. GRUPO PRIORIDADE FILHOS 1 -------- 1 --------- S 1 --------- 2---------- S 1 -----------3---------- S com isso monta o primeiro bloco GRUPO PRIORIDADE FILHOS 2 ----------- 4 ----------- N --> (OBSERVE ESSE MUTUARIO não TEM FILHOS, MAS COMO NA TABELA não EXISTE MAIS "RENDA BAIXA" ELE MESMO COM PRIORIDADE (4) 2 ----------- 2 ----------- S ELE ENTRA NA VEZ PORQUE SUA RENDA BAIXA TAMBEM DEFINE SUA POSICAO NA FILA.) 2 ------------ 3 ----------- S com isso monta o segundo bloco Me ajuda a descascar mas esse Abacaxi caso não fique claro eu te mando uma Imagen ROBSON

Ola galera Ajudinha numa duvida que eu acho que os desenvolvedores do VB deveriam verificar Tipo Um select Case pode atender 2 criterios ? ex: dim COR as sring COR = TxtCordoCarro :wacko:"coloquei no form dois botoes de opcao (OPTSIM - OPTNAO) para o item acessorios" ex: o Com Acessórios - o Sem Acessórios Select case COR Case "VERMELHO" and OPTSIM.VALUE = TRUE preço = x Case "VERMELHO" and OPTNAO.VALUE = TRUE preço = Y END SELECT Dai a minha duvida o select depois que acha o primeiro VERMELHO sai da rotina alias !! da ate erro sera que não existe isso no VB ? não quero ficar colocando IF IF IF entenderam. me ajudem ai como melhorar isso ? Robson........

Isso mesmo deu certo eu fiz a rotina já na hora de salvar MAIS UMA VEZ MUITO OBRIGADO

ou assim?? Meu caro o certo segundo o MEMORANDO e assim 0 = DETERMINACAO 0 = DETERMINACAO 1 = BAIXA 2 = MEDIA 3 = ALTA POr que o item 0 (Zero) e uma determincao do Diretor tipo (porque e amigo dele), (por acao judicial) então essas pessoas não podem seguir os criterios 1 2 3 elas vao logo pra cima na fila foi determinado sobe vlw

não entendi a pergunta. tb não entendi. dessa vez, a ordenacao saira correta, porque pra cada grupo vai ter somente um registro de cada prioridade. então dentro do grupo sempre ficara ordenado 123. é isso mesmo. na hora de cadastrar você pega o ultimo grupo dessa prioridade e soma 1. exemplo: Dim g as Integer 'p é a prioridade q esta sendo cadastrada (de acordo com a renda) sql = "Select * From Tabela Where Grupo = (Select Max(Grupo) From Tabela Where Prioridade = " p & ")" Set rs = cn.Execute(sql) If rs.EOF Then g = 1 Else g = rs!Grupo + 1 End If e na hora de gravar você grava essa variavel g em grupo. pra resolver isso, na hora q for excluido, adicione o seguinte codigo: sql = "Update Tabela Set Grupo = Grupo - 1 Where Prioridade = " & p & " And Grupo > " & g cn.Execute sql onde p é a prioridade do registro q você ta excluindo, e g é o grupo do registro q você ta excluindo. isso vai tapar o buraco q ia ficar no banco. entretanto, se você excluir na mao no banco de dados, o buraco vai ficar la. Kuroi PQP não e toa que você eo PAPA do VB e do CR deu certinho perfeito meu emprego ta garantido "MUITISSIMO OBRIGADO" o mundo agradece ter pessoas como vc So tenho 1 so probleminha olhando aqui o MEMORANDO da empresa (DOCUMENTO QUE DITA AS REGRAS DO JOGO) tem 1 item que diz Se o diretor por determinacao colocar UMA ou "MAIS" pessoa(s) na prioridade da fila ou seja elas não atenderao nenhum criterio daqueles já citado 1 MENOR , 2 MEDIA, 3 MAIOR. Essas pessoas encabecarao o topo da fila (Nesse caso) para mim não tem problema Adotaria o CRITERIO = 0 com o ITEM Chamado DETERMINACAO. So que como essas pessoas serao cabecas de fila o sistema não tratara o outro ITEM 0 abaixo do outro ele colocará assim : 0 = DETERMINACAO 1 = BAIXA 2 = MEDIA 3 = ALTA Depois 0 = DETERMINACAO 1 = BAIXA 2 = MEDIA 3 = ALTA e assim vai (Pelo Memorando quem o diretor indicar, deverá ficar na cabeca da fila) Tipo 0 = DETERMINACAO 0 = DETERMINACAO 1 = BAIXA 2 = MEDIA 3 = ALTA Bem fazer oque ne ? Manda quem pode obedece quem tem Juizo :( Te peco so mais essa ajudinha por favor vlw Mesmo ROBSON

Antes de Testa meu caro me explica como você amarrou GRUPO 1 A PRIORIDADE 3 E GRUPO 1 A PRIORIDADE 2 E ASSIM POR DIANTE quem e grupo e ele ta amarrado a quem Trocando em miudos quero lembrar que SO TEM 3 CRITERIOS (RENDA BAIXA 1 - MEDIA 2 E ALTA 3) se eu relacionar ou cadastrar a situacao da (Renda 1 2 3) ao grupo vai cair na mesma redundancia na hora da ordenacao (LEMBRANDO QUE 2 OU MAIS OPERDORES VAO INCLUIR DADOS NO SISTEMA) então sera tudo sem ordenacao. se eu definir isso na mao e um cliente for excluido por desistencia vai baguncar a tabela toda vamos ver se entendi você quer dizer no seu Codigo, que com esse campo GRUPO 1 criado eu vo dizer para o campo prioridade que se ele for o primeiro 3 a ser encontrado na tabela ele pertencerá ao GRUPO 1 o mesmo para prioridade 2 e para prioridade 1 O q realmente não entendi foi na hora do cadastro no meu FORM como cadastrar ? como sei que GRUPO TAL ESTARA AMARRADO A PRIORIDADE TAL ? tipo Grupo | Prioridade | Nome | Renda ---------------------------------------------------- Esse com Esse 1____ | 3____ F____ 4.200 1____ | 2____ G____ 1.100 1____ | 1____ H____ 500 2____ | 1____ P____ 350 2____ | 3____ Z____ 2.100 2____ | 2____ K____ 1.400

você não pode criar esse campo a mais na tabela?? desde q você tenha um campo chave na tabela, isso resolve tudo. ai você me fala q eu te ajuda a fazer o codigo de preencher. so q você vai ter q implementar um controle disso a medida q os usuarios forem cadastrados. ou repreencher todos os campos a cada impressao, o q deve demorar muito se a tabela for gde. quanto a isso de inserir numa nova tabela, não é uma coisa muito interessante de ser feita, mas concordo q com isso daria ate pra resolver o seu problema. so q tem o problema de q o programa ta sendo usado em rede, não?? imagina se duas pessoas forem tentar imprimir o relatorio ao mesmo tempo. ai os dados iam ser inseridos duas vezes e os relatorios iam sair tudo zuados. mas em resumo, você não vai conseguir fazer isso ai so com o crystal reports. veja qual das duas opcoes você prefere fazer. se quer adicionar um campo para o grupo na tabela, ou se você quer criar uma tabela pro relatorio. e ai me fala q eu te ajudo com o codigo se precisar. Sinseramente eu não estou entendendo o porque desse campo "GRUPO" na tabela cadastro, quem diz que ele sera amarrado a prioridade (1) OU (2) e o sistema ? ou vou ter que incluir isso na mao. So pra te adiantar o Banco ainda ta em fase de teste so tem no maximo 10 clientes (POR QUE ATE FICAR PRONTO O NOVO SISTEMA NOVO FICARA VALENDO O VELHO CRITERIO) beleza criando esse campo o que devo fazer no selectionformula ou sortrecord ? como ele deve ser declarado na tabela INT , VARCHAR , Primary KEY Kuroy meu caro sei que contra as regras do Forum mas se você poder me passar em MP seu TEL CEL acho que te explicaria melhor.

Dizem que uma imagen vale por 1000 palavras espero que esta salve meu emprego ta tudo explicadinho