Expand|Select|Wrap|Line Numbers
- Public blnCancelled As Boolean
- Private Sub btnCancel_Click()
- DCAMacro.blnCancelled = True
- Unload Me
- End Sub
- Private Sub btnGetData_Click()
- Dim conn As New ADODB.Connection
- Dim rs As New ADODB.Recordset
- Dim lngConnectionState As Long
- Dim strSQL As String
- Dim Appellant As String
- Dim Appellee As String
- Dim DateMandateReleased As Date
- Dim MandateType As String
- '*****Set up the connection to the database*****
- conn.ConnectionString = "Provider=MSDAORA; Data Source=TSD1; "
- 'removed login information
- '*****Open the connecton to the database*****
- conn.Open
- Set rs = New ADODB.Recordset
- '*****Check the state of the database*****
- lngConnectionState = conn.State
- 'If lngConnectionState = adStateOpen Then
- '*****Set the datasource*****
- strSQL = "Select Mandate_Type, Parm1, Agency_Description, CaseNo, Appellant, Appellee, Lt_Cases, Opinion_Date, Chief_Judge, Mandate_Date " & _
- "From CMS.V_Macro4mandate " & _
- "Where Date_Mandate_Released = '25-April-2006' "
- '*****Open the recordset*****
- rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
- '*****Get the data if not end of the record set*****
- rs.MoveFirst
- If Not rs.EOF Then
- Do Until rs.EOF
- DCAMacro.txtAppellant = rs.Fields("Appellant").Value & " "
- DCAMacro.txtAppellee = rs.Fields("Appellee").Value & " "
- DCAMacro.txtCaseNumber = rs.Fields("CaseNo").Value & " "
- DCAMacro.txtLowerTrib = rs.Fields("LT_Cases").Value & " "
- DCAMacro.txtOpinionDate = rs.Fields("Opinion_Date").Value & " "
- '*****Determine the type of mandate*****
- 'If rs.Fields("Mandate_Type").Value = "DK09" Then
- 'DCAMacro.txtMandate_Type = "Mandate"
- 'End If
- '
- 'If rs.Fields("Mandate_Type").Value = "MA1" Then
- 'DCAMacro.txtMandate_Type = "Agency Mandate"
- 'End If
- '
- 'If rs.Fields("Mandate_Type").Value = "MA2" Then
- 'DCAMacro.txtMandate_Type = "Circuit Court Mandate"
- 'End If
- '
- 'If rs.Fields("Mandate_Type").Value = "MA3" Then
- 'DCAMacro.txtMandate_Type = "Worker's Compensation Mandate"
- 'End If
- 'If rs.Fields("CaseNo").Value = "1D" Then
- 'DCAMacro.txtDistrict = "first district"
- 'End If
- DCAMacro.Hide 'hide the form so the document can come up
- Set DCAMarco = Nothing
- '*****Add the generic text and properties that apply to all*****
- '*****formatting for heading*****
- Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
- Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
- Selection.Font.Size = 38
- Selection.Font.Name = "Times New Roman"
- Selection.Font.Bold = wdToggle
- Selection.TypeText Text:="M A N D A T E"
- Selection.Font.Size = 12
- Selection.TypeParagraph
- Selection.TypeText Text:="From"
- Selection.TypeParagraph
- Selection.Font.Size = 14
- Selection.Font.AllCaps = True
- Selection.TypeText Text:="district court of appeal of florida"
- Selection.TypeParagraph
- Selection.TypeText Text:="first district"
- 'Selection.TypeText Text:=txtDistrict.Value
- Selection.Font.AllCaps = False
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
- Selection.Font.Size = 11
- Selection.TypeText Text:="To ~(name), ~(title), ~(agency)"
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.TypeText Text:="WHEREAS, in the certain cause filed in this Court styled:"
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.Font.AllCaps = True
- Selection.TypeText Text:=txtAppellant.Value
- Selection.Font.AllCaps = False
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:="Case No : "
- Selection.TypeText Text:=txtCaseNumber.Value
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.TypeText Text:="v."
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:=vbTab
- Selection.TypeText Text:="Lower Tribunal Case No : "
- Selection.TypeText Text:=txtLowerTrib.Value
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.Font.AllCaps = True
- Selection.TypeText Text:=txtAppellee.Value
- Selection.Font.AllCaps = False
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.TypeParagraph
- Selection.TypeText Text:="The attached opinion was issued on "
- Selection.TypeText Text:=rs.Fields("Opinion_Date").Value & " "
- Selection.TypeParagraph
- Selection.TypeText Text:="YOU ARE HEREBY COMMANDED that further proceedings, if required, be had in accordance"
- Selection.TypeParagraph
- Selection.TypeText Text:="with said opinion, the rules of Court, and the laws of the State of Florida."
- Selection.TypeParagraph
- Selection.SelectCurrentTabs
- Selection.Paragraphs.TabIndent (1)
- Selection.TypeText Text:="WITNESS the Honorable "
- Selection.TypeText Text:=rs.Fields("Chief_Judge").Value & " "
- Selection.TypeParagraph
- Selection.SelectCurrentTabs
- Selection.Paragraphs.TabIndent (1)
- Selection.TypeText Text:="of the District Court of Appeal of Florida, First District"
- 'Selection.TypeText Text:=txtDistrict.Value
- Selection.TypeText Text:=","
- Selection.TypeParagraph
- Selection.SelectCurrentTabs
- Selection.Paragraphs.TabIndent (1)
- Selection.TypeText Text:="and the Seal of said Court done at Tallahassee, Florida,"
- 'Selection.TypeText Text:=txtCity.Text
- Selection.TypeParagraph
- Selection.SelectCurrentTabs
- Selection.Paragraphs.TabIndent (1)
- Selection.TypeText Text:="on this "
- Selection.TypeText Text:=rs.Fields("Mandate_Date").Value & " "
- Selection.ClearParagraphAllFormatting
- rs.MoveNext
- Loop
- End If
- MsgBox "Done.", vbOKOnly
- ' rs.Close
- ' conn.Close
- ' Set conn = Nothing
- ' Set rs = Nothing
- End Sub