OpenArgs Question

LiamBFC · April 11th, 2006, 08:36 AM

Hi all,

I've used OpenArgs before to pass information through to another form, now the problem I'm comming up against is a way to pass more than one value and how to retrive each of those values in separate variables.

Now, I've taken a look around the net and in a couple of books I've got and can't seem to find any confirmation as to whether or not I can do the above. Does anyone have an idea of if this is possible or not?

Apologies if some of these questions seem a little...simple, but this is the first time I've actually had to program Access heh.

Regards,
LiamBFC

Scripts82 · April 13th, 2006, 04:18 AM

Hi, not sure if what I am recommending are good methods, but you may want to try the following

Method 1:
Pass the values that you want to store into a public collection object. Then retrieve the items from the collection object.

Method 2:
Concatenate the argument into a string seperated by a delimiter such as ";" or "-". For example, if you want to pass 3 strings "A", "B", "C" to the next form,

Dim strArgs as String
strArgs = "A;B;C;"

Pass strArgs as the OpenArgs.
Then, write a short function to break up the string into the components that you need.

Method 3:
Use the tags of the various controls (I don't really like using this method)

HTH

Scripts82

LiamBFC · April 13th, 2006, 05:00 AM

I'll have a go at Method 2 and let you know how it goes :)

AccessMaster · April 17th, 2006, 02:14 AM

To work with your string, check out the JOIN and SPLIT functions.

Boyd
"Hi Tech Coach"
Access Based Accounting/Business Solutions developer.
http://www.officeprogramming.com

LiamBFC · April 18th, 2006, 04:33 AM

Sorted it with:

Public Function GetTagFromArg(ByVal OpenArgs As String, _
                               ByVal Tag As String) As String
    Dim strArgument() As String
    strArgument = Split(OpenArgs, ":")
    Dim i As Integer
    For i = 0 To UBound(strArgument)
     If InStr(strArgument(i), Tag) And _
                 InStr(strArgument(i), "=") > 0 Then
       GetTagFromArg = Mid$(strArgument(i), _
                        InStr(strArgument(i), "=") + 1)
       Exit Function
     End If
   Next
   GetTagFromArg = ""
End Function