Access e Metel?????

[Andreina Gazzoni]

Salve a tutti,sapete dirmi se č possibile far lavorare Access con
Metel????????

--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG

[Luciano (DOC)]

Andreina Gazzoni ha scritto nel messaggio ...

>Salve a tutti,sapete dirmi se č possibile far lavorare Access con
>Metel????????

Cos'e' metel? Come lavora?
Saluti.

Luciano

[Andreina Gazzoni]

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!!

[Setec Astronomy]

"Andreina Gazzoni" <cich...@tin.it> ha scritto nel messaggio
news:b554e418ca464392822...@mygate.mailgate.org...

> 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

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.

[Andreina Gazzoni]

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

[Emyr]

On Mon, 6 May 2002 11:42:44 +0000 (UTC), "Andreina Gazzoni"
<cich...@tin.it> wrote:

>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

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.