i think the problem is in your coding
i have a piece of code try this
CODE
Private Sub Bookseat(ByVal loggedInID As Integer, ByRef userID() As String, seat() As Integer)
'
For i = 0 To UBound(seat) - 1
userID(i, 0) = i + 3
seat(i, 0) = i + 3
Next
End Sub
Private Sub Form_Load()
For i = 0 To UBound(seat) - 1
userID(i, 0) = i
seat(i, 0) = i
Next
Debug.Print "before passing"
For i = 0 To UBound(seat) - 1
Debug.Print userID(i, 0)
Debug.Print seat(i, 0)
Next
Bookseat loggedInID, userID, seat
Debug.Print "affter passing"
For i = 0 To UBound(seat) - 1
Debug.Print userID(i, 0)
Debug.Print seat(i, 0)
Next
End Sub
i think you miss the "," in your method passing
if you have the error stilll post your coding briefly
hope you solved it
if this post helpfull just click the this post was helpful
This post has been edited by thava: 28 Aug, 2008 - 04:01 PM
| 