เรียนผู้รู้ทุกท่าน และอาจารย์ทุกท่านครับ

          ตามหัวข้อเลยครับ ผมดึงข้อมูลเป็นแบบ Link จาก Excel เข้า Access โดยที่ห้ามแก้ไขหรือเพิ่มคอลั่มจาก File Excel
แล้วเอามาใช้งานแต่ติดที่ Excel ไม่มีField Numberและไม่มี Field ที่ไม่ซ้ำครับ ที่ผมจะเอามาใช้ Running Number ให้กับรายการที่ Query ครับเลยทดลองดำดังนี้ครับ

1. ดึง Ms Excel เข้า Ms Access
2. ดึงข้อมูลทั้งหมดมาทำ Query ขึ้นมาเพื่อว่าจะได้เอาข้อมูลไปทำอะไรต่อได้ (ตอนนี้ต้องการทำเลข Running Number หรือลำดับรายการที่ Query ครับ)
3. ที่ข้อมูลที่ดึงมามันไม่มีข้อมูลที่ไม่ซ้ำกัน และไม่มีข้อมูลที่เป็น Number อย่างเดียวเลยครับ

ผมสามารถสร้างเลข Running number เข้าไปที่ Query ได้ไหมครับ และอย่างไร รบกวนแนะนำด้วยครับ
ขอบคุณครับ

ได้แล้วครับ จากกระทู้เก่าของ อ.TTT

  Dim i As Integer
    Dim strSelected As String
    strSelected = Nz([TX01])
     
    For i = 0 To ListBox.ListCount - 1
        If ListBox.Selected(i) = True Then
            If strSelected = "" Then
               strSelected = Listbox.Column(1, i)
            Else
               strSelected = strSelected & ";" & ListBox.Column(1, i)
            End If
        End If
    Next i
    Me.TX01 = strSelected

ขอบคุณครับ

เรียนอาจารย์ทุกท่านและผู้รู้ครับทุกคนครับ

          ขอสอบถามเรื่องการเลือกข้อมูลจาก ListBox แล้ว นำรายการที่เลือกมาต่อกันครับ
คือ ผมมี Listbox ที่มีรายการ ID และ Email 2 คอลัมน์  ต้องการการเขียน Code
เมื่อคลิกเลือกข้อมูลใน Listbox ลงใน Tx01  หากเลือกมากกว่า 1 รายการก็ให้เอา Email มาต่อกัน
เช่น A@hotmail.com;B@hotmail.com;C@hotmail.com
ตรงคำสั่ง SQL จะเขียนแบบไหนครับ
ผมทดลองทำตามตัวอย่างอาจารย์สันติสุข แต่ติดตรงจะเอามาต่อข้อความกันยังไงครับ รบกวนแนะนำด้วยครับ
คือผมจะทำการเลือก Email เพื่อส่งหลายๆคนครับ

Private Sub ListBox_Click()
Dim dbs As Object, rst As Object
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * From TB_Email Where ID =" & Me.Listbox)
If Not rst.EOF Then
Me.TX01 = rst("Email")

Else
MsgBox "ไม่พบข้อมูล", vbOKOnly, "No data"
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Sub


ขอบคุณครับ

จากกระทู้นี้ ขอสอบถามต่อ เพราะ ตั่งแต่ถามมา คือก๋ใช้เครื่องเดิมมาตลอดครับ
คือ Windows 7 32bit  Office 2007
โปรแกรมทำงานได้ดีปกติครับ

แต่พอใช้ Windows 10 64 bit + Office 2016
มันก็แจ้ง
runtime error 429 activex component can t create object
พอมีใครเคยเจอแบบนี้ไหมครับ รบกวนชี้แนะด้วยครับ

ขอถามต่ออีกนิดครับ

ถ้า QM ผมมี QM1-QM20
มันต่องใช้ IF เยอะมาก พอจะย่นให้สั้นได้ไหมครับ
จากที่อาจาย์หลายท่านแนะนำ IF เยอะมันจะ
ทำงานหลายรอบ และอาจทำให้โปรแกรมช้า

ขอรบกวนอีกครั้งครับ

Private Sub Text0_AfterUpdate()
    If Text0.Value = "QM1" Then
        Forms![frmForm2]![Check1] = True
    ElseIf Text0.Value = "QM2" Then
        Forms![frmForm2]![Check2] = True
     ElseIf Text0.Value = "QM3" Then
        Forms![frmForm2]![Check3] = True
       ElseIf........QM20

     Else
    Forms![frmForm2]![Check2] = False
    Forms![frmForm2]![Check3] = False
    Forms![frmForm2]![Check4] = False


End If
End If
End If
.
.
.
End Sub

ขอบคุณอีกครั้งครับ

เรียนอาจารย์
ผมได้เขียน ที่ Frm1
Private Sub Text1_Enter()
If Me.Text1 = "QM" then
Forms("Frm2").Checkbox1 = True
Else
MsgBox "กรุณาใส่ข้อความให้ถูกต้อง"
End if
End Sub

เรียนอาจารย์ มันไม่มี Error แต่ checkbox1 ก็ไม่มีค่าครับ ทำไมมันไม่ติกถูกที่checkbox1 ครับ
ขอบคุณครับ

เป็นที่ Windows 10 ครับ  ส่วน Windows7 หรือต่ำลงมาใช้งานได้ปกติครับ(พอดีเปลี่ยนเครื่องเป็นWindows10 ครับจึงพบปัญหาตามภาพครับ ก่อนหน้าใช้ได้ปกติครับ)

Private Sub Command23_Click()
Dim Rec As String
Dim ol As Object
Dim olMail As Object
Dim strCC As String
If Text12 = " " Or IsNull(Text12) Then
MsgBox "¡ÃسÒãÊè¢éͤÇÒÁ"
Else
Rec = Text12.Value
Set ol = CreateObject("Outlook.Application")
Set olMail = ol.CreateItem(0)
With olMail
.To = "AAA@hotmail.com"
.Subject = "àÍ¡ÊÒèҡ IT"
.Body = Rec
.Display
'.Send
End With
Set olMail = Nothing
Set ol = Nothing
NetSend "192.168.1.1", Rec
End If
End Sub

เรียนอาจารย์ข้อ 1.ผมเข้าใจละครับเรื่อง Funtion If
2.ได้แล้วครับผมสลับ strUserID กับ  strTxItem สลับ Text ครับ
3. ยังติดอยู่ครับว่าทำไมมันไม่ setfocus ให้