Private Sub Command2_Click()
    Unload Me
    frmMain.Show
End Sub

Private Sub Command3_Click()
    'Routine to insert organisation
    orgrecord.ID = Text1.Text
    If Combo1.Text = "Sal." Then
        orgrecord.Sal = ""
    Else
        orgrecord.Sal = Combo1.Text
    End If
    orgrecord.Forename = Trim(Text16.Text)
    If Text2.Text = "Middle" Then
        orgrecord.Middlename = ""
    Else
        orgrecord.Middlename = Trim(Text2.Text)
    End If
    orgrecord.Surname = Trim(Text3.Text)
    If Combo2.Text = "Suffix" Then
        orgrecord.Suffix = ""
    Else
        orgrecord.Suffix = Combo2.Text
    End If
    orgrecord.Email = Text4.Text

    'Phone saves
    orgrecord.Phone1_Detail = Combo3.Text
    orgrecord.Phone1_Number = Text5.Text
    orgrecord.Phone2_Detail = Combo4.Text
    orgrecord.Phone2_Number = Text6.Text

    'Address save
    If Combo5.Text = "Home" Then
        orgrecord.Primary_Address = Trim(Combo5.Text)
        orgrecord.Hadd_Street = Text7.Text
        orgrecord.Hadd_City = Text8.Text
        orgrecord.Hadd_County = Text9.Text
        orgrecord.Hadd_Country = Text10.Text
        orgrecord.Hadd_Postcode = Text11.Text
    ElseIf Combo5.Text = "Work" Then
        orgrecord.Primary_Address = Trim(Combo5.Text)
        orgrecord.Wadd_Street = Text7.Text
        orgrecord.Wadd_City = Text8.Text
        orgrecord.Wadd_County = Text9.Text
        orgrecord.Wadd_Country = Text10.Text
        orgrecord.Wadd_Postcode = Text11.Text
    Else
        orgrecord.Primary_Address = Trim(Combo5.Text)
        orgrecord.Oadd_Street = Text7.Text
        orgrecord.Oadd_City = Text8.Text
        orgrecord.Oadd_County = Text9.Text
        orgrecord.Oadd_Country = Text10.Text
        orgrecord.Oadd_Postcode = Text11.Text
    End If

    orgrecord.Category = Combo6.Text
    orgrecord.Flagged = Check1.Value
    orgrecord.Keyword1 = Label10.Caption

    Open App.Path & "\orgfile.rnd" For Random As #1 Len = Len(orgrecord)
        Put #1, Text1.Text, orgrecord
    Close #1

    Unload Me
    frmMain.Show
End Sub

Private Sub Form_Load()
    'center the form
    Me.Move (Screen.width - Me.width) / 2, (Screen.height - Me.height) / 2

    If SelectedFlag = 0 Then
        'Call proc to retrieve list of users for combobox
        'load the saved users' list
        Open App.Path & "\userfile.rnd" For Random As #1 Len = Len(userrecord)
            While Not EOF(1)
                Get #1, , userrecord
                    If userrecord.userID > 999 Then
                        'i = i + 1
                        Combo7.AddItem userrecord.UserName
                    End If
            Wend
        Close #1
        Combo7.Text = Combo7.List(0)
    End If

    'Check if coming in from a retrieve request
    If SelectedFlag = 1 Then
        'Routine to retrieve the record according to organisationID from main screen
        Open App.Path & "\contactfile.rnd" For Random As #1 Len = Len(orgrecord)
            Get #1, SelectedID, orgrecord
        Close #1
        'Routine to retrieve contact
        Text1.Text = orgrecord.ID
        Combo1.Text = orgrecord.Sal
        Text16.Text = orgrecord.Forename
        Text2.Text = orgrecord.Middlename
        Text3.Text = orgrecord.Surname
        Combo2.Text = orgrecord.Suffix
        Text4.Text = orgrecord.Email

        Combo3.Text = orgrecord.Phone1_Detail
        Text5.Text = orgrecord.Phone1_Number
        Combo4.Text = orgrecord.Phone2_Detail
        Text6.Text = orgrecord.Phone1_Number

        'Address
        Combo5.Text = orgrecord.Primary_Address
        If Combo5.Text = "Home" Then
            Text7.Text = orgrecord.Hadd_Street
            Text8.Text = orgrecord.Hadd_City
            Text9.Text = orgrecord.Hadd_County
            Text10.Text = orgrecord.Hadd_Country
            Text11.Text = orgrecord.Hadd_Postcode
        ElseIf Combo5.Text = "Work" Then
            Text7.Text = orgrecord.Wadd_Street
            Text8.Text = orgrecord.Wadd_City
            Text9.Text = orgrecord.Wadd_County
            Text10.Text = orgrecord.Wadd_Country
            Text11.Text = orgrecord.Wadd_Postcode
        Else
            Text7.Text = orgrecord.Oadd_Street
            Text8.Text = orgrecord.Oadd_City
            Text9.Text = orgrecord.Oadd_County
            Text10.Text = orgrecord.Oadd_Country
            Text11.Text = orgrecord.Oadd_Postcode
        End If

        Combo6.Text = orgrecord.Category
        If orgrecord.Flagged = True Then
            Check1.Value = True
        Else
            Check1.Value = False
        End If
        Label10.Caption = orgrecord.Keyword1
    Else
        'Routine to generate OrganisationID
        ID = 1000

        Open App.Path & "\orgfile.rnd" For Random As #1 Len = Len(orgrecord)
            While Not EOF(1)
                Get #1, ID, orgrecord
                    If orgrecord.ID = 0 Then
                        Text1.Text = ID
                        Close #1
                        Exit Sub
                    Else
                        ID = ID + 1
                    End If
            Wend
        Close #1
    End If
End Sub