prabha_friend
Prabhakaran Karuppaih
- Local time
- Tomorrow, 03:42
- Joined
- Mar 22, 2009
- Messages
- 771
Code:
Public Function RefreshLinks()
Dim myDiag As FileDialog
Dim Files As Variant
Dim Washes As Variant
Dim Temp As Variant
Files = Array("DEU", "DDE")
Washes = Array("Business Wash", "Corporate Wash", "Coupon Wash", "Dividend Wash")
Set myDiag = FileDialog(msoFileDialogFilePicker)
ReDim Temp(1)
For Each [B][COLOR=red][I]Temp(0)[/I][/COLOR][/B] In Files
With myDiag
.Show
End With
Select Case Temp(0)
Case "DEU"
For Each Temp(1) In Washes
MsgBox CurrentDb.TableDefs(Temp(1) & "_DEU").Name
Next element
Case "DDE"
End Select
Next element
End Function
Compile error:
Variable required - can't assign to this expression
But Logically its right right? means in a variant array: all of its elements are also variant. But can't I able to use it to assign a variable while looping..?