อ.สุภาพ ครับ ผมมีปัญหาเรื่อง Runnning No. คือผมอยากให้ Run ดังนี้ 
(Y ขีด xxxx) ปี 2003 ก็จะเป็น 3-0001 โดย Y จะเป็น digi หลักหน่วย ของปี และเปลี่ตามปี ครับ 
แล้วตามด้วยขีด แล้วตามด้วย Running No 
ผมทำแล้วปรากฏว่า ไม่สามารถ Run ได้ รบกวน อ.สุภาพช่วยตรวจสอบด้วยครับ 
Code เป็น ดังนี้ครับ 
Private Sub CoilNo_DblClick(Cancel As Integer) 
Dim strPrefix As String, strPrefix1 As String, intMax As Integer 
 
strPrefix1 = Format(Date, "YY-") 
strPrefix = Right(strPrefix1, 2) 
 
If Me.CoilNo <> "" Or IsNull(Me.CoilNo) Then 
    If Nz(DCount("CoilNo", "Tbl0021_TallySub", "left(CoilNo,3)='" & strPrefix & "'"), 0) = 0 Then 
        Me.CoilNo = strPrefix & "0001" 
    Else 
        intMax = DMax("val(right(CoilNo,3))", "Tbl0021_TallySub", "left(CoilNo,3)='" & strPrefix & "'") 
        Me.CoilNo = strPrefix & Format(intMax + 1, "0000") 
    End If 
End If 
 
End Sub 
ขอบพระคุณมากๆ ครับ 
อ๋อ ผมส่ง File ไปให้ อาจารย์ดูแล้วครับ 
สุชาติ 
ชลบุรี