สวัสดีครับ คือ ต้องขอออกตัวก่อนนะครับว่าผมไม่มีความรู้เรื่อง Access เลย เเต่พองมงูๆ ปลาได้ดังนี้ครับ

มีปัญหาการทำใบกำกับภาษี เรื่องมีอยู่ว่าทำไม่ผมสั่ง พิมพ์ หรือ Previewer ข้อมูลในหน้า From ที่ผมสร้างขึ้นมาเเล้ว ตัวเลขที่เป็นตัวหนังสือ ไม่ยอมเเสดงออกมาใน Report ของผม ผมต้องใช้คำสั่งยังไงครับ ถึงจะเอาตัวอักษรมาเเสดงใน Report ได้ ผมใช้การดึง BahtText จาก Excel นะครับ ดังตัวอย่างที่เเนบมาครับ รบกวนผู้รู้ช่วยตอบทีครับ ขอบคุณล่วงหน้าสำหรับทุกคำตอบครับ


_________________________________________
Private Sub Command159_Click()
IsSaveClicked = True
    Me.Dirty = False
    MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
End Sub

Function ExcelBathtext(value As Double) As String
If value = 0 Then
ExcelBathtext = ""
Else
ExcelBathtext = WorksheetFunction.BahtText(value)
End If
End Function
Private Sub cmdBahtText_Click()
alphabet.value = ExcelBathtext(grant_tot.value)
End Sub



Private Sub Command71_Click()
DoCmd.OpenReport "invoice_report_001", acViewPreview, , "[invoiceid] = " & Me.invoiceid.value
alphabet.value = ExcelBathtext(grant_tot.value)
End Sub

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If MsgBox("กรุณาบันทึกข้อมูล", vbQuestion + vbYesNo, "Save Record?") = vbYes Then
        IsSaveClicked = True
        Me.Dirty = False
        MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว"
    Else
        IsSaveClicked = False
    End If
    Response = acDataErrContinue
End Sub

Private Sub Command63_Click()
DoCmd.RunCommand acCmdSaveRecord
MsgBox "ข้อมูลทำการบันทึกเรียบร้อยแล้ว", vbOKOly, "แจ้งสถานะบันทึก"
Me.Recalc
alphabet.value = ExcelBathtext(grant_tot.value)
End Sub

Private Sub Command72_Click()
On Error GoTo Err_Command72_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Command72_Click:
    Exit Sub

Err_Command72_Click:
    MsgBox Err.Description
    Resume Exit_Command72_Click
    
End Sub