help writing fields to table definition (1 Viewer)

[gammaman]

I am trying to write some fields to an access table definition. It is working for the most part except that I want to write some of the fields as dbText and others as dbDate. For some reason it is writing all of them as dbDate and I don't know why.

additionalColumns = Array("a","b","c","d","e","f")

'add additonal columns to report
For i = LBound(additionalColumns) To UBound(additionalColumns)
MsgBox additionalColumns(i)
If additionalColumns(i).Value = "a" OR "b" Then
Set columnNames = xlsht.Cells(1, additionalColumns(i))
Set FieldName = tb1.CreateField(additionalColumns(i), dbDate, 10)
tb1.Fields.Append FieldName
Else
Set columnNames = xlsht.Cells(1, additionalColumns(i))
Set FieldName = tb1.CreateField(additionalColumns(i), dbText, 150)
tb1.Fields.Append FieldName
End If
Next i

 

[pr2-eugin]

Hello gammaman, Welcome to AWF..

Your If condition is off.. Try this..

If additionalColumns(i) = "a" OR [B]additionalColumns(i) = [/B]"b" Then

 

[gammaman]

OMG. I can't believe I forgot that. Do you know how long this has been driving me crazy. LOL.

 

[pr2-eugin]

Ha ha.. Glad you have it sorted.. Good Luck..