[Resolvido]Emitir só uma Mensagem

Boa Noite
Tenho esta função da autoria do Mestre JPaulo
E funciona perfeito.

Só que emite esta mensagem
"MsgBox "Movimentos Pendentes Registados", vbQuestion, "Gestão de Vendas"
por cada registo que estiver em condições de ser transportado da tabela "tblVendasData" para a tabela "tblVendas".

Será que dá para emitir só uma mensagem independentemente dos registos a transportar?


Private Sub Form_Load()

Dim rst, rst1 As Recordset
Set rst = CurrentDb.OpenRecordset("select * from tblVendasData")
Set rst1 = CurrentDb.OpenRecordset("select * from tblVendas")

If rst.RecordCount = 0 Then Exit Sub
rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
'se a Data for igual a Hoje, adiciona na tabela tblVendas e apaga da tabela tblVendasData
If rst.Fields("Data").Value <= Date Then
rst1.AddNew

rst1.Fields("ID").Value = Nz(DMax("Id", "tblVendas")) + 1
rst1.Fields("CodigoControle").Value = rst.Fields("CodigoControle").Value
rst1.Fields("Data").Value = rst.Fields("Data").Value
rst1.Fields("Despesa").Value = rst.Fields("Despesa").Value
rst1.Fields("Rubrica").Value = rst.Fields("Rubrica").Value
rst1.Fields("Vlr").Value = rst.Fields("Vlr").Value
'adiciona na tabela tblVendas
rst1.Update
MsgBox "Movimentos Pendentes Registados", vbQuestion, "Gestão de Vendas"
'apaga na tabela tblVendasData
rst.Delete
Else
'se não encontra não faz nada
End If
rst.MoveNext
Loop
Set rst = Nothing
Me.Recalc
End Sub

Olá, tente mudar a linha da mensagem para depois da linha do Loop e teste para ver.

Exatamente isso, enquanto estiver em loop vai dar uma mensagem por registro.

Tem de fazer como o Criquio lhe passou, msgbox depois do loop, ou seja quando terminar.

Bom dia amigos

JPaulo e Criquio

Passei a menssagem para depois do Loop, e agora ao abrir o form "Movimentação" mesmo que não tenha nenhum registo a passar dá a mensagen na mesma.

A ideia é ao abrir o form "Movimentação", se na tabela "tblVendasdata" tiver registos com data igual ou inferior à data do sistema, passar os mesmos para a tabela "tblVendas"

Obrigado

Private Sub Form_Load()
Dim x As Variant
On Error Resume Next

Dim rst, rst1 As Recordset

Set rst = CurrentDb.OpenRecordset("select * from tblVendasData")
Set rst1 = CurrentDb.OpenRecordset("select * from tblVendas")

x = 0

If rst.RecordCount = 0 Then Exit Sub

rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
'se a Data for igual a Hoje, adiciona na tabela tblVendas e apaga da tabela tblVendasData
If rst.Fields("Data").Value <= Date Then
x = 1
rst1.AddNew
rst1.Fields("ID").Value = Nz(DMax("Id", "tblVendas")) + 1
rst1.Fields("CodigoControle").Value = rst.Fields("CodigoControle").Value
rst1.Fields("Data").Value = rst.Fields("Data").Value
rst1.Fields("Despesa").Value = rst.Fields("Despesa").Value
rst1.Fields("Rubrica").Value = rst.Fields("Rubrica").Value
rst1.Fields("Vlr").Value = rst.Fields("Vlr").Value
'adiciona na tabela tblVendas

rst1.Update

'MsgBox "Movimentos Pendentes Registados", vbQuestion, "Aviso"

'apaga na tabela tblVendasData
rst.Delete
Else
'se não encontra não faz nada
End If

rst.MoveNext

Loop
If x = 1 Then
MsgBox "Movimentos Pendentes Registados", vbQuestion, "Aviso"
Else
End If
Set rst = Nothing

Me.Recalc

End Sub

Funfou declarando a variavel ?

Obrigado JPaulo

Perfeito

E como informar na mensagem os registos que foram transferidos ?

Obrigado

Assis,

Com a permissão do Grande JPaulo,

Private Sub Form_Load()
Dim x As long
On Error Resume Next

Dim rst, rst1 As Recordset

Set rst = CurrentDb.OpenRecordset("select * from tblVendasData")
Set rst1 = CurrentDb.OpenRecordset("select * from tblVendas")

x = 0

If rst.RecordCount = 0 Then Exit Sub

rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
'se a Data for igual a Hoje, adiciona na tabela tblVendas e apaga da tabela tblVendasData
If rst.Fields("Data").Value <= Date Then
x = x+1
rst1.AddNew
rst1.Fields("ID").Value = Nz(DMax("Id", "tblVendas")) + 1
rst1.Fields("CodigoControle").Value = rst.Fields("CodigoControle").Value
rst1.Fields("Data").Value = rst.Fields("Data").Value
rst1.Fields("Despesa").Value = rst.Fields("Despesa").Value
rst1.Fields("Rubrica").Value = rst.Fields("Rubrica").Value
rst1.Fields("Vlr").Value = rst.Fields("Vlr").Value
'adiciona na tabela tblVendas

rst1.Update

'MsgBox "Movimentos Pendentes Registados", vbQuestion, "Aviso"

'apaga na tabela tblVendasData
rst.Delete
Else
'se não encontra não faz nada
End If

rst.MoveNext

Loop
If x >0 Then
MsgBox x & "Movimentos Pendentes Registados", vbQuestion, "Aviso"
Else
End If
Set rst = Nothing

Me.Recalc

End Sub

Obrigado Alexandre

Excelente ajuda ajuda Grande Alexandre, eu ia pelo rst1.RecordCount, mas como está, também está perfeito.

Bom fim de semana.