[Resolvido]Ajuda com codigo de copiar SE >1

Olá
gostaria da ajuda de vocês com esse meu problema que até o momento nãot em solução.

Eu estou criando um programa em access para trabalhar em conjunto com outro programa que utilizo em VB, e um dos processos eu não estou conseguindo configurar.

Hoje eu tenho um formulario que utilizo esse codigo

Private Sub Form_Load()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Nota FROM tbl1")

Do While Not rs.EOF

If IsNull(Me.txtCopiar) Or Me.txtCopiar.Value = "" Then
Me.txtCopiar = rs!Nota
Else
Me.txtCopiar = Me.txtCopiar & vbCrLf & rs!Nota
End If

rs.MoveNext

Loop

rs.Close
Set rs = Nothing

Me.txtCopiar.SetFocus
DoCmd.RunCommand acCmdCopy
End Sub

Como utilizo o codigo:
foi criado uma macro para abrir o formularia e copiar a coluna nota da tbl1, assim que ele copia, a macro roda um codigo vb que faz integração com meu outro programa.

Problema
Essa macro roda 3x com tbl1,2 e 3 o problema que nem sempre tem informação em todas tabelas e quando não existe informação, assim que ele tenta executar o codigo vb o programa da um erro e trava a macro, porque o campo nota no outro programa ficou em branco.

Ajuda

Eu gostaria de adicionar no meu formulario um campo para contar as notas, caso o número for >1 ele copia e continua o processo.Isso é possível?

Faça um count ao recordset;

If rs.RecordCount = 0 Then Exit Sub

Grato pela resposta e desculpa a demora no retorna mas eu estava tentando entender a ideia. Como eu poderia usar ele? poderia explicar, por favor

nesse caso ele para de executar o codigo inteiro ou ele pula para o proximo? Vou executar alguns testes e retorno com a resposta. Grato pela ajuda

Faça assim;


Private Sub Form_Load()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Nota FROM tbl1")

If rs.RecordCount = 0 Then Exit Sub

Do While Not rs.EOF

If IsNull(Me.txtCopiar) Or Me.txtCopiar.Value = "" Then
Me.txtCopiar = rs!Nota
Else
Me.txtCopiar = Me.txtCopiar & vbCrLf & rs!Nota
End If

rs.MoveNext

Loop

rs.Close
Set rs = Nothing

Me.txtCopiar.SetFocus
DoCmd.RunCommand acCmdCopy
End Sub

Infelizmente isso não resolveu, pelo seguinte motivo


Eu tenho meu modulo e assim que eu aperto um botão no access ele começa rodar os códigos no modulo, chega em uma etapa que dentro do modulo esta "rocmd.runmacro "mcrcopiar" essa macro que ele abre é esse código que você acabou de copiar, então oq ele esta fazendo agora. Ele abre e caso não tenha nada pra copiar ele não executa MAS depois disso ele volta pro modulo e tenta colar porque a parte de colar é fora dessa macro. Seria possível adicionar um codigo no modulo para ver se na tabela que eu copio existe informação? caso não exista é só ele pular o código que cola, porque o problema não é copiar, o real problema é ele tentar colar sem ter nada.

Grato pela colaboração

Boa tarde

gostaria de completar a informação falando que consegui colocar o codigos funcionando mas ainda falta uma coisa.

Agora ele ficou assim

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Nota FROM tbLib")

If rs.RecordCount = 0 Then Exit Sub

DoCmd.RunMacro "mcrAbrirFrmCop"

não sabia que era possivel colocar o codigo dentro do modulo =D.... agora voltando ao assunto, o unico problema que na hora de ele verificar, eu quero que ele não termine o codigo eu preciso que ele só pule a linha dessa macro e continue testando os outros codigos. Tem como fazer isso?

Essa Macro deve ter varias linhas para correr, converta essa Macro em Modulo e cole aqui toda a instrução para vermos.

JPaulo, consegui uma solução.

Eu dividi o meu codigo em varios

ae ficou da seguinte forma


Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Nota FROM tbLib")

If rs.RecordCount = 1 Then fncmcrAbrirFrmCop

Set rs = CurrentDb.OpenRecordset("SELECT Nota FROM tbLib1")

If rs.RecordCount = 1 Then fncmcrAbrirFrmCop1

ficou maior mas foi a solução que achei, foi muito util sua ideia. Grato pela ajuda.


Agora só falta eu conseguir mudar o padrão da minha data, porque quando eu pego ela do meu relatorio ela esta saindo como 17.04.2013 e eu preciso adicionar +3 dias nessa data mas o codigo só funciona quando é 17/04/2013. Topico resolvido e grato pela colaboração.