Hi Guys,
I Need Your Help, once again,
I have a Form (Scripts) & Another Form (Revisions)
(Overview of the Database)
The User will open the form Scripts,
This Form has a large number of Feilds however there are only 2 of importance for this ScriptID & Script.
they will edit/or create a new script in this form. when they press a Button it will create a .txt file on the network with there script inside.
The Revision form will then Automatially open & ask them to put in the changes made to the above script.
This Form has 4 Feilds, Script ID - Changes - Date - Code
What i would like to do is Automatically enter the ScriptID From The Script Form into the Revision Form.
Ive tried a few methods my lastest being a GLobal Varible, but this does not work if i use option explict it states ScriptID is not defined, im guessing it doesnt know which form to look in? but im unsure how to do this?
any help appericated
thanks.
I Need Your Help, once again,
I have a Form (Scripts) & Another Form (Revisions)
(Overview of the Database)
The User will open the form Scripts,
This Form has a large number of Feilds however there are only 2 of importance for this ScriptID & Script.
they will edit/or create a new script in this form. when they press a Button it will create a .txt file on the network with there script inside.
The Revision form will then Automatially open & ask them to put in the changes made to the above script.
This Form has 4 Feilds, Script ID - Changes - Date - Code
What i would like to do is Automatically enter the ScriptID From The Script Form into the Revision Form.
Ive tried a few methods my lastest being a GLobal Varible, but this does not work if i use option explict it states ScriptID is not defined, im guessing it doesnt know which form to look in? but im unsure how to do this?
Code:
Module 1
Option Compare Database
Global RevisionData As String
Public Sub Init_Globals()
RevisionData = ScriptID
End Sub
Public Sub CopyData_Revision()
ScriptID_Revision = RevisionData
End Sub
[B]Scripts [/B]
Private Sub Form_Open(Cancel As Integer)
Call Init_Globals
End Sub
[B]Revision[/B]
Private Sub Form_Open(Cancel As Integer)
Call CopyData_Revision
any help appericated
thanks.