ลืมเลขหัวข้อค่ะอาจารย์หาไม่เจอ
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 399   5
URL.หัวข้อ / URL ลืมเลขหัวข้อค่ะอาจารย์หาไม่เจอ

อยากหาหัวข้อกระทู้เกี่ยวกับเรื่อง AutoNumber เวลาเปิดForm ขึ้นมาใหม่ หรือ Click Add New อาจารย์ค่ะ เคยอ่านเจอแต่ไม่ทราบว่าอยู่ที่เลขที่อะไร รบกวนหน่อยนะค่ะ
โดย: ฐิติมาภรณ์ เมื่อ: 20 ก.พ. 2546 , 11:30

5 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01595
ลองค้นด้วยคำว่า intMax ดูครับ
โดย: สุภาพ เมื่อ: 20 ก.พ. 2546 , 14:15
2 @R01596
อาจารย์ค่ะ ตาม Code ข้างล่างนี้ เวลา ดับเบิ้ลคลิกและจะขึ้น เลขที่หนึ่งค่ะ ไม่ทราบว่าต้องแก้ไปตรงไหนหรือ และปัจจุบัน SLTransID ถึง 2161 แล้วค่ะ รบกวนหน่อนนะค่ะ Private Sub SLTransID_DblClick(Cancel As Integer) Dim intMax As Integer Dim strPrefix As String strPrefix = "" If Me.SLTransID = "" Or IsNull(Me.SLTransID) Then If IsNull(DMax("Val(Mid([SLTransID],8))", "ExternalTransmittals")) Then Me.SLTransID = strPrefix & "00001" Else intMax = DMax("Val(Mid([SLTransID],6))", "ExternalTransmittals") intMax = intMax + 1 Me.SLTransID = strPrefix & Format(intMax, "000000") End If End If End Sub
โดย: ฐิติมาภรณ์ เมื่อ: 20 ก.พ. 2546 , 14:33
3 @R01598
รูปแบบของ SLTransID เป็นอย่างไรครับ เช่น ABC000001, ABC000003, ABC000003 หรืออะไรทำนองนี้ครับ
โดย: สุภาพ เมื่อ: 20 ก.พ. 2546 , 14:48
4 @R01599
format คือ 000000 ธรรมดาไม่มี Text จะไปใส่ Text ตอน Print Report เท่านั้นค่ะ
โดย: ฐิติมาภรณ์ เมื่อ: 20 ก.พ. 2546 , 15:02
5 @R01600
อาจารย์ค่ะ ได้แล้วค่ะพยายามค่อยๆ อ่าน Code แล้วก็เข้าใจว่าตัวเองผิดตรวไหน Dim intMax As Integer Dim strPrefix As String strPrefix = "" If Me.SLTransID = "" Or IsNull(Me.SLTransID) Then If IsNull(DMax("SLTransID", "ExternalTransmittals")) Then Me.SLTransID = strPrefix & "000001" Else intMax = DMax("SLTransID", "ExternalTransmittals") intMax = intMax + 1 Me.SLTransID = strPrefix & Format(intMax, "000000") End If End If ขอบคุณมากค่ะอาจารย์
โดย: ฐิติมาภรณ์ เมื่อ: 20 ก.พ. 2546 , 15:46
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1389s