ใช้ Function แปลงตัวเลขมาเป็นค่าดังกล่าว
ค้นในนี้น่าจะมี

คือหมายถึงว่าใร Report ตัวหนังสือไม่เเสดงครับ

หมายถึงว่า BahtText ออกปกติครับใช้ฟังชั่นจาก Excel ใช้งานได้เเต่ทำยังไง ให้มาเเสดงที่ Report เพื่อให้พิมพ์ออกมาได้

----------------------------------------------

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

Function excelbahttext(value As Double) As String
If value = 0 Then
excelbahttext = ""
Else
excelbahttext = WorksheetFunction.BahtText(value)
End If
End Function

Private Sub Genbaht_Click()
txtbaht.value = excelbahttext(amount.value)
End Sub


ผมใช้เท่านี้ ถ้าอยากให้ Auto ก็ เปลี่ยน Event เป็น Before Update ครับ

ถ้าอยากให้โชว์ ใน Report ให้ดึงจาก ฟอร์ม หรือ ใส่โค๊ดเพิ่มใน Report ครับ ลองดู ตั้ง Event เป็น Before Update

ผมส่งข้อความไม่ได้ เลยส่งรูปแทน

สงสัย Post เกินโควต้า