Newsgroup: it.comp.appl.access
Titolo: Access e Metel?????

Salve a tutti,sapete dirmi se č possibile far lavorare Access con
Metel????????
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Metel????????
Cos'e' metel? Come lavora?
Saluti.
Luciano

Ciao,Metel e un formato che usano le ditte per i propri listini,
volevo capire se potevo far lavorare insieme un mio listino fatto 
con Access2000 con questi listini Metel!!!????
se vuoi vederti un listino metel:
www.elvox.it/italiano/homepage.html
Ciao!!


 se vuoi vederti un listino metel:
www.elvox.it/italiano/homepage.html
Il formato Metel č un formato testuale.
Puoi importare in Access il listino e utilizzarlo direttamente da lě,
oltretutto puoi anche esportare il tuo listino da access ad Metel.
All'indirizzo
http://www.vimar.it/ita/lis/download/tracciati_sommario_metel_v20.xls
puoi trovare i tracciati del formato Metel.
Saluti.

Ciao e grazie per avermi risposto!! io dovrei importare in access2000
vari listini di ditte diverse,potresti spiegarmi un po' come fare???
contando che su access sono tuttaltro che un mago!!??
Ciao e ancora grazie


Ciao e ancora grazie
eccoti un esempio da sistemare che importa file metel
On Error GoTo Err_importacame_Click
Dim fs, f, f1, fc, s, agg, lis, posizione, nomefile
Set fs = CreateObject("Scripting.FileSystemObject")
posizione = dicidirectory("came")
lis = False
If posizione <> "" Then
    Set f = fs.GetFolder(posizione)
    Set fc = f.Files
    nomefile = dicinome("came")
    For Each f1 In fc
        If f1.Name = nomefile Then lis = True
    Next
End If
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim ultimocodart As Double
Set rs = db.OpenRecordset("SELECT Val(Right([codart],Len([codart])-3))
AS Cod FROM metelcame ORDER BY Val(Right([codart],Len([codart])-3))
DESC")
If rs.EOF Then
    ultimocodart = 0
Else
    ultimocodart = rs![cod]
End If
rs.Close
Set rs = db.OpenRecordset("SELECT * FROM metelcame")
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim Riga, cerca, vecchio, nuovo As Variant
If lis Then
 Set f = fs.OpenTextFile(posizione & nomefile, ForReading)
 Riga = (f.readline)
 Do While f.atendofstream = False
    Riga = (f.readline)
    cerca = UCase("" & Trim(Left(Riga, 19)))
    cerca = "CCA" & cerca
    rs.FindFirst ("desc=""" & cerca & """")
    If rs.NoMatch = True Then
        rs.AddNew
        rs![CodArt] = "CCA" & ultimocodart + 1
        ultimocodart = ultimocodart + 1
        rs![PRODUTTORE] = "CCA"
        rs![misura] = "Pz."
        rs![Desc] = cerca
        rs![Desc2] = Mid(Riga, 33, 43)
        rs![pzoprodut] = Val(Mid(Riga, 100, 9)) / 100
        rs![barre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    Else
        rs.Edit
        rs![Desc2] = Mid(Riga, 33, 43)
        rs![pzoprodut] = Val(Mid(Riga, 100, 9)) / 100
        rs![barre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    End If
 Loop
 f.Close
 MsgBox "Importazione completata"
Else
    MsgBox ("File " & dicidirectory("came") & dicinome("came") & " non
trovato")
End If
rs.Close
Set db = Nothing
Exit Sub
Err_importacame_Click:
    MsgBox "Errore durante l'importazione dei dati"
    Exit Sub
End Sub
Saluti.
Emanuele.