各位前辈帮忙看看

各位前辈 本人菜鸟 自己写了一个简易access图书管理系统   可是关于查询功能一直不行  大家给看看 希望帮我修改一下  谢谢

Private Sub cbo1_Click()
Dim strsql As String
cmdfind.Enabled = False
If cbo1 <> "" Then
  If cbo2 <> "" Then
  strql = "select *from 图书信息 where 图书编号=" ' &cbo1&'"and 作者='"&cbo2&'""
  Else
  strsq1 = "select*from 图书信息 where 图书编号=" '&cbol&'""
  End If
  Me.基本信息.From.RecordSource = strsq1
  End If
  End Sub
  Private Sub cbo2_Click()
  Dim strql As String
  cmdfind.Enabled = False
  If cbo2 <> "" Then
  If cbo1 <> "" Then
  strql = "select*from 图书信息 where 作者=" ' &cbo2&'"and 图书编号="'&cbo1&'""
 
  Else
   strql = "select*from 图书信息 where 作者=" '&cbo2&'""
   End If
   Me.基本情况.From.RecordSource = strsql
   End If
   End Sub
   Private Sub cmdfind_Click()
   Dim strsql
   text1.SetFocus
   If text1.Value <> "" Then
   strsql = "select*from 图书信息 where 图书名=" '&text1.Text'""
   End If
   Me.基本情况.From.Resource = strsql
   End Sub
   Private Sub text1_GetFocus()
   cbo1 = ""
   cbo2 = ""
   cmdfind.Enabled = True
   End Sub
   Private Sub cmd_Click()
   DoCmd.Close
End Sub

Private Sub 查询信息_Click()

End Sub

点击下载此附件