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