รบกวนสอบถามต้องการ ให้คลิก combobox แล้วให้เพิ่ม record ใหม่

[supachai]

รบกวนนะครับ ผมสร้าง combobox โดยกำหนดค่าไว้ เมื่อเปลี่ยนก็ให้สร้าง เร็คคอร์ดใหม่ตามเลขที่กำหนดไว้ครับ
Code ตามนี้ครับ
Private Sub Deptref_Change()

Dim intMax As Variant
Dim strWhere As String
If Me.ID = "" Or IsNull(Me.ID) Then
   strWhere = Me.Deptref + "-" + Right(bYear(Date), 2) + Format(Date, "mm")
   intMax = DMax("ID", "Cases", "ID Like '" + strWhere + "*' ")
   If IsNull(intMax) Then
      Me.ID = strWhere + "-001"
   Else
      Me.ID = strWhere + "-" + Format$(Val(Right(intMax, 3)) + 1, "000")
   End If
   End If
     
End Sub
ลอง copy code จากที่่อื่น มาลองทำดูนะครับ

[ปิ่นณรงค์]

ผมสร้าง combobox โดยกำหนดค่าไว้ เมื่อเปลี่ยนก็ให้สร้าง เร็คคอร์ดใหม่ตามเลขที่กำหนดไว้ครับ

ช่วยอธิบายเพิ่มเติมนิดนึงครับ

1.Form ที่ท่านทำอยู่เป็นแบบไหนครับ Single หรือ continuous  หรือ อื่นๆ

2.ความต้องการคือ ต้องการขึ้นเร็คคอร์ดใหม่ แล้วให้แสดงตัวเลข ID ตามแบบที่เราอยากได้ ใช่หรือเปล่าครับ

3.ถ้าเป็นแบบนั้น ID ของเร็คคอร์ดใหม่ที่ต้องการให้แสดงอัตโนมัติเป็นแบบไหนครับเผื่อผมจะช่วยได้

[supachai]

1.Form ที่ท่านทำอยู่เป็นแบบไหนครับ Single หรือ continuous  หรือ อื่นๆ  (เป็น Single form ครับ)

2.ความต้องการคือ ต้องการขึ้นเร็คคอร์ดใหม่ แล้วให้แสดงตัวเลข ID ตามแบบที่เราอยากได้ ใช่หรือเปล่าครับ (ใช่ครับ)

3.ถ้าเป็นแบบนั้น ID ของเร็คคอร์ดใหม่ที่ต้องการให้แสดงอัตโนมัติเป็นแบบไหนครับเผื่อผมจะช่วยได้ (ID= Combobox + Autoformat ( Ma1-yy-mm-xxx)