MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Erro Objeto é Obrigatorio

    Compartilhe

    Leolobo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2014

    Erro Objeto é Obrigatorio

    Mensagem  Leolobo em Qua 10 Dez - 20:00

    Estou com um problema quando faco um CALL da função abaixo abre uma caixa de mensagem dizendo Objeto é Obrigatorio. Como estou em busca de aprendizado e não consegui sair do problema , agradeço se Alguem pudesse ajudar !!
    Private Sub ImprimeTeste()
    Dim intPorta As Integer
    Dim strTexto As String
    On Error GoTo Tratamento
    MSComm.CommPort = "9" 'com9'
    'Configura a porta serial'
    MSComm.Settings = "9600,n,8,2"
    'Controla o Fluxo de Dados'
    MSComm.Handshaking = comRTSXOnXOff
    'Abre a porta serial'
    MSComm.PortOpen = True
    'Define um avanço no papel após a impressão'
    MSComm.Output = f256 & Chr$(13)
    'Define o Off set de coluna'
    MSComm.Output = LC0005 & Chr$(13)
    'Define o Off set de linha'
    MSComm.Output = R0000 & Chr$(13)
    'Define o tamanho do Pixel'
    MSComm.Output = D11 & Chr$(13)
    'Seleciona o zero não cortado'
    MSComm.Output = z & Chr$(13)
    'Define o calor de impressão'
    MSComm.Output = H09 & Chr$(13)
    'CAMPOS DA ETIQUETA:'
    MSComm.Output = "102200100650025" & _
    "SOFTWARE" & Chr$(13) 'Categoria'
    MSComm.Output = "102200100550015" & _
    "VISUAL BASIC" & Chr$(13)
    MSComm.Output = "102200100550095" & _
    "MICROSOFT" & Chr$(13) 'Marca'
    MSComm.Output = "102200100450015" & _
    "STANDARD" & Chr$(13) 'Tipo'
    MSComm.Output = "102200100450105" & _
    "2003" & Chr$(13) 'Versão'
    MSComm.Output = "102200100350015" & _
    ".NET" & Chr$(13) 'Família'
    MSComm.Output = "102200100350095" & _
    "65955690" & Chr$(13) 'Código'
    MSComm.Output = "102200100250015" & _
    "FERRAMENTA DESENV" & Chr$(13) 'Descrição'
    'Código de barras (segunda letra minúscula)'
    MSComm.Output = "1e1202500000015" & _
    "65955690" & Chr$(13) 'letra e: padrão 128'
    MSComm.Output = "121100100150145" & _
    "R$" & Chr$(13) 'Preço (cifrão)'
    MSComm.Output = "121100100050145" & _
    "500" & Chr$(13) 'Preço'
    MSComm.Output = "Q" & Format(1, "0000") & _
    Chr$(13) 'Quantidade de cópias da etiqueta'
    'Termina a transmissão e inicia a impressão'
    MSComm.Output = "E" & Chr$(13)
    Do Until MSComm.OutBufferCount = 0
    Loop
    MSComm.PortOpen = False 'Fecha a porta'
    Exit Sub
    Tratamento:
    If Err = 8002 Then
    MsgBox "Porta serial inválida."""
    Exit Sub
    End If
    MsgBox Err.Description
    End Sub

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Erro Objeto é Obrigatorio

    Mensagem  JPaulo em Qui 11 Dez - 10:10

    Ola seja bem vindo ao forum.

    Se está a utilizar Ms Access, qual a versão ?


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Leolobo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2014

    Re: Erro Objeto é Obrigatorio

    Mensagem  Leolobo em Qui 11 Dez - 10:29

    Access 2013

    Leolobo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2014

    Re: Erro Objeto é Obrigatorio

    Mensagem  Leolobo em Qui 11 Dez - 19:11

    Olá o access que usamos é o 2013

      Data/hora atual: Qua 7 Dez - 14:13