how to share string in all form(s), via module?

[rpool]

I have problem:

why not work ?

please!

'Form1
Private Sub Command1_Click()
MsgBox a
MsgBox b
End Sub


'Module1
Public a As String
Public b as string
a = CStr(Form1.Text1.Text)
b = App.Path

[BSA01]

I have problem:

why not work ?

please!

'Form1
Private Sub Command1_Click()
MsgBox a
MsgBox b
End Sub


'Module1
Public a As String
Public b as string
a = CStr(Form1.Text1.Text)
b = App.Path

Try to put this code on Form Load

[rpool]

yes, put to Form_Load is work.

But how to share that "a" "b" string in all form(s).

[BSA01]

yes, put to Form_Load is work.

But how to share that "a" "b" string in all form(s).

You can do this :

Module 1

Public a As String
Public B As String

Public Sub Outside()
a = CStr(Form1.Text1.Text)
B = App.Path
End Sub

On Button CLick, set :

Outside
Msgbox a
Msgbox b

[rpool]

how about this styles: ? same

'form1
Private Sub Command1_Click()
MsgBox astr

End Sub


'module1
Public Function astr() As String
astr = "module1 string"
End Function

[akhileshbc]

You can use sub main() also.

Code in a module:

'~~~ You have to set the Startup object (Project menu --> Project Properties --> Startup Object) to "Sub Main"
Option Explicit

Public a As String
Public b As String

Sub main()  '~~~ Execution of the program starts here
  '~~~ Initialize values
  a = "Hello"
  b = App.Path
  
  Form1.Show    '~~~ Display Form1
End Sub