ส่งตัวอย่างมาทาง inbox ผมดูให้ครับ

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

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


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

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 บนฟอร์ม

อย่าลืมไปแก้ datatype ให้เป็น number ด้วยนะ

เขาปิดตรง อนุญาตให้เพิ่ม  = ไม่ใช่ครับ
พอ combobox ว่างก็จะไม่แสดง ข้อมูล
ลองเช็คการตั้งค่าของ Subform แบบในรูปดูนะครับ



และดูตรงการตั้งค่าการเชื่อมโยงข้อมูล เขาใช้การเชื่อม รหัสประจำตัวประชาชน จาก textbox ชื่อ search_text ซึ่งเขาได้ซ่อนเอาไว้ในฟอร์ม
โดยเขาได้กำหนดให้ Event ของคอมโบบ๊อกที่ชื่อ by_oname เป็น  Me![search_text] = Me![by_oname].Column(1)
ทำให้ textbox search_text จะได้เลขรหัสบัตรประจำตัวประชาชน แล้วนำมาเชื่อมกับ Field ID_POSIT เพื่อให้ข้อมูล subform แสดงเนื้อหาตาม combobox ที่เราใช้

ตรง Subform ใส่โค้ดนี้ที่ RecordSource ตามนี้ครับ
SELECT Employee.ID, Employee.EmployeeCode, Employee.EmployeeName, Employee.EmployeeDivision, Employee.EmployeeLocation FROM Employee WHERE (((Employee.EmployeeDivision)=forms!form1!comboDivision) And ((Employee.EmployeeLocation)=forms!form1!comboLocation));

อ้างจาก: PNR ที่ 14 เม.ย. 63 , 14:05:47

จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ

ทำได้แล้วค่ะ ลองไป Copy code จากตัวอย่างที่ส่งมาแล้วไปแก้ไข สามารถใช้ได้แล้วค่ะ ขอบคุณมากๆนะคะ

สาเหตุที่เกิด ERROR นั้นเพราะ มีการใช้คำสั่ง Docmd.close เพื่อปิดฟอร์ม หน้าจอล๊อกอิน ครับ
ต่อมาพอเราต้องการอ้างอิง ข้อมูลจาก textbox หรือ combobox ของฟอร์มล๊อกอิน ก็ไม่สามารถทำได้แล้วเพราะเราสั่งปิดฟอร์มไปแล้วครับ

จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ

ในหน้าฟอร์มหากเราดับเบิ้ลคลิกที่ไตเติ้ลบาร์ฟอร์มก็จะย่อหดลงมา แต่ผมต้องการให้ดับเบิ้ล์คลิกที่ไตเติ้ลบาร์แล้วไม่ให้หน้าต่างมันย่อมาน่ะครับ ต้องทำอย่างไรบ้าง หากไม่ใช้ You can change the Border Style property of the form to Dialog. ครับ ขอบคุณมากครับ

ลองดูแบบนี้ครับใช้ใน Event Form_Load
วิธีการนี้คือ สั่งให้แสดงแบบเต็มหน้าจอ แล้วสร้างตัวแปรเก็บค่าไว้ เมื่อเก็บค่าไว้แล้วก็สั่ง Restore แล้วใช้การแสดงฟอร์มจากค่าตัวแปรที่เก็บค่าไว้แทน
ซึ่งจะทำให้ฟอร์มแสดงผลอยู่แบบนั้นไม่สามารถกดย่อได้อีกนั้นเอง

Private Sub Form_Load()
Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long
    With Me
        DoCmd.Maximize
        lngWT = .WindowTop
        lngWL = .WindowLeft
        lngWH = .WindowHeight
        lngWW = .WindowWidth
        DoCmd.Restore
        Call .Move(lngWL, lngWT, lngWW, lngWH)
    End With
End Sub