กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
349 3
URL.หัวข้อ /
URL
Autonumber
อาจารย์ค่ะ ตาม code ข้างล่างนี้ได้ copy มาจากที่ 701 และได้ทำการเปลี่ยน field , table เรียบร้อยแล้ว แต่พอคลิ๊ก 2 คั้ง แล้ว ขึ้นแค่ 0001 และ ลองทดลอง ไปที่ newrecord กลับขึ้น 0001 เหมือนเดิมค่ะ ไม่ทราบว่าผิดตรงไหนค่ะ field ที่ใช้เป็น text ค่ะ แบบ primarykey
Private Sub InvoiceID_DblClick(Cancel As Integer)
Dim strPrefix As String, strPrefix1 As String, intMax As Integer
strPrefix1 = Format(Date, "YY-")
strPrefix = Right(strPrefix1, 2)
If Me.InvoiceID <> "" Or IsNull(Me.InvoiceID) Then
If Nz(DCount("invoiceid", "tblinvoicehistory", "left(InvoiceID, 3)='" & strPrefix & "'"), 0) = 0 Then
Me.InvoiceID = strPrefix & "0001"
Else
intMax = DMax("val(right(invoiceid, 3))", "tblinvoicehistory", "left(invoiceid, 3)='" & strPrefix & "'")
Me.InvoiceID = strPrefix & Format(intMax + 1, "0000")
End If
End If
End Sub
Private Sub InvoiceID_DblClick(Cancel As Integer)
Dim strPrefix As String, strPrefix1 As String, intMax As Integer
strPrefix1 = Format(Date, "YY-")
strPrefix = Right(strPrefix1, 2)
If Me.InvoiceID <> "" Or IsNull(Me.InvoiceID) Then
If Nz(DCount("invoiceid", "tblinvoicehistory", "left(InvoiceID, 3)='" & strPrefix & "'"), 0) = 0 Then
Me.InvoiceID = strPrefix & "0001"
Else
intMax = DMax("val(right(invoiceid, 3))", "tblinvoicehistory", "left(invoiceid, 3)='" & strPrefix & "'")
Me.InvoiceID = strPrefix & Format(intMax + 1, "0000")
End If
End If
End Sub
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03332
เอาออกแล้วค่ะ แต่อาจารย์ค่ะ ไม่ทราบว่าจะเกี่ยวกันหรือเปล่า tblinvoicehistory ทำ relationships กับtblinvoicedetail และในfrom ที่ running number มี subform อยู่ด้วย เลยทดลองทำ table ใหม่ขึ้นมา แล้วลองใส่ code ดังกล่าวสามารถทำได้ค่ะ
รบกวนอาจารย์ช่วยวิเคราะหน่อยค่ะ
รบกวนอาจารย์ช่วยวิเคราะหน่อยค่ะ
3 @R03333
ได้แล้วค่ะอาจารย์ ทำ table ขึ้นมาใหม่ และทำ relationships ขึ้นมาใหม่ แล้วได้เลยค่ะ
Time: 1.3626s
strPrefix = Right(strPrefix1, 2)
ให้เอาออก แล้วลองใหม่ครับ