มีฟิลล์ไหนไม่ซ้ำไหม

เราสามารถที่จะพอทำได้ครับ โดยใช้การกำหนด ประกาศตัวแปรเป็น Public นะครับ
ผมสมมุติ text1 ถึง text3 และ textbox แสดงชื่อ total
เพราะโดยปกติ .Text จะใช้ได้กับ คอนโทรลที่ โฟกัสอยู่เท่านั้น
เราจึงควรสร้างตัวแปรขึ้นมาเก็บค่าไว้ก่อนเพื่อนำไปต่อกับ ตัวแปรต่อๆไป ครับ

ดังตัวอย่างโค้ดนี้

Option Compare Database
Public strText1, strText2, strText3 As Variant

Private Sub Form_Current()
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub

Private Sub Text1_Change()
If Len(Me.Text1.Text) > 0 Then
strText1 = Me.Text1.Text
End If
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub
Private Sub Text2_Change()
If Len(Me.Text2.Text) > 0 Then
strText2 = Me.Text2.Text
End If
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub
Private Sub Text3_Change()
If Len(Me.Text3.Text) > 0 Then
strText3 = Me.Text3.Text
End If
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub

จากอันเก่าปรับโค้ดเป็นแบบนี้นะครับ ไม่ต้องสร้างตารางใหม่
เอาตาราง Temp ออกไปได้เลย

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strWong_Code As String
Dim strMember_Code As String
Dim SQL As String
Set db = CurrentDb()
Set rst = db.OpenRecordset("TB2", dbOpenDynaset)
If Not rst.BOF And Not rst.EOF Then
  rst.MoveFirst
  strWong_Code = rst![วง]
  strMember_Code = rst![สมาชิก]
  rst.MoveNext
 
  Do Until rst.EOF
    If strWong_Code = rst![วง] Then
      strMember_Code = strMember_Code & "," & rst![สมาชิก]
    Else
DoCmd.SetWarnings False
   SQL = "UPDATE TB1 " & _
        "SET samachik= '" & strMember_Code & "'" & _
        "WHERE [รหัส] = '" & strWong_Code & "'"
    DoCmd.RunSQL SQL
      strWong_Code = rst![วง]
      strMember_Code = rst![สมาชิก]
    End If
    rst.MoveNext
  Loop 

DoCmd.SetWarnings False
   SQL = "UPDATE TB1 " & _
        "SET samachik= '" & strMember_Code & "'" & _
        "WHERE [รหัส] = '" & strWong_Code & "'"
    DoCmd.RunSQL SQL
    DoCmd.SetWarnings True
End If
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing


Datatype ของ Field ทำ1 ถึง 5 เป็นประเภทไหนครับ

ส่วน SQL คิวรี่ น่าจะเป็น

SELECT [ทำ1] & " " & [ทำ2] & " " & [ทำ3] & " " & [ทำ4] & " " & [ทำ5] AS ลักษณะการทำประโยชน์, *
FROM ชื่อตาราง;

ได้แล้วครับ
Dim chk As Variant
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode] = '" & Me.Text95 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
        Exit Sub
    End If

แต่ถ้าต้องการไม่ให้บันทึกได้แหละครับทำไงคับ ขอบคุณครับ

ใช้ Me.undo ก็ได้ครับ
Dim chk As Variant
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode] = '" & Me.Text95 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
me.undo
        Exit Sub
    End If

Dim Chk as String ไปดีกว่าครับ
ควรกำหนดประเภทข้อมูลให้ตัวแปรด้วยเน้อ

สอบถามได้ทำการสร้างฟอร์มขึ้นมาเพื่อเพิ่มข้อมูล แต่อยากให้ก่อนเพิ่มข้อมูลต้องตรวจสอบว่า อีกตารางมีข้อมูลที่กำหนดแล้วหรือไม่ ถ้ามีให้ทำต่อไป ถ้าไม่มีให้มีข้อความแจ้งเตือน
ตามรูปครับ

ใช้ Dlookup check ได้ครับ โดยใช้อีเว้น Afterupdate ครับ โดยใช้โค้ดวิวจากตาราง IN โดยเปรียบเทียบกับ Textbox ของตาราง Out
เช่น if isnull(dlookup("ชื่อฟิลด์","ชื่อตาราง","[Tag no Barcode]='" & me.ชื่อTextboxbarcodeFormout &"'")) then
Msgbox "แจ้งเตือน"
Me.ชื่อTextboxbarcodeFormout.setfocus
Me.ชื่อTextboxbarcodeFormout = Null
End if
ลองดูครับพิมพ์กับโทรศัพท์ยังไม่ได้เทส code เดี๋ยวพรุ่งนี้มาดูให้อีกทีถ้าไม่ได้

เราสามารถเอาข้อมูลจาก Query Union ไปสร้างเป็น Table ได้ไหมครับ

ได้ Query Union แล้วก็ไปสร้าง MakeTable Query ต่อได้เลยครับ

ในส่วนของ รายละเอียด หรือ Detail นะครับใส่โค้ดแบบนี้เข้าไป
สมมุติ botton ชื่อ btn1 นะครับ ตรง caption ปล่อยว่างๆไว้
และตรงส่วน Dcount ก็เอาของคุณมาใส่ได้เลย
ใช้ Event OnPaint นะครับ

Private Sub รายละเอียด_Paint()
If Not IsNull(ID) Then
Me.btn1.Caption = "เลือก (" & DCount("[Field]", "[table]", "[ID] =" & [ID] & "") & ")"
End If
End Sub
ID คือ Pk หรือชื่อ Field F-00.. ของคุณนั้นเอง ถ้า ID เป็น string อย่าลืมใส่ single quote ด้วยนะครับ เช่น
Me.btn1.Caption = "เลือก (" & DCount("[Field]", "[table]", "[ID] ='" & [ID] & "'") & ")"