Newsgroup: it.comp.appl.access
Titolo: TransferText e tabella errori

Salve a tutti!
Utilizzo il metodo TransferText per importare dati in una tabella; 
poichè il file di origine ha alcuni spazi vuoti, utilizzo poi una query 
di eliminazione per "pulire" la tabella.
Il problema è che, ogni volta, Access genera una tabella del 
tipo "NomeFile_ImportErrors", con gli errori di importazione (che non 
mi interessano, perchè purtroppo sono "fisiologici"). E' possibile 
inibire la generazione di questa tabella in automatico? Potrei 
cancellarla ogni volta, ma mi sembra assurdo...
Thanks in advance!
      n i c o l a
-- 
Posted from 194.184.109.125 by way of 
smtp5.libero.it
 [193.70.192.55] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:G2MCCZ$IIEutgKeVyUPL7uA3afXNS...@libero.it...


Bisognerebbe conoscere il perché ti da errore l'importazione dei dati;
magari il campo che dovrebbe contenere degli spazi è di tipo numerico o
access cerca di indicizzarlo; se hai salvato le specifiche di importazione
controlla nei dettagli la definizione del campo incriminato.
Ciao.

 wrote in message
8sjq5d$7hc$1...@suite03.caspur.it...



Sě ma in quel caso non chiedevi all'ng "come fare per...
Ciao.

E' possibile inibire la generazione di questa tabella in automatico?
Che io sappia no.
Comunque io mi sono fatto delle macro che importano le tabelle e come ultima
azione di ogni macro invoco la funzione, che troverai in coda al messaggio,
ScollegaTabelle("","_ImportErrors",False,False)
Saluti, Michele
P.S.
Attenzione al suffisso, per la versione italiana è _ErroriImportazione.
P.P.S
Mi raccomando, provala prima con una database di prova, assicurati cioè
d'aver ben inteso l'uso dei parametri ;-)
--
'Comments  : Questa funzione elimina dal database corrente le tabelle che
soddisfano le condizioni indicate nei parametri
'Parameters: rsPrefix, rsSuffix, rbAnyWhere
'          : Caso 1. rbAnyWhere mancante o falso
'                    Tutte le tabelle che iniziano per rsPrefix e/o
'                    tutte le tabelle che iniziano per rsSuffix verranno
cancellate
'          : Caso 2. rbAnyWhere mancante o falso
'                    Tutte le tabelle che contengono per rsPrefix e/o
'                    tutte le tabelle che contengono per rsSuffix verranno
cancellate
'          : Se rbVerbose = True allora viene chiesta la conferma
'Sets      : Nulla
'Returns   : Numero di tabelle cancellate
'Created by: M.A.Engineering - Dott. Michele Amato -
maengi...@libero.it
 - 
http://utenti.worldonline.it/micheleamato
'Created   : 13/05/1995 10:13:15
Public Function ScollegaTabelle(rsPrefix As String, rsSuffix As String,
Optional rbAnyWhere As Boolean = False, Optional rbVerbose As Boolean =
True) As Long
Dim td As TableDef
Dim db As Database
Dim llGiro As Long
Dim llPre As Long
Dim llSuf As Long
Dim llTabella As Long
Dim llTabelle As Long
Dim llTabelleEliminate As Long
Dim llTabelleInteressate As Long
Dim lbTabellaInteressata As Boolean
Dim lbTestaPre As Boolean
Dim lbTestaSuf As Boolean
Dim lsMsg As String
Dim lsMsg2 As String
  llPre = Len(rsPrefix)
  llSuf = Len(rsSuffix)
  lbTestaPre = llPre > 0
  lbTestaSuf = llSuf > 0
  Set db = CurrentDb
  llTabelle = db.TableDefs.Count
  For llGiro = 1 To 2
    If rbVerbose Or llGiro = 2 Then
      llTabelleInteressate = 0
      For llTabella = llTabelle - 1 To 0 Step -1
        Set td = db.TableDefs(llTabella)
        lbTabellaInteressata = (((UCase(Left(td.Name, llPre)) = rsPrefix And
lbTestaPre) Or Not lbTestaPre) And _
                                   ((UCase(Right(td.Name, llSuf)) = rsSuffix
And lbTestaSuf) Or Not lbTestaSuf) And _
                                    Not rbAnyWhere) Or _
                               (((InStr(td.Name, rsPrefix) > 0 And
lbTestaPre) Or Not lbTestaPre) And _
                                ((InStr(td.Name, rsSuffix) > 0 And
lbTestaSuf) Or Not lbTestaSuf) And _
                                    rbAnyWhere)
        If lbTabellaInteressata Then
          If llGiro = 1 Then
              DoCmd.Echo True, "Conteggio in corso per ... " & td.Name
          Else
            DoCmd.Echo True, "Disconnessione in corso per ... " & td.Name
            db.TableDefs.Delete td.Name
            llTabelleEliminate = llTabelleEliminate + 1
          End If
          llTabelleInteressate = llTabelleInteressate + 1
        End If
      Next llTabella
      If llGiro = 1 And llTabelleInteressate > 0 Then
        lsMsg = vbNullString
        If Not rbAnyWhere Then
          If lbTestaPre Then
            lsMsg = lsMsg & vbNewLine & vbNewLine & " con prefisso " &
rsPrefix
          End If
          If lbTestaSuf Then
            lsMsg = lsMsg & vbNewLine & vbNewLine & " con suffisso " &
rsSuffix
          End If
        Else
          If lbTestaPre Then
            lsMsg = lsMsg & " contenente " & rsPrefix
          End If
          If lbTestaSuf Then
            lsMsg = lsMsg & " contenente " & rsSuffix
          End If
        End If
        If llTabelleInteressate Then
          lsMsg2 = "Confermi la cancellazione delle " & llTabelleInteressate
& " tabelle"
          If MsgBox(lsMsg2 & lsMsg, vbQuestion + vbYesNo + vbDefaultButton2)
= vbNo Then
            Exit For
          End If
        Else
          lsMsg2 = "Nessuna tabella "
          MsgBox lsMsg2 & lsMsg, vbInformation
          Exit For
        End If
      ElseIf rbVerbose And llTabelleInteressate > 0 And llGiro = 2 Then
        MsgBox llTabelleInteressate & " tabelle cancellate/scollegate.",
vbInformation
      End If
    End If
  Next
  ScollegaTabelle = llTabelleEliminate
End Function
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Sulla mia pagina personale
http://utenti.worldonline.it/micheleamato
è possibile trovare una add-in per Access97-2000:
          Access Navigator 2.0
comincia a esserci anche un pò di documentazione...
ho pubblicato anche la prima parte di un TUTORIAL
sull'uso di questo strumento
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}