MrMALJ

Fera seguinte, você foi muito vago, mais pra pegar saldos anteriores, você pode gerar uma consulta que pegue dados anteriores ao que você está fazendo isso é bem simples, se for caso post ou me envie o seu BD (ou uma parte dele) dai eu posso entender melhor o que você está tentando fazer e monta as consultas e te envio de volta... mrmalj@yahoo.com.br se quiser pode me adicionar no MSN mrmalj@hotmail.com, e dai a gente pode tracar uma ideia!!!

Das 2 uma, ou seu código não está ok ou pode ser algum problema com o seu driver de impressão, na duvida post o código de seu botão pra podermos analisar!

Fera crie um formulário que exiba os resultados da consulta de acordo com seus criterios, ou utilize o assistente de criação de botões que la tem o botão de busca no memos Form.

nas propriedades "ao atualizar" ou "Apos atualizar" dos campos result1 e result2 digite um codigo semelhante ao que segue if me.result1>result2 then me.seuCampoMax.value=me.result1 else me.seuCampoMax.value=me.result2 end if Isso deve resolver!

Ao atualizar a primeira combo você pode forçar a atualização da proxima combo, na propriedade "Ao Atualizar" da primeira combo digite um codigo semelhante a este: me.combo2.requery Isso resolve

Fera com certeza que tem, você pode utilizar codigo para fazer o calculo, ou pode criar uma caixa de texto com a forma calculo que você quer , tipo: =soma1+soma2 ou =Soma(Valor) Claro que isso muda dependendo da sua necessidade de calculo, no caso acima você coloca as formulas na propriedade origem do controle da caixa de texto! Com o que você postou só posso dizer isso...t+

você pode utilizar um procedimento nos campos que você atualizar é que reflitam sobre o valor total, apesar de você não ter dado maiores detalhes, vou acreditar que tenha um campo total parcial em cada formulario, tudo que você tem fazer é incluir uma instrução de evento toda vez que ele(s) atualizar(em) algo mais ou menos assim (já prevendo que seu campo somaTotal tenha uma formula similar a esta =parcial1+parcial2+parcial3+parcail4+parcial5) forms!seuFormTotal!seuCampoTotal.requery isso pode resolver

Fera eu sugiro que você crie um novo BD vázio e importe as tabelas, consultas, macros, códigos para ele (com exceção do formulário problemático), então importe o menu do BD antigo isso deve resolver e você ainda irá manter seus dados intactos.

Pelo que entendi você está comparando um valor na célula J10, dependendo do valor ele executa um determinado calculo. Bom vou te mostrar usando o If que talvez pra você seja mais facil compreender if seuCampo<1257 then me.seuCampoCalculado.value=0 end if if seuCampo<2512 and seuCampo>1257 then me.seuCampoCalculado.value=(seuCampo*0,15)-188,57 end if Bom o raciocinio é esse agora basta adequar ao seu BD. Espero ter ajudado

ummm pelo que que vi você pode incluir essa variavel logo no inicio do codigo principal do seu PRG, ou seja não colocar ele dentro de nenhuma função, logo no inicio tem se não me engano "Option Explicit" ou algo assim... e lá você adiciona essa variavel que o restante do codigo irá reconhece-la em qualquer parte do seu sistema!!! :)

Bom você poderia passar mais detalhes como: *- O procedimento/função para fazer a leitura do Código de Barras já está funcionando? Se já estiver ok isso, basta você utilizar o procedimento "Após atualizar" do campo e fazer um código semelhante ao abaixo: me.seuCampoCod.value=dlookup("[campoDaSuaTabelaComCodigo]","SuaTabelaComCodigo","campoDaTabelaComCodigo="&COD_BAR_PROD) me.seuCampoDescricao.value=dlookup("[campoDaSuaTabelaComDescrição]","SuaTabelaComDescricao","campoDaTabelaComCodigo="&COD_BAR_PROD) Isso deve resolver! Lembrando que os campos que não devem receber foco deve estar com a propriedade "Marca de Tabulação" desativada!

Bom você pode fazer isso modificando a consulta na origem da linha da comboBox que será filtrada e adicionar como criterio a comboBox Empresa, depois na propriedades "Após Atualizar" da combo Empresa ou na "Ao receber foco" da combo Filtrada, você insere um código como o abaixo: me.comboFiltro.requery Onde "comboFiltro" é nome da sua comboBox que será filtrada, isso deve resolver seu problema!

Cara não consegui entender o que você quer fazer.....????

Se você puder disponibilizar, o código ou quem sabe enviar o BD para analise faciliataria

Você utilizar filtros pra fazer essa seleção... ou ainda utilizar os critérios de consultas para pegar os dados repetidos

Bom você pode gerar um arquivo MDE do seu MDB, isso faz com que seus códigos fontes sejam compilados e "protegidos e não editáveis", para isso vá no menu Ferramentas/Utilitários de banco de dados/Criar arquivo MDE Se você estiver utilizando uma base de dados ODBC/SQL você pode criar um projeto pra acessar isso, um arquivo "MDW".... bom mais acho que o MDE lhe satisfaz de imediato.

Realmente esse código funciona em access, verifica os tipos de dados dos campos....

Bom a principio você terá que criar um novo formulario que será aberto imediatamente ao abri o seu projeto (MDB), nele você ira colocar duas caixas de texto não acoplados para que possa ser informado o nome do usuario e a senha do mesmo. Vamos chama-las de xUso e xSenha, então nas propriedades "Após atualizar" de cada caixa de texto você pode utilizar códigos semelhantes aos que vou mostrar abaixo -- Para xUso dim vUso as string vUso=dlookup("[nome_user]","tbl_user","[nome_user]"=xUso) if isnull(vUso) then msgbox "Usuário não encontrado" me.xUso.setfocus end if -- Para xSenha dim vSenha as string dim vTipo as variant vSenha=dlookup("[senha_user]","tbl_user","[nome_user]"=me.xUso) if isnull(vSenha) or me.xSenha<>vSenha then msgbox "Senha Incorreta!" else vTipo=dlookup("[tipo_user]","tbl_user","[nome_user]"=me.xUso) docmd.close if vTipo=1 then docmd.openform "SeuForm1" else docmd.openform "SeuForm2" End if end if ---------------- Bom acho que isso deve resolver, talvez uma ou outra correção no código, mais basicamente é isso daí

Bom pra você usar dados do Access na web você precisa saber um pouquinho de ASP, e como conectar ao seu site via código ADO... Existem muitas apostilas internet que explicam como fazer isso facilmente.. Connect...... É só fazer uma busca que com certeza você irá achar, acho que aqui mesmo no scriptbrasil deva ter apostilas que mostramo como fazer isso

Observei seu código, e até onde sei está tudo ok, mais já que você disse que está dando erro nos requery tente deixar tudo update....

Crie os usuarios em cada maquina e dê permissão de administrador a todos isso deve resolver!

Valeu pelo retorno fera, vou tentar usar sua dica

Agora loguei...

FAca um código semelhante ao do cnpj para o código do cliente!

Você pode incluir um código como este "ao atualizar" seu campo que tem os valores referidos if me.campovalor=1 then Me.SeuCampoParaMudar.ForeColor=RGB(255, 0, 0) end if Bom agora faça as adaptções necessárias para que funcione no seu BD, o exemplo acima é para o vermelho...