กระทู้เก่าบอร์ด อ.Yeadram
        
           3,784   4		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        ตั้งautonumberให้ขึ้นต้นด้วยตัวอักษร ต้องทำยังไง      
    
      ต้องการให้G0001เป็นคีย์หลักแล้วก้อรันต่อไปเรื่อยๆอะค่ะ แต่ว่าไม่รุ้จะไปตั้งตรงไหน ถ้าต้องเขียนโค๊ดกำกับ เค้าเขียนใส่ตรงไหน พอดีมือใหม่ แต่งานเร่งมากเลยค่ะ รบกวนผู้รู้ด้วยนะค่ะ    
    
  
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R07916    
        
  
      ขอบคุณค่ะ    
    
  
        
    3 @R07917    
        
  
      รบกวนอิกนิดนะค่ะคือว่า"G" & [autorun] มันจะไปใส่ตรงไหนหรอค่ะ แล้วเวลาเราเขียนโค๊ดอ่ะค่ะ มันจะเขียนตรงไหน ขอบคุณมากกกกก จริงๆค่ะ    
    
  
        
    4 @R07975    
        
    
      Public RstType As New ADODB.Recordset
Sub Autorun()
If RstType.RecordCount = 0 Then
TxtId = Format(1, "000")
Else
RstType.MoveLast
nub = Val(RstType!idemp)
nub = nub + 1
aa = Format(nub, "G0000")
TxtId = aa
End If
End Sub
call Autorun ไว้ตรงปุ่ม CommandAdd ค่ะ
เลือกแสดง ที่ text TxtId ค่ะ
ลองไปประยุกติ์ดูนะค่ะ ตัวนี้ใช้เขียนใน VB.6 เชื่อมต่อกับ Access
เราเคยไปเขียนใน Access แล้วใช้ได้ค่ะ
ถ้าไม่ตรงตามความต้องการก็ขออภัยจ้า
    
  Sub Autorun()
If RstType.RecordCount = 0 Then
TxtId = Format(1, "000")
Else
RstType.MoveLast
nub = Val(RstType!idemp)
nub = nub + 1
aa = Format(nub, "G0000")
TxtId = aa
End If
End Sub
call Autorun ไว้ตรงปุ่ม CommandAdd ค่ะ
เลือกแสดง ที่ text TxtId ค่ะ
ลองไปประยุกติ์ดูนะค่ะ ตัวนี้ใช้เขียนใน VB.6 เชื่อมต่อกับ Access
เราเคยไปเขียนใน Access แล้วใช้ได้ค่ะ
ถ้าไม่ตรงตามความต้องการก็ขออภัยจ้า
      Time: 0.4158s
    
      
		
"G" & [autorun]
ก็จะได้ตามต้องการ
เพียงแต่ถ้ามีการยกเลิกรายการ ตัวเลข มันจะข้ามไปเท่านั้น
ถ้าไม่ต้องการให้ตัวเลขข้าม มันต้องเขียน code เพิ่มขึ้น