[Resolvido]Erro ao abrir o access

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

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

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

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

J Paulo
a mensagem de erro é a seguinte:

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

Luís Antunes

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.

Boas

Resolvido

Adotei o projecto do mestre avelino

Luís Antunes