strSQl = ""

    /以下语句实现或者查询模式

If Option2.Value = True Then

    If Check1.Value = vbChecked Then

    strSQl = "图书总表.编号='" & Text1(0).Text & "'"

    End If

    If Check2.Value = vbChecked Then

        If strSQl = "" Then

        strSQl = "图书分表.类别='" & Combo1.Text & "'"

        Else

        strSQl = strSQl & "or 图书分表.类别='" & Combo1.Text & "'"

         End If

    End If

End if

'make the search、

/以下是用SQL语句对图书分表和图书总表按编号相同进行查询：

sql1 = "SELECT 图书总表.*,图书分表.试卷代号,图书分表.试卷名称,图书分表.页号"

sql1 = sql1 & " FROM 图书总表,图书分表"

sql1 = sql1 & " WHERE " & strSQl & "and 图书总表.编号 = 图书分表.编号"

End If

     'show the found records

/对查询结果创建数据RECORDSET对象：

If sql1 <> "" Then

    Set rs = db.OpenRecordset(sql1)

    Set Data1.Recordset = rs

    End If

    Data1.Refresh

     'show number of rsords found

    Me.Caption = "总共找到" & CStr(rs.RecordCount) & " 记录"

     'close the rsordset

    rs.Close

    Exit Sub

End sub

3．7 出错处理

当我遇到一些错误是，如无当前记录等一些常规性错误，我的处理方法有两种：

第一种：

On error goto a

A:

MsgBox Err.Description

第二种方法：

on error resume next

为了使程序能更加完善，我还运用了BeginTrans………CommitTrans语句

         第四章操作常识

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页