D
Doug Bell
Hi I need to import data from another Access DB an ensure that some fields
are uppercase.
Currently I run some SQL:
Set db = CurrentDb()
stSQL = "INSERT INTO tblUsrStckTrnsfrs (HHRecID, PalLbl, [GUID], " & _
"FromWhs, FromLoc, ToWhs, ToLoc, " & _
"TransType, lnDate, lnTime, " & _
"DeviceID, UserID, PCNam, Uploaded ) " & _
"SELECT [RecordID], PalletNo, dacGUID(), " & _
"FromWhs, FromLocation, ToWhs, ToLocation, " & _
"TransactionType, dacLnDate(TransDatTim),
dacLnTime(TransDatTim), " & _
"DeviceID, UserID, " & """" & dacPCNam() & """, False " & _
"FROM [" & stFolder & stDB & "].tblTransactions;"
db.Execute stSQL
I could build a function such as basCUcase and include it into the Select
statement but I wonder if there is simpler method as the function will be
called for each field of each record
Any ideas?
Doug
are uppercase.
Currently I run some SQL:
Set db = CurrentDb()
stSQL = "INSERT INTO tblUsrStckTrnsfrs (HHRecID, PalLbl, [GUID], " & _
"FromWhs, FromLoc, ToWhs, ToLoc, " & _
"TransType, lnDate, lnTime, " & _
"DeviceID, UserID, PCNam, Uploaded ) " & _
"SELECT [RecordID], PalletNo, dacGUID(), " & _
"FromWhs, FromLocation, ToWhs, ToLocation, " & _
"TransactionType, dacLnDate(TransDatTim),
dacLnTime(TransDatTim), " & _
"DeviceID, UserID, " & """" & dacPCNam() & """, False " & _
"FROM [" & stFolder & stDB & "].tblTransactions;"
db.Execute stSQL
I could build a function such as basCUcase and include it into the Select
statement but I wonder if there is simpler method as the function will be
called for each field of each record
Any ideas?
Doug