[Resolvido]Dúvida sobre Recordset Consulta ENTRE numeros de registros

Amigos necessito de uma ajudinha.

Como fazer corretamente o código abaixo, necessito de uma consulta que pqgue somente registros entre duas combos, exemplo

na cboReg1 = 1 e cboReg2 =3
então a consulta pega somente registros de 1 a 3

O que acontece é que se eu fizer isso na consulta da erro, então penso que deve ser com Recordset

Set rst = CurrentDb.OpenRecordset("Select * from tblEmailBannerQry ID_Email_Banner_Fonte ENTRE Me.cboReg1 E Me.cboReg2)

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("e_mail") & ";"
rst.MoveNext
Loop

Set rst = CurrentDb.OpenRecordset("Select * from tblEmailBannerQry where ID_Email_Banner_Fonte Between Me.cboReg1 and Me.cboReg2")

Deu não tem parametro errado aqui.

Boa tarde Gilberto,

Tente assim:

CurrentDb.OpenRecordset("Select * from tblEmailBannerQry where (((ID_Email_Banner_Fonte ) Between Forms!NomeDoForm!cboReg1 and Forms!NomedoForm!cboReg2));")

Sds,

fiz assim e ainda da erro de parametro:

Set rst = CurrentDb.OpenRecordset("Select * from tblEmailBannerFontedeRegistros where (((ID_Email_Banner_Fonte) Between Forms!FrmEnviaBannerEmail!cboReg1 and Forms!FrmEnviaBannerEmail!cboReg2));")

troque os ultimos pontos de exclamação por PONTO

acho que é assim, vê se dá certo:

Set rst = CurrentDb.OpenRecordset("Select * from tblEmailBannerFontedeRegistros where (((ID_Email_Banner_Fonte) Between Forms!FrmEnviaBannerEmail.cboReg1 and Forms!FrmEnviaBannerEmail.cboReg2));")

Nada
Parametros insuficientes eram esperados 2

Amigão veja se isto serve para o que pretende.

Adaptei um exemplo de consulta do mestre JPaulo, não é por recordset valeu?

Teste_Consulta

Sds,

Então colega, desse jeito eu havia feito, funciona certinho, mas em meu caso não pode ser pois tem essa parte que pega todos os registros para enviar por email

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("e_mail") & ";"
rst.MoveNext
Loop

E desse jeito ai como eu preencheria minha textbox com os dados da consulta para enviar para os emails?

Então acho que deve ser por recordset

vc tentou trocar os 2 pontos de exclamação?

Forms.FrmEnviaBannerEmail.cboReg1

Sds,

Troquei sim

Gilberto, vc tem um form, quer selecionar entre os registros 1 a 15 e preencher a textbox do destino do email, é isso?

vc pode publicar a rotina do botão?

Estou interessado nisto tb.

É isso mesmo colega, da pra fazer sim, jaja irei upar pra vc ver.
Mas ainda falta o parametro correto.

Private Sub btenvioTodos_Click()
'Enviar emails com imagens de Web no corpo do email
Dim x As String
Dim strDestinatarios
Dim strAplicacao As Outlook.Application
Dim objMail As Outlook.MailItem
Dim strFicheiro As String
Dim strHtml As String
Dim rst As DAO.Recordset

x = DCount("*", "tblEmailBannerQry")

If Me.cxTotalRegistros.Value = 0 Then
MsgBox "Não existem emails cadastrados para o envio...", vbInformation, "Cancelando Envio"
Me.cboReg2.SetFocus
Exit Sub
DoCmd.CancelEvent
End If


'On Error Resume Next
'If IsNull(Me.Para) = True Then
'MsgBox "Digite ou selecione os destinatários", vbInformation, "Atenção"
'Me.Para.SetFocus
'Exit Sub
'Else
'End If

If IsNull(Me.txtTitulo) = True Then
MsgBox "Digite um título para o email", vbInformation, "Atenção"
Me.txtTitulo.SetFocus
Exit Sub
Else
End If

'Esse funciona perfeitamente, mas da erro pois a consulta baseia-se em um form enttão da pau no rst
'Set rst = CurrentDb.OpenRecordset("tblEmailBannerQry")

Set rst = CurrentDb.OpenRecordset("Select * from tblEmailBannerFontedeRegistros where (((ID_Email_Banner_Fonte) Between Forms!FrmEnviaBannerEmail.cboReg1 and Forms!FrmEnviaBannerEmail.cboReg2));")

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("e_mail") & ";"
rst.MoveNext
Loop

If x >= 2 Then
strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 0)
Else
MsgBox "Para enviar este email, é necessário mais de 2 emails cadastrados"
DoCmd.CancelEvent
Exit Sub
End If

strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
Me.Para.Value = strDestinatarios
Set strAplicacao = New Outlook.Application
Set objMail = strAplicacao.CreateItem(olMailItem)
With objMail
.BodyFormat = olFormatHTML
.Subject = Me.txtTitulo

strHtml = ""
.HTMLBody = strHtml
.To = strDestinatarios
rst.Close
Set rst = Nothing

On Error Resume Next
.display

If err.Number = 287 Then
End
End If
End With

De uma olhada ai, é um código modificado do exemplo do JPaulo Envia emails para varios destinatários

Cara, em VBA vc tem que criterizar as combos com aspas

veja o codigo abaixo, e adapte para vc :

Código:

Private Sub SeuBotao_Click()

Dim rst As DAO.Recordset
Dim strDestinatarios
Dim strTitulo
Dim strMensagemCorpoDoEmail
Dim strsql As String
strsql = "SELECT Nome "
strsql = strsql & "FROM tblCONTATOS "
strsql = strsql & "WHERE (((tblCONTATOS.Id_Cliente) Between " & Me.Cbo01 & " And " & Me.Cbo02 & "));"
Set rst = CurrentDb.OpenRecordset(strsql)

Do Until rst.EOF
    strDestinatarios = strDestinatarios & rst("Nome") & ";"
    rst.MoveNext
Loop
   
    strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
    strTitulo = "teste"
    strMensagemCorpoDoEmail = "Obrigado"
   
On Error Resume Next
    DoCmd.SendObject , , , strDestinatarios, _
    , , strTitulo, strMensagemCorpoDoEmail, True, False
   
rst.Close
Set rst = Nothing
End Sub


perfeito amigo, eu imaginava que era aspas mas não estava conseguindo fazer.
Muito obrigado amigo.

Apenas concluindo, agora posso enviar emails em lotes, ou seja como há limite de envio de emails, posso enviar de 100 em 100 por exemplo.

Ainda no corpo do email mando uma imagem online.

Valeu amigão,

Achei muito funcional codigo do Grande Jpaulo também, até vou

adaptar a uns relatorios que mando pro pessoal.

Sds,