Jag behöver konvertera en prislista med fasta fält utan avgränsare till ett special-Null -problem
format som fungerar i ett administrativt program.Jag importerar prislistan till
Access 2000 och sen har jag gjort en Visual Basic modul för att skriva den till
en ny fil med rätt format.
Det fungerar perfekt förutom att när ett Access-fält är tomt ,då skriver
den Null ,vilket inte det administrativa programmet tycker om.
Vad behöver kompletteras i koden för att få den att inte skriva något eller
skriva 0 (en nolla).
OBS: Jag är nybörjare ....det här är det enda jag skrivit i Visual Basic.....med
hjälp av en handbok. Väldigt tacksam för hjälp.
Så här ser det ut:
Function ExportFinfoKupris()
Dim ExpNames As New Recordset
ExpNames.Open _
"SELECT Levnr, Artnr, Ean, Ben, Baspris, Bdec, Enhet, Capris, Cdec, Kupris, Kudec, Varugr, Rabattgr, Artm, Utgdat " & _
" FROM F ORDER BY Artnr", _
CurrentProject.Connection
Open "C:\BTRIX\data\Jadpri.txt" For Output As #1
Do Until ExpNames.EOF
Print #1, "PIT"
Print #1, ; ExpNames!Artnr
Print #1, "SA"
Print #1, ; ExpNames!Kupris;
Print #1, ".";
Print #1, ; ExpNames!Kudec
Print #1, " "
Print #1, "NTP"
Print #1, "1"
Print #1, ; ExpNames!Enhet
Print #1, ; ExpNames!Artm
Print #1, "PIA"
Print #1, "1"
Print #1, ; ExpNames!Levnr
Print #1, "ZZ"
Print #1, ; ExpNames!Varugr
Print #1, "CC"
Print #1, ; ExpNames!Ean
Print #1, "EN"
Print #1, "KU"
Print #1, "DG"
Print #1, "IMD"
Print #1, " "
Print #1, " "
Print #1, "SWED"
Print #1, "ZZ"
Print #1, " "
Print #1, "IMD"
Print #1, " "
Print #1, " "
Print #1, "KORT"
Print #1, "ZZ"
Print #1, ; ExpNames!Ben
Print #1, "IMD"
Print #1, " "
Print #1, " "
Print #1, "LEDO"
Print #1, "ZZ"
Print #1, " "
Print #1, "QTY"
Print #1, "40"
Print #1, "0"
Print #1, "QTY"
Print #1, "52"
Print #1, "0"
Print #1, "API"
Print #1, " "
Print #1, " "
Print #1, ; ExpNames!Capris;
Print #1, ".";
Print #1, ; ExpNames!CDec
Print #1, " "
Print #1, "EUP"
Print #1, " "
Print #1, " "
Print #1, " "
Print #1, "010122"
ExpNames.MoveNext
Loop
End Function