webdeveloper

Que bom!

Tente alterar esta parte pra fazer um teste: recipients = Split(Request.Form("_recipients"), ",") for each name in recipients name = Trim(name) Response.Write name & "<br />" if not IsValidEmailAddress(name) then call AddErrorMsg("E-mail de destinatário inválido: " & name & ".") end if next Deve aparecer o nome dos destinatários, se não aparecer o problema está aí.

Tente assim: Private Sub TxtValorTotal.Text( ) Txtvalortotal.Text = Ccur(Iif(IsNull(MsFlexgrid.TextMatrix(1, 4)), 0, MsFlexgrid.TextMatrix(1, 4)) ) + (Iif(IsNull(Msflexgrid.TextMatrix(2, 4)), 0, Msflexgrid.TextMatrix(2, 4)) ) + (Iif(IsNull(MsFlexgrid.TextMatrix(3, 4)), 0, MsFlexgrid.TextMatrix(3, 4)) ) ... End Sub

Tente isso: strsql = "Update cidades set nome = " & "'" & txt_nome & "', estado = '" & cmb_estado & "', populacao = " & txt_pop & ", renda_per_capta = " & txt_rpc & " where codigo = " & txt_cod & " " Debug.Print sql 'db.Execute strsql Vá no menu View e clique em Immediate Window, execute o programa, quando fizer o update volte no VB e copie o conteúdo da Immediate Window, abra o Access e crie uma consulta SQL, cole este conteúdo e veja onde ele aponta o erro.

Eu também, tanto que não uso Data nem ADODC.

Pode ser por causa dos parenteses, e pela falta de espaço entre o fechamento do parentese e o where: strsql = "Update cidades set nome = " & "'" & txt_nome & "', estado = '" & cmb_estado & "', populacao = " & txt_pop & ", renda_per_capta = " & txt_rpc & " where codigo = " & txt_cod & " " db.Execute strsql

Mais ou menos isso: strTexto = "Amanha e ""tarde""" 'String contendo o texto primPos = InStr(strTexto, """") + 1 'Pega a primeira posicao da aspa preTexto = Mid(strTexto, primPos, Len(strTexto)) 'Prepara o texto para pegar a segunda posicao da aspa segPos = InStr(preTexto, """") - 1 'Pega a segunda posicao da aspa Response.Write = Mid(strTexto, primPos, segPos) 'Mostra o texto entre aspas

Tente assim: If Not rs_relatorio.EOF Then rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption = Iif(IsNull(rs_relatorio!totalCR), 0, rs_relatorio!totalCR) ' MARCOU ESTA LINHA COM O ERRO rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption = Iif(IsNull(rs_relatorio!totalCP), 0, rs_relatorio!totalCP) Dim somaCR As Currency Dim somaCP As Currency Dim dif As Currency somaCR = Iif(IsNull(rs_relatorio!totalCR), 0, rs_relatorio!totalCR) somaCP = Iif(IsNull(rs_relatorio!totalCP), 0, rs_relatorio!totalCP) dif = somaCR - somaCP

Exato.

strsql2 = "Update cidades set nome = " & "'" & txt_nome & "', estado = '" & cmb_estado & "', populacao = " & txt_pop & ", renda_per_capta = " & txt_rpc & " where ...."

Dá uma olhada aqui.

Ok.

Na minha opinião está faltando a cláusula WHERE, para alterar somente a cidade referida.

Só, o máximo que você vai conseguir com engenharia reversa é o códgo Assembly do programa.

Neste caso acho melhor usar o ADO Data Control (ADODC).

Como assim? Nesta Query que você está usando, ele faz update na tabela inteira, qual banco você está usando?

Você teria que pegar o código-fonte com quem desenvolveu.

Dá uma olhada aqui.

Faz uma Query e alimenta ele com ela: Data1.RecordSource = "SELECT Campo1, Campo2 FROM Tabela"

Tente assim: If Not rs_relatorio.EOF Then rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCR").Caption = Iif(rs_relatorio!totalCR Is Null, 0, rs_relatorio!totalCR) rptBalConPPagasConRReceb.Sections("Section5").Controls("lblSomaCP").Caption = Iif(rs_relatorio!totalCP Is Null, 0, rs_relatorio!totalCP) Dim somaCR As Currency Dim somaCP As Currency Dim dif As Currency somaCR = Iif(rs_relatorio!totalCR Is Null, 0, rs_relatorio!totalCR) somaCP = Iif(rs_relatorio!totalCP Is Null, 0, rs_relatorio!totalCP) dif = somaCR - somaCP

Faz essa Query no banco de dados e vê o que retorna, provavelmente o RecordSet não está retornando nulo.

Bom, primeiro tente calcular a diferença usando o DateDiff. Para que ele informar que faltam dez dias para expirar, teria que ficar executando a todo momento ou ser executado pelo menos uma vez por dia, checando e enviando o e-mail.

Dá uma olhada nas referências / dependências do projeto.

O campo cond_st_codigo é de que tipo na tabela itu_vw_condpagto? Se for numérico, retire as aspas simples: SQL = "SELECT * FROM mgitu.itu_vw_condpagto WHERE cond_st_codigo="&Session("CondPagto")&"" Outra coisa, antes de chamar o resultado do RecordSet, verifique se o mesmo retornou algo: If Not parcela.EOF Then total = parcela("cond_in_parcelas") If i = total Then i = 0 %> texto <% End If i = i +1 End If %>

Tente assim: ' Report Group Level SQL Public Property Get SqlGroupSelect() ' Select SqlGroupSelect = "SELECT DISTINCT Producao.Produtor,Producao.Produto FROM Producao" End Property Public Property Get SqlGroupWhere() ' Where SqlGroupWhere = "(Producao.Produtor = """ & Request.QueryString("Produtor") & """)" End Property