[VB6 ] 關於程式碼 一下可以一下不行..
Private Sub nextcommend_Click()
customdb.Recordset.AddNew <==按新增下一筆 錯這行
customdb.Enabled = False
newcommend.Enabled = True
nextcommend.Enabled = True
End Sub
Private Sub newcommend_Click()
If Trim(Text1.Text) = "" Then
MsgBox "聯絡電話欄位內不得空白"
Exit Sub
End If
If Trim(Text2.Text) = "" Then
MsgBox "客戶名稱欄位內不得空白"
Exit Sub
End If
If Trim(Text3.Text) = "" Then
MsgBox "住址欄位內不得空白"
Exit Sub
End If
customdb.Recordset.MoveLast <===按確定儲存錯這行
customdb.Enabled = True
newcommend.Enabled = True
nextcommend.Enabled = True
End Sub
這個是我寫的程式 我是要新增資料到資料庫裡
昨天我寫完測試的時候可以 可是今天又不行…
為什麼會這樣 我一直找不出來是什麼原因
版上有人可以指點指點我嗎^^"
謝謝吼....
--
是不是學會了什麼事都往心裡放
眼淚掉下的頻率就會日漸增加??
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.141.1.83
推
07/18 19:38, , 1F
07/18 19:38, 1F
推
07/18 21:34, , 2F
07/18 21:34, 2F
推
07/19 10:31, , 3F
07/19 10:31, 3F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章