kuroi

hum?? isso ai não é visual basic não... da onde veio esse codigo??

vi q você editou o post depois q eu postei... não sei se você conseguiu resolver, mas... não tem porque o formulario anterior mudar os dados, a não ser q você esteja modificando os dados deles você mesmo a partir de outro form. você provavelmente pode estar fazendo isso "sem querer" se tiver usando variaveis globais. exemplo, se você usa o mesmo recordset pra buscar dados nos dois forms, é claro q se você usa-lo em um dos formularios, o valor sera alterado tb para o outro.

se você abre o form como modal, exemplo, assim: Form1.Show vbModal você não pode mexer em nenhum outro formulario ate q você feche esse. entretanto, abrindo ou não como modal, os outros formularios vao ficar la aberto ate q você feche. e os dados deles não vao ser perdidos.

sim ue, desde q não abra como modal (alias, como modal funciona, so q você so consegue acessar um de cada vez). o q você ta tentando fazer q não ta funcionando??

nossa, so vi esse tópico hj... acho q o q você quer é o q é explicado nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=41236

em qual linha ocorre o erro?? na consulta.Execute mesmo?? o erro so ocorre na hora de chamar a procedure?? se você tentar executar otras querys, roda normal?? a mensagem é so "ODBC-call failed"?? não fala mais nd alem disso?? o q você quer dizer com essa pergunta??

no evento mousedown você ativaria um timer q ficasse mudando de registros pra você. no mouseup você desativaria. e você tb vai ter q desativar tb se ele tirar o mouse de cima do botao mesmo q estiver com o mouse clicado (pode usar o evento mousemove pra isso). so o problema é q na toolbar, pelo evento mousedown, você não tem como saber em q botao ele ta clicando. você vai ter q ver pelo x e pelo y, o q deve acabar sendo meio chato de fazer.

alex, em vez de por o codigo em italico, ponha dentro da tag CODE q fica mais facil de ler. agora, isso ai q você quer, eu faria assim: If cmmCarregaArquivo.FileName = "" Then MsgBox "NADA SELECIONADO" Else MsgBox "1" End If[/code] inclusive a propriedade FileName já traz o nome do arquivo com o caminho todo assim como você quer.

o double na verdade é ponto flutuante, aceita qtas casas ele conseguir calcular (mais de 10 aceita com certeza), e acho q nem tem como limitar o numero (se você precisar faca isso pelo visual basic mesmo). você tentou inserir algum numero com varias casas?? se ele tiver mostrando apenas duas quando você abre a tabela, isso deve ser da configuracao de exibicao q você pode ter setado. isso ai você muda entrando no modo de design da tabela. e melhor mover esse tópico pra access tb.

se não me engano, campo currency no access não pode passar de 4 casas. ponha double.

na hora q der o erro, aperte Ctrl + G pra abrir a janela do Immediate. la dentro, digite: ? FlexGridCadastro.Text e aperete enter. ai ele vai mostrar qual o conteudo q ele ta tentendo por na masked box, e vamos ver qual o problema.

txtTelefone é um masked box?? se for o erro provavelmente acontece porque você ta tentando por um texto q não condiz com a mascara.

qual a linha do erro??

não é pra você executar o select a cada clique do botao. toda vez q você executa o select de novo, ele move pro primero registro. execute o select uma unica vez na hora q abrir o formulario e no clique do botao, ponha so o moveprevious.

nesse caso acho q o melhor é fazer uma view (consulta) no seu banco de dados q traga somente os valores maximos e minimos de cada materia prima, e ai você apontaria o subreport pra essa view. porque você não vai conseguir somar campos q facam sumarizacao como maximum() e minimum().

relendo agora não sei se o subreport vai te ajudar mesmo, mas não ta dando pra entender direito o q você quer. você quer pegar o valor minimo e o maximo?? se for isso, faca como o tiago falou, ai selecione maximum() e minimum(). agora não entendi a parte da somatoria. o maximo e o minimo não são dois unicos valores?? você quer soma-los, é isso?? se for faca um novo campo formula q some os dois. exemplo: Maximum({Tabela.Campo}) + Minimum({Tabela.Campo})

q ninja imprestavel é esse q num sabe escreve em japones?? adicionei o texto この世界には e ele me escreve o codigo html dos caracteres...

estava falando desse aqui: é pra você somar um campo com o outro, não ponha Sum() dentro de nenhuma formula. e nem whileprintingrecords, nem previous() nem next(), etc.

qual o codigo q você ta usando??

você pode usar um subreport. é como se fosse um otro relatorio dentro do .rpt.

você não pode somar campos q tenham whileprintingrecords, porque esse tipo de campo depende de varios registros. você so pode somar campos q sejam unicos pra cada registro. da uma olhada no meu post de cima. se você fizer daquela forma, acredito q consiga somar.

ai acho q você vai ter q criar um campo formula q pegue os dados da formula e transforma em string. usando as funcoes WeekDay(), WeekDayName(), Month(), MonthName(), etc.

perai, você ta carregando esses dados no combobox na mao ou ele ta vinculado a um adodc?? se tiver vinculado, você vai ter q abrir e fechar de novo o adodc. se não você limpa o combobox e insere os dados de novo.

você pode fazer a mesma coisa com o adodc. ou se o adodc já ta carregado com todos os dados, você da um MoveFirst e depois um Find pra encontrar o codigo q você precisa.

olhai: http://www.macoratti.net/txt_arqs.htm