กระทู้เก่าบอร์ด อ.Yeadram
2,376 13
URL.หัวข้อ /
URL
เช็ครูปภาพ
สวัสดีครับอาจารย์
ปัญหาที่พบคือเมื่อโปรแกรมเช็คไม่พบรูปภาพแล้ว
จะบันทึกรายการ GoodsID จากตราราง tblGoodsList
ลงในตาราง tblnewGoods ซ้ำๆ ครับ
รบกวนอาจารย์ด้วยครับ
Private Sub Command0_Click()
Dim strSQL As String
If MsgBox("Are you sure", vbQuestion + vbYesNo + vbDefaultButton2, "Please confirm again") = vbNo Then
Else
Dim rs As DAO.Recordset, Path_Folder As String
Set rs = CurrentDb.OpenRecordset("tblGoodsList")
Path_Folder = "D:\Image0\"
rs.MoveFirst
Do Until rs.EOF
If Dir(Path_Folder & rs!GoodsID& ".jpg", vbNormal) = "" Then
strSQL = "INSERT INTO tblnewGoods (GoodsID)" _
& " SELECT tblGoodsList.GoodsID" & " FROM tblGoodsList"
DoCmd.RunSQL strSQL
DoEvents
End If
rs.MoveNext
Loop
MsgBox "Checking Completed", vbInformation, "Inform.."
End If
ปัญหาที่พบคือเมื่อโปรแกรมเช็คไม่พบรูปภาพแล้ว
จะบันทึกรายการ GoodsID จากตราราง tblGoodsList
ลงในตาราง tblnewGoods ซ้ำๆ ครับ
รบกวนอาจารย์ด้วยครับ
Private Sub Command0_Click()
Dim strSQL As String
If MsgBox("Are you sure", vbQuestion + vbYesNo + vbDefaultButton2, "Please confirm again") = vbNo Then
Else
Dim rs As DAO.Recordset, Path_Folder As String
Set rs = CurrentDb.OpenRecordset("tblGoodsList")
Path_Folder = "D:\Image0\"
rs.MoveFirst
Do Until rs.EOF
If Dir(Path_Folder & rs!GoodsID& ".jpg", vbNormal) = "" Then
strSQL = "INSERT INTO tblnewGoods (GoodsID)" _
& " SELECT tblGoodsList.GoodsID" & " FROM tblGoodsList"
DoCmd.RunSQL strSQL
DoEvents
End If
rs.MoveNext
Loop
MsgBox "Checking Completed", vbInformation, "Inform.."
End If
13 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R18395
รบกวนท่านอาจารย์ด้วยครับ
2 @R18396
น่าจะเป็น
strSQL = "INSERT INTO tblnewGoods (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')"
strSQL = "INSERT INTO tblnewGoods (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')"
3 @R18423
ยังไม่ได้ครับ แต่ผมส่งตัวอย่างไฟล์ให้แล้วครับที่
accgmail@gmail.com ครับ
รบกวนด้วยาครับ
accgmail@gmail.com ครับ
รบกวนด้วยาครับ
4 @R18425
เมล์ชื่อ accboard @ gmail.com ครับ
แล้วที่บอกว่ายังไม่ได้ มันยังซ้ำหรือมันยังไม่ได้ยังไง บอกรายละเอียดมาด้วย
แล้วที่บอกว่ายังไม่ได้ มันยังซ้ำหรือมันยังไม่ได้ยังไง บอกรายละเอียดมาด้วย
5 @R18427
ขอโทษครับผมส่่งให้ใหม่แล้วครับ
6 @R18428
ไม่มีเมล์ครับ ไม่ก็อัพโหลดไปที่ไหนสักที่
7 @R18434
8 @R18435
9 @R18436
เปลี่ยนบรรทัด strSQL ตามนี้
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')"
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')"
10 @R18441
ยังไม่ได้เลยครับอาจารย์
run-time error '3137:
Missing semicolon(;) at end SQL statement.
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')" _
'บันทึกข้อมูลที่ไม่มีรูปภาพลงในตาราง tblExpListWeight
& " SELECT tblExpListWeight.GoodsID FROM tblExpListWeight;"
DoCmd.RunSQL strSQL
run-time error '3137:
Missing semicolon(;) at end SQL statement.
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')" _
'บันทึกข้อมูลที่ไม่มีรูปภาพลงในตาราง tblExpListWeight
& " SELECT tblExpListWeight.GoodsID FROM tblExpListWeight;"
DoCmd.RunSQL strSQL
11 @R18442
ยังไม่ได้เลยครับอาจารย์
run-time error '3137:
Missing semicolon(;) at end SQL statement.
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')" _
'บันทึกข้อมูลที่ไม่มีรูปภาพลงในตาราง tblnewPart
& " SELECT tblExpListWeight.GoodsID FROM tblExpListWeight;"
DoCmd.RunSQL strSQL
run-time error '3137:
Missing semicolon(;) at end SQL statement.
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')" _
'บันทึกข้อมูลที่ไม่มีรูปภาพลงในตาราง tblnewPart
& " SELECT tblExpListWeight.GoodsID FROM tblExpListWeight;"
DoCmd.RunSQL strSQL
12 @R18444
ไม่เห็นคุณเขียนอย่างที่ผมแนะนำไปเลย คุณเขียนเป็น
strSQL = "INSERT INTO tblnewGoods (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')_"
& " SELECT tblExpListWeight.GoodsID" & " FROM tblExpListWeight"
strSQL มีแค่ตามที่ผมเขียนเท่านั้นนะครับ แล้วอีกอย่างเทเบิลก็ชื่อต่างจากในคำถามนี้ทั้งนั้น
strSQL = "INSERT INTO tblnewGoods (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')_"
& " SELECT tblExpListWeight.GoodsID" & " FROM tblExpListWeight"
strSQL มีแค่ตามที่ผมเขียนเท่านั้นนะครับ แล้วอีกอย่างเทเบิลก็ชื่อต่างจากในคำถามนี้ทั้งนั้น
13 @R18450
ขอโทษครับอาจารย์
ได้แล้วครับ ขอบคุณมากครับ
Private Sub Command0_Click()
Dim SQL As String
Dim rs As DAO.Recordset, Path_Folder As String
Dim strSQL As String
If MsgBox("Are you sure ", vbQuestion + vbYesNo + vbDefaultButton2, "¤Óàµ×͹") = vbNo Then
Else
SQL = "delete from tblnewpart"
DoCmd.RunSQL SQL
Set rs = CurrentDb.OpenRecordset("tblExpListWeight")
Path_Folder = "D:\DataCenter\MJEA-TH-PKSTD\STEP0\"
rs.MoveFirst
Do Until rs.EOF
If Dir(Path_Folder & rs!GoodsID & ".jpg", vbNormal) = "" Then
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')"
DoCmd.RunSQL strSQL
DoEvents
End If
rs.MoveNext
Loop
MsgBox "Checking Completed", vbInformation, "Inform.."
End If
End Sub
ได้แล้วครับ ขอบคุณมากครับ
Private Sub Command0_Click()
Dim SQL As String
Dim rs As DAO.Recordset, Path_Folder As String
Dim strSQL As String
If MsgBox("Are you sure ", vbQuestion + vbYesNo + vbDefaultButton2, "¤Óàµ×͹") = vbNo Then
Else
SQL = "delete from tblnewpart"
DoCmd.RunSQL SQL
Set rs = CurrentDb.OpenRecordset("tblExpListWeight")
Path_Folder = "D:\DataCenter\MJEA-TH-PKSTD\STEP0\"
rs.MoveFirst
Do Until rs.EOF
If Dir(Path_Folder & rs!GoodsID & ".jpg", vbNormal) = "" Then
strSQL = "INSERT INTO tblnewPart (GoodsID) VALUES ('" & Path_Folder & rs!GoodsID & ".jpg')"
DoCmd.RunSQL strSQL
DoEvents
End If
rs.MoveNext
Loop
MsgBox "Checking Completed", vbInformation, "Inform.."
End If
End Sub
Time: 0.3329s
