Click here to Skip to main content
Click here to Skip to main content
Go to top

MS Access: Pass Variable Values From One Form to Another

, 5 Nov 2005
Rate this:
Please Sign up or sign in to vote.
The function helps you to pass multiple variable values from one form to another.

Introduction

A few days back, I was creating a small prototype for my project using MS Access. I was required to pass values to other forms. I searched everywhere to find out a way to pass values but couldn't succeed. The only hint I got was using Me.OpenArgs argument variable it is possible to pass values across forms.

Example of passing a single variable using the Me.OpenArgs argument

To pass the value "2" from a form frmOne to frmTwo, we use the following code:

DoCmd.OpenForm "frmTwo", acNormal, , , , acWindowNormal, "2"

In the PageLoad event of frmTwo, we can get this value using the following code:

Dim i as Integer
i = CInt(Me.OpenArgs)

The problem with this simple method is that we can pass only one value at a time. If we want to pass more values, we must have some kind of a delimiter and make a string of all values, but it requires the arguments to be passed in a specific order.

Solution

I wrote a small function that extracts values from the passed value string without requiring the values to be passed in a particular order.

This function requires that we pass values in a format like "Var1=Val1:Var2=Val2". Here each value passed will have a corresponding variable name and the variable name/value pair will be delimited by ":". The function will split the argument using the delimiter and extract the value of a particular variable. The code for the function is given below:

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

Now to pass the value "2" from form frmOne to frmTwo we need to write the following code:

DoCmd.OpenForm "frmTwo", acNormal, , , , acWindowNormal, "Count=2"

and in frmTwo we can get the value in the FormLoad event:

Dim i as Integer
i = CInt(GetTagFromArg(Me.OpenArgs, "Count" ))

Using this trick, we can pass any number of values and the order of the values is not important.

Conclusion

This is an extremely simple method that came to my mind at that time. If you have any better solution, please let me know.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Vishal Monpara
Web Developer
United States United States
For more info visit http://www.vishalon.net

Comments and Discussions

 
GeneralAlternate method for passing variables between forms PinmemberPaulTKH28-Apr-11 7:24 
GeneralThis is pretty good but could be better... Pinmemberslingshot32211-Mar-11 4:57 
GeneralMy vote of 5 Pinmemberbitcom29-Jun-10 1:25 
QuestionForm with 3 reports Pinmemberjbdigit11-Dec-08 20:41 
Generalset global variables Pinmemberuplam25-Sep-07 11:02 
Questionrequire urgent solution Pinmembervishal_18in5-Jan-07 0:41 
Questionpassing other data types Pinmemberbobo_t27-Oct-06 14:50 
Questionretrieving variable values Pinmemberhimmelaufer20-Sep-06 11:21 
AnswerRe: retrieving variable values PinmemberVishal Monpara21-Sep-06 6:55 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web02 | 2.8.140922.1 | Last Updated 5 Nov 2005
Article Copyright 2005 by Vishal Monpara
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid