รบกวนทุกท่านเช็ค VBA DoCmd.RunSQL ให้ผมหน่อยครับ

[Tatchawin]

สวัสดีครับ จะรบกวนทุกท่านเช็ค Code SQL ให้ผมหน่อยครับ ผมจะให้ INSERT เข้าไปที่ qryLean โดย SELECT ข้อมูลจาก qryHRDWH เมื่อ qryHRDWH.Selection = -1 แต่มันขึ้นว่า 'Run Time Error 3346': Number of query value and destination fields are not the same. ผมก็พยายามเชคว่ามันครบหรือเปล่า มันก็ครบนะครับ ก็เลยงงๆว่ามันผิดอะไรกันแน่ ยังไงช่วยแก้ให้ทีนะครับ

ขอบคุณครับ



Private Sub cmdRun_Click()
    Me.Requery
    If IsNull(Me.txtSCGEmployeeID) Then
        Me.txtSelection.Value = 0
    Else
        DoCmd.RunSQL "INSERT INTO qryLean([SCGEmployeeID],[NamePrefixThai],[FirstNameThai],[LastNameThai],[NamePrefixEng],[FirstNameEng],[LastNameEng]," & _
        "[NickName],[Position],[SubShift],[Shift],[SubSection],[Section],[SubDepartment],[Department],[SubDivision],[Division],[SubCompany],[Company],[Birthdate]," & _
        "[SCGHiringDate],[SystemDateTime],[ImagePath],[Selection])" & _
        "SELECT qryHRDWH.SCGEmployeeID, qryHRDWH.NamePrefixThai, qryHRDWH.FirstNameThai, qryHRDWH.LastNameThai, qryHRDWH.NamePrefixEng" _
        & "qryHRDWH.FirstNameEng, qryHRDWH.LastNameEng, qryHRDWH.NickName, qryHRDWH.Position, qryHRDWH.SubShift, qryHRDWH.Shift, qryHRDWH.SubSection" _
        & "qryHRDWH.Section, qryHRDWH.SubDepartment, qryHRDWH.Department, qryHRDWH.SubDivision, qryHRDWH.Division, qryHRDWH.SubCompany, qryHRDWH.Company" _
        & "qryHRDWH.Birthdate, qryHRDWH.SCGHiringDate, qryHRDWH.SystemDateTime, qryHRDWH.ImagePath, qryHRDWH.Selection" & _
        " FROM qryHRDWH Where qryHRDWH.Selection = -1"
       
'        DoCmd.RunSQL "Delete * from tblProductJan2020 where tblProductJan2020.Select=-1"
       
    End If
End Sub

[PNR]

 DoCmd.RunSQL "INSERT INTO qryLean([SCGEmployeeID],[NamePrefixThai],[FirstNameThai],[LastNameThai],[NamePrefixEng],[FirstNameEng],[LastNameEng]," & _
        "[NickName],[Position],[SubShift],[Shift],[SubSection],[Section],[SubDepartment],[Department],[SubDivision],[Division],[SubCompany],[Company],[Birthdate]," & _
        "[SCGHiringDate],[SystemDateTime],[ImagePath],[Selection])" & _
        "SELECT qryHRDWH.SCGEmployeeID, qryHRDWH.NamePrefixThai, qryHRDWH.FirstNameThai, qryHRDWH.LastNameThai, qryHRDWH.NamePrefixEng" _
        & "qryHRDWH.FirstNameEng, qryHRDWH.LastNameEng, qryHRDWH.NickName, qryHRDWH.Position, qryHRDWH.SubShift, qryHRDWH.Shift, qryHRDWH.SubSection" _
        & "qryHRDWH.Section, qryHRDWH.SubDepartment, qryHRDWH.Department, qryHRDWH.SubDivision, qryHRDWH.Division, qryHRDWH.SubCompany, qryHRDWH.Company" _
        & "qryHRDWH.Birthdate, qryHRDWH.SCGHiringDate, qryHRDWH.SystemDateTime, qryHRDWH.ImagePath, qryHRDWH.Selection" & _
        " FROM qryHRDWH Where qryHRDWH.Selection = -1"

ต่อประโยคผิดเปล่าครับ
มันต้อง ................" _
 แล้วก็ & "............."
หรือเปล่า

[chai]

ต่อประโยคผิด คอมมา(,) ใส่ไม่ครบ

[PNR]

ต่อประโยคผิด คอมมา(,) ใส่ไม่ครบ

จริงด้วยครับหลายจุดเลย 

[chai]

ไม่เว้นวรรค เวลาต่อประโยคบางช่วง ทีเหลือให้ท่านอื่นคอมเมนต์ต่อครับ ยิ่งดูยิ่งผิดปกติ

[Tatchawin]

ขอบคุณทุกท่านครับ เดี๋ยวผมไปแก้อีกที
ขอถามเพิ่มครับ ตรงบรรทัดนี้

    If IsNull(Me.txtSCGEmployeeID) Then
        Me.txtSelection.Value = 0

เนื่องจากปุ่มนี้อยู่ใน Subform ถ้าผมทำปุ่มไว้ข้างนอก Mainform ให้อ้างมาถึง Subform ได้
ผมจะเขียน Code เพื่ออ้างอิงมาที่ Subform นี้ได้อย่างไรครับ

ขอบคุณครับ

[PNR]

ขอบคุณทุกท่านครับ เดี๋ยวผมไปแก้อีกที
ขอถามเพิ่มครับ ตรงบรรทัดนี้

    If IsNull(Me.txtSCGEmployeeID) Then
        Me.txtSelection.Value = 0

เนื่องจากปุ่มนี้อยู่ใน Subform ถ้าผมทำปุ่มไว้ข้างนอก Mainform ให้อ้างมาถึง Subform ได้
ผมจะเขียน Code เพื่ออ้างอิงมาที่ Subform นี้ได้อย่างไรครับ
ขอบคุณครับ

if IsNull(Me.txtSCGEmployeeID) Then
        Forms![ชื่อMainform]![ชื่อSubform].Form!txtSelectionValue = 0
end if

[Tatchawin]

สอบถามเพิ่มอีกนิดนึงครับ
ตรง DoCmd.RunSQL "INSERT INTO table.... ถ้าผมต้องการทำ combo box รายชื่อตารางทั้งหมดขึ้นมาเพื่อให้ผู้ใช้เลือก Insert ข้อมูลลงตารางที่เลือก ผมควรจะเขียนโค้ดอย่างไรให้ Insert ลงตามตารางที่ผู้ใช้เลือกบน Combo box ครับ

ขอบคุณมากครับ

[PNR]

แก้เป็นแบบนี้นะครับ

Private Sub Command6_Click()
Dim strTable, SQL As String
strTable = cbUpdateTable
SQL = "INSERT INTO " & strTable & " ( Field1, Field2, Field3 ) values (text1, text2, text3);"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
MsgBox "นำเข้าไปยังตาราง " & cbUpdateTable & " เรียบร้อยแล้ว"
End Sub


แก้ไขใหม่ครับ เขียนอ้างอิงต้องอ้างอิงจากtextbox บนฟอร์ม

[Tatchawin]

ขอบคุณมากครับ ทำได้แล้วครับ แต่ขอรบกวนอีกสักข้อได้ไหมครับ ผมพยายามแล้ว แต่งงมาก


จากภาพ ผมต้องการให้สามารถ Filter แบบ Multiple ได้หลายๆเดือน โดย filter ข้อมูลที่อยู่บน subform "frmqryHRDWH" ตามเดือน(SortMonthNum)โดยสั่งจาก Mainform ที่ชื่อ frmSelect ผมก็เขียนโค้ดได้ประมาณนี้

Private Sub cmdSearch2_Click()
    Call Search
End Sub
Sub Search()
Dim varItem As Variant
Dim strSearch As String
Dim Task As String

Me.FilterOn = True
For Each varItem In Me!lstMonthSort.ItemsSelected
    strSearch = strSearch & "," & Me!lstMonthSort.ItemData(varItem)
Next varItem
'MsgBox (strSearch)
If Len(strSearch) = 0 Then
    Task = "select * from qryHRDWH"
Else
    strSearch = Right(strSearch, Len(strSearch) - 1)
    'MsgBox (strSearch)
    Task = "select * from qryHRDWH where ([SortMonthNum] in (" & strSearch & "))"
End If
    DoCmd.ApplyFilter Task
End Sub

แต่สิ่งที่เกิดขึ้นคือ Error ตัวนี้ครับ


ผมคิดว่าน่าจะผิดตรง DoCmd.ApplyFilter Task น่าจะต้องอ้างอิงไปยัง Subform แต่ไม่รู้จะแก้ยังไง รบกวนช่วยแก้ทีนะครับ

รบกวนอีกครั้งครับ ขอบคุณมากครับ :D

[PNR]

ลองดัดแปลงเป็นแบบนี้ดูครับ
จากตัวอย่าง Field SortMonthNum เป็น Number นะครับ

โค๊ด: [Select]

Sub Search()
Dim strSearch As String
For Each varItem In Me!lstMonthSort.ItemsSelected
strSearch = strSearch & " Or SortMonthNum=" & "" & Me!lstMonthSort.ItemData(varItem) & ""
Next varItem
If Len(strSearch) = 0 Then
Me.frmqryHRDWH.Form.FilterOn = False
Else

strSearch = Right(strSearch, Len(strSearch) - 3)
Me.frmqryHRDWH.Form.Filter = strSearch
Me.frmqryHRDWH.Form.FilterOn = True
End If
End Sub


[Tatchawin]

ขอบคุณมากๆเลยครับ ทำได้แล้ว ผมลองแก้ไปแก้มาตะกี้ ก่อนโพสท่านสักแปป แบบนี้ก็ได้เหมือนกัน :D :)

Sub Search()
Dim varItem As Variant
Dim strSearch As String
Dim Task As String

Me.FilterOn = True
For Each varItem In Me!lstMonthSort.ItemsSelected
    strSearch = strSearch & "," & Me!lstMonthSort.ItemData(varItem)
Next varItem
'MsgBox (strSearch)
If Len(strSearch) = 0 Then
    Task = "select * from qryHRDWH"
    Forms!frmSelect!frmqryHRDWH.Form.RecordSource = Task
Else
    strSearch = Right(strSearch, Len(strSearch) - 1)
    'MsgBox (strSearch)
    Task = "select * from qryHRDWH where ([SortMonthNum] in (" & strSearch & "))"
    Forms!frmSelect!frmqryHRDWH.Form.RecordSource = Task
End If
End Sub