MrMALJ

Dê uma olhadinha nisso, talvez lhe ajude! http://support.microsoft.com/kb/148463/pt-br

Crie um consulta no modo estrutura e inclua essas duas tabelas, então puxe e use os campos que você julgar necessário em cada tabela.

E o que está occorendo, explique melhor pois numa primeira olhada seu código deveria funcionar e alterar o valor de total_ppa, tente passar uma ideia do que deseja e como está o comportamento da tarefa...

Bom a ideia é você achar um numero que no loop vá demorar os 30segundos que deseja depois você divide o valor por 30, daí a cada diferença você incrementa pra amostrar mais um segundo... Outra ideia seria você guarda a hora inicial incrementar os 30 segundo numa outra variavel e então fazer o loop para ficar verificando os segundos, algo assim: Private Sub Form_Timer() dim tIni, tFim, x,y as variant tIni=time() tFim=tIni+0:0:30 x=tIni+0:0:01 y=1 while time()<=tFim if x=time() then y=y+1 x=time()+0:0:01 end if Label.Caption = "O sistema entrará em manutenção em " & (30-y) & " segundos!" tempo=tempo-1 wend If Tempo = 0 Then DoCmd.Quit end if End Sub Deve funcionar pensei nisso agora, bom teste.

tente algo assim: public Tempo As Integer Tempo = 1500 Private Sub Form_Timer() while tempo>0 Label.Caption = "Será desligando quando zerar: " & Tempo tempo=tempo-1 wend If Tempo = 0 Then DoCmd.Quit end if End Sub

Assim: public INDICE as integer No caso a variavel que foi criada é do tipo inteiro, adeque a sua necessidade.

se você já tem um form aberto o tempo todo somente verificar a existencia do arquivo, seria melhor você tornar o formulário visivel ou maximiza-lo com uma mensagem solicitando que o usuário saia do sistema e dizendo que em um minuto o sistema será fechado sozinho.

Então a saída mais fácil é voce fazer a consulta de referencia cruzada e utiliza no seu sub relatorio. A muito tempo atrás tive que fazer algo assim com datas deu muito trabalho pra fazer a função, mais basicamente eu fazia a leitura registro a registro e ia concatenando numa tabela temporária que criei. Não sei se ainda tenho essa aplicação mais se eu a encontrar posto o codigo pra você.

Drakke é possivel filtrar sim, inclusive aqui no forum tem alguns tópicos que falam disso. Sua dúvida ficou muito vaga, num diz detalhes do tipo de objeto que usa no seu formulário, mais uma forma simples de filtragem é você criar uma consulta que utilize como critério um objeto onde você informe a transportadora e utiliza-la para trazer os dados que deseja, isso também tem muitos tópicos que falam sobre.

Num consegui ver erro no seu código, talvez nuam tentativa passando o nome do formulário durante o processo, algo assim: Rs("CP_FASE") = forms!seuFormulario!Combo_fase.value Rs("CP_SUB") = forms!seuFormulario!Combo_sub.value Rs("CP_AGRUP") = forms!seuFormulario!Combo_purga.value Se não der certo isso se possivel post sua aplicação para poder analisar melhor (uso access 2003).

Bom por padrão os campos sempre ficam colunados, e a tabela de referencia cruzada para mudar a disposição dos dados. Se num for isso que você quer tente explica melhor, detalhando e passando maiores detalhes, assim eu ou outro membro pode ajudar você a achar uma solução.

Amigo mudei o código do botão, cole esse no lugar do está lá, realmente estava havendo um estouro, devido ao tipo de váriavel e o tipo de loop que utilizei, com essa nova estrutura testei funcionou perfeitamente, Dim inicio, final As Variant Dim strSql As String If Not IsNull(Me.txtVend) And Not IsNull(Me.txtData) And Not IsNull(Me.txtIni) And Not IsNull(Me.txtQtd) Then DoCmd.SetWarnings False inicio = Me.txtIni final = Me.txtIni + Me.txtQtd While inicio <= final Let strSql = "insert into tstMALJ (recData,recVendedor,recNumero) values(#" & Me.txtData & "#,'" & Me.txtVend & "','" & inicio & "')" DoCmd.RunSQL strSql inicio = inicio + 1 Wend DoCmd.SetWarnings True MsgBox "Geração automática Concluída!", vbOKOnly + vbInformation, " Mr. MALJ" Else MsgBox "Para geração automática de recibos é necessário informar todos os Requisitos!", vbOKOnly + vbInformation, " Mr. MALJ" End If Posso colocar resolvido no seu tópico?!!!!

Sim, crie uma consulta de referência cruzada.

Testei aqui e não deu erro algum

Como disse o problema era simples, eu esqueci de colocar o # (cerquilha ou jogo da velha) na data, então basta inserir ela a linha do include ficará assim: Let strSql = "insert into tstMALJ (recData,recVendedor,recNumero) values(#" & Me.txtData & "#,'" & Me.txtVend & "','" & i & "')" Pronto isso resolve a questão da data, posso colocar resolvido então?

Wu imaginei que com o exemplo bem encminhado você já teria resolvido o problema de formato, mais vou baixar de novo pra ver o que é.

Gere consultas para totalizar os anteriores e use os valores obtidos no seu relatório.

Amigo neste tópico foi linkado um exemplo veja se num é isso que quer. http://scriptbrasil.com.br/forum/index.php...72&hl=busca

Você pode cria um código de evento "após atualizar" da caixa de listagem (sugiro que essa ação seja feita apartir de um botão): if me.suaLista="A" docmd.runsql "insert into A (campo1,campo2,...) values (valor1,valor2,...);" else docmd.runsql "insert into B (campo1,campo2,...) values (valor1,valor2,...);" end if A ideia é essa adapte-a sua necessida, aguardo retorno para colocar seu tópico domo resolvido!

Crie uma consulta e a partir dela gere outra consulta, daí vocÊ poderia por exemplo utilizar o dlookup() para trazer o resultado da ultima consulta.

Cara num entendi bem sua questão, mais no geral os relatórios são gerados com base em consultas, então bastaria vocÊ utilizar os campos do formulário como critério.

Fera dÊ uma olhada nessa dica http://www.ativoaccess.com.br/mostra.dica.php?dica=11, eu utilizei ela com uma pequena alteração o formulário que fica aberto era maximizado com uma mensagem pedindo para o usuário sair do sistema em até 5 minutos.

Na verdade isso tem que ser feito a nível de consulta, ou no caso de você querer apenas totais, utilize objetos não acoplados, para por exemplo somar os valores num campo chamado de xValor, ficaria assim a origem de dados do objeto não acoplado: =sum([xValor]) ok!

Rodrigo conforme o Humm respondeu você resolve isso utilizando consulta de referência cruzada.

Agora só semana que vem, a questão data pode ser algo relacionado ao formato. Os demais só quando eu voltar de férias, ou se por acaso conseguir conectar de algum lugar....