Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
![[Resolvido]Somar campo no Recordset Marcel11](https://i.servimg.com/u/f16/19/98/66/47/marcel11.png)
![[Resolvido]Somar campo no Recordset Empty](https://2img.net/i/empty.gif)
wesleymeim 27/10/2014, 17:03
Private Sub bt_visualizar_dados_teste_Click()
Dim cn As ADODB.Command 'Declarando variável de conexão
Dim rss As New ADODB.Recordset
Dim rs_rrdetail As ADODB.Recordset
Dim sql As String
Dim cns As New ADODB.Connection
Set cn = New ADODB.Command 'Variável de conexão recebendo a conexão
On Error GoTo Tratamento
DoCmd.OpenForm "frm_carregando_registros"
Form_frm_carregando_registros.Repaint
'No bloco abaixo temos o procedimento de conexão e execução da SP
With cn
.ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=11.111.111.19;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DEBRBRG310F27X;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Base"
.CommandType = adCmdText
.CommandText = "" & "datas_view " & "'" & Right(Form_frm_View_notas_fiscais.txt_dtini, 4) & "-" & Mid(Form_frm_View_notas_fiscais.txt_dtini, 4, 2) & "-" & Left(Form_frm_View_notas_fiscais.txt_dtini, 2) & "'" & " , " & "'" & Right(Form_frm_View_notas_fiscais.txt_dtfim, 4) & "-" & Mid(Form_frm_View_notas_fiscais.txt_dtfim, 4, 2) & "-" & Left(Form_frm_View_notas_fiscais.txt_dtfim, 2) & "'" & ""
.Execute
End With
cn.ActiveConnection.Close 'Fecha a conexão com o Banco de Dados
Set cn = Nothing
cns.Provider = "SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=11.111.111.19;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DEBRBRG310F27X;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Base"
cns.Open
Set rss = New ADODB.Recordset
Set rss.ActiveConnection = cns
sqls = "select dtemi_nf, numdoc_nf, id_produto, num_pedido, cfop_nf, num_nf, cpagto_nf, id_cliente, id_estab,prliq_nf from teste_datas_nf order by dtemi_nf desc"
rss.CursorLocation = adUseClient
rss.Open sqls, cns, adOpenForwardOnly 'adLockPessimistic (Permitir alteração)
txt_tot_registros = rss.RecordCount
Set rs_rrdetail = rss
Set rss = Nothing
Set cns = Nothing
Set Me.Recordset = rs_rrdetail
With rs_rrdetail
If .BOF And .EOF Then
MsgBox "Não temos registros para exibição", vbInformation
Else
Form_frm_View_notas_fiscais.txt_dtemi_nf.ControlSource = .Fields("dtemi_nf").Name
Form_frm_View_notas_fiscais.txt_numdocnf.ControlSource = .Fields("numdoc_nf").Name
Form_frm_View_notas_fiscais.txt_Id_Produto.ControlSource = .Fields("id_produto").Name
Form_frm_View_notas_fiscais.txt_num_pedido.ControlSource = .Fields("num_pedido").Name
Form_frm_View_notas_fiscais.txt_cfop_nf.ControlSource = .Fields("cfop_nf").Name
Form_frm_View_notas_fiscais.txt_num_nf.ControlSource = .Fields("num_nf").Name
Form_frm_View_notas_fiscais.txt_cpagto_nf.ControlSource = .Fields("cpagto_nf").Name
Form_frm_View_notas_fiscais.txt_cod_cliente.ControlSource = .Fields("id_cliente").Name
Form_frm_View_notas_fiscais.txt_id_estab.ControlSource = .Fields("id_estab").Name
Form_frm_View_notas_fiscais.txt_pr_liq_nf.ControlSource = .Fields("prliq_nf").Name
End If
End With
Form_frm_View_notas_fiscais.txt_dtini.SetFocus
DoCmd.Close acForm, "frm_carregando_registros", acSaveYes
Exit Sub
Tratamento:
MsgBox Err.Number & " - " & Err.Description
End Sub![[Resolvido]Somar campo no Recordset Attachment](https://2img.net/i/fa/attachment.png)
TelaForm.docx 
...
Dim dblSoma as Double
...
...
Set rs_rrdetail = rss
Set rss = Nothing
Set cns = Nothing
Set Me.Recordset = rs_rrdetail
Do While Not rs_rrdetail.EOF
dblSoma = dblSoma + rs_rrdetail!prliq_nf
rs_rrdetail.MoveNext
loop
me!txt_tot_faturado = dblSoma
...
Dim varTabela as variant
Dim k as long, j as long
k= rs_rrdetail.RecordCount
varTabela = rs_rrdetail.GetRows(k)
Crie o loop com o FOR
For j= 0 to (k-1)
dblSoma = dblSoma + varTabela(9, j)
next
With rs_rrdetail
If .BOF And .EOF Then
MsgBox "Não temos registros para exibição", vbInformation
Else
Form_frm_View_notas_fiscais.txt_dtemi_nf.ControlSource = .Fields("dtemi_nf").Name
Form_frm_View_notas_fiscais.txt_numdocnf.ControlSource = .Fields("numdoc_nf").Name
Form_frm_View_notas_fiscais.txt_Id_Produto.ControlSource = .Fields("id_produto").Name
Form_frm_View_notas_fiscais.txt_num_pedido.ControlSource = .Fields("num_pedido").Name
Form_frm_View_notas_fiscais.txt_cfop_nf.ControlSource = .Fields("cfop_nf").Name
Form_frm_View_notas_fiscais.txt_num_nf.ControlSource = .Fields("num_nf").Name
Form_frm_View_notas_fiscais.txt_cpagto_nf.ControlSource = .Fields("cpagto_nf").Name
Form_frm_View_notas_fiscais.txt_cod_cliente.ControlSource = .Fields("id_cliente").Name
Form_frm_View_notas_fiscais.txt_id_estab.ControlSource = .Fields("id_estab").Name
Form_frm_View_notas_fiscais.txt_pr_liq_nf.ControlSource = .Fields("prliq_nf").Name
End If
End With
Do While Not rs_rrdetail.EOF
dblSoma = dblSoma + rs_rrdetail!prliq_nf
rs_rrdetail.MoveNext
loop
me!txt_tot_faturado = dblSoma
|
|
|