ส่วนของตาราง ค่ะ
Table Budgets
Field name --------------> Data Type
Budgets_ID --------------> AutoNumber
BudgetsName------------> Text
Project --------------------> Text
DateInput -----------------> Date/Time
Site_ID --------------------> Text
UserName ----------------> Text
Department_ID ----------> Number
Type_ID -------------------> Number
CodeBudgets_ID --------> Number
dim isql as string
isql="select Budgets_ID from Budgets where 1=1 and <ตามด้วยเงือนไยที่ต้องการเช็ค>
rs.open isql,cn,1,3
if not rs.eof then
' แสดงว่ามีข้อมูลแล้วก็ทำการ update
else
' แสดงว่าไม่มีข้อมูลก็ใหับันทึกข้อมูล
end if
rs.close