[Resolvido]Gerador de Etiquetas

Ola pessoal.


Preciso de mais uma ajuda.
De repente, sem nenhuma modificaçao no formulario/procedimento ao executar uma funçao que e' copiar uma referencia de produto e copiar para depois imprimir varias etiquetas vem uma mensagem "comando ou açao Colaracrescimo nao esta disponivel agora"
Este formulario sempre foi usado e agora este erro. Eu acredito que esteja relacionado a alguma referencia nao declarada. (Ferramentas/referencia)
Percebo que e alguma referencia relacionada a funçao DoCmd.DoMenuItem acFormBar, acEditMenu. acredito que alguma referencia foi desativada.
Vi num post que nosso colega Harysohn passou por este mesmo erro porem o post esta como resolvido e lendo o mesmo post nao encontrei soluçao.

O codigo que sempre funcionou e' este a seguir...

Option Compare Database
Option Explicit
----------------------------------------------
Private Sub DataM_Exit(Cancel As Integer)
On Error GoTo Err_Copia_Dados_Click

Dim datax As Control
Set datax = Forms![Produtos Para Etiquetar]![DataM]

If datax = 1 Then
GoTo line1

ElseIf datax > 1 Then
While datax > 1

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
Let datax = datax - 1

Wend

DoCmd.GoToRecord , , acNewRec

line1:
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Ref"

End If

Exit_Copia_Dados_Click:
DoCmd.GoToRecord , , acNewRec

Exit Sub
DoCmd.GoToRecord , , acNewRec

Err_Copia_Dados_Click:
MsgBox Err.Description
Resume Exit_Copia_Dados_Click

End Sub
----------------

Desde ja agradeço

Ola a todos.

Desenvolvi ha um tempo atras este gerador de etiquetas. O operador entra com o codigo do produto e a quantidade de etiquetas deste produto e manda imprimir. O gerador funcionava legal ate que por algum motivo deixou de funcionar, criei outro formulario, aproveitei o mesmo codigo, alterando os comandos de menu para VBA porem nao gera mais de duas etiquetas do mesmo codigo. Vou colocar aqui e se alguem tiver uma ideia para melhorar o gerador sera bem vinda.

Obrigado a todos

Boas Tonosat, não enviaste o modelo, favor reenvia-lo.

Cumprimentos.

Boas Tonosat, percebi que abriu dois tópicos para a mesma dúvida. Evite abrir topicos com conteúdo repetido.

Este tópico será fundido ao outro tópico.


Cumprimentos.

Resolvido

Quem precisar, use o procedimento abaixo no campo DataM ao sair.


Private Sub DataM_Exit(Cancel As Integer)
On Error GoTo Err_Copia_Dados_Click

Dim datax As Control
Set datax = Forms![Produtos Para Etiquetar]![DataM]

If datax = 1 Then
GoTo line1

ElseIf datax > 1 Then
While datax > 1

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
Let datax = datax - 1

Wend

DoCmd.GoToRecord , , acNewRec

line1:
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Ref"

End If

Exit_Copia_Dados_Click:
DoCmd.GoToRecord , , acNewRec

Exit Sub
DoCmd.GoToRecord , , acNewRec

Err_Copia_Dados_Click:
MsgBox Err.Description
Resume Exit_Copia_Dados_Click

End Sub

Resolvido

o Fórum agradece o retorno.