ช่วยดูโค้ดให้หน่อยครับ ผมต้องการให้โชว์ Massage ในกรณีป้อนรหัสสินค้าซ้ำ ผมพยายามหลายครั้งแล้ว แต่ความสามารถไม่ถึงจริงๆ เลยต้องมารบกวนท่านอาจารย์ครับ ทั้งๆที่ทำตามตัวอย่างที่ดาวน์โหลดมา 
Option Compare Database 
Option Explicit 
Dim db As Database 
Dim rs1 As Recordset 
Dim rs2 As Recordset 
Dim rs3 As Recordset 
Dim rs4 As Recordset 
 
 
Private Sub cmbName_AfterUpdate() 
 
End Sub 
 
Private Sub cmbCustId_AfterUpdate() 
Dim strCust As String 
rs2.Seek "=", cmbCustId.Value 
If rs2.NoMatch = False Then 
    strCust = rs2.Fields("Cust_Name").Value & Space(5) & rs2.Fields("Cust_Surname").Value & _ 
    Space(5) & rs2.Fields("Cust_Address").Value & Space(5) & rs2.Fields("Cust_Telephone").Value 
    txtAddress.Value = strCust 
    txtDiscount.SetFocus 
Else 
    MsgBox "ไม่พบข้อมูลของรหัสที่คุณต้องการ", vbOKOnly, "ผลการทำงาน" 
    cmbCustId.SetFocus 
End If 
 
End Sub 
 
Private Sub Combo38_AfterUpdate() 
 
End Sub 
 
Private Sub cmbProductId_AfterUpdate() 
rs3.Seek "=", cmbProductId.Value 
If rs3.NoMatch = False Then 
    txtProductName.Value = rs3.Fields("Product_Name").Value 
    txtUnitPrice.Value = rs3.Fields("Unit_Price").Value 
    txtQuantity.SetFocus 
    Else 
   
    MsgBox " ไม่รหัสสินค้าที่คุณป้อน", vbOKOnly, "ข้อผิดพลาด" 
    cmbProductId.SetFocus 
End If 
 
     
     
     
End Sub 
 
 
 
Private Sub cmdSave_Click() 
If IsNull(cmbCustId) Or IsNull(cmbProductId) Or IsNull(txtQuantity) Or IsNull(txtDiscount) Then 
    MsgBox "คุณป้อนข้อมูลยังไม่ครบกรุณาตรวจสอบ", vbOKOnly + vbInformation, "คำเตือน" 
Else 
rs1.Seek "=", txtOrderId.Value 
If rs1.NoMatch Then 
    rs1.AddNew 
    rs1.Fields("Order_Id").Value = txtOrderId.Value 
    rs1.Fields("Order_Date").Value = txtdate.Value 
    rs1.Fields("Cust_Id").Value = cmbCustId.Value 
    rs1.Fields("Discount").Value = txtDiscount.Value 
    rs1.Update 
End If 
 
rs4.Seek "=", cmbProductId.Value 
If rs4.NoMatch Then 
    rs4.AddNew 
    rs4.Fields("Order_Id").Value = txtOrderId.Value 
    rs4.Fields("Product_Id").Value = cmbProductId.Value 
    rs4.Fields("Quantity").Value = txtQuantity.Value 
    rs4.Update 
    MsgBox "บันทึกข้อมูลเรียบร้อยแล้ว" 
Else 
    MsgBox "คุณป้อนรหัสสินค้าซ้ำ" 
       End If 
End If 
 
Me.QueryDetail.Requery 
 
End Sub