Embedded Files
Valid parameters for conversion:
The StrConv() function can be used in VBA or in an SQL query.The vb constants are only valid in VBA code, to use strconv() in a query use the numeric value. In far east locales StrComp supports additional constants for converting Hiragana and Katana characters.
Examples
Dim strDemo as String
strDemo = StrConv("the universe is everlasting", vbProperCase)
MsgBox strDemo
'Returns: "The Universe Is Everlasting"
**********************************************************************************************************************************************
Function RA_csv()
'Use qryIDSearch
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryIDSearch", acViewNormal, acEdit
'Reading from Database cell
Dim db As Database
Dim IDNumb As DAO.Recordset
Dim IDvar As String
Dim IDNum As String
'Open connection to current Access database
Set db = CurrentDb()
'Create SQL statement to retrieve value from GST table
IDvar = "select ID from tblRATEMP"
Set IDNumb = db.OpenRecordset(IDvar)
'Retrieve value if data is found
If IDNumb.EOF = False Then
IDNum = IDNumb("ID")
Else
IDNum = "Not found"
End If
IDNumb.Close
Set IDNumb = Nothing
GetID = IDNum
'Export Payables csv file
Dim trz As Integer
Dim strCSV As String
For trz = 1 To 511
Close #trz
Next trz
trz = FreeFile
Open "S:\FinAdj\Master_Files\BOOKING\RA\" & (IDNum) & ".csv" For Output Access Write As #trz
With CurrentDb.OpenRecordset("tblRATEMP ")
Dim x As Integer
For x = 0 To .Fields.Count - 1
strCSV = strCSV & strColumnDelimiter & .Fields(x).Name & ", "
Next x
Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)
Do Until .EOF
strCSV = ""
For x = 0 To .Fields.Count - 1
strCSV = strCSV & strColumnDelimiter & Nz(.Fields(x), "") & ", "
strCSV = StrConv(strCSV, vbUpperCase)
Next x
Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)
.MoveNext
Loop
End With
Close #trz
'Delete first line on csv file
Dim iFile As Integer
Dim sData As String
iFile = FreeFile
Open "S:\FinAdj\Master_Files\BOOKING\RA\" & (IDNum) & ".csv" For Binary Access Read As iFile
sData = Space(LOF(iFile))
Get #iFile, , sData
Close iFile
sData = Mid(sData, InStr(sData, vbCrLf) + 2)
Kill "S:\FinAdj\Master_Files\BOOKING\RA\" & (IDNum) & ".csv"
iFile = FreeFile
Open "S:\FinAdj\Master_Files\BOOKING\RA\" & (IDNum) & ".csv" For Binary Access Write As iFile
Put #iFile, , sData
Close iFile
'Delete
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryRAFinal", acViewNormal, acEdit
DoCmd.OpenQuery "qrtRATEMPDEL", acViewNormal, acEdit
DoCmd.OpenQuery "qryDELRA", acViewNormal, acEdit
RA_Macro_Exit:
Exit Function
RA_Macro_Err:
MsgBox Error$
Resume RA_Macro_Exit
End Function
Page updated
Google Sites
Report abuse