Por ex. tenho uma impressora com o nº de serie por ex: é 100 cujo o contador que informa o nº de impressões em 31/08/14, que marcava 105.000 impressões. Eu tenho um formulário onde eu registro isso…o nº de série da impressora bem como o contador. Quando chegar no final do outro mes (setembro) por exemplo eu vou registar nesse formulário a situação atualizada de impressões desse nº de série ou seja por exemplo essa impressora esteja marcando 130.000 impressões em seu contador. Quero gerar um relatório onde o mesmo informe a quantidade de impressões feitas até o momento ou seja a diferença no caso ai entre o registro de setembro em relação ao registro no caso do final de agosto, (o maior - o menor). Ja criei um campo de texto para tentar me dar essa informação…ma consigo!!!..Agradeço a atenção!!!
Oi … no modo design do formulário ( na barra de objetos onde tem inserir rótulo, cx texto, listbox, etc) tem 2 tipos de caixa de texto: uma textbox comum para entrada de careteres e outras chamada “campo calculado” , e é justamente essa que vc deve usar para fazer contas como de subtração, por exemplo.
Cria 3 caixas de campo calculado e com uma macro vc pode programar essa conta, tb sei que dá pra faze isso em modo SQL ( calcular a diferença entre 2 campos ), mas não sou especialista.
Depois vc cria um relatório baseado no formulário, ou se usa SQL um baseado em consulta, aí vai ter a no relatório, a conta que vc quer.
Segue um exemplo de macro que calcula as caixas de campo calculado…
Sub Calcular 'Declara as variáveis de cáculo como tipo inteira e os nomes dos objetos de textbox ( caixa de texto ) como tipo objeto: Dim subtracao, var1, var2 as integer, form1, txt1, txt2, txt3,resultado as Object 'Atribui os objetos do formulário ( caixas de textos do próprio form as variáveis do tipo objeto ) Set form1=Forms("meu_formulário") txt1=form1.Controls("Campo numérico 1") txt2=form1.Controls("Campo numérico 2") subtracao=form1.Controls("resultado") ' Agora pode usar as "propriedades" os objetos ( .value ) como parâmetros de entrada as variáveis do tipo inteira var1=txt1.Value var2=txt2.Value subtracao=(var1-var2) resultado.Value= subtracao ' Atualiza o form form1.Refresh End Sub
Essa macro pode ficar no evento “Ao atualizar do formulário”, ou em um botão no evento “Ao presionar tecla”.