kuroi

mas é persists ou persits? o codigo que você postou esta assim: Set Mail = Server.CreateObject("Persits.MailSender") o certo seria esse: Set Mail = Server.CreateObject("Persists.MailSender")??

qual a linha 266?? acredito que seja esta: Set Mail = Server.CreateObject("Persits.MailSender") não?? tem certeza que seu servidor suporta esse componente persits.mailsender?? e você digitou certinho o nome dele?? da uma olhada nisso... ou você está rodando local??

você fez a conexao com o banco?? tipo o conn esta aberto e conectado com o banco??

sera que não é porque os dados tão duplicados no banco não??

e qual o problema??? tenta assim: CDbl((CDbl(textbox1.Text) * CDbl(label1.Caption))) + CDbl((CDbl(textbox2.Text) * CDbl(label2.Caption))) + CDbl(textbox3.Text)

o texto digitado em msk_dtMov.Text é mesmo uma data válida?? você tem que validar. por exemplo, se o cara digitar 30/02/2006, fevereiro não tem dia 30 e vai dar esse erro.

procura em http://www.sintegra.gov.br/ mas pelo que eu lembro, sintegra não tem arquivo de exportacao

fora que enquanto os estudantes pagam meia entrada, a gente paga so um quarto!!!

está errado na hora de criar. seria assim: Dim x() As String

o que eu disse aqui: hã... o primero indice vai ser sempre 0 não?? tipo, essa funcao lbound seria meio inutil, não??

você que pensa...

vixe, complicado. sera que não é sua selection formula não?? não ficou faltando uns espacos pra separar as expressoes, tipo assim: .SelectionFormula = "{Clientes.Filial}= '" & Wfilial & "'" & _ " and " & "{Clientes.Atividade}= '" & Watividade & "'"[/code]??

pra isso, você deve montar o relatorio igualzinho você quer que saia e dexar salvo o rpt. pelo visual basic, você altera a selection formula do rpt adaptando a consulta feita. você pode fazer um grupo seção, dentro um grupo setor, e dentro, nos details você listava cada funcionario. tenta aí qualquer coisa poste.

pega uma calculadora e vai somando registro por regsitro. brincadera, acho que é tipo isso o que você quer: Select Sum(Valor) as Soma from Tabela

tanto faz, não sei qual as diferencas entre as duas. recomendei a 2.0 porque é a que costumo usar. se você quiser por a 2.8 nas duas ou a 2.0 nas duas deve funcionar melhor.

então o do sql deve estar usando a referecencia de alguma outra versao do ADO. veja se não esta selecionado Microsoft ActiveX Data Controls 2.8, por exemplo.

esta na linha 111 do detalhes.asp

como esta o codigo que você esta usando??

porque na do sql já deve estar referenciada. você inclui no access a referencia?? sem ela você não cria nenhum controle ADODB.

qual é o erro?? e em que linha??

faca o seguinte, veja como fica a string "SELECT * FROM TABELA WHERE Empresa = '" & w_empresa & "'" e tente executa-la direto no banco de dados pra tentar ver onde esta o problema.

na linha gt.GridColumnStyles(coluna.Ordinal).Width = 30 ------------------------------------------------------------------------------------------ esse: eu descobri: [code]Dim cc As DataGridCell cc.RowNumber = 0 cc.ColumnNumber = gridPesquisa.CurrentCell.ColumnNumber gridPesquisa.CurrentCell = cc

e você tem certeza que no banco existe o que esta digitado no w_empresa?? e pra filtrar pelos dois campo faca assim: se você estiver usando access: "SELECT * FROM TABELA WHERE Empresa = '" & w_empresa.Text & "' And Data = #" & Format(msk_dtMov.Text, "YYYY-MM-DD") & "#" se você estiver usando sql ou otros bancos: "SELECT * FROM TABELA WHERE Empresa = '" & w_empresa.Text & "' And Data = '" & Format(msk_dtMov.Text, "YYYY-MM-DD") & "'" isso levando em conta que w_empresa seja uma TextBox e msk_dtMov uma MaskedBox.

sera que fica mais rapido assim? UPDATE ALUNO_ANTIGO INNER JOIN ALUNO_NOVO ON ALUNO_ANTIGO.COD_ALUNO = ALUNO_NOVO.COD_ALUNO SET ALUNO_ANTIGO.AINDA_ATIVO = 'S' WHERE ALUNO_NOVO.ATIVO= 'S'[/code]

nossa pode se uma pergunta meio tonta mais o que é mu e o que é o main dele??