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 ao abrir o access

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 54
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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


    .................................................................................
    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 : 54
    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    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 ?


    .................................................................................
    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 : 54
    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

    xoxe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 230
    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: Qua 07 Dez 2016, 08:34