DMax("Val(Right(ฟิลด์,5))", "ตาราง") + 1

ไม่ใช่ครับอาจาร TTT

เอาใหม่ ตอนนี้ผมใช้ combobox เลือกข้อมูลแล้ว Event
AfterUpdate ผมใช้คำสั่ง Me.textbox = Dmax("[ฟิลด์]","Query")+1

คำถามมีอยู่ว่า ผมต้องเขียนโค๊ตยังงัยโดยไม่ต้องทำ Query หมายถึง
เอา Query มาเขียนเป็นโค๊ตแทน

SELECT Val(Right([ฟิลด์],5)) FROM ตาราง;

โดยที่บรรทัดนี้มาอยู่ใน AfterUpdate โดยไม่ต้องสร้าง Query ครับ

งง ครับ

คือผมไม่อยากให้มี Query เยอะ ผมจะเปลี่ยนเป็นโคตแทน
ปัจจุบันผมก็อ้างถึง Query โดยใช้แบบนี้
Me.textbox = Dmax("[ฟิลด์]","Query")+1
ผมอยากจะเขียนเป็นโคตแทนที่จะอ้างถึง Query

ประมาณแบบนี้
Dim Q As sting
Q=SELECT Val(Right([ฟิลด์],5)) FROM ตาราง;
Me.textbox = Dmax("[ฟิลด์]","Q")+1

ผมลองแล้วมัน Error น่าจะเป็นผิด Syntax

คุณ Un ผมคงไม่สามารถตอบคำถามของคุณได้นะ แต่อาศัยความรู้สึกแบบ "ครูพักลักจำ" เอามาจาก อ.ต้อง กับ อ.พิชัย อาจารย์ทั้งสองท่านสอนให้ทำในคิวรี แล้วแปลงกลับมาเป็นเอสคิวเอล ไม่ทราบว่าคุณพอเข้าใจหรือเปล่า หรือผมไกด์มาถูกทางหรือเปล่า
เอาใจช่วยให้ทำสำเร็จครับ

ไม่ใช่ครับพี่TheBeginner อันนั้นผมใช้มานานแล้วครับ คือผมมาอ้างไม่ถูกครับ
อย่างที่ อ.พิชัยบอก ทุกอย่างเอามาเขียนเป็น SQL ได้หมด ผมเลยอยากทำดู
แต่ SQL ผมไม่มีพื้นฐานเลย แค่ จำๆ ลองผิดลองถูก เลย ประยุกไม่ได้ครับ
ถึงเสียดาย ครั้งที่แล้ว ติดเวร TT

ถ้าจะ code แทนการเรียกใช้ผ่าน Query ที่สร้างไว้
- กรณีใช้ที่ RecordSource ใช้ Me.RecordSource = "Select ..." ได้เลยครับ
- กรณีต้องการเอามาใส่ตัวแปรใน code เช่น ตัวแปร Q = "Select ..." อย่างที่คุณ Un ทำไม่ได้นะครับ
ต้องผ่าน RecordSet ดังนี้ครับ
Dim rs As RecordSet
Dim Q as String
Set rs = CurrentDB.OpenRecordSet ("Select ...", ...)     'ส่วนนี้คือการเปิด recordset ควรศึกษาเรื่อง RecordSet เพิ่มเติมเพราะมีวิธีเรียกใช้หลายแบบและรายละเอียดอีกมาก
Q = rs.Fields(0) + 1
...

อ.พิชัยครับ ผมแค่จะเอาค่า Dmax มา+1 ครับ
ตอนนี้ผมใช้ Me.textbox = Dmax("[ฟิลด์]","Query")+1
จะเห็นว่า ผมอ้างถึง Query อยู่ ซึ่งผมอยากได้วิธีที่เอา SQL ของ
Query นั้นมาเขียนเลยครับ เดี๋ยวลองแบบ อาจารย์ดูก่อนครับ

โอเค ได้แล้วครับอาจารย์พิชัย ขอความรู้เพิ่มเติมนิดนึงครับ
Set rs = CurrentDB.OpenRecordSet ("Select ...", ...) บรรทัดนี้คงคล้ายๆ ให้เปิด Query ตาม SQL
Q = rs.Fields(0) + 1 แต่บรรทัดนี้ ไม่เข้าใจครับ Fields(0) เป็นการอ้างอิงถึงอะไร

RecordSet หมายถึงการสร้าง Table ในระบบแบบชั่วคราว เมื่อเป็น table ก็จะมี record และมี field อยู่ในนั้นเวลาอ้างถึงข้อมูลใน RecordSet สามารถเรียกใช้ได้ 2 แบบ 1) rs!ชื่อfield หรือ 2) rs.Fields(หมายเลขลำดับของ field)
*ปกติหมายเลขลำดับของ field จะเริ่มที่ 0 ตัวอย่าง Select ID, Name
Fields(0) หมายถึง ID, Fields(1) หมายถึง Name

การใช้ Aggregate Function เช่น DMax(), DMin(), ...
คือการให้ Access สร้าง RecordSet แล้วนำค่าที่ต้องการมาใช้ได้โดยเขียน code แค่บรรทัดเดียว
* เป็นการอำนวยความสะดวกของ Access แต่ข้อเสียคือมันทำงานช้ากว่าการเปิด RecordSet เอง

ดังนั้นหากไม่ถนัดใช้ RecordSet การใช้ DMax() ในกรณีนี้ก็เป็นเรื่องปกติ
ตัวอย่างของกรณีนี้เป็น
Q = DMax("Val(Right(ฟิลด์,5))", "Select ...") + 1
ตามที่คุณ TTT แนะนำมาก็ใช้ได้ครับ เพียงแต่เปลี่ยนจากชื่อตาราง เป็น SQL statement แทน

เท่าที่ทราบ อากิวเมนท์ที่สองของ Aggregate Function ไม่สามารถรับเป็น SQL Statement ได้นะครับ ได้แต่ชื่อเทเบิลหรือคิวรี่เท่านั้น

ขอบคุณอาจารย์สันติสุขที่มาช่วยแก้ครับ
(ปกติผมไม่ได้ใช้ function นี้จึงสับสนไปน่ะครับ)

แก้เป็น
Q = DMax("Val(Right(ฟิลด์,5))", "ตาราง") + 1
เหมือนที่คุณ TTT แนะนำ

แต่เข้าใจว่าคุณ Un ต้องการข้อมูลที่มี criteria ก็เพิ่มเป็น
Q = DMax("Val(Right(ฟิลด์,5))", "ตาราง", "เงื่อนไข") + 1
แทนการสร้าง query รอไว้ได้ครับ