MrMALJ

DoCmd.TransferSpreadsheet acImport, 8, "OPC_CLI_MANUAL", "H:\Tecnologia Riscos\Colaboradores\Wellington\SIR-Planihas\Opt_20070118.xls", True, "Plan1!" ou no caso de querer importar somente uma determinada seleção da planilha DoCmd.TransferSpreadsheet acImport, 8, "OPC_CLI_MANUAL", "H:\Tecnologia Riscos\Colaboradores\Wellington\SIR-Planihas\Opt_20070118.xls", True, "Plan1!xx:yy" Onde xx é célula inicio e o yy é a celula fim (range), só não tenho certeza quanto a obrigatoriedade de informar esse range... Espero que consiga dê o retorno!

Veja se o exemplo abaixo lhe ajuda http://accessjr.brinkster.net/downloads/rptExemplos.zip E procurando achei este código do colega Jorge Ortiz (GD Forum Access), veja o código dele. Ola Veja se funciona, crie uma caixa de texto e faça adaptações do código abaixo para o seu form Private Sub Form_Current() 'Atualiza a caixa de texto txtTotal -> Quantidade de registros On Error Resume Next With Me .RecordsetClone.MoveLast .txtTotal = "Nome: " & .CurrentRecord & " - Total: " & .RecordsetClone.RecordCount End With Jorge Ortiz

Ummm acho que a função abaixo deve resolver.... =dcontar("seuCampo";"suaTabela") Post se deu ou não certo!

Veja bem o exemplo mostra como você pega dados em uma tabela e atualiza (preenche) o de outra, dá uma lida com calma que você verá que é isso que está procurando, claro faça as devidas adaptações (nomes de campos e tabelas) que com certeza irá fucionar.

Dê uma olhada neste tópico! http://scriptbrasil.com.br/forum/index.php?showtopic=92397

FEra basta que você coloque nos campos em "Após atualizar" os código que deseja executar, ou seja nesse caso a operação matemática atualizando outros campos, da mesma forma que fiz pra você.

-Se a Barra "Caixa de Ferramentas" estiver ativa certifique-se de que "Assistentes de Controle" esteja clicado (ele parece uma varinha magica senão tiver ative-o ele vai auxilia-lo com essas tarefas). -Ainda na barra "Caixa de Ferramentas" clique no botão "SubFormulário/Sub-relatório" e clique numa area livre do seu relatorio dai pra frente o assistente irá fazer o trabalho basta que você informe qual form ele irá usar. Outra forma sem utilizar o assistente clique no botão "SubFormulário/Sub-relatório" e clique numa area livre do seu relatorio, depois clique com o botão esquerdo do mouse no objeto e vá em propriedades então selecione o"Objeto de Origem" (no caso o seu sub). Espero ter ajudado, ter um retorno!

Crie um relatorio com essa query e use-o como um sub no seu footer (rodapé).

Bom você pode adicionar um campo na tabela de calculo para armazenar esse valor, assim sempre que precisar fazer um calculo ele estará com o valor correspondente a epoca, não é dificil pois antes de realizar os calculas no form você verifica se o campo que guarda a TJ na tabela de calculo está preenchido se não estiver faça buscar o valor do TJ na sua tabela correspondente. A função dlookup vai ser muito util para você fazer isso, da uma olhada no tópico abaixo http://scriptbrasil.com.br/forum/index.php?showtopic=92397

Realmente ainda não havia observado isso, achei legal, porém ainda não consegui achar o código...rsrsrs Mais vou continuar vendo!

Bom no caso você irá criar uma tabela com os dados necessário para realizar sua tarefa: Vou supor que entre outros campos você tenha PRODUTO, DATA além claro de entrada e saída, bom para realizar seu filtro basta que trabalhemos com os critérios do PRODUTO e DATA... no criterio do PRODUTO coloque assim [Qual Produto] Então informe o produto que deseja filtrar.... no critério de data faça assim: Entre [DataInicial] e [DataFinal] Será lhe perguntado o intervalo de datas que ele deve filtrar... pronto seu problema está resolvido!

Bom observei (o BD que me enviou) que você estava realizando seus cálculos na propriedade “Origem do controle” por isso não esta conseguindo armazenar os resultados. O que fiz foi devolver os nomes aos controles e utilizei a propriedade de evento “Após atualizar” da caixa de texto valor e fiz um código de evento simples para fazer as operações, ou seja sempre que você fizer alguma alteração na caixa de texto valor3, ele irá executar os cálculos. O código feito é o abaixo: Me.soma.Value = Me.valor1 + Me.valor2 Me.sutração.Value = Me.valor3 - valor2 Me.multiplicação.Value = Me.valor1 * Me.valor2 Me.divisão.Value = Me.valor1 / valor2 ' Abaixo "total' recebe o valor de sua soma , para mudar basta ' escolher outro.... Me.total.Value = Me.soma

Ummm achei alguns tópicos na net e vou disponibilizar pra você dar uma olhada http://forumaccess.com/eve/forums/a/tpc/f/...07587#556107587 http://forumaccess.com/eve/forums/a/tpc/f/...4871#6021054871 Acho que isso vai lhe servir!!!!

Desde que a função se esteja na celula da planilha em que se deseja fazer alterações sim.

Copie o par de celulas com as formulas e depois cole onde você desejar, então as formulas irão se alterendo sempre aos pares.

Ummmm... todo banco de dados com o passar do tempo vai ficando pesado, o access não é diferente. Eu tenho alguns que já estão bem grandinhos e continuam funcionando muito bem, claro que sempre estou fazendo manutenção no BD para otimizar.

Faça uma validação do campo critério antes de executar a consulta dim mmm if isnull(seuCampoCriterio) then mmm=msgbox("É necessário informar o criterio para busca",vbokonly+vbinformation) me.seucampoCriterio.setfocus else <EXECUTE SUA BUSCA> end if Outra solução é você utiliza a função NZ para não retornar valores nulos ou invalidos, assim: nz(dlookup(................),0) No caso acima o NZ irá retornar 0 toda vez que dlookup encontrar nulo, mais isso talvez não resolva pra você já que o problema está falta de criterio, então acho que o primeiro exemplo.

Private Sub CampoNome_KeyPress(KeyAscii As Integer) if keyascii = vbkeyreturn then (seu procedimento) end if End Sub É pra ser assim!!!

bom assim que você preencher o ultimo deles vá propriedade de evento "Após atualizar" e digite algo assim me.valor_total.value=nz(me.valor_unitario *me.qtde,0) no caso acima o nz fará os calculo e não deixará retornar um valor nulo para o resultado e sim o "0", quanto ao dlookup temos alguns tópicos aqui no forum que explica como utilizar, mais precisando de ajudar e só dizer que tentaremos ajuda-la sempre

Clique com o botão direito do mouse na caixa de texto ou outro controle que desejar e depois Propriedade, irá abrir as abas com todas as propriedades do objeto clicado, então basta você achar "Origem do Controle" (sempre é o primeiro item)

Use a função NZ para transformar valores nulos em zeros assim ele fará a soma =nz([QUANTIDADE]+[Q2]+[Q3]+[Q4]+[Q5]+[Q6]+[Q7]+[Q8];0)

1 - Nas propriedades do seu formulário localize "Figura" clique nem "..." e escolha a figura desejada.... 2 - O tópico http://scriptbrasil.com.br/forum/index.php?showtopic=98187, deve esclarecer sua dúvida caso não exclareça continuamos a ajuda!

Realmente Elber o docmd.runsql resolve, mais vou deixar uma outra forma dai basta escolher o metodo.... Dim sql As String sql = "delete * from SuaTabela" & " where NomeDoCampo '" & Me.[txt_cod_emprestimo].text Me.[seuSubForm].form.recordsource = sql Carlo independente de qual metodo tenha utilizado dê um retorno pra nós!

rsrsrsrsrs... nossa essa está pegando hein... bom se puder me passar isso pra mim dar uma olhada talvez eu possa resolver e enviar de volta manda pra mrmalj@yahoo.com.br, eu olho vejo se consigo arrumar e conseguindo eu mando de volta... agora só amanhã....rsrsrs t+

me.seuSubForm.campo3.value=me.campo1 ou forms!seuSubForm.campo3.value=me.campo1 Testa acho que pode funcionar!