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

    Erro ao abrir o access

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 89
    Registrado : 05/04/2016

    Erro ao abrir o access

    Mensagem  Luís Antunes em Sex 15 Abr 2016, 12:55


    Set fld = db.TableDefs(strNomesTab).Fields(0)
    esta linha de código, faz parte de um módulo, emite um erro ao abrir o access.
    Quando o programa não encontra as tabelas o código corre lindamente, quando
    tem as tabelas ligadas emite uma mensagem de erro.
    Como posso omitir a mensagem.

    Luís Antunes
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro ao abrir o access

    Mensagem  JPaulo em Sex 15 Abr 2016, 13:24

    Ola;

    Como a bola de cristal já se partiu é dificil adivinhar só com essa linha, teria de mostar todo o código;

    No entanto o que se usa é;

    Código:
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field

        Set tdf = db.TableDefs(strNomesTab)
       
        For Each fld In tdf.Fields
          blablabla


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 89
    Registrado : 05/04/2016

    Erro ao abrir o access

    Mensagem  Luís Antunes em Sex 15 Abr 2016, 14:19

    J paulo Como não consegui, com a sua dica, aqui vai o código

    Grato pela ajuda

    Luís Antunes


    Function ChecaVinculo(strNomesTab As String) As Boolean
       
    ' Autor: João Rodrigues
    ' E-mail: [Você precisa estar registrado e conectado para ver este link.]
    ' Data: Maio/99
    ' Função que checa o vínculo da tabela strNomesTab.
    ' Retorna True ou False, dependendo do vínculo
    ' estar correto, ou não.
       On Error GoTo ChecaVinculo_Err
       Dim db As Database, fld As Field, prp As Property

       Set db = DBEngine(0)(0)
       ChecaVinculo = False 'Inicializa a função.
       

    'Tenta obter um campo da tabela vinculada strNomesTab.
    'Se der erro, é preciso revincular as tabelas.
    Set fld = db.TableDefs(strNomesTab).Fields(0)                                      Código que dá erro
    'Se chegou aqui é porque o vínculo é válido.

    ChecaVinculo = True

    ChecaVinculo_Sai:
       Set db = Nothing 'libera memória.
       Set fld = Nothing: Set prp = Nothing
       Exit Function

    Tenta_Vincular:
       MsgBox "Não foi possível abrir o arquivo" & vbCrLf _
        & "que contém as tabelas com os dados." _
        & vbCrLf & vbCrLf _
           & "Por favor, selecione um arquivo com os dados.", _
           vbInformation, "Informação"
       ' Abre o form frmMudaBackEnd, para que o usuário
       ' selecione o MDB contendo as tabelas com os dados
       ' na caixa de diálogo padrão "Abrir Arquivo" do Windows.
       DoCmd.OpenForm "frmMudaBackEnd", windowmode:=acDialog, _
           OpenArgs:=True
       'O frmMudaBackEnd irá definir o valor de fSucesso.
       ChecaVinculo = fSucesso
       GoTo ChecaVinculo_Sai

    ChecaVinculo_Err:
       Select Case Err.Number
       Case 3024, 3043, 3044, 3265
           'Não é um caminho válido, ou arq não encontrado.
           GoTo Tenta_Vincular
       Case Else
           Call InformaErro
       End Select
       Resume ChecaVinculo_Sai

    End Function
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro ao abrir o access

    Mensagem  JPaulo em Sex 15 Abr 2016, 18:06

    Qual a mensagem de erro ?
    Como está a chamar a função ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 89
    Registrado : 05/04/2016

    Erro ao abrir o access

    Mensagem  Luís Antunes em Sex 15 Abr 2016, 18:27

    J Paulo
    a mensagem de erro é a seguinte:

    Erro nº 13 type mismatch.
    A função chama-se ChecaVinculo

    Luís Antunes
    avatar
    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 27/03/2016

    Re: Erro ao abrir o access

    Mensagem  xoxe em Ter 19 Abr 2016, 23:09

    Tente isto:

    --> Click em iniciar e selecione Painel de controle.

    --> Duplo click em Opções região e idioma

    --> Click em Configurações adicionais ...

    --> Click na aba Número,click em Redefinir e em OK.

    --> Click na aba unidade Monetária,click em Redefinir e em OK.

    --> Click na aba Hora,click em Redefinir e em OK.

    --> Click na aba Data,click em Redefinir e em OK.

    --> Click em Aplicar e click em OK para sair de região e idioma.

      Data/hora atual: Qui 24 Ago 2017, 02:13