none
vb 6 access2000 R.Update 錯誤 RRS feed

  • 問題

  • 請問一下我有寫一個從access的欄位讀取值看他的字串是否大於50,然候更新它。
    他是被放在一個按鈕上面執行
    用手"慢慢"都沒問題,"按很快"就有問題 , 請問為什麼會這樣

    Dim opmarkstring As String
            If Len(R.Fields("OPREMARK") & Text3.Text & " ") < 50 Then
            R.Fields("OPREMARK") = R.Fields("OPREMARK") & Text3.Text & " "
           
            Else
            R.Fields("OPREMARK") = Text3.Text & " "
            End If
           
        R.Update
    R.Update的錯誤2147217864
    找不到要更新的資料列。最後讀取的值被更改

     
    2009年6月5日 上午 06:33

解答

  • button.Enabled = False
    '您的程式
    button.Enabled = True

    Update未完成,被鎖定吧!在您的按鈕的前後加入以上控制,或者直接用SQL語法"Update" ADO Recordset,也許會好點囉...
    2009年6月5日 上午 07:02

所有回覆