กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
355 2
URL.หัวข้อ /
URL
อยากทราบว่ามีวิธีการ run autonumber โดยให้เริ่มต้น run ตั้งแต่ 10000 ขึ้นไป
คือว่า จะทำโปรแกรมขายสินค้า โดยต้องการให้เลขที่ของใบกำกับภาษีเริ่มต้นที่ 10000 แล้วก้อ run เลขหมายขึ้นไปเรื่อยๆ อยากทราบว่าจะมีวิธีการมั้ยค่ะ.... ขอบคุณมากค่ะ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02334
ขอบคุณมากค่ะ
Time: 0.1256s
โดยให้กำหนดฟีลด์เป้าหมายเป็น Number แบบ Long
แล้วใน Form เราสามารถที่จะให้ผู้ใช้ double click ที่ฟีลด์ดังกล่าวเพื่อออกเลขที่ใบกำกับภาษี
Private Sub ID_DblClick(Cancel As Integer)
Dim intMax As Integer
If Me.ID <> "" Or IsNull(Me.ID) Then
' กรณีที่เริ่มออกใบกำกับฯ ครั้งแรก
If Nz(DCount("ID", "table1"), 0) = 0 Then
Me.ID = 10000
Else
' กรณีที่เคยออกใบกำกับฯ แล้ว
intMax = DMax("ID", "table1")
Me.ID = intMax + 1
End If
End If
End Sub
หรือให้ลองค้นหาด้วยคำว่า intMax ดูครับ เคยมีการถามตอบไว้มากพอสมควรครับ *** Edited by Supap Chaiya *** 13/4/2546 20:21:09