เปลี่ยนชนิดข้อมูล number เป็น string ในโค้ด

[napat2020]

สวัสดีครับ
จากโค้ดด้านล่าง ต้องการลบข้อมูลในตาราง โดยใช้เงื่อนไข อ้างอิงให้ลบจาก
bsCode ขีดเส้นใต้ ซึ่งตอนนี้เป็นข้อมูลชนิดตัวเลข number อยู่ครับ ถ้าต้องการเปลี่ยนข้อมูลชนิดเป็น string จะต้องเขียนอย่างใดครับ
ขอบคุณครับผม
   
 If Not (Me.frmBaseGoodsSub.Form.Recordset.EOF And Me.frmBaseGoodsSub.Form.Recordset.BOF) Then
        If MsgBox(" Are you sure to delete?", vbYesNo) = vbYes Then
            CurrentDb.Execute "DELETE FROM tblBaseGoods " & _
            " WHERE bsCode=" & Me.frmBaseGoodsSub.Form.Recordset.Fields("bsCode")

        End If

     

[PNR]

ปกติจะใช้ single quote แต่จะอ้างอิง ตัว control ไม่ใช้ Field แต่ลองดูว่าได้หรือไม่
If Not (Me.frmBaseGoodsSub.Form.Recordset.EOF And Me.frmBaseGoodsSub.Form.Recordset.BOF) Then
        If MsgBox(" Are you sure to delete?", vbYesNo) = vbYes Then
            CurrentDb.Execute "DELETE FROM tblBaseGoods " & _
            " WHERE bsCode='" & Me.frmBaseGoodsSub.Form.Recordset.Fields("bsCode") & "'"


ปกติผมจะใช้

If MsgBox(" Are you sure to delete?", vbYesNo) = vbYes Then
            CurrentDb.Execute "DELETE FROM tblBaseGoods " & _
            " WHERE bsCode='" & Forms![ชื่อฟอร์มหลัก]!frmBaseGoodsSub!txtbsCode & "'"
            Forms![ชื่อฟอร์มหลัก]!frmBaseGoodsSub.Requery 'ให้แสดงรายการใหม่หลังจากลบไป
End If


txtbsCode คือ textbox ที่ Bound Field bsCode

[napat2020]

สวัสดีครัยคุณ PNR
ผมใช้ตัวแรกที่คุณ PNR แนะนำใช้ได้เลยครับผม ขอบคุณมากครับ