Litigation Form

Code on inpClient button changed to properly display name of problem code.
7350                  If mys.EOF Then
7360                      mys.Close
7370                      Set mys = Nothing
7380                      Set mydb = Nothing
7390                      DoCmd.OpenForm "inpLitigation", , , , A_ADD
7400                      Forms![inpLitigation]![CASENUM] = Me![CASENUM]
                          'Forms![inpLitigation]![Label113].Caption = Me![PCodef].Form![PNAME]
7410                      Forms![inpLitigation]![Label113].Caption = Me![subPname]
7420                  Else
7430                      mys.Close
7440                      Set mys = Nothing
7450                      Set mydb = Nothing
7460                      mstrCrit = "Casenum = '" & MstrFCase & "'"
7470                      DoCmd.OpenForm "inpLitigation", , , mstrCrit
7480                      'Forms![inpLitigation]![Label113].Caption = Me![PCodef].Form![PNAME]
                          Forms![inpLitigation]![Label113].Caption = Me![subPname]

Litigation Sheet Changed

1. Court Automatically Selected as the first blank one

2. ‘Room 1’ changed to ‘Court 1 Room #:’ (for 1, 2, and 3)

3. Field order slightly adjusted.

4. Field caption changed from

End 1: to

Date Ended 1: (for 1, 2, and 3)

5. Tab Order of fields adjusted