MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Gerador de Etiquetas

    avatar
    tonosat
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 08/09/2011

    [Resolvido]Gerador de Etiquetas Empty Gerador de Etiquetas

    Mensagem  tonosat em 5/6/2012, 00:15

    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


    Última edição por tonosat em 6/6/2012, 02:19, editado 1 vez(es)
    avatar
    tonosat
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 08/09/2011

    [Resolvido]Gerador de Etiquetas Empty Gerador de Etiquetas

    Mensagem  tonosat em 6/6/2012, 01:50


    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Gerador de Etiquetas Empty Re: [Resolvido]Gerador de Etiquetas

    Mensagem  HARYSOHN em 6/6/2012, 01:54

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

    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Gerador de Etiquetas Empty Re: [Resolvido]Gerador de Etiquetas

    Mensagem  HARYSOHN em 6/6/2012, 01:59

    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.
    avatar
    Convidad
    Convidado

    [Resolvido]Gerador de Etiquetas Empty Re: [Resolvido]Gerador de Etiquetas

    Mensagem  Convidad em 6/6/2012, 02:02


    Este exemplo permite definir a quantidade de etiquetas a imprimir e aproveita folhas já usadas parcialmente.

    Talvez seja útil.

    http://maximoaccess.forumeiros.com/t5416-controle-de-impressao-de-etiquetas

    avatar
    tonosat
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 08/09/2011

    [Resolvido]Gerador de Etiquetas Empty Re: [Resolvido]Gerador de Etiquetas

    Mensagem  tonosat em 6/6/2012, 23:50

    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

    avatar
    tonosat
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 08/09/2011

    [Resolvido]Gerador de Etiquetas Empty Re: [Resolvido]Gerador de Etiquetas

    Mensagem  tonosat em 6/6/2012, 23:52


    Resolvido
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Gerador de Etiquetas Empty Re: [Resolvido]Gerador de Etiquetas

    Mensagem  HARYSOHN em 7/6/2012, 19:04

    o Fórum agradece o retorno.

    Conteúdo patrocinado

    [Resolvido]Gerador de Etiquetas Empty Re: [Resolvido]Gerador de Etiquetas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/6/2019, 21:52