Back to previus form

[om-yousif]

i need to add a command which will take me back to the previous step in my project

in case of user wants to change some info in the first form to process it in the second form

how can i run the script which is in (form-load ) again
i.e how can i reload the second form as the first time

[gavio]

Private Sub Command1_Click()
    yourForm.[B]Form_Load[/B]
End Sub

Bear in mind that this will work only if you'll change that Form_Load event to Public.

[MartinLiss]

Better would be to move the code from Form_Load to a Sub in a code module and then call the Sub from Form_Load and anyplace else you need to call it from.

[Ember]

Remember that all variables connected to a form is emptied when form unloads.

[om-yousif]

if this was the form_load code in the form1 form where the back button in
and i returned to the main form

Private Sub Form_Load()
RichTextBox1.Text = Main.txtFileText.Text
  
 With RichTextBox1
        .SelStart = 0
        .SelLength = Len(.Text)
        .SelAlignment = 1
 End With
 
Dim Result As Long
 
'// Set initial direction RTL
 
SetParaDirection (PFE_RTLPAR)
 
'// Set data structure arguments
 
vbBO.cbSize = LenB(vbBO) 'Size
 
vbBO.wMask = BOM_DEFPARADIR 'Attribute to set
 
vbBO.wEffects = BOE_RTLDIR 'Default direction
 
'// Set default direction RTL
 
Result = SendBOMessage(RichTextBox1.hwnd, EM_SETBIDIOPTIONS, 0, vbBO)
 
'// Adjust RightMargin of RichTextBox control
 
RichTextBox1.RightMargin = 9300
 
  With RichTextBox1
        .SelStart = 0
        .SelLength = 0
     End With
     
   
    If Main.Option2.Value = True Then
          translate    'function
    Else
          GetData     'function
    End If
  
  RichTextBox2.Text = Main.txtFileText.Text
 
End Sub

should i just copy this code to a Module
what about the functions calls, how they will be defined?

[MartinLiss]

The function calls will work just fine as long as they are Public Sub or Public Function. However the references to the controls on the form will need to be modified. For example

With Form1.RichTextBox1

[om-yousif]

do you mean that i have to copy the functions from form1 to a module?

[MartinLiss]

Move the code rather than duplicate it.

[MartinLiss]

I've attached a little example.