เราใช้ฟอนท์ Wingding สำหรับเท็กซ์บ็อกซ์เพื่อแสดงรูปสัญญลักษณ์ได้ สมมุติ P คือชื่อฟิลด์ที่เก็บ path ของรูป ก็กำหนด Control Source ของเท็กซ์บ็อกซ์ที่แสดงสัญญลักษณ์เป็น =IIf(nz([P],"")="","","*") มันก็จะแสดงสัญญักษณ์ จดหมาย (เพราะหาไม่เจอสัญญลักษณ์รูป คลิป)  ถ้าอยากได้สัญญลักษณ์อื่นๆ ก็เปิดโปรแกรม Character Map ที่มากับวินโดว์อยู่แล้ว เลือกฟอนท์ Webding, Wingding(1-3) เอาตัวไหนก็ดับเบิลคลิกรูปแล้วคลิกปุ่ม Copy  กลับมาที่ expression ข้างบน กดคีย์ paste ลงแทนที่ * ได้เลยครับ

มีฝรั่งแนะนำให้อ่านอันนี้ https://dev.mysql.com/doc/connector-odbc/en/connector-odbc-usagenotes-apptips-microsoft-access.html

ถ้ายืนพื้นตามที่คุณได้ออกแบบไว้ ผมสมมุติให้ระบบเราเป็นตามนี้แล้วกันนะครับ (เทเบิลจริงของคุณอาจมีฟิลด์มากกว่านี้ แต่ผมเอาเฉพาะฟิลด์ที่เราสนใจในเรื่องนี้แล้วกัน)

- เทเบิลส่วนลด Disc มีฟิลด์ Member Grade, Catagory Name, Discount
- เทเบิลลูกค้า Cust มีฟิลด์ Customer Code, Member Grade
- เทเบิลสินค้า Prod มีฟิลด์ Product Code, Catagory Name
- [cb Customer Code] เป็นชื่อคอมโบบ็อกซ์เพื่อเลือกลูกค้าที่อยู่บนเมนฟอร์ม เมื่อเลือก จะแสดงชื่อลูกค้าในคอมโบบ็อกซ์ แต่เมื่ออ้างคอมโบบ็อกซ์ก็จะได้รหัสลูกค้าแทน
- [cb Product Code] เป็นชื่อคอมโบบ็อกซ์เพื่อเลือกสินค้าที่อยู่ในซับฟอร์ม เมื่อเลือก จะแสดงชื่อสินค้าในคอมโบบ็อกซ์ แต่เมื่ออ้างคอมโบบ็อกซ์ก็จะได้รหัสสินค้าแทน

ให้ใส่ฟังก์ชั่นชื่อว่า fnGetDiscount( ) ไว้ในส่วนของ Module โดยจะรับค่าของรหัสลูกค้าและรหัสสินค้าเข้าไป และคืนค่าส่วนลดออกมาให้ กรณีที่รหัสลูกค้าหรือรหัสสินค้าไม่มีค่า (เป็น NULL) หรือไม่มีกำหนดส่วนลดไว้ ค่าที่คืนก็จะเป็น NULL ด้วย
Public Function fnGetDiscount(aCusCD As Variant, aProdCD As Variant) As Variant
    Dim DB  As DAO.Database
    Dim RS  As DAO.Recordset
    Dim SQL As String
   
    If IsNull(aCusCD) or IsNull(aProdCD) Then Exit Sub

    SQL = "SELECT D.Discount  FROM [Prod] AS P " _
        & "                  INNER JOIN ([Cust] AS C INNER JOIN [Disc] AS D ON C.[Menber Grade] = D.[Menber Grade])" _
        & "                     ON P.[Catagory Name] = D.[Catagory Name] " _
        & " WHERE C.[Customer Code] = '" & cStr(aCusCD) & "' AND P.[Product Code] = '" & cStr(aProdCD) & "' "
    Set DB = CurrentDb
    Set RS = DB.OpenRecordset(SQL)
    If Not RS.EOF Then
        fnGetDiscount = RS![Discount]
    End If
    RS.Close: Set RS = Nothing
End Sub
ปัญหาคือ ผมไม่รู้ว่าคุณจะเอาส่วนลดไปเก็บไว้ที่ไหน เพราะในเทเบิล Order Details ก็ไม่มีฟิลด์ที่เก็บไว้ 
- แต่ถ้าสมมุติว่ามี และเท็กซ์บ็อกซ์บนฟอร์มที่ไว้รับ/แสดงส่วนลดชื่อว่า [tx Discount] ดังนั้นเมื่อผู้ใช้เลือกสินค้า เราก็ใส่โค้ดนี้ไว้ใน AfterUpdate event procedure ของ [cb Product Code] เพื่อดึงเอาส่วนลดออกมาแปะในเท็กซ์บ็อกซ์นี้ได้ครับ
Private Sub  cb_Product_Code_AfterUpdate()
Me.[tx Discount] = fnGetDiscount(Parent.[cb Customer Code], Me.[cb Product Code])
End Sub
- แต่ในกรณีที่***ไม่มี***ที่เก็บ แต่อยากแสดงบนฟอร์มเฉยๆ ก็ให้ใส่ =fnGetDiscount(Parent.[cb Customer Code], Me.[cb Product Code]) เอาไว้ใน Control Source property ของ [tx Discount] ครับ (ต้องมีเครื่องหมาย = ด้วย)

หมายเหตุ : โค้ดนี้ไม่ได้ทดสอบใดๆทั้งสิ้น ถ้ามี Error ก็เอารหัสและข้อความของ Error มาแสดงให้ดูด้วยครับ

ไม่เคยลองนะครับ เท่าที่ทราบ Access เองไม่สนับสนุนเนื้อเมล์ที่มีฟอร์แมทเป็น HTML  คงต้องเขียนโค้ด VBA ไปเรียกใช้ Outlook ซึ่งสนับสนุนฟอร์แมทนี้ให้มาทำหน้าที่ส่งแทน  ปัญหาอีกนิดคือถ้าเป็นแค่การใส่ลิงค์ไปยังรูปภาพ คนรับเมล์ก็ต้องเข้าถึงที่อยู่ของลิงค์นั้นได้ด้วย แต่ถ้าไม่ได้ ก็ต้องใส่เนื้อรูปภาพโดยแปลงเป็นสตริงที่มีรูปแบบเฉพาะ (เท่าที่ทราบ เขาเรียกว่า Base64 String) แล้วเอาสตริงที่ได้นี้ ใส่เป็นส่วนหนึ่งของข้อความเนื้อเมล์ด้วย ลองค้นหาเพิ่มเติมในเน็ทด้วยคำว่า Outlook VBA inline image ดูครับ

แต่อีกวิธีที่ง่ายขึ้นมาก็คือ ส่ง screen shot เป็น attach file ธรรมดาๆนี่เอง แต่ตัวโปรแกรมที่เปิดอ่านเมล์ ต้องกำหนดให้แสดงรูปภาพใน attach file ได้ด้วยเท่านั้นเอง

คำถามคืออะไรครับ

สมมุติเทเบิลชื่อว่า T ก็สร้างคิวรี่เพื่อแปลงตามนี้

TRANSFORM First(U.V) AS UV
SELECT U.C as ID
FROM

(
SELECT "CA" AS C, ID, CA AS V FROM T
๊์UNION ALL
SELECT "QA" AS C, ID, QA AS V FROM T
๊์UNION ALL
SELECT "SC" AS C, ID, SC AS V FROM T
) AS U


GROUP BY U.C
PIVOT U.ID;

โดยหลักการทางบัญชีแล้ว รายการอะไรก็ตามที่นำเข้าระบบไปแล้ว และมีผลแล้ว ห้ามไม่ให้ลบครับ โปรแกรมต้องป้องกันตรงจุดนี้เอาเอง แต่อาจใช้การ "ยกเลิก" (อย่างที่คุณ PichaiTC บอกเอาไว้) เพื่อเป็นการหักลบ/เพิ่มเข้ากลับคืน และการ "ยกเลิก" ก็ไม่ใช่ลบเรคอร์ดออกไป แต่เป็นการกำหนดค่าในฟิลด์นึงว่ารายการนี้ถูกยกเลิกครับ เหมือนอย่างเราไปจ่ายเงินที่เคาท์เตอร์ในซุปเปอร์ฯ พอเขายิงบาร์โค้ดแล้วยิงผิด เช่น ยิงซ้ำไปสองครั้ง เขาก็ลบไม่ได้ ต้องให้หัวหน้าของเขามาทำการยกเลิก ซึ่งก็ไม่ใช่การลบเรคอร์ดทิ้งอยู่ดี

เราใช้ Dlookup( ) เพื่อค้นหาข้อมูลที่ต้องการจากทีละเทเบิล เราใช้ค่าที่คืนมาเป็นเงื่อนไขว่าจะเลือกทำอะไร  ถ้าไม่เจอ มันจะคืนค่า NULL ครับ และใช้ฟังก์ชั่น Isnull( ) เพื่อทดสอบค่า NULL อีกที

เนื่องจากช่องบาร์โค้ดอยู่ในซับฟอร์ม ดังนั้นการจะอ้างช่องรหัสลูกค้าที่อยู่บนเมนฟอร์มจึงใช้ Parent เพื่ออ้างถึงเมนฟอร์ม แต่ถ้าอยู่ในฟอร์มเดียวกับโค้ดอยู่แล้ว ก็ใช้ Me เพื่ออ้างถึงฟอร์มแทน

เราใส่โค้ดนี้ไว้ใน AfterUpdate event procedure ของช่องบาร์โค้ด แต่เครื่องยิงบาร์โค้ดต้องตั้งเอาไว้ว่าหลังจากยิงแต่ละค่าแล้ว จะต้องส่งโค้ดจำลองการกดคีย์ ENTER หรือ TAB มาด้วยนะครับ ไม่งั้นจะไม่เกิด event นี้
If Not Isnull(Dlookup("C_ID","Customer","C_ID = " & Me.[ชื่อเท็กซ์บ็อกซ์ของบาร์โค้ด] )) Then
   Parent.[ชื่อคอมโบบ็อกซ์รหัสลูกค้า] = Me.[ชื่อเท็กซ์บ็อกซ์ของบาร์โค้ด]
   Parent.Dirty = False  ' เพื่อสั่งบันทึกข้อมูล
Elseif Not Isnull(Dlookup("P_ID","Product","P_ID = '" & Me.[ชื่อเท็กซ์บ็อกซ์ของบาร์โค้ด] & "' " )) Then
   Docmd.GoToRecord ,,acNewRec
   Parent.[ชื่อเท็กซ์บ็อกซ์รหัสสินค้า] = Me.[ชื่อเท็กซ์บ็อกซ์ของบาร์โค้ด]
End If


มีคนอื่นมีปัญหาแบบนีเหมือนกัน และเหมือนว่าฟอนท์นี้จะมีปัญหาด้วย fracktured.com/2011/04/28/problem-printing-calibri-font-with-office-2010/ แนะว่าไปใช้ฟอนท์ธรรมดาๆตัวอื่นดีกว่าครับ