MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco

    avatar
    wbonelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/04/2011

    Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco Empty Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco

    Mensagem  wbonelli 29/11/2016, 12:18

    Bom dia pessoal!
    Tenho um script fornecido por um amigo ja ha anos para geração de boletos do Bradesco Carteira 06. Nunca deu erro.
    Hoje resolveu criar problemas e eu não sei o motivo.
    Aparece este erro quando tento gerar:
    "Erro em Tempo de Execução 3251:
    Operação não suportada para este tipo de objeto

    abaixo segue o código e onde está dando o erro:
    Todas as tabelas são locais.
    Obrigado se puderem ajudar.
    Wagner

    Static Function codebar(t44 As String) As String

    Const sinaldestart = "!"
    Dim X As Byte, xpar As String
    Dim rs_barras As DAO.Recordset

    Set rs_barras = CurrentDb.OpenRecordset("atblbarras", dbOpenSnapshot)
    rs_barras.Index = "PrimaryKey"
    codebar = sinaldestart
    For X = 1 To 44 Step 2
    xpar = Mid$(Trim(t44), X, 2)
    'rs_barras.FindFirst "=", xpar
    rs_barras.Seek "=", xpar
    If rs_barras.NoMatch Then
    codebar = String(22, "0")
    MsgBox "Erro na geração do código de barras", vbInformation
    Exit Function
    End If
    codebar = codebar & rs_barras![bar]
    Next X
    codebar = codebar & Chr$(34)
    rs_barras.Close

    End Function

    wbonelli
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco Empty Re: Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco

    Mensagem  =>Nois 29/11/2016, 15:32

    tente tratar o erro colocando acima de sua função

    On Error Resume Next


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    wbonelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 02/04/2011

    Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco Empty Re: Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco

    Mensagem  wbonelli 11/12/2016, 22:27

    OI Nóis, boa noite!
    Desculpe a demora em responder, mas tive alguns problemas e não consegui retornar aqui para dar um feedback.
    Então, consegui resolver o problema com a ajuda em um outro forum sobre access, aqui coloco a resposta caso ajude a outros que tenham o mesmo problema:

    _____________________
    Sugestões.

    Tente trocar o dbOpenSnapshot por Snapshot sómente.
    Se ainda não der certo suprime o dbOpenSnapshot no comando de abertura do Recordset.

    Aldo Cres


    Obrigado!
    Waqgner

    Conteúdo patrocinado


    Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco Empty Re: Erro em Tempo de Execução 3251, geração de código de barras Boleto Bradesco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 08:58