ลองดูตัวอย่างนี้ครับ ผมเปลี่ยนจากการ GotFocus แล้ว โค้ดทำงานเป็นใส่บน CommandBonton เล็กๆ นะครับลองดู

โค๊ด: [Select]

Dim GetSerialNo As String
Dim RunNum_Sequence As Integer
DoCmd.GoToRecord , , acNewRec
If IsNull(Sequence) Then
Me.Sequence.Requery
GetSerialNo = DLast("SerialNo", "tblWareHouseAll")
RunNum_Sequence = DMax("Sequence", "tblWareHouseAll")
Me.SerialNo = GetSerialNo
Me.BoxNo = DLookup("BoxNo", "tblWareHouseAll", "SerialNo='" & GetSerialNo & "'")
Me.Shelf = DLookup("Shelf", "tblWareHouseAll", "SerialNo='" & GetSerialNo & "'")
Me.Sequence = RunNum_Sequence + 1
Me.CIFNo.SetFocus
End If

ขอบพระคุณมากครับผม

อย่างที่บอกครับว่า โจทย์มี Conflict อยู่
คำถามว่าถ้าเกิดเหตุการณ์เช่นที่ว่าจะทำอย่างไร ก็ยังไม่ได้คำตอบ

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

ขอบพระคุณมากครับอาจารย์ครับผม

เงื่อนไขมันแปลกๆ นะครับ ถ้าข้อมูลเป็นแบบนี้ควรออกมาอย่างไรครับ
No        Code           CustomerName
1           001                   นาย ก
2           001                   นาย ก
3           001                   นาย ก
4           004                   นาย ง
5           002                   นาย ข
6           003                   นาย ค
7           004                   นาย ง
8           004                   นาย ง
9           004                   นาย ง
10         004                   นาย ง

ถ้าบอกว่าเป็นแบบนี้
Code
001
002
003
004

ปัญหาคือ มี 004 มาก่อน 002

แล้วถ้าเป็น
Code
001
004
002
003

ปัญหาคือ มี 004 ที่ป้อนทีหลังอัก

แต่ถ้าไม่มีเหตุการณ์แบบนี้ก็ใช้คิวรีธรรมดาๆ เลือกเฉพาะฟิลด์ Code แล้วกำหนดเป็น Unique Value ครับ

เหตุที่เป็นแบบนี้เพราะว่าในแต่ละวันจะมีการคีย์ข้อมูลลูกค้าเดิมๆเข้าระบบ ซึ่งแล้วแต่ลูกค้านั้นๆจะมาทำธุรกรรม ลำดับจึงไม่เรียงกันครับ ผมต้องการ Code ลูกค้าทั้งหมด โดยเรียงตามลำดับการคีย์ แต่ข้อมูลต้องไม่ซ้ำกัน ตามที่ได้กล่าวไว้ข้างต้นครับ

ผมสร้าง Table สำหรับบันทึกข้อมูล โดยกำหนดให้ฟิลด์ No เป็น AutoNumber รายละเอียดดังนี้

No        Code           CustomerName
1           001                   นาย ก
2           001                   นาย ก
3           001                   นาย ก
4           002                   นาย ข
5           002                   นาย ข
6           003                   นาย ค
7           004                   นาย ง
8           004                   นาย ง
9           004                   นาย ง
10         004                   นาย ง

ผลที่ต้องการคือ

Code
001
002
003
004

ผมต้องการข้อมูลรายละเอียดของฟิลด์ Code ซึ่งไม่ซ้ำกัน แต่มีเงื่อนไขว่า ต้องเรียง ตามลำดับการคีย์ข้อมูล ไม่ทราบว่าต้องทำอย่างไรบ้างครับ
ถึงจะให้ได้ผลตามที่ต้องการ ขอบคุณครับผม

ผมสร้างฟิลด์ เป็น Number แต่เวลาใส่จำนวนเงินที่เป็นทศนิยม ระบบปัดเศษให้เองครับ จะมีวิธีใดบ้างครับที่จะไม่ให้ระบบปัดเศษครับ ขอบคุณครับผม

เพิ่มเติมนิดนึงนะครับ
Me.txt_BranchName = DLookup("BranchName", "tblBranch", "BranchCode='" & Forms!ชื่อฟอร์ม!txt_BranchCode & "'")

ดูเครื่องหมาย ' ให้ดีนะครับ ถ้าในตารางข้อมูลเป็น text  ต้องมีด้วย '

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

ใส่คำสั่ง Dlookup ไว้ที่ Control Source ของ  txt_BranchName, txt_Branch, txt_Area
ตัวอย่างสำหรับ txt_BranchName
Dlookup("[BranchName]","[tblBranch]","[BranchCode]=[txt_BranchCode]")

ปล. ไม่แน่ใจว่าต้องใส่เครื่องหมาย = หรือเปล่านะ ลองดูครับ

ขอบพระคุณมากครับผม จะลองทำดูครับผม

test

[ไฟล์แนบถูกลบโดยผู้ดำเนินการ]

คือผมต้องการสร้างปุ่มไว้ Random ฟิวในเทเบิ้ลที่เป็น Text ต้องเขียนโค้ดอย่างไรบ้างครับ ขอบคุณมากครับผม