How do I pass a variable from one form to another form 2

[faust13]

How do I pass a variable from one form to another form?

Simply put:

I want to pass varA from form1 to varA on form2.

Suggestions? ----------------------------------------
Is George Lucas Kidding...

 

[Youngguy]

Use the form name as part of the name of the variable when you reference it.

 

[faust13]

Okay, how do I reference an object? Like an ADO object instantiated on Form1, but I want to reference it on Form2? ----------------------------------------
Is George Lucas Kidding...

 

[faust13]

I tried your suggestion of using the form name with the variable name (i.e. form1.varA), but it doesn't seem to work. ----------------------------------------
Is George Lucas Kidding...

 

[MrMoocow]

Put a module in your form,
Then declare your varable as follows in the module

Puclic Name As Type.


Now it will go between forms. Brad,

http://www.moosoft.cjb.net

Free mp3 player,games and more.

 

[MikeCox]

Youngguy was right on track, but he forgot to tell you to make the form's variable Public. Then the variable can be accessed from anywhere in the program, just like all the other form properties:

'In form called frmMain:
Public MyVar as Integer

Form_Load()
MyVar = 3
End Sub

'In module:

Public Sub Main()
Debug.Print frmMain.MyVar 'Displays 0
Load frmMain
Debug.Print frmMain.MyVar 'Displays 3
End Sub

This works for variables and controls.

This can be a better approach than using a global variable in a module, because it allows you to use the same variable name for several forms. Just specify which MyVar you need using the form.variable syntax.



BTW: You can also make user-defined subs and functions public within a form. Call them the same way you'd use the variable:

frmMain.DoMySubroutine

Hope that helps!

-Mike


Difference between a madman and a genius:
A madman uses his genius destructively,
A genius uses his madness constructively.

 

[rvBasic]

For an extensive coverage of the subject refer to faq222-400 or thread222-37333 _________________________________
In theory, there is no difference between theory and practice. In practice, there is. [attributed to Yogi Berra]

 

[VBXL]

You can also do the following :-


Dim example as string

Form2(example) or
Call Form2(example)

'Depending if you want to pass a variable ByRef or ByVal

------------------------

Public Sub Form2(example as string)

End Public

GazC

 

[Dzidze]

Another good way to do it is to create a Public Sub in the 2nd form.

Here is an example I did:

In the 1st form (called frmDocBloc)
*** Triggered by a dblclick on a grid
*** gRs is my Global Recordest

Private Sub msFlex_DblClick()
Dim sCote As String
Dim sNum As String
Dim sSQL As String

msFlex.Col = 1
sCote = msFlex.Text
msFlex.Col = 2
sNum = msFlex.Text

sSQL = "cote = '" & Apostrophe(sCote) & "'"
sSQL = sSQL & " AND doc_no = '" & Apostrophe(sNum) & "'"

gRs.FindFirst sSQL

If gRs.NoMatch = False Then
Unload Me
frmDocuments.ShowFrmDocuments gRs
End If

End Sub

Then on the 2nd form (called FrmDocuments)

Option Explicit
Dim mRs As Recordset

Public Sub ShowFrmDocuments(ByVal rRs As Recordset)
Dim sSQL As String
Dim bReturn As Boolean

Load frmDocuments
Set mRs = rRs
UpdateScreen mRs
frmDocuments.Show vbModal

End Sub

Private Sub UpdateScreen(rRs As Recordset)

If rRs.RecordCount = 0 Then
Me.cmdPrecedent.Enabled = False
Me.cmdSuivant.Enabled = False
Me.txtCount.Text = rRs.RecordCount
ElseIf rRs.EOF = True Then
rRs.MoveFirst
Else

frmDocuments!txtDoc_id.Text = "" & rRs("doc_id&quot
frmDocuments!cmb(0).Text = "" & rRs("cote&quot
frmDocuments!txt(0).Text = "" & rRs("doc_no&quot
frmDocuments!txt(1).Text = "" & rRs("titre_cote&quot
frmDocuments!txt(2).Text = "" & rRs("titre&quot
frmDocuments!txt(3).Text = "" & rRs("numero_regle&quot
frmDocuments!txt(4).Text = "" & rRs("titre_regle&quot
frmDocuments!txt(5).Text = "" & rRs("actif&quot
frmDocuments!txt(6).Text = "" & rRs("semi&quot
frmDocuments!txt(7).Text = "" & rRs("innactif&quot
frmDocuments!txt(8).Text = "" & rRs("etat&quot
frmDocuments!txt(9).Text = "" & rRs("copie&quot
frmDocuments!txt(10).Text = "" & rRs("annee&quot
frmDocuments!txt(11).Text = "" & rRs("support&quot
frmDocuments!txt(12).Text = "" & rRs("localisation&quot
frmDocuments!txt(13).Text = "" & rRs("descLocal&quot
frmDocuments!txt(14).Text = "" & rRs("filiere&quot
frmDocuments!txt(15).Text = "" & rRs("descFiliere&quot
frmDocuments!txt(16).Text = "" & rRs("commentaire&quot

DoEvents
LoadMSFlexGridAuteur
LoadMSFlexGridKeyword

End If
End Sub

Hope this exemple will help you

Have fun...