kuroi

michelle, o link ficou quebrado ai. posta o link inteiro.

apague essa linha: Dim rs As New ADODB.Recordset e apague em todos os lugares q ela aparecer. e depois ponha ela la em cima no generals (em cima de tudo).

movi pra outros bancos

então, orlando, esse codigo ai funcionou na planilha q você passou. ele faz o seguinte. você ta na planilha pedidos. ai você altera a quantidade de um dos produtos. o q ele faz, assim q você digita, ele pega o novo valor q você pos, e salva na coluna correspondente la na planilha dados. e poe o procv() de volta na coluna q você alterou. tdo o q você tem q fazer é copiar esse codigo dentro do codigo da planilha pedidos (no editor do visual basic). so q o codigo é baseado na posicao das colunas. se você mudou a posicao em relacao aquela planilha q você me passou, tem q mudar o codigo tb. veja ai, se você não conseguier, quando eu chegar em casa, eu te mando a planilha funcionando, pra você ver.

legal. é o div eu sabia q tinha acho q no pascal. no visual basic eu sempre fazia a divisao normal e depois convertia. descobri q tinha o operador \ há um tempo atras.

é, se 0,75 de uma hora é igual a 45 minutos, esses 0,7775 devem dar os 46 mesmo.

isso acontece porque a minha funcao recebe o valor em segundos. como eu disse no post de cima, você tem q muliplicar por 3600. pra chegar nesse valor. ou melhor, nem precisava dividir o valor 81999. era so passar ele direto pra funcao.

qual o codigo da sub preenche grid?? e do botao incluir?? tenta incluir esse codigo: If rs.State = 1 Then rs.Close rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic[/code] logo depois q gravar.

acho q essa funcao aqui serve pra você: http://scriptbrasil.com.br/forum/index.php?showtopic=108910 é so você multiplicar a hora por 3600 e passar pra funcao.

não entendi direito, mas se o problema é q a imagem ta ficando maior q o picturebox, ai o esquema é usar uma barra de rolagem.

bstar, você ta usando Running Total Fields pra mostrar as somas?? se for, você tem duas opcoes: 1 - entre na edicao do Running Total Fields, e na opcao Reset, selecione On change of group e selecione o grupo q você quer. 2 - não use Running Total Fields, em vez disso, ponha um Summary Field pra fazer a soma (clique em menu Insert -> Subtotal ou no botao do sigma). a vantagem do summary field é q você pode copiar pra otros grupos ou pro report footer, so copiando e colando. se fosse um Running Total Field, você ia ter q criar um campo novo pra cada grupo.

orlando, se eu entendi o q você quer, uma forma q pensei aqui seria o seguinte. no change da quantidade na planilha pedidos, você passa o valor digitado pra planilha dados e depois traz o procv de volta. tenta assim, inclua esse codigo na planilha pedidos: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 And (Target.Row >= 9 And Target.Row <= 17) Then If Not IsNumeric(Target.Formula) Then Exit Sub Dim r As Range, i As Integer i = 2 Do While Worksheets("Dados").Range("B" & i).Value <> Worksheets("Pedidos").Range("J5").Value i = i + 1 Loop Dim c As Integer c = 8 + (6 * (Target.Row - 10)) Set r = Worksheets("Dados").Range("B" & i) Set r = r.Offset(, c - 2) r.Value = Target.Value Target.Formula = "=vlookup($J$5,Dados!$B:$GS," & Trim(CStr(c - 1)) & ",0)" End If End Sub[/code]

então, quando você vai instalar o windows xp, você tem q passar tipo um driver pra ele reconhecer o sata. normalmente esse driver vem no cd da placa mae, você tem q grava-lo no disquete de 3 e 1/2 e ai na hora de instalar o windows você dexa o disquete no driver e fica de olho nas mensagens q da no comeco, porque acho q você tem q apertar alguma coisa pro windows saber q vai precisar ler do disquete. caso você não tenha o driver de disquete (o q é muito comum hj em dia), não sei como proceder.

vai ter q executar o select de novo.

ta la o codigo no tópico q eu passei. é so chamar aquela funcao no lostfocus, ue.

olhai, deve ser isso: Public Function UltimoDia(ByVal dia As Integer) As Date Dim data As Date data = Date Do While Weekday(data) <> dia data = DateAdd("d", -1, data) Loop UltimoDia = data End Function[/code] ai é so você passar um numero referente ao dia da semana como parametro. exemplo: [code]MsgBox UltimoDia(1) 'ultimo domingo MsgBox UltimoDia(2) 'ultima segunda feira MsgBox UltimoDia(3) 'ultima terca feira

acho q seria isso ó: Select cod, nome, Sum(a.nota1) As nota1, Sum(a.nota2) As nota2 From Notas Group By cod, nome

então, o DateDiff() so faz ano menos ano, ele não considera os meses e dias. veja aqui como calcular idade: http://scriptbrasil.com.br/forum/index.php?showtopic=108907

veja se esse tópico ajuda: http://scriptbrasil.com.br/forum/index.php?showtopic=108907

se entendi o q você quer, imagino pra você duas opcoes: 1 - você recomenda aos usuarios q usem o programa sempre com resolucao certa da tela. ou você mudaria a resolucao da tela por codigo. entretanto não sei esse codigo, mas lembro de já ter ouvido falar, talvez aqui mesmo no forum, alguma api ou coisa assim pra mudar a resolucao da tela. mas não acho isso legal, o usuario acho q não vai gostar se a resolucao mudar ne. 2 - essa seria a melhor opcao. sempre recomendo nunca fazer programas com resolucoes maiores q 800x600. ou seja, o q você teria q fazer seria diminuir o tamanho da sua janela. se for preciso, você poe umas barras de rolagem.

isso, foi isso q eu quis dizer no post ali em cima. eu tava te respondendo na quarta, quando eu tava no trampo so q ai tive q parar pra ver otras coisas la e não deu. ai voltei hj aqui pra ver, q bom q resolveu, falou.

opa marcio, tópico fechado por duplicacao. você já tinha postado antes aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=139127 se não te responderam é porque não sabem a resposta. alem do mais o seu tópico ainda ta entre os primeros (so tem 3 dias), tem q ter paciencia, se alguém q acessa o forum souber, logo vai responder la. ai se o tópico passar um bom tempo sem ter resposta, e você quiser dar um toque la q ainda ta precisando, pra chamar a atencao de novos membros, etc, ai sem problemas, mas não vai ficar abusando de ups, senao terei q apagar, beleza??

então, você ve pela propriedade Index. por exemplo: Private Sub txtDadosPrincipais_KeyPress(Index As Integer, KeyAscii As Integer) If Index = 2 Then If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> vbKeyBack Then KeyAscii = 0 End If End If End Sub[/code] pois nessa linha você setou q o txtFone era o indice 2: [code]Set txtFone = txtDadosPrincipais(2) agora, se você tiver q fazer um if pra cada textbox e ai você achar q o codigo da sub for ficar muito gde e muito confuso, você pode separar em varias subs. ai por exemplo, no evento KeyPress principal, td o q você faria seria testar os indices e chamar a sub correspondente.

então, faca a formula, mas use ela so pro calculo. na hora demostrar o campo1, você mostra o campo original.

sim, declare la em cima no generals e os objetos vao valer pra todas as subs do formulario. olha o codigo q eu passei, eu declarei antes do form load. é so você por ela la na primera linha de todas, não precisa declarar como publica no module.