help me in open code

[milen]

this is the save code

Private Sub Command1_Click()
CommonDialog1.ShowSave
Dim frm As Form
    Dim ctl As Control
    Open (CommonDialog1.FileName) For Output As #1
    For Each frm In Forms
        For Each ctl In frm.Controls
            If TypeOf ctl Is TextBox Or TypeOf ctl Is Label Then
           
                   Print #1, frm.Name & " : " & ctl.Name & " : " & ctl
End If
        Next
    Next
    Close #1
End Sub
-------------------
my probleme is in the open code of this save code
this is the code
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Dim colForms As Collection
    Dim sParts() As String, sTemp As String, N As Long
    
    Set colForms = New Collection
    For N = 0 To Forms.Count - 1
        colForms.Add Forms(N), Forms(N).Name
    Next N
    
    Open (CommonDialog1.FileName) For Input As #1
        Do Until EOF(1)
            Line Input #1, sTemp
            sParts = Split(sTemp, " : ")
            colForms(sParts(0)).Controls(sParts(1)) = sParts(2)
        Loop
    Close #1
    Set colForms = Nothing
    End Sub

-------------------
when i click in f5 button in microsoft visual basic look to this error


colForms(sParts(0)).Controls(sParts(1)) = sParts(2)
help me please

[Andrew G]

What is the error you are getting?

Also could you please use the [Highlight=VB]Your code here[/vbcode] tags

[bushmobile]

try changing this bit:

Line Input #1, sTemp
    If Len(sTemp) Then
        sParts = Split(sTemp, " : ")
        colForms(sParts(0)).Controls(sParts(1)) = sParts(2)
    End If

[milen]

Hii guys
This code dosnt work do you have any way or another code to get
the open code of it
please answer soon
regard's
milen

[Andrew G]

Private Sub Command1_Click()
Dim Frm As Form
Dim ctl As Control
 
    CommonDialog1.ShowSave
    Open (CommonDialog1.FileName) For Output As #1
        For Each Frm In Forms
            For Each ctl In Frm.Controls
                If TypeOf ctl Is TextBox Or TypeOf ctl Is Label Then
                    Print #1, Frm.Name & " : " & ctl.Name & " : " & ctl
                End If
            Next
        Next
    Close #1
End Sub
 
Private Sub Command2_Click()
CommonDialog1.ShowOpen
Dim sParts() As String, sTemp As String, N As Long
 
Open (CommonDialog1.FileName) For Input As #1
    Do Until EOF(1)
        Line Input #1, sTemp
        sParts = Split(sTemp, " : ")
        GetForm(sParts(0)).Controls(sParts(1)) = sParts(2)
    Loop
Close #1
 
End Sub
 
Function GetForm(FormName As String) As Form
Dim Frm As Form
    For Each Frm In Forms
        If Frm.Name = FormName Then
            Set GetForm = Frm
            Exit Function
        End If
    Next
End Function