VBA ใช่ไหมครับ ถ้าใส่ก็ใส่ Code เข้าไปตรงๆ เลย

แต่ที่ไม่เข้าใจคือ กระบวนการว่าต้องการนำ Code นี้ไปใช้กับ Control อะไร และ Event ไหน

ประมาณว่า

SELECT Max(Mid([drugCode],2,5)) FROM Drug; บรรทัดนี้ เท่ากับ 25

ผมคลิก Botton แล้ว ก่องข้อความ เท่ากับ D26 สมมุติกล่องข้อความชื่อ Dcode

ครับอาจารย์

เอิ่ม งงมาก
รบกวนส่งตัวอย่างไฟล์มาให้หน่อยครับ
เอาเฉพาะที่เป็นปัญหานะครับ ข้อมูลอื่นๆ ลบออกได้เลย ไม่ต้องส่งมา


mrtouch999@gmail.com

ไม่ต้องส่งตัวอย่างหรอกครับ เพราะมันไม่มีอะไรเลย ปกติผมจะทำ Query ขึ้นมา
สมมุติชื่อ qMaxDC โดยใน Query เป็นแบบนี้ >>SELECT Max(Mid([drugCode],2,5)) AS DC FROM Drug;

ในฟอร์มผมมี กล่องข้อความ สมมุติกล่องข้อความชื่อ Dcode ผมสร้าง ปุ่ม ชื่อ comDC ฝังโคตไว้แบบนี้

Private Sub comDC_Click()
        DoCmd.GoToRecord , , acNewRec
        Me.Dcode = "D" & Dlookup("[DC]", "qMaxDC") + 1
End Sub

แต่ผมไม่อยากทำ Query เพราะว่าเวลาจะลบฟอร์ม จำไม่ได้ว่าใช้ Query ตัวไหนมั่ง

เลบคิดว่าน่าจะเขียนโคตได้ เช่น

Private Sub comDC_Click()
    Dim DCmx As String
        DCmx = "SELECT Max(Mid([drugCode],2,5)) AS DC FROM Drug;"

        DoCmd.GoToRecord , , acNewRec
        Me.Dcode = "D" & DCmx + 1
    End Sub

คือ ไม่รู้ว่าเค้าทำยังงัย แต่เดาๆ เอา แล้วมัน Error ครับ

ใส่ Code นี้เข้าไปแทน DCmx = "SELECT Max(Mid([drugCode],2,5)) AS DC FROM Drug;"

Me.RecordSource = SELECT Max(Mid([drugCode],2,5)) AS DC FROM Drug;

ส่วนบันทัดอื่นไม่แน่ใจครับ เพราะไม่เห็นตัวอย่าง

ไม่น่าจะได้ครับ RecordSource ผมใช้จากตาราง Drug เลยครับ

เออเรอเพราะเครื่องหมาย ; ด้านหลังหรือเปล่าครับ เท่าที่ผมใช้คำสั่ง sql ใน vba ที่ผ่านมา จะไม่ใส่เครื่องหมาย ; นี้ครับ ลองลบออกแล้วรันดูครับ

DCmx = DMax("Mid(drugCode,2,5)", "Drug")

ถ้าหมายถึงอยากคิวรี่โดยไม่ต้องสร้างแต่ต้องการผลอย่างเดียว ลองแบบนี้ดูครับ

    Dim rs As DAO.Recordset, SQL As String
    SQL = "SELECT Max(Int(Mid([drugCode],2,5))) AS DC FROM Drug;"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me.Dcode = "D" & rs!DC + 1
    rs.Close: Set rs = Nothing

อาจารย์ . มันขึ้น Error ครับ ผมอาจจะเอาไปใส่ไม่ถูก

อาจารย์ TTT ครับ คลิกแล้ว นิ่งครับ เหมือนปุ่มไม่มีคำสั่ง

errorว่า?

OK ผมทดสอบแล้วนะครับ

ผมมีตารางชื่อ tblDrug อยู่ ประกอบด้วยฟิลด์ DrugCode,Drugname

ผมสร้างฟอร์มขึ้นมา โดยใช้ตาราง tblDrug นี่แหละ

จานนั้นใส่ปุ่ม 1 ปุ่ม แล้วใส่ Code นี้เข้าไป

Me.RecordSource = "SELECT DrugCode, DrugName FROM tblDrug GROUP BY DrugCode, DrugName ORDER BY Max((Mid([DrugCode],2,5))) DESC;"

ให้อยู่บรรทัดเดียวกันนะครับ

ใช้ได้แน่นอน

อาจารย์ธวัชชัยครับ ผมต้องการให้ เมื่อกดปุ่ม แล้ว
เพิ่มเรคคอดในตารางยา โดยรหัสยามัน เพิ่มขึ้นเองนะครับ ตัวอย่าง

รหัส        ชื่อยา
D1           A
D2           B

เมื่อกดปุ่ม มันจะ ขึ้น D3 ให้เอง แบบนี้ครับ

ลองของอาจารย์ TTT ใหม่ โดยเพิ่ม >>DoCmd.GoToRecord , , acNewRec
ก็ยัง Error ที่ DC (สีแดง) เลยลองไปเพิ่ม DC As Long ก็ยัง Error

Dim rs As DAO.Recordset, SQL As String,DC As Long
    SQL = "SELECT Max(Mid([drugCode],2,5)+1) AS DC FROM Drug;"
    Set rs = CurrentDb.OpenRecordset(SQL)
    DoCmd.GoToRecord , , acNewRec
    Me.dCode = "D" & rs!DC
    rs.Close: Set rs = Nothing

ลองของอาจารย์ .
        Dim DCmx As Long
        DCmx = DMax("Mid(drugCode,2,5)", "Drug")
        Me.drugCode = "D" & DCmx + 1

คลิกแล้วไม่มีอะไรเกิดขึ้นเลบครับ
ตอนแรกที่ว่า Error เขียนดักให้ฟ้อง Error มันขึ้นเป็น
เครื่องหมาย X อย่างเดียว ไม่มีอะไรแจ้งเลยครับ

ยอมแพ้ ไม่เข้าใจ

เอิ่ม! นี่ผมเพิ่งรู้นะนี่ว่าต้องการเพิ่มเรคอร์ด

ผมก็นึกว่าดึงข้อมูลมาแสดง

เฮ้อ!

ผมถึงได้บอกว่าให้ส่งไฟล์มาให้ดู จะได้เข้าใจ (ขอบ่นหน่อยเถอะ อย่าเคืองกันล่ะ)

สรุปแล้วคือคุณต้องการเพิ่มเรคอร์ดใหม่ แบบใส่รหัสยาให้เลยใช่มะ

ทีนี้มีคำถามว่า แล้วรหัสยาที่ใช้มีรูปแบบเป็นอย่างไร

D00001 ไปถึง D99999 ใช่มั๊ย

หรือมีรูปแบบอะไรอีก

ขอโทษอาจารย์นะครับ

รูปแบบผมทำได้ ผมอยากได้แค่ ทำอย่างไร ที่ไม่ต้องทำ Query

โดยเอา Query มาในรูป SQL เลย คล้ายๆ แบบของอาจารย์ TTT

แต่วิธี ผมไม่ทราบวิธีครับ

งั้นสิ่งที่ต้องการคือ เมื่อคลิกปุ่มแล้ว ให้ใส่รหัสยาให้อัตโนมัติใช่ไหมครับ

ซึ่งจริงๆ แล้ว ไม่จำเป็นต้องใช้ SQL ก็ได้นะครับ เพราะ SQL มีหน้าที่หลักในการดึงข้อมูลครับ โดยเฉพาะถ้าใช้คำสั่ง SELECT เนี่ยะ

ถ้าใช่แบบนี้แล้วล่ะก็บอกมา เดี๋ยวจะแนะนำให้ใช้วิธีอื่นแทน

อาจารย์ธวัสชัยครับ ผมทำได้แล้วครับ เพียงแต่ว่า
อยากเรียนรู้วิธีใหม่ๆ เพราะมีเงื้อนไขใหม่ๆ ให้อยากทำวิธีนี้
ซึ้ง จะเอาไป ประยุกต์ให้งานดีขึ้น และ ทำอย่างอื่นอีกทีครับ

แต่ถ้ามีวิธีอื่นนอกจากนี้ ผมก็อยากรู้เพิ่มเติมครับ^^