กระทู้เก่าบอร์ด อ.Yeadram
1,250 6
URL.หัวข้อ /
URL
ต้องการ insert INTO ข้อมูลเข้า TABLE
คือ ผมต้องการใช้โค้ด เพื่อให้ข้อมูลเข้าไปเก็บที่ Table อ่ะครับ
Dim dbs As Database
Set dbs = CurrentDb
CurrentDb.Execute " INSERT INTO bill " _
& "(part number,part name, size) VALUES " _
& "('Text12', 'Text14', 'Text17');"
dbs.Close
Set dbs = Nothing
End Sub
แต่พอผมรอรันดูมันขึ้น
run- time error '3134'
ข้อความผิดพลาดทางไวยากรณ์ในคำสั่ง INSERT INTO
Dim dbs As Database
Set dbs = CurrentDb
CurrentDb.Execute " INSERT INTO bill " _
& "(part number,part name, size) VALUES " _
& "('Text12', 'Text14', 'Text17');"
dbs.Close
Set dbs = Nothing
End Sub
แต่พอผมรอรันดูมันขึ้น
run- time error '3134'
ข้อความผิดพลาดทางไวยากรณ์ในคำสั่ง INSERT INTO
6 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R23717
ขอบคุณมากครับ
ผมลองดูแล้วครับ มันขึ้น debug ตรง DoCmd.RunSQL sql และเวลารันก็ขึ้น error แบบเดิมครับ
ผมลองดูแล้วครับ มันขึ้น debug ตรง DoCmd.RunSQL sql และเวลารันก็ขึ้น error แบบเดิมครับ
3 @R23720
ลองดูไฟล์แนบครับ
https://drive.google.com/open?id=0BwzAwbv8tImLdUZ3ZGd2dmc4U3M
https://drive.google.com/open?id=0BwzAwbv8tImLdUZ3ZGd2dmc4U3M
4 @R23721
เพิ่มเติม
ช่อง qty กับTotal ต้องเป็นตัวเลขนะครับ
https://drive.google.com/open?id=0BwzAwbv8tImLdUZ3ZGd2dmc4U3M
ช่อง qty กับTotal ต้องเป็นตัวเลขนะครับ
https://drive.google.com/open?id=0BwzAwbv8tImLdUZ3ZGd2dmc4U3M
5 @R23722
DoCmd.SetWarnings False
DoCmd.GoToRecord acDataForm, Me.Name, acFirst
DoCmd.RunSQL "Insert into bill([part number], [part name],[size],[havenumber],[used]) values('" & Text12 & "', '" & Text14 & "','" & Text17 & "','" & Text19 & "','" & Text21 & "')"
ผมลองเขียนโค้ดกับบอร์ดเก่าดูๆ ได้แล้วนะครับ ขอบคุณมากครับผม
DoCmd.GoToRecord acDataForm, Me.Name, acFirst
DoCmd.RunSQL "Insert into bill([part number], [part name],[size],[havenumber],[used]) values('" & Text12 & "', '" & Text14 & "','" & Text17 & "','" & Text19 & "','" & Text21 & "')"
ผมลองเขียนโค้ดกับบอร์ดเก่าดูๆ ได้แล้วนะครับ ขอบคุณมากครับผม
6 @R23725
อย่าลืม หลังจากที่ DoCmd.SetWarnings False แล้ว ต้องใส่ DoCmd.SetWarnings True ไว้หลังCodeสุดท้ายด้วยนะครับ เดี๋ยวมันจะมีปัญหากับคำสั่งอื่นๆ
ง่ายๆก็คือ ปิดแล้ว ก็ต้องเปิดครับ
ง่ายๆก็คือ ปิดแล้ว ก็ต้องเปิดครับ
Time: 0.2603s
http://thai-access.com/yeadram_view.php?topic_id=835
คำสั่งคือ
Private Sub ชื่อปุ่ม_Click()
sql = "insert into ชื่อตาราง ([ชื่อฟิวส์1], ชื่อฟิวส์2, ชื่อฟิวส์3, ชื่อฟิวส์4) values('" & ชื่อTextbox1 & "', '" & ชื่อTextbox2 & "', " & ชื่อTextbox3 & ", " & ชื่อTextbox4 & ");"
DoCmd.RunSQL sql
End Sub