oreste.jr

Bom tê-lo por aqui novamente MrMALJ. Primeiramente peço desculpas aos amigos pela demora do retorno. É que a vida tá uma correria. Fim de mês então... fechamento de medição... o tempo fica curto. Bom, reportando a sua pergunta, eu acho que descobri o problema do aparecimento em série de registros na minha combo. Isto estava ocorrendo na minha consulta sim. Eu agreguei a minha cosulta outras duas tb. Só que, estas tb não estavam associados ao conjunto como um todo. Elas estavam dispersas. A solução se deu no momento em que eu removi as tb da cosulta. Seguindo a orientação do colega Leandro, compactei o BD e tudo voltou ao normal. Conclusão: Eu acho consulta agrupando tabelas não associadas promomove esse tipo de replicação em série. Caro colega Mr MARLJ, caso minha conclusão não esteja correta ou caso saiba de outros motivos que provoquem este problema por favor me retorne, caso não, poderá enserrar este tópico. Estarei abrindo um novo tópico sobre acréscimo de registros. Caso possa me ajudar dê uma olhada em "combo/lista". Muito obrigado.

Caro Leandro, fiz o que pediste mas não resolveu. O problema está na consulta que construí para unir as cinco tabelas: Fase sub agrup comp eta. No início estava tudo ok, mas nesta revisão D, eta1 que é o cód. de cp_eta, resolveu aparecer na consulta Csetapa numa sequência de nove registros iguais. Caso a solução fique um pouco difícil, postarei o bd para que possa analizá-lo melhor. Devo fazê-la amanhã, pois meus dias estão muito corridos. Desde já agradeço e caso tenha alguma preferêcia por algum site para hospedar os bd por favor me indique. Grato.

Deu a louca na minha Combo. Estava tudo ok com minha combo, só que, andei fazendo revisões no meu BD e nesta última a minha combo resolveu multiplicar a visualização dos meus registros por nove. Nove 1.1.1.1, nove 1.1.1.2 e assim via até o último registro. Comparei as propriedades de uma das rev. anteriores, ondes esta combo ainda funcionava perfeitamente e estas estão iguais. Olha o código: SELECT [Csetapa].[ETA1] FROM Csetapa ORDER BY [ETA1]; Alguém pode me ajudar. Grato

Valeu sr.s: Humm e Bred. As dicas foram 100% positivas. Bred, obrigado por poder contar também contigo nessa estrada de aprendizagem do Access. Agora vou navegar no forum para procurar uma solução para minha caixa de soma para meu relatório. Caso eu não a encontre pedirei socorro aos colegas do fórum. Abraço a todos.

Sr. um, trata-se de um form simples. Por enquanto estou na estrutura básica do access.

Pessoal outra vêz estou precisando de ajuda. Gostaria que meu form abrisse como uma janela com um tamanho pré estabelecido, só que, ele ele está abrindo com a largura maximizada e não aceita redimencionamento e nem aceita a opção de sim na sua propriedade movível. Já comparei todas a proriedades com outro form que abre de forma minimizada e esta propriedade movível é a única que não consigo alterar. Poderiam me ajudar?

Sr Humm, acho que questou prestes a finalizar mais uma lição. Agora só me falta aplicar um evento condicionado minha caixa a me alertar sobre o percentual quando esta já estiver completado. Se ficar difícil eu lhe atento ok? Vou deixar aqui os procedimentos elaborados, com a sua ajuda, para que algum outro companheiro do fórum possa usufruir destas informações. Obs: eu não consegui utilizar o último código por ti enciado. Utilizei do Dlookup do procedimento da combo eETA1. Dê uma olhada: Qualquer comentário ou crítica, fique a vontade. Muito obrigado e até breve. ______________________________________________________________________________________________________________ Option Compare Database ______________________________________________________________________________________________________________ Private Sub Comando27_Click() Dim db As DAO.Database, Rs As DAO.Recordset Set db = CurrentDb() 'AQUI VEM A TABELA QUE RECEBE DADOS DO FORM Set Rs = db.OpenRecordset("teste") 'AQUI O COMANDO QUE CRIA UM NOVO REGISTRO NESSA TABELA Rs.AddNew 'AQUI O COMANDO QUE VAI COPIAR OS DADOS DO FORM NA TABELA, USE UM Rs PARA CADA CAMPO Rs("F1") = Me.eF1 Rs("CP_FASE") = Me.eCP_FASE Rs("SUB1") = Me.eSUB1 Rs("CP_SUB") = Me.eCP_SUB Rs("AGRUP1") = Me.eAGRUP1 Rs("CP_AGRUP") = Me.ECP_AGRUP Rs("COMP1") = Me.eCOMP1 Rs("CP_COMP") = Me.eCP_COMP Rs("ETA1") = Me.eETA1 Rs("CP_ETA") = Me.eCP_ETA Rs("UNID5") = Me.eUNID Rs("VALOR5") = Me.eVALOR Rs("DATA5") = Me.eDATA Rs("AVANCO") = Me.eAVANCO Rs("VALORTOT") = Me.eVALORTOT 'AQUI O COMANDO QUE SALVA A TABELA Rs.Update End Sub ______________________________________________________________________________________________________________________ Private Sub eETA1_AfterUpdate() 'Este comando coleta dados de campos de várias tabelas e preenche as caixas de testo segundo o registro da combo (eETA1) Me.eCP_ETA = DLookup("[CP_ETA]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eUNID = DLookup("[uNID]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eVALOR = DLookup("[VALOR5]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eF1 = DLookup("[F1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCP_FASE = DLookup("[CP_FASE]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eSUB1 = DLookup("[sUB1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCP_SUB = DLookup("[CP_SUB]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eAGRUP1 = DLookup("[AGRUP1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.ECP_AGRUP = DLookup("[CP_AGRUP]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCOMP1 = DLookup("[COMP1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCP_COMP = DLookup("[CP_COMP]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eACUMAT = DLookup("[somaDeAVANCO]", "CsACUMAT", "[ETA1] = '" & Me.eETA1 & "'") End Sub

Sr. Humm, a sua orientação para a criação da consulta foi perfeita. Agora tentando usar o DLookup exibe a seguinte mensagem: Erro de compilação Era esperado: Separador de lista ou) olha o código: Private Sub eACUMAT_AfterUpdate() RES = DLookup("[AVANCO]";"CsACUMAT";"[ETA1] = '" & Me.ETA1 & "'") If RES >= 100 Then MsgBox "Este código já alcançou 100%" End Sub Se eu coloco (;) aprece a mensagem, se coloco (,) a mensagem desaparece, porém a txt eACUMATE não retorna valor. Obs: o procedimento foi criado em "após atualizar". E agora sr Humm? comop proceder? Aguardo sua orientação. Grato.

Sr. Humm, ainda não pude usar o (dlookup) que me enviaste pois, somar uma coluna está sendo mais um desafio. Após horas navegando no Forum descobri que uma das formas ou não sei se a única, é usando um sql. Olha o que fiz: SELECT Sum(AVANCO) AS ACUMULADO FROM testeCs WHERE ETA1='"&ETA1&"'; AVANCO - É o campo da minha consuta testeCS que recebe os valores das minhas etapas (ETA) 10%, 15%... ACUMULADO - É o campo da minha consulta AVANCOCs que vai receber a soma dos AVANCO's da testeCs. ETA1 - É o código das etapas (ETA)- 1.1.1.1, 1.1.1.2 e assim por diante. O problema: com o código acima, minha consulta no modo folha de dados só apresenta o campo ACUMULADA e sem valores. No modo estrutura ele também apresenta o campo ETA1, só que se marcar para ele aparecer, da erro. Poderia me ajudar com esse sql para que possa utilizar o cód. que me indicaste? Eu só quero que ele forme uma consulta com os campos: ETA1 e ACUMULADO. Grato.

Será que os companheiros poderiam me ajudar? Meu formulário coleta registros de algumas tab e os cadastram em uma tab "teste". Esses registros correspondem ao código do registro selecionado na minha combo. Esses lançamentos podem variar de 1 a100%. Quero saber como criar uma fórmula numa caixa de texto no meu form de cadastro que some os valores cadastrados anteriomente no campo da tb teste referente a este registro selecionado. Seria uma ref. para eu saber quanto poderia lançar: 0% (nada foi lançado) ou... 100% (concluído). Tabém vou precisar criar uma no meu relatório com um critério data. Grato. Vou tentar esclarecer: Escolho na minha combo o cód. e concequentemente seus dados nas respectivas txt.: cod(1.1.1), X, Y, Z, Percentual (=10%) - primeiro cadastro cod(1.1.1, X, Y, Z, Percentual (=30%) - segundo cadastro - Minha txt "Acumulado anterior" = 10% cod(1.1.1, X, Y, Z, Percentual (=60%) - terceiro cadastro - Minha txt "Acumulado anterior" = 40% cod. X, Y, Z, Percentual (=10%- não poderia,pois) - quarto cadastro - Minha txt "Acumulado anterior" = 100% "Acumulado anterior" seria uma uma soma do meu cód. 1.1.1 e assim para os demais selecionados. Pensei até numa condição que impedice o cadastro caso a soma já tivesse atingido os 100%. Isto é possível ou existe uma forma mais sensata para resolver o assunto. Grato

Caro sr. Humm, suas dicas foram ótimas. Até o problema da minha caixa com os valores em moeda foi resolvido com este método: DLookup. Como minhas tb estão todas relacionadas no tipo um para muitos, foi só criar uma consulta como sugeristes e daí criar meu form através desta Cs. Veja como ficou: Private Sub eETA1_AfterUpdate() Me.eCP_ETA = DLookup("[CP_ETA]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eUNID = DLookup("[uNID]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eVALOR = DLookup("[VALOR]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eF1 = DLookup("[F1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCP_FASE = DLookup("[CP_FASE]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eSUB1 = DLookup("[sUB1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCP_SUB = DLookup("[CP_SUB]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eAGRUP1 = DLookup("[AGRUP1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.ECP_AGRUP = DLookup("[CP_AGRUP]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCOMP1 = DLookup("[COMP1]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") Me.eCP_COMP = DLookup("[CP_COMP]", "Csetapa", "[ETA1] = '" & Me.eETA1 & "'") End Sub Agora é só escolher o cód. de uma de todas a estapas na minha combo eETA1 e pronto, todo o restante é preechido automaticamente. Dentro dos meus limites, estou aprendendo bastante com este forum. Ainda quero criar minha tee view. Me aguardem. Ms. Humm Obrigado e até a próxima. Se continuar assim, vou acabar ficando bom

Caro Humm, Já tive sua ajuda anteriomente e desde já agradeço pelo apoio novamente. Como estou no nível de iniciante nesta área de códigos, vou tentar ser o mais claro possível e daí quem sabe possa me ajudar. Minhas tabelas: FASE SUB-FASE AGRUPAMENTO COMPONENTE ETAPA Imagine uma tree view. Encontre bancos trabalhando com tabelas vinculadas e achei uma ótima opção. Só que, como meu BD possui muitas linhas (várias tb mães e filhos), achei inviável criar tudo em uma única tb. Com a ajuda de vocês anteriormente, consegui criar as cinco combos dependentes e a consulta acréscimo para estas. Porém não estou achando a forma eficiente, pois gera muito trabalho para cada busca. O que eu pretendo? Quero fazer com um clique, selecionar o código do campo da tb ETAPA e com isto trazer em caixas texto, todas as informações dos campos desta tb e também o código e a descrição das tb mães: COMPONENTE, AGRUPAMENTO, SUB-FASE E FASE. Como foi descrito no código anteriormente, para uma mesma tabela isto funciona, agora para tabelas separadas eu ainda não encontrei solução. Encontrei em algumas mensagens do forum, images tipo print SC e achei que ajuda bastante na hora de solicitar ajuda. Como é que faz? Grato. Espero que tenha me compreedido.

Aguém poderia me ajudar? No meu formulário tenho uma combo que com o procedimento: Private Sub ETA1_AfterUpdate() Me.eETA1 = Me.ETA1.Column(0) Me.eCP_ETA = Me.ETA1.Column(1) Me.eUNID = Me.ETA1.Column(2) Me.eVALOR = Me.ETA1.Column(3) End Sub Carrega minhas caixas texto, só que, a danada da caixa de valores só me traz formato de números. Já verifiquei minhas tabelas, a formatação desta caixa e nada. O formato que estou usando agora é: "R$"#.##0,00;"(R$"#.##0,00) Já usei o formato unidade monetária e nada. Essas três caixas se referem a uma unica tab. É possivel acrescentar comandos para buscar registros em outras tabelas? Fiz o recorte da imagem mas não consegui inseri-la. Aguardo resposta. Grato

Sr. Hum, este código foi infalível. Agora eu tenho cinco tb, um form com cinco combos, uma tb para receber os dados filtrados e cadastrados através da consulta acréscimo e por último uma consulta seleção que retorna as descrrições referentes aos códigos cadastrados na tb receptora. Estou com um probleminha na última combo. Caso possa me ajudar na simplificação deste problema eu agradeço. Gostaria que me falasse da importância do relacionamento entre tabelas para esse tipo de caso. Fique livre para sugerir ou criticar. Vou disponibilizar esta prévia no link abaixo: http://www.baixa.la/arquivo/7724357

Caros Senhores, MALJ e Humm, em primeiro lugar gostaria de agradecê-los pela atenção e apoio a esse novato que apesar de pouco saber, aprecia muito esta área de criação. Estou postando dois exemplos da idéia do BD que pretendo trabalhar. O primeiro com o cód que vinha trabalhando e o segundo com a opção que o senhor MALJ indicou. Sei que ainda está bastante primitivo mas creio que dá para os senhores me ajudar na principal dificuldade: Alimentar uma tabela mestre, através de outras. A princípio, esse processo será feito por um form com seis combos dependentes e algumas cx de txt com valores, datas e outros. Mr MALJ, após a modificação ocorreu um erro. Não sei se procedi de forma correta. Espero que possam me ajudar. Com esse protótipo, se assim posso chamá-lo, espero que possam até mesmo me orientar numa escolha de estrutura mais eficaz. Através de exemplos potados nesse forum consegui chegar a trêis combos dependentes, mas a cada acréscimo os problemas surgem. Caso tenham alguma dica de como proceder nesses acrécimos eu agradeço. Para ser mais claro, este BD tem como finalidade promover a criação de relatórios de medição de uma EAP (Estrutura Analítica de Projeto) ou simplesmente um projeto. Sr. Humm ainda vou tentar por em prática sua dica nesse momento. Após um resultado, entrarei em contato. Grato a todos e segue abaixo os links para os arquivos. Por favor sintam a vontade para dicas e críticas. http://www.baixa.la/arquivo/4431387 http://www.baixa.la/arquivo/2103345

Olá colegas do forum, sou novato e esta é minha primeira participação. Consegui aqui resolver um problema do botão de comando para cadastrar registro já que o anterior estava multiplicado os registros a cada comado ex: 1, 2, 4, 8... beleza, só que me deparo agora com um novo problema. quando delego o comando ele cadastra 1 registro, só que, os dados que estão sendo emitidos para minha consulta de acréscimo são os codigos dos registros e não as descrições como é pretendido. Deixo abaixo os códigos das combos dependentes e do botão de comando para caso alguém possa me ajudar. Grato. Combo_fase = SELECT [F1], [CP_FASE] FROM FASE ORDER BY [FASE].[F1]; Combo_sub = SELECT [sUB1], [CP_SUB] FROM SUB WHERE SUB.[F1]=Combo_fase; Combo_purga = SELECT [AGRUP].[AGRUP1], [AGRUP].[CP_AGRUP] FROM AGRUP WHERE ((([AGRUP].[sUB1])=Formulários!CAD![Combo_sub])) GROUP BY [AGRUP].[AGRUP1], [AGRUP].[CP_AGRUP]; Botão de comando (ao clicar) = Private Sub Comando27_Click() Dim db As DAO.Database, Rs As DAO.Recordset Set db = CurrentDb() 'AQUI VEM A TABELA QUE RECEBE DADOS DO FORM Set Rs = db.OpenRecordset("teste") 'AQUI O COMANDO QUE CRIA UM NOVO REGISTRO NESSA TABELA Rs.AddNew 'AQUI O COMANDO QUE VAI COPIAR OS DADOS DO FORM NA TABELA, USE UM Rs PARA CADA CAMPO Rs("CP_FASE") = Me.Combo_fase Rs("CP_SUB") = Me.Combo_sub Rs("CP_AGRUP") = Me.Combo_purga 'AQUI O COMANDO QUE SALVA A TABELA Rs.Update End Sub Obs: Para que minhas combos dependentes funcionem as colunas acopladas tem que estar = 1 Caso eu coloque 2 para a combo_fase a descrição vai para a consulta de acréscimo, porém a combos dependetes não retornão valores.