Jeferson Porto

Fala MrMALJ, Segue exemplo do BD, conforme solicitado: Exemplo Formulário Se tiver um jeito melhor de enviar um arquivo, peço desculpa. Procurei algum botão para anexar e não achei....

Olá MrMALJ A consulta que eu faço é para verificar o histórico de defeitos do carro. Ex.: No dia 25 o carro entrou com o defeito de VAZAMENTO DE ÓLEO. Numa consulta eu pego os defeitos do dia (25), em outra eu pego a última vez, antes da data do dia (<25), que este mesmo defeito foi apresentado. Se eu for usar uma data apenas não precisarei do 'Do Until', bastaria usar o script sem o loop. No caso eu estou precisando tirar o relatório de um interválo, se eu colocar direto na consulta a parte em que o relatório pega o último defeito antes da data vai ficar zebrado, por isso eu preciso rodar uma data por vez. Ex.: CONSULTA SIMPLES CARRO DATA DEFEITO ULT_DEFEITO 559 25/1 VAZ OLEO 19/01 Ex.: CONSULTA PERIODO CARRO DATA DEFEITO ULT_DEFEITO 559 25/1 VAZ OLEO 25/01 559 27/1 VAZ OLEO 25/01 Na consulta que eu pego o ULT_DEFEITO eu uso a maior data antes da ocorrência, no exemplo acima mostra o que acontece se eu usar o intervalo direto na consulta, ele irá ignorar a ocorrência do dia 19/01 que é anterior ao dia 25 pois a maior data antes do dia 27 seria o própio dia 25. Por isso eu precisava rodar cada dia por vez, num intervalo de 25 a 27 eu gostaria de rodar o dia 25 e depois acrescentar na tabela o dia 26 e depois o dia 27. Espero que eu não tenho complicado mais do que explicado. De qualquer forma aguardo reposta do amigo ou de qualquer outra pessoa que puder ajudar. Um abraço, Obrigado.

Fala Galera, Estou com um problema, acho que não deve ser difícil para vocês me ajudarem. Seguinte: Eu tenho uma consulta que desejo rodar num intervalo de datas. Preparei a consulta Acréscimo, criei um formulário para pessoa escolher um intervalo e depois criei o script para rodar a consulta no loop do intervalo.Ex.: Se a pessoa quiser o intervalo de 25 a 27, o script tem que jogar o dia 25 no campo da data, rodar a consulta, somar 1 ao campo data para alterar para 26 rodar a consulta novamente e assim por diante... Só que o campo do formulário somente é alterado quando o formulário é fechado. Portanto se no campo estiver o dia 24 e a pessoa digitar o intervalo de 25 a 27, ele irá rodar o dia 24 3Vezes e depois que fechar o formulário ele irá salvar o dia 27 no campo. Antes de rodar com a consulta, eu botei uma MSGBOX para ver se os campos estavam sendo alterados. A mensagem mostra os campos sendo alterados. Eu tentei fechar o formulário antes da linha da consulta e depois abri-lo novamente mas da erro. Será que alguém pode me ajudar com esse probleminha. Segue script utilizado, desde já agradeço a colaboração. Obrigado. Private Sub GO_Click() Dim a, b As String a = [in] b = [Fn] Do Until a > b [seletor Dia:] = [in] DoCmd.OpenQuery "OS_Consulta Controle Retorno_Socorro do Dia", acViewNormal [in] = [in] + 1 a = a + 1 Loop DoCmd.OpenReport "REINCIDÊNCIAS", acViewPreview DoCmd.Maximize End Sub

Olá, Eu fiz um teste. Eu apaguei as tabelas vinculadas que eu tinha do Oracle, aí voltou ao normal. Agora se eu tenho que criar um relatório de uma consulta eu crio uma tabela pela consulta, jogo em um BD vazio, crio o relatório e depois importo para o BD com as tabelas. É chato, mas é a única solução que eu encontrei no momento. Será que não existe alguma ferramenta ou plugin que resolva isso. Aguardo resposta, Obrigado. Obs.: Lembrando que isso só acontece no relatório. Tabelas, Consultas e Formulários estão normais.

Caros Amigos, Gostaria de saber se já aconteceu com alguém esta situação que está acontecendo comigo. Eu fiz um projeto de BDados, criei tabelas, consultas e formulários sem problemas, agora para criar relatórios está sendo um suplício. Usando o assitente, faço todo o processo tranquilo, até o momento de carregar as informações no relatório. Demora cerca de 10Min. para carregar o relatório, e quando eu clico no ícone da estrutura para fazer os acertos, mais 10Min. se eu arrastar um campo de uma posição para outra, mais 5 min. Já rodei a instalação do Office novamente e marquei 'Recuperar', já desinstalei e instalei novamente e nada mudou será que alguém poderia me ajudar. Desde já, Obrigado a Todos.

Foi mal.... Não vai se repetir... Eu não consegui da maneira que tentava, mas me forneceram outra solução: Private Sub Qtde_Fotos_AfterUpdate() 'By JPaulo ® Maximo Access Dim i As Integer, x As String A = [Qtde Fotos] i = 1 For i = 1 To A If Right(x, 1) = 1 And A = 1 Then x = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & i + 1 Else x = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & i End If Me.Controls("FT" & i).Value = x Next End Sub Deixei o crédito da pessoa que fez, espero que não tenha problema. Obrigado !!!

Obrigado pela Resposta... Na verdade, minha intenção não é concatenar tudo. Eu gostaria que o sistema entenda "C & B" como FT1 na primeira volta do Loop, já que C tem o valor "FT" e B tem o Valor 1. Sendo assim o campo FT1 receberia o resultado da expressão acima, que seria: 14092010_58516_1. O problema é que o sistema não reconhece o C & B como o campo FT1, por isso ele não preenche o campo FT1 no formulário com a informação montada pela expressão. Um amigo curioso me disse, que achava, que eu deveria declarar c como objeto já que FT1 que é um nome de campo é objeto. Mas também não soube me explicar direito como se faz isso, ou se é realmente isso o problema...

Fala Galera, Criei uma tabela de Processo de Garantia de Caixa de Marcha com fotos das peças. Nessa tabela eu informo a Data, o Nº do Carro e a Qtde de Fotos (Máximo 10 fotos). Na tabela constam os seguintes campos: Data, Carro, Qtde Fotos, FT1,FT2, FT3 .... FT10. Nos campos FT eu colocarei o formato do arquivo da foto correspondente, para depois eu concatenar com o endereço do diretório e carregar a foto. Ex. No campo FT1 deverá constar Data&"_"&Carro&"_"&ORD (ORD será um campo que irá variar de 1 a 10), ou seja, se eu entrar com: Data:14092010 Carro: 58516 Qtde Fotos: 10 Eu quero que, automáticamente, os campos FT sejam preenchidos com : 14092010_58516_1 no FT1, 14092010_58516_2 no FT2, e assim por diante. Eu coloquei um código simples, só para atualizar o FT1, para ver se funcionava direito. Private Sub Qtde_Fotos_AfterUpdate() B = 1 FT1 = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & B End Sub Como funcionou perfeitamente, eu tentei fazer uma alteração nesse código para atualizar todos os campos automáticamente. ficou assim: Private Sub Qtde_Fotos_AfterUpdate() A = [Qtde Fotos] B = 1 C= "FT" While B <= A C& B = Day([Data]) & Month([Data]) & Year([Data]) & "_" & Carro & "_" & B Wend End Sub O Seguinte erro é mostrado: A chamada de função à esquerda da atribuição deve retornar Variant ou Object O que eu fiz de errado ?? Desde já agradeço a contribuição de todos. Obrigado.