คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
อาจารย์ครับ ผมได้ทำ AutoValidation ปัญหาที่ตามมาคือ เราต้องเขียนโค๊ดเพื่อตวรจสอบข้อมูลก่อนการบันทึก ว่าข้อมูลดังกล่าวมีอยู่ในฐานข้อมูลจริงหรือไม่
Code ที่ใช้ในการ Update ข้อมูลที่ผมเคยตอบไปสามารถนำมาประยุกต์ใช้ได้เลยครับ
ตรงนี้ขอเวลาหน่อยครับ ผมชักไม่มั่นใจในตัวเอง 
อาจารย์ครับ รบกวนเรื่องนี้ก่อนน่ะครับCode: Select all
Sub SaveToDB()
Dim msg As Integer
msg = MsgBox("คุณต้องการบันทึกข้อมูลใช่หรือไม่, vbYesNo)
If msg = vbYes Then
If Range("C17") <> "" Then
Sheets("Temp").Range("A2:L61") _
.Resize(Sheets("Temp").Range("M1"), 12).Copy
Sheets("Database").Range("A" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("PurchaseOrder").Range("B17:J76,H7,D13,C7,I13,H10") _
.SpecialCells(xlCellTypeConstants).ClearContents
MsgBox ("บันทึกข้อมูลแล้ว")
Else
MsgBox ("คุณยังไม่ทำรายการใดๆเลย")
Range("C17").Activate
End If
End If
End SubCode: Select all
'Other code
If Range("A1") <> "" And Range("A2") <> "" And Range("A3") <> "" And Range("A4") <> "" Then
'Other code
ผมอ่านเรื่องสับขาหลอกมาสองรอบแล้ว 
ช่วยอ่านคำว่าตัวอย่างเช่น ด้วยทุกครั้งนะครับ จะได้เข้าใจว่ามันเป็นตัวอย่างจริง ๆ การนำไปใช้ต้องปรับให้ตรงกับเซลล์จริง ไม่ได้ต้องการทำให้หลงผิดแต่อย่างใดครับ คือผมหมายความว่าอาจารย์มีวิธีเสนอแนะที่ต่างไป แทนที่จะบอกกันตรงๆ แต่จะให้ไปคิดเองแทน เพียงแต่อาจารย์จะให้แนวทางหรือลู่ทางไว้ครับ 
Code: Select all
Sub SaveToDB()
Dim msg As Integer
msg = MsgBox("คุณต้องการบันทึกข้อมูลใช่หรือไม่, vbYesNo)
If msg = vbYes Then
If Range("C17") <> "" And Range ("C7") <> "" And Range ("H7") <> () Then
Sheets("Temp").Range("A2:L61") _
.Resize(Sheets("Temp").Range("M1"), 12).Copy
Sheets("Database").Range("A" & Rows.Count) _
.End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("PurchaseOrder").Range("B17:J76,H7,D13,C7,I13,H10") _
.SpecialCells(xlCellTypeConstants).ClearContents
MsgBox ("บันทึกข้อมูลแล้ว")
Else
MsgBox ("คุณยังไม่ทำรายการใดๆเลย")
Range("C17").Activate
End If
End If
End Sub