設定Access每個空格皆必需有值，不得是Null
Private Sub Cmdnew_Click()
'新增一欄位
Data1.UpdateControls
Data1.Recordset.AddNew
'切換按鈕並將TXT解鎖
Cmdnew.Enabled = False
CmdUpdate.Enabled = True
Cmdend.Enabled = False
Cmddelete.Enabled = False
TxtTruck.Text = truck(Cbotruck.ListIndex)
TxtYear.Enabled = True
TxtMonth.Enabled = True
TxtDay.Enabled = True
TxtKM.Enabled = True
TxtLiter.Enabled = True
TxtPrice.Enabled = True
Cbotruck.Enabled = True
CmdUpdate.SetFocus
End Sub
Private Sub CmdUpdate_Click()
'資料更新並重整
Data1.Recordset.Update
Data1.Refresh
'切換按鈕並將TXT鎖定
CmdUpdate.Enabled = False
Cmdnew.Enabled = True
Cmddelete.Enabled = True
Cmdend.Enabled = True
TxtYear.Enabled = False
TxtMonth.Enabled = False
TxtDay.Enabled = False
TxtKM.Enabled = False
TxtLiter.Enabled = False
TxtPrice.Enabled = False
Cbotruck.Enabled = False
'新增結束後清除空格
TxtYear.Text = ""
TxtMonth.Text = ""
TxtDay.Text = ""
TxtKM.Text = ""
TxtLiter.Text = ""
TxtPrice.Text = ""
Cbotruck.ListIndex = 0
Cmdnew.SetFocus
End Sub
=====================================================
問題1.
之前在還沒加UpdateControls之前，AddNew都會出錯
是什麼原因呢?
問題2.
錯誤碼:3020
原因:還沒AddNew或Edit之前不能Update或CancelUpdate
有時候會出現這個錯誤
可是我明明在CmdNew裡有寫
Data1.Recordset.AddNew
問題3.
錯誤碼:3426
原因:此動作(update)被相關物件取消
在第一次新增資料時沒問題，可是連續新增就會出錯
(有時新增第2筆就錯，有時新增第4筆出錯)
偵錯位置在Data1.Recordset.Update那裡
改了好幾天，都是3020和3426在出現
請問到底是哪裡的邏輯有問題嗎??
**
另外問一下，我在Cbotruck裡有AddItem幾個車牌字串
但是都無法讀進Access裡，所以現在都用
Private Sub Cbotruck_Click()
TxtTruck.Text = truck(Cbotruck.ListIndex)
End Sub
的方式來存進記錄
請問有辦法直接用Cbotruck的下拉選單就存進Access嗎?
感謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.40.141.58
※ 編輯: chrisjon 來自: 114.40.141.58 (10/14 10:04)