dont convert to date if string is less than 6 long, also start adding commas at iteration 0

This commit is contained in:
Paul Trowbridge 2017-10-17 15:09:55 -04:00
parent 30e20bc420
commit 553ace8eb0

View File

@ -2190,18 +2190,22 @@ Public Function SQLp_build_sql_values(ByRef tbl() As String, trim As Boolean) As
type_flag(j) = "S"
End If
Else
If Len(tbl(j, 1)) >= 6 Then
If IsDate(tbl(j, 1)) Then
type_flag(j) = "D"
Else
type_flag(j) = "S"
End If
Else
type_flag(j) = "S"
End If
End If
Next j
For i = 0 To UBound(tbl, 2)
rec = ""
If i <> 1 Then sql = sql & "," & vbCrLf
If i <> 0 Then sql = sql & "," & vbCrLf
rec = rec & "("
For j = 0 To UBound(tbl, 1)
If j <> 0 Then rec = rec & ","