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

    [Resolvido]Erro ao abrir o access

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir o access Empty [Resolvido]Erro ao abrir o access

    Mensagem  Luís Antunes 15/4/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
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir o access Empty Re: [Resolvido]Erro ao abrir o access

    Mensagem  JPaulo 15/4/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro ao abrir o access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro ao abrir o access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro ao abrir o access Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir o access Empty Erro ao abrir o access

    Mensagem  Luís Antunes 15/4/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: accessjr@bol.com.br
    ' 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
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir o access Empty Re: [Resolvido]Erro ao abrir o access

    Mensagem  JPaulo 15/4/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro ao abrir o access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro ao abrir o access Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro ao abrir o access Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir o access Empty Erro ao abrir o access

    Mensagem  Luís Antunes 15/4/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
    xoxe
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir o access Empty Re: [Resolvido]Erro ao abrir o access

    Mensagem  xoxe 19/4/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.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro ao abrir o access Empty Re: [Resolvido]Erro ao abrir o access

    Mensagem  Luís Antunes 7/4/2021, 20:02

    Boas

    Resolvido

    Adotei o projecto do mestre avelino

    Luís Antunes

      Data/hora atual: 13/6/2021, 01:32