1. สร้างฟังก์ชั่นลงใน Module
โค๊ด: [Select]
Function ConcatRelated(expression$, domain$, criterial$)
    Dim db As DAO.Database
    Dim rs As Recordset
    Dim SQLCmd As String
    Dim ConCat As String
 
    Set db = CurrentDb()
    SQLCmd = "SELECT " & expression$ & " FROM " & domain$ & " WHERE " & criterial$
    Set rs = db.OpenRecordset(SQLCmd)
 
    If Not rs.EOF Then
        rs.MoveFirst
    End If
 
    Do While Not rs.EOF
        ConCat = ConCat & rs(0) & "-" ' เครื่องหมายคั่น
        rs.MoveNext
    Loop
   
    If ConCat & "" <> "" Then
        ConcatRelated = Left(ConCat, Len(ConCat) - 2)
    End If
    rs.Close: Set rs = Nothing: Set db = Nothing
End Function

2. สร้างคิวรี่ใหม่ ใส่ SQL
โค๊ด: [Select]
SELECT DISTINCT tbl_slide.tb_labno, ConcatRelated("[tb_slidenum]","[tbl_slide]","[tb_labno]='" & [tbl_slide].[tb_labno] & "'") AS tb_slidenum


ถ้าต้องการตัดตัวเลขหน้า "," ออกให้เหลือแค่ที่ไฮไลต์ทุกๆอัน ต้องแก้ไขโค้ดตรงไหนค่ะ ลองเขียน
บรรทัด ConcatRelated แล้วมันตัดให้แค่ตัวหน้าแค่ตัวเดียวค่ะ

การนำค่าของ Textbox บันทึกลงไปใน Field ของ Table ซึ่ง textbox นี้จะเป็นค่าที่คำนวณไว้ค่ะ

ต้องการทำให้เมื่อค่า textbox นี้เปลี่ยนให้นำข้อมูลคำนวณใน textbox นี้ไปบันทึกลง
Field ของ table ที่กำหนดค่ะ

ขอบคุณค่ะ เดี๋ยวจะลองแกะดูนะคะ ติดปัญหายังไง จะมาขอ consult นะคะ

ทำได้แล้วค่าา ขอบคุณค่ะ

ได้แล้วค่า ขอบคุณค่ะ 

ไฟล์ excel ที่นำเข้าไม่มี ชื่อคอลัมน์ค่ะ

Option Compare Database
  Dim diag As Office.FileDialog
    Dim item As Variant
Private Sub cmd_browse_Click()
    Set diag = Application.FileDialog(msoFileDialogFilePicker)
    diag.Title = "Please select an Excel Spreadsheet"
    diag.Filters.Clear
    diag.Filters.Add "Excel Spreadsheets", "*.xls, *.xlsx"
   
    If diag.Show Then
    If MsgBox("comfirm click yes", vbYesNo) = vbYes Then
        For Each item In diag.SelectedItems
            Me.txt_showimport = item
            Call DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel8, "tbl_import", item,False ,"A1:E30")
            MsgBox "Update Finish"
            Next
    End If
    End If
    End Sub

ติดปัญญา field f1 doesn't exist in destination table ค่ะ มีวิธีแก้อย่างไรบ้างคะ

มีข้อมูลฟิลด์อยู่ 2 ฟิลด์ ดังนี้

 Field A    Field B
    1            1
    A            1
    1            1
    A            B
    A            B

เมื่อ import ข้อมูล Field A ข้อมูลมาทั้งหมด
แต่ Field B ข้อมูลมาแค่ 3 อันดับบน ดังนี้

 Field A     Field B
    1            1
    A            1
    1            1
    A           
    A           

ต้องเข้าไปตั้งค่าตรงไหนมั้ยคะ หรือ ตัวเลขกับ text สามารถอยู่ใน Field เดียวกันได้มั้ยคะ
Import ข้อมูลมาจาก excel ค่ะ

ต้องใส่โค๊ต DoCmd.OpenQuery บรรทัดไหนคะ 

ทำได้แล้วค่ะ ขอบคุณค่ะ
แต่แก้ไขโดยการ เพิ่มคำสั่ง Dcount ค่ะ
If DCount("tb_slidenum", "tbl_slide", "tb_slidenum='" & Me.txt0 & "'") = 0