code:
1
2
3
4
5
6
7
8
| TxtPath = "C:\Documents and Settings\User\Desktop\"
TxtPattern = "*.txt"
FileName = Dir(TxtPath + TxtPattern)
Do While FileName <> ""
DoCmd.TransferText acImportDelim, "Tablename Import specification", "Tablename", TxtPath + FileName, True
FileName = Dir
Loop |
Is het mogelijk om een conditie in te bouwen bij de import dat velden met een waarde "00000000" NIET geimporteerd worden?
[ Voor 4% gewijzigd door logic00 op 21-05-2007 10:52 ]