我用 Adodc & odbc & Access / 我想查找貨品類別一欄
請那位大大幫我看一下 程式那里出錯 全部的程式碼如下:

Option Explicit
Private Sub cmdAdd_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'this may produce an error if you delete the last
 'record or the only record in the recordset
 Adodc1.Recordset.Delete
 Adodc1.Recordset.MoveNext
End Sub
Private Sub Cmdfind_Click()   ''''''''''''''''''''''''''''''''''''''''''查找
Dim Str As String
Dim Mybookmark As Variant
Mybookmark = Adodc1.Recordset.Bookmark
Str = InputBox("輸入查找表達式", "鄢建軍-信息提示-查找!")
If Str = "" Then Exit Sub
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find Str
If Adodc1.Recordset.EOF Then
 MsgBox "指定的條件沒找到喲!", , "鄢建軍-信息提示"
 Adodc1.Recordset.Bookmark = Mybookmark
 End If
End Sub             ''''''''''''''''''''''''''''''''''''''''''查找
Private Sub CmdMoveFirst_Click()   ''''''''''''''''''''''''''''''''''''最后一筆
Adodc1.Recordset.MoveFirst
End Sub
Private Sub CmdMoveLast_Click()   ''''''''''''''''''''''''''''''''''''最前一筆
Adodc1.Recordset.MoveLast
End Sub
Private Sub CmdMoveNext_Click()   '''''''''''''''''''''''''''''''''''''上一筆
If Adodc1.Recordset.BOF Then
 Adodc1.Recordset.MoveLast
End If
  Adodc1.Recordset.MovePrevious
End Sub
Private Sub CmdMovePrevious_Click()   '''''''''''''''''''''''''''''''''下一筆
If Adodc1.Recordset.EOF Then
 Adodc1.Recordset.MoveFirst
End If
  Adodc1.Recordset.MoveNext
End Sub
Private Sub cmdRefresh_Click()
'this is really only needed for multi user apps
Adodc1.Refresh
DataGrid1.Columns(2).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(3).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(4).Width = Me.TextWidth("中國人民中國人民中國人民中國人民中國人民")
 DataGrid1.Columns(5).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(6).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(7).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(0).Width = "0"
 DataGrid1.Columns(1).Width = "0"
 DataGrid1.Columns(8).Width = "0"
 DataGrid1.Columns(9).Width = "0"
 DataGrid1.Columns(10).Width = "0"
 DataGrid1.Columns(11).Width = "0"
 DataGrid1.Columns(12).Width = "0"
 DataGrid1.Columns(13).Width = "0"
 DataGrid1.Columns(14).Width = "0"
 DataGrid1.Columns(15).Width = "0"
 DataGrid1.Columns(16).Width = "0"
 DataGrid1.Columns(17).Width = "0"
 DataGrid1.Columns(18).Width = "0"
 DataGrid1.Columns(19).Width = "0"
 DataGrid1.Columns(20).Width = "0"
 DataGrid1.Columns(21).Width = "0"
 DataGrid1.Columns(22).Width = "0"
 DataGrid1.Columns(23).Width = "0"
 DataGrid1.Columns(24).Width = "0"
 DataGrid1.Columns(25).Width = "0"
 DataGrid1.Columns(26).Width = "0"
End Sub
Private Sub cmdUpdate_Click()
Adodc1.Recordset.Update
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Form_Activate()
DataGrid1.Columns(2).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(3).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(4).Width = Me.TextWidth("中國人民中國人民中國人民中國人民中國人民")
 DataGrid1.Columns(5).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(6).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(7).Width = Me.TextWidth("中中國人民")
 DataGrid1.Columns(0).Width = "0"
 DataGrid1.Columns(1).Width = "0"
 DataGrid1.Columns(8).Width = "0"
 DataGrid1.Columns(9).Width = "0"
 DataGrid1.Columns(10).Width = "0"
 DataGrid1.Columns(11).Width = "0"
 DataGrid1.Columns(12).Width = "0"
 DataGrid1.Columns(13).Width = "0"
 DataGrid1.Columns(14).Width = "0"
 DataGrid1.Columns(15).Width = "0"
 DataGrid1.Columns(16).Width = "0"
 DataGrid1.Columns(17).Width = "0"
 DataGrid1.Columns(18).Width = "0"
 DataGrid1.Columns(19).Width = "0"
 DataGrid1.Columns(20).Width = "0"
 DataGrid1.Columns(21).Width = "0"
 DataGrid1.Columns(22).Width = "0"
 DataGrid1.Columns(23).Width = "0"
 DataGrid1.Columns(24).Width = "0"
 DataGrid1.Columns(25).Width = "0"
 DataGrid1.Columns(26).Width = "0"
End Sub
Private Sub Form_Load()
If Adodc1.Recordset.EOF And Adodc1.Recordset.BOF Then
  Cmdfind.Enabled = False
  cmdDelete.Enabled = False
End If
cmdUpdate.Enabled = False
Adodc1.Recordset.MoveFirst
Text1.Text = Adodc1.Recordset.RecordCount
End Sub
Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
  KeyAscii = 0
  SendKeys "{Tab}"
 End If
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()