brunocasado

gente presciso faze um campo assim q pega a data atual e some com mais 5 tipo hj é 26 ele coloque 31 só q é assim ele só pode conta os dias uteis intao quando chegace no dia 28 q é uma sexta ele continuaria a contar somente apartir do dia 31 q é uma segunda intao resutado final seria 3/09/2007 tem como isso acontecer? Se isso não tiver como, como poderei fazer com que assim que o relatorio for criado, ele conte 5 dias apos a data de criaçao e ponha no campo não acoplado? que expressao que terei que usar?

gente tenho um form de filtro onde ah 3 maneiras de aplicar o filtro..... bemm gostaria de fazer uma caixa de selecao q quando eu clicasse nela mudaria o criterio para ultimo de tal campo por exemplo da maneira q esta, ele ta puxano o relatorio apos aplicar o filtro,pela ultima data da nota fiscal e logico isso esta estipulado na consulta: campo: nrnota - total : ultimo ai eu teria um botao de marcar no meu form, dizendo c esse criterio seria valido c eu dechace desmarcado ele me traria todos as notas c eu clicasse me traria as ultima nota tava pensano q eu deveria aplicar um if sei la if ultimo=true then me.ultimo.criterio else tirarcriterio mas não estou conseguindo fazer..... qual expressao correta?

gente quais são as expressoes para mandar um email e na hora q abrir o outlook ele anexar um arquivo?? presciso especificar o caminho... bom já q ninguém sabe.... tem um eskema de modelo de doc... só q não tenho ctza q nesse modelo dara para aplicar expressoes vamos supor.... no meu relatorio tem expressoes q c determinado item n aparecer o rotulo fica invisivel...... intao no modelo n tenho ctza c daria para aplicar tais expressoes..... o codigo para isso seria: Dim MiWord Dim MiDoc Dim Cambio Dim strAppPath As String strAppPath = Application.CurrentProject.Path Set MiWord = CreateObject("Word.Application") Set MiDoc = MiWord.Application.Documents.Open(CurrentProject.Path & "\Modelo.doc") Set Cambio = MiWord.ActiveWindow.Selection.Find Cambio.Execute "{DataDeEmissaoE}", False, , , , , , , , DataDeEmissaoE, 2 'assim por diante Call MiDoc.SaveAs(CurrentProject.Path & "\ORCAMENTO NUMERO " & NumeroDaOS & ".doc") MiWord.Quit Set MiWord = Nothing Set MiDoc = Nothing Set Cambio = Nothing no modelo .doc basta colocar {campodoform} q saira as informaçoes é bem simples.... porem não sei colocar as expressoes no modelo.. nem sei c da bem não achei o metodo de snapshot muito bom pois todas as pessoas q eu mandace o orçamento teriam q instalar 1 programa..... o melhor que achei foi de exportar para pdf que a maioria tem o prog instalado..... adptei ao meu sistema um esquema já feito por uns caras.... que inclusive depois q tinha visto q o mrmalj tinha postado.... mais c alguém souber um metodo mais eficaz que isso aguardo resposta.......

mrmalj consegui cara... vlw :D manow estou com outra duvida.... acabei meu sistema de orcamento.... porem eu tenho um botao q manda o relatorio por email, no formato de html mesmo.... bem quando eu mando ele manda o email ele converte para html porem quando eu abro esse html ele vem sem as formatacoes.... e tb sem o logo da empresa q eu coloquei no relatorio..... como q eu faco para assim como aparece no relatorio aparecer identico mais em html?? tem como?

cara e para esconder as informacoes caso a caixa de selecao não estiver marcada?? o negocio do rotulo fiz assim.... If vista = true Then Me.Rótulo117.Caption = "AAA" Else Me.Rótulo117.Caption = "BBB" End If ai coloquei no relatorio o botao de seleçao invisivel só q quando mando executar o relatorio diz q inseri uma expressao que não tem valor.... o q sera?? manow to tentano aki... e nada... num to sabeno fazer isso.... tipo o codigo eu coloquei no ao entrar do relatorio.... ta certo??

gente é o seguinte antes agradecendo o mrmalj q tem me ajudado a fazer aki meu sistema.... bomm mais 1 duvida quanto a relatorios la no meu form do sistema de orcamento vai ter as condicoes de pagamento..... intao vai ter assim 4 botao de selecoes avista, 28 ddl , visa, e um outro campo q quando eu selecionar ele vai me abrir um campo para digitar alguma coisa... bemmm quando eu selecionar o 28 ddl no form, la no relatorio ele vai ter q dechar visivel o rotulo e a informacao do campo.... a mesma coisa com avista e visa...... e quando eu dechar deselecionada algumas dessas caixas ele esconder o rotulo do relatorio.... porque do jeito q ta meu relatorio ta mostrando todas as condicoes de pagmto.... eu sei esconder num form usano o if me.lala = "criterio" then me.lala.visible = visible e bla bla bla só q não to sabeno aplicar isso num relatorio para quando eu deselecionar a caixa de selecao no form ele tirar o rotulo... gente da mais 1 forcinha ae :D

cara deu um pau aki quando ele vai gerar ele ta saino do access...... ta dando o microsoft access encontrou um problma lalalalala..... e sai do access.. q sera q é? ai eu retirei o acformatrtf ai tipo ele me abre uma janela de escolhe formatos ... ai qlquer formato q eu escolho da pau no access.... o q sera? bommm coloquei o nome do arquivo de saida com extensao no final.doc... agora ele ta abrino o word.... mas ele da pau no access.... vo por o codigo intero do botao... DoCmd.dOMenuitem acFormBar, acRecordsMenu, 5, , acMenuVer70 Me.cotar.SetFocus stDocName = "consultas Consulta" DoCmd.OutputTo acReport, "consultas consulta", acFormatRTF,"orcamento.doc", True bem ele gera o relatorio em forma de word.... porem ele da pau no access.... ahh alem desse problema to com 1 otro q quando ele gera o arquivo em doc ele não manda o logo da empresa.... tipo porque no relatorio eu coloquei o logo e na hora q passa para word ele não aparece la.....

fmza manow vo tenta! vlw

gente como q faz para gerar um relatorio em forma do word tipo na hora q eu aperto o botao de gerar relatorio ele gerar altomatico em forma de word...... e prescisaria de um botao tb de email q ele mande esse arquivo para o email de alguém..... o proprio access tem esse eskema mas ele num manda em forma de word..... intao creio eu q ele transformaria em forma de word e anexaria isso sei la.... e abriria o outlook. gente presciso disso urgente alguém pode da uma luz

kk vlw ai manow deculpa as ignorancia hwaueha.... é q calculadora ferra com minha vida.,.... aweuhaw

gente como q faz para somar um campo com algum numero só q de porcentagem por exemplo avista + 5% ai eu fiz assim campo=[avista] + 5% mais num da! eu presciso somar 5 %..... aff fiz os teste aki multiplicando uma porcentagem e funciona... o burro do access não faz operaçoes com soma de porcentagens...... c eu tive errado alguém me da uma dica! pls

pode

mmaljr cara to com 1 problema no meu botao de gerar a cotacao c liga Dim stDocName As String stDocName = "consultas Consulta" DoCmd.OpenReport stDocName, acPreview DoCmd.GoToRecord , , acNext bem quando peco para ele gerar alem de me abrir o relatorio ele tem q passa pro proximo registro assim salvando porem ele depois q abre o relatorio ele da uma msg assim: você não pode usar o metodo gotorecord ou acao para irpararegistro em um objeto estrutura... porque ta dando isso??

opa vlw manow! quando tu tive um tempo da para você fazer um exemplo dakilo q eu keria??

mmaljr como to com pressa nesse bd eu vo fazer de um outro jeito...... mais facil... e depois c desse você poderia me fazer um exemplo? num to intendendo como fazer isso.... eis outra duvida.... como é q eu faco um botao de relatorio tipo assim..... vo ter um form la q vo cadastrar os dados do cara q ta pedindo a cotacao..... ai vo preencher tdo certinho e la embaxo vai ter o gerar cotaçao .... bom esse botao tem q abrir direto o relatorio...... sem eu prescisar aplicar depois em um form de filtro... e ao clicar alem de abrir o relatorio com aqueles dados q ta na tela ele tem q salvar o cadastro do cara...... como é q faz isso?

mas c não for acoplado como poderei guardar as informacoes?

só mais 1 coisa elas terao q ser acopladas? e dentro delas tera q ter as descricoes das maquinas?

alias.... decha eu te explica como terei q fazer....... eu terei q por no criterio da consulta akela formula do campo do form de filtro certo? ai depois terei q colocar essa funcao seimed no modo estrutura da consulta? é isso? to meio perdido ah sim ai nas propriedade na parte de criterio colocarei por exemplo 8D;12d ai toda vez q selecionar 8d e 12 d ele ira chamar tal descriçao ?

acho q intendi cara..... mas como eu posso criar por exemplo varios criterios para 1 descricao?

por exemplo eu terei q criar criterios para cada descricao e depois chamarei esses criterios?? vamos supor tenho uma descricao assim LAVADORA POR ULTRA SOM 8D eu teria q criar um criterio para essa frase? tipo qm vai usa essa frase é a lavadora 8d intao como criterio teria q estipular 8d? ou porexemplo frequencia: 40 KHz as q usam essa descricao são 0,8 e 1,3 ai teria q colocar como criterio 0,8 e 1,3?

tdo bem mais e o eskema q eu to kereno... como q faz tipo de ir montano o codigo do produto e na hora q eu mandar fazr o relatorio me trazer as infos conforme eu selecionei no item?

Opa galera mais uma vez encheno :D Bem não sei c o titulo condiz bem com o que quero mais vamos la.. Tenho um form la de consulta.. de produtos bemmm nele vo ter os dados da empresa ou cara q ta nos consultando... e logo abaixo vo ter um campo com os modelos dos produtos q a empresa aki fabrica... tipo ls-8d-2 ls-12d-2 e assim por diante aii no final vai ter um botao de gerar um relatorio e um otro de mandar as infos por email.... (que alias c vocês souberem me ensinem por favor) bomm... eis a questao: agente aki tem mais de 55x2 modelos de maquinas e todas com descricoes diferentes... agora c você pensa eu teria q criar para cada modelo uma descricao para quando eu clicar no botao ele criar um relatorio com akelas descricoes bemm pensei no seguinte.... para facilitar eu criaria uma vez cada descricao, como todos os modelos alguma descricao c repetem eu só criaria um criterio informando quais modelos usam tal informaçao......... ou seja temos os modelos 17,24,35,44,55 com tais descriçoes ... invez deu fazer 5 vezes a mesma descriçao eu faria uma vez e colocaria um criterio informando q toda vez q eu selecionar os modelos tais ele vai me monta no relatorio com akela descricao intao vai ser assim vo ter o form e nele vai ter um campo do modelo intao vai ficar assim LS-XXD-VYY bem o LS é FIXO ou seja sempre vai ter q ter creio q terei q aplicar um formato sei la..... onde xx eu mudo a CAPACIDADE onde V eu mudo a potencia e onde YY eu mudo acessorios quando o XX bater com uma descricao vamos supor LS-8D ele vai pegar tal descriçao e vai montar no relatorio ou mandar por email. (mais calma ele só vai montar tdo depois q clicar no botao) okok vamos continuar montando o produto já temos selecionado o modelo agora vamos supor q selecionamos a potencia ficara assim ls-8d-2 bemm o relatorio ou algo q mande por email lera o 2 de alguma forma e vai pegar as informaçoes referente a potencias.... e vai montar no relatorio ou email continuando LS-8D-2/x ok percebemos q selecionamos /x no YY ali ele pegara informacoes refentes ao gabine ou seja acessorios OK temos o relatorio montado agora apertamos em um botao de criar relatorio ou mandar por email..... gente deu para intender? pois eu teria q fazer mtas descricoes para cada maquina desse jeito terei q criar uma vez as descricoes das maquinas uuma vez q alguns modelos só mudam acessorios ou outros....... intao c eu criace criterios para as infos seria mais facil porem num sei fazer isso... gente da uma forca ae!!

olhei sim cara..... ateh tentei adptar aquele codigo: =SeImed(DContar("[seuCampo]";"SuaTabela")=0;("001" & Ano(Data()));Formato((Esquerda(DMáx("[seuCampo]";"SuaTabela");3)+1) & Ano(Data());"000\/0000")) mais num to conseguindo.... descupa ai é q eu so novato ainda nesse negocio de vb e tal rs mais aos pouco eu to aprendendo..

fmza manow.... pow eu to tetano estuda essa por caria de right num to intendendo porque tipo eu mudei as concatenaçao ai fmza só q quando ele formata ele formata us numero errado..... ai tentava muda o right uma vez q mudo a posicao dos numeros mais mesmo assim não funciona.... eu só num intendendo como q fazer o 07/001 seje mais dificil q 001/07 uma vez q só troca as posicoes pela logica teria só q mudar as posicoes do codigo passa tdo da direita para esquerda... rs

cara num to conseguindo de jeito nenhum já tentei varias expresoes modifiquei elas.... mudei a posicao da concatenaçao e nada..... eu num to sabeno usa aquele codigo q você me passo da data..... porque ele só coloca no campo um numero nem conta ... num tem como você me faze um codigo dessa numeraçao?