请竹笛大侠帮忙！急。…。…。………。…。…。…。……

Private Sub Report_Activate()
Dim A, BB
If IsNull(Me.接警号.value) = True Then
Else
If IsNull(DLookup("[姓名]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)) = False Then
Me.编号.value = "泾林罚立字[" & Format(Date, "YYYY") & "]第" & DLookup("[立案号]", "案件信息", "[接警号]=" & Me.接警号.value) & "号"
A = InStr(1, Me.Text66.value, "(")
If A = 0 Then
BB = Me.Text66.value
Else
BB = Left(Me.Text66.value, A - 1)
End If
Me.案由.value = BB
Me.姓名.value = DLookup("[姓名]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.性别.value = DLookup("[性别]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.出生日期.value = DLookup("[出生日期]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.工作单位.value = DLookup("[工作单位]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.住址.value = DLookup("[现住址]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.单位名称.value = DLookup("[单位名称]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.地址.value = DLookup("[单位地址]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.法人.value = DLookup("[单位法人]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
Me.职务.value = DLookup("[职务]", "处罚人员表", "[接警号]=" & Me.接警号.value & "and [判断]=" & True)
End If
If Len(Me.工作单位.value) <= 8 Then
Me.工作单位.FontSize = 14
ElseIf Len(Me.工作单位.value) > 8 Then
Me.工作单位.FontSize = 10
End If
If Len(Me.住址.value) <= 8 Then
Me.住址.FontSize = 14
ElseIf Len(Me.工作单位.value) > 8 Then
Me.住址.FontSize = 10
End If
If Len(Me.单位名称.value) <= 6 Then
Me.单位名称.FontSize = 14
ElseIf Len(Me.工作单位.value) > 6 Then
Me.单位名称.FontSize = 10
End If
If Len(Me.地址.value) <= 11 Then
Me.地址.FontSize = 14
ElseIf Len(Me.地址.value) > 11 Then
Me.地址.FontSize = 10
End If


End If
End Sub