Ir para conteúdo
Fórum Script Brasil

Humm

Membros
  • Total de itens

    570
  • Registro em

  • Última visita

Tudo que Humm postou

  1. da uma olhada nas propriedades do detalhe do relatorio.. se não me engano tem alguma opcao lá de ocultar repeticoes
  2. ou você associa o arquivo ao banco usando algum campo indice.. eu já fiz um assim, onde os arquivos eram 10.doc 11.doc 12.doc e tal de acordo com cada registro. e a partir de la um hyperlink que invocava [campo indice] & ".doc" você tb pode criar um botao de procura pra invocar aquela janela do explorer de procura, selecionar o nome de um arquivo e tal, e colocar uma rotina que copia esse aruqivo para uma pasta especifica renomeando o arquivo para [campo indice] & ".doc" ao inevz de .doc você pode escolher a extensao. abraços
  3. então velho.. o excel é um pouco diferente do access.. entenda que essa formula é apenas um campo calculado.. no access isso v caplica em formularios e relatorios que por sua vez são baseados em tabelas e consultas.. você tem que criar essas tabelas, consultas, forms e relatorias de acordo com sua necessidade.. nomear os campos e tal.. no acess não tem A1 B2 C3.. tem os campos da tabela com os nomes que você criar. basicamente o que muda é o SE para seImed que você usa num campo dentro do form ou relatorio abraços
  4. cara deve ter bugado a sql dessa consulta.. faz uma nova.. isso as vezes acontece comigo. eu acho que já tinha dado uma olhada nesse teu bd e notado isso. ai eu fiz uma consulta nele mesmo so pra testar o falor do icm e na nova tinha dado certo.. e ao invez de jogar codigos nos campos da consulta, tente fazer outras consultas e chama-las nessa sacou?
  5. coloque ultimo ou maximo na data e ve se da certo abraços
  6. bom vamos lá.. você precisa ter uma tabela de campos com os valores.. e outra com os parametros, caso estes sejam de aplicao universal e não de registro a registro.. o comando SE no excel funciona da seguinte maneira: SE(criterio;valor se verdadeiro;valor se falso) no acces funciona assim: SeImed ou IfImed SeImed(criterio;valor se verdadeiro;valor se falso) no entanto.. se você precisar resgatar um valor de um campo em um determinado registro de outra tabela, você pode usar como criterio, valor se verdadeiro ou falso o comando dlookup ou dpesquisa Dlookup("[campo a ser resgatado]";"tabela ou consulta onde ele se encontra";criterio) exemplo, eu tenho 2 tabelas.. a tabela PREÇO e a CLIENTE PREÇO: [PREÇO] CLIENTE: [CODIGO] então eu quero que os clientes de 0 a 10 recebam 10% de desconto e os clientes de 11 a 20 recebam 20% no campo do form baseado na tabela PREÇO que vai retornar isso eu coloco: =SeImed(dlookup("[CODIGO]";"CLIENTE";"[CODIGO] =" & ME.[CODIGO])<11;[PREÇO]-10%;[PREÇO]-20%) abraços
  7. Humm

    Sobre 'expressao'

    é simples.. baseie sei relatorio em registro por registro.. então na guia detalhe dele coloque os campos ENTRADA, SAIDA e crie um campo não acoplado que seja "=[ENTRADA]-SAIDA]" só isso.. abraços
  8. ATENÇÃO, essa procedimento não é mais necessário. quem tiver erro quando tentar realizar atualizacao ou verificação: abra o Updater.MDB pressione simultaneamente: alt + F11 clique em Ferramentas\referencias marque: Microsoft Office x.0 Object Library ps. testei no access 2007 e não ta funcionando com a versao 12 do object library, to pesquisando uma solução abraços
  9. acabei resolvendo usando o FOR NEXT abraços
  10. Bom, como estou frequentemente atualizando minhas aplicações, acabei criando uma aplicação externa pra automatizar a coisa. Ela serve pra quem tem aplicações cliente front end em diversas maquinas em rede e precisa atualizar varios clientes de uma vez. Estou disponibilizando com o código aberto para que você mesmo possa implementar mais ainda nas suas necessidades. É muito facil de usar.. só tem praticamente 2 janelas. uma para configurações e outra para realizar o update dos arquivos. Na janela de configurações funciona assim: Campo: Descrição Nome do Arquivo da Aplicação: Digite aqui o nome do arquivo da aplicação MDE sem a extensão. (Ex. Para um arquivo "SISTEMA.MDE" use "SISTEMA") Nome do Arquivo temporário: Use um nome para o qual a aplicação será renomeada no cliente para evitar ser executada no ato da atualização. (Ex. "temp.tmp") Caminho da Aplicação Matriz: Caminho onde se encontra o MDE que servirá de Matriz. (Ex. "C:\SISTEMA\") depois no subformulário você cadastra os PCs Clientes: Nome: Nome de Identificação da Maquina Cliente. (Ex. "Computador do Caixa") IP: Endereço IP da maquina Cliente. (Ex. "10.1.1.3") Caminho: Caminho do recurso compatilhado onde se encontra a aplicação MDE na maquina Cliente. (Ex. "/C/SISTEMA/") depois de configurados os parametros, você vai na janela de atualização: Verificar Clientes: Faz uma verificação prévia para saber o status dos clientes Atualizar Aplicativo: Executa a atualização em massa dos aplicativos de cada cliente disponivel para tal. Download Aqui Abraços
  11. http://www.jrfaq.com/default.asp?http%3A//...ergunta_Id%3D25 abraços
  12. Humm

    comparar dados

    escolha um campo que não tenha como ser diferente, exemplo o CPF.. então crie uma consulta para pesquisar estes dados entre as duas tabelas usando o CPF como criterio de forma que ela só retorne aqueles que não batem. abraços
  13. criei uma função que verifica se determinado arquivo existe em tal diretorio.. ela funciona perfeitamente. o problema é que ela só pesquisa no registro atual, e eu tenho um form continuo que mostra todos os registros duma vez.. como eu faço nessa function para atualizar todos os registros ao invez daquele que contem o foco? Function STATUS() As String Forms!MAINUPDATE![CLIENTSTATUS] = "VERIFICANDO..." On Error GoTo STATUS_Err Dim fs As FileSearch, I As Integer Set fs = Application.FileSearch With fs .LookIn = "//" & DLookup("[CLIENTIP]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'") & DLookup("[CLIENTPATH]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'") .SearchSubFolders = False ' Não pesquisa em subdiretórios. .FileName = DLookup("[MAINFILENAME]", "MAINCONFIG") & ".MDE" 'Screen.MousePointer = 11 'ampulheta If .Execute > 0 Then 'For I = 1 To .FoundFiles.Count Forms!MAINUPDATE![CLIENTSTATUS] = "CLIENTE ENCONTRADO NA REDE. VERIFICANDO APLICAÇÃO... " .LookIn = "//" & DLookup("[CLIENTIP]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'") & DLookup("[CLIENTPATH]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'") .SearchSubFolders = False ' Não pesquisa em subdiretórios. .FileName = DLookup("[MAINFILENAME]", "MAINCONFIG") & ".LDB" 'Screen.MousePointer = 11 'ampulheta 'Next If .Execute > 0 Then 'For I = 1 To .FoundFiles.Count Forms!MAINUPDATE![CLIENTSTATUS] = "APLICAÇÃO ESTÁ EM USO NO MOMENTO, NÃO SERÁ POSSIVEL ATUALIZAR AGORA." 'Next Else Forms!MAINUPDATE![CLIENTSTATUS] = "PRONTO PARA RECEBER ATUALIZAÇÃO!" End If Else Forms!MAINUPDATE![CLIENTSTATUS] = "NÃO FOI ENCONTRADO NA REDE, VERIFIQUE SE O CLIENTE ESTÁ LIGADO E CONECTADO." End If End With STATUS_Exit: 'Screen.MousePointer = 0 Set fs = Nothing Exit Function STATUS_Err: MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, _ vbExclamation, "Erro" Resume STATUS_Exit End Function abraços derrepente tem que fazer um FOR NEXT que faça ele contar os registros que tem nesse recordset e ao final de cada FOR ele tipo fazer um comando recordset.findnext sei lá.. to meio por fora mas acho que é mais ou menos por ai.. alguma ideia?
  14. Humm

    Anexar Arquivos Em Cadastros

    bom, uma ez fiz uma aplicação similar.. e eu adotei o seguinte metodo.. o numero do registro da ocorrencia(não pode ser duplicado) é o mesmo nome do arquivo.doc exemplo.. numero do registro é 3345 ai o arquivo ficava 3345.doc dessa forma ele ficava associado. então eu tinha um botao e coloquei um codigo nele para abrir [registro] & ".doc" abraços
  15. Humm

    Back end - Front End

    no meu access essa opcao fica em: ferramentas\utilitario de bd\divisor de bd abraços
  16. Humm

    problema com consulta

    eu baixei o arquivo mas vem sem extensao.. coloquei mdb e não deu. reveja ai abraços
  17. Se a sua aplicação apresenta de forma intermitente estes problemas: ou ou ou ...e voce tem certeza de que seu projeto está correto, fique sabendo que existe um pequeno bug com a engine do Microsoft JET. Visite o link para maiores informações: http://support.microsoft.com/kb/895751 ATENÇÃO: Este Hotfix é para o Microsoft JET que acompanha o Office XP Professional(Access XP) dentro do ambiente Windows XP SP2. Para Windows XP e XP SP1 talvez sejam necessários a instalação de outros hotfixes antes da instalção deste. Clique Aqui para o Download Ps. Acredito que este valha ser fixado como destaque.
  18. bom.. esqueci que podia criar consultas acrescimo.. hehe criei consultas e usei o codigo pra chamalas pode dar como encerrado abraços
  19. pode colocar como resolvido pois não deu mais um erro sequer.. farei um post novo sobre o assunto e tentarei anexar esse hotfix para a posteridade. abraços
  20. to colocando um botao com opcao para deletar o registro atual.. mas antes disso preciso dum procedimento pra copiar esses dados das tabelas envolvidas no formulario para outras tabelas que servirao de lixeira. o caso é que eu consigo fazer sem dificuldades se eu não tivesse subformularios dentro do formulario.. alguém tem um exemplo de um codigo pra isso? recuperar varios registros filhos de um outro registro pai? por exemplo, com este codigo eu consigo fazer isso mas somente com os dados do registro PAI Dim Db As DAO.Database, Rs As DAO.Recordset Set Db = CurrentDb() Set Rs = Db.OpenRecordset("CUPOM_DEL") Rs.AddNew Rs("COD") = Me.COD Rs("DATA EMISSÃO") = Me.DATA_EMISSÃO Rs("VENDEDOR") = Me.VENDEDOR Rs("CLIENTE") = Me.CLIENTE Rs("TROCO COMO CREDITO") = Me.TROCO_COMO_CREDITO Rs("CF") = Me.CF Rs("TIPO") = Me.TIPO Rs("VALOR") = Me.VALOR Rs("USER") = Me.USER Rs("USER_DEL") = Me.USER Rs.Update Db.Close Set Db = Nothing Set Rs = Nothing acontece que eu tenho 3 subforms neste form e estão relacionados pelo campo COD do form PAI. como eu faço pra implementar o codigo de forma que ele tb copie para as tabelas filhas os varios registros filho de cada registro pai? abraços
  21. é isso.. recebi por email o hotfix WindowsXP-KB895751-v2-x86-PTB.exe instalei nas maquinas e até agora o problema parece ter sido sanado. pelo que eu entendi é um bug na engine do JET ironicamente a microsoft não disponibiliza este hotfix para download sob a afirmativa de que ele não foi completamente testato para tal. e me parece que é certo que qualquer aplicação complexa feita em access cujo venha a ter muitas tabelas com muitos registros (uma das minha tabelas chega a ter mais de 300.000 registros) tem muitas chances de ter este problema. ontem mesmo tava impossivel usar a aplicacao, dava erro direto de primeira. vamos ver no que dá, por enquanto ta passando nos testes.
  22. Humm

    (Cancel As Integer)

    engraçado que isso é obrigatório em funçoes do tipo before se eu retirar, da erro na hora de compilar
  23. acho que finalmente estou encontrando uma luz.. http://support.microsoft.com/kb/895751 já tava achando que tava ficando louco! só podia ser bug do access to esperando receber o hotfix.. só enviam por email. abraços
  24. Humm

    (Cancel As Integer)

    afinal pra que serve isso? exemplo: Private Sub PEDIDO_BeforeUpdate(Cancel As Integer) abraços
  25. esse problema ta me tirando o sono! simplesmente voltou do nada. to começando a desconfiar que é um bug do access! e só aparece em BDs com mais de uns 70000 registros em uma tabela. além do mais descobri outro coisa chata.. após dividir o BD parece que simplesmente os relacionamentos desapareceram.. e eu tinha relacionamentos do tipo integros.. que ao deletar o registro mestre, os subs tb eram deletados em cascata. caramba.. só me resta uma ultima alternativa.. migrar pro access mais recente que tiver. abraços
×
×
  • Criar Novo...