ต้องการโอนข้อมูล ตาราง Voucher_s กับ Voucher_s1 และ Fsale กับ Fsale1  ถ้าใส่ code นี้ จะโอนไปเฉพาะตาราง Fsale แต่ถ้าโอนทีละตารางโอนได้ครับ ขอคำแนะนำครับท่าน.....

Private Sub Command0_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "INSERT INTO voucher_s  SELECT voucher_s1.* FROM voucher_s1 WHERE (((voucher_s1.voucher_s_id)=[เลขที่บิล]));"
strSQL = "INSERT INTO fsale  SELECT fsale1.* FROM fsale1 WHERE (((fsale1.voucher_s_id)=[เลขที่บิล]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Private Sub Command0_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "INSERT INTO voucher_s1 SELECT voucher_s.* FROM WHERE (((voucher_s1.voucher_s_id)=[ãÊèàÅ¢·ÕèºÔÅ]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

***ทำไม ติด debug ครับ

มีตาราง A และตาราง ฺB เหมือนกัน แต่ตาราง B ขาดรายการบิลที่ป้อนในเดือนมีนาคม 63(date_sale) ทั้งเดือน เราจะใช้ query แบบ append ได้ไหมครับ และ criteria จะระบุช่วงเดือนอย่างไร?

ถ้าบิลที่อยู่ใน list ค้นหา ประกอบด้วย IV163-08-01-01 .... และ PAA163-08-02-01..... และ PSV163-08-13-01....  แต่เราต้องการให้ใน list โชว์เฉพาะ PSV....กับ PAA  ครับ  ผมจะเขียนอย่างไรครับ

SELECT [voucher_b].[voucher_b_id], [voucher_b].[date_buy] FROM [voucher_b] where (([voucher_b].[voucher_b_id] like "PAA*"))
ค้นบิลที่ขึ้นต้นด้วย PAAปป-ดด-วว-xx  และถ้าต้องค้นบิลขึ้นต้นด้วย  PCปป-ดด-วว-xx หลัง where จะเขียนอย่างไรครับ

ตัวอย่างครับ ประกอบกระทู้

ตัวแปร
ค่าเสื่อมสะสม=IIf([status]=-1,0,IIf(([limit_date]<[end_date]),([ค่าเสื่อมต้นงวด]+[ค่าเสื่อมงวดนี้]-1),([ค่าเสื่อมต้นงวด]+[ค่าเสื่อมงวดนี้])))
status   (-1   =ทรัพย์สินอยู่ระหว่างก่อสร้าง  0  =ทรัพย์สินเสร็จ  พร้อมใช้งาน)
limit_date  วันที่หมดอายุการใช้งาน(นับจากวันที่ซื้อ +อายุการใช้งานทรัพย์ ในตัวอย่าง 5 ปี)
end_date  วันที่ออกรายงาน(ในที่นี้ คือ 31/12/62)
ในเงือนไข 
    1 ถ้าทรัพย์สินยังอยู่ระหว่างก่อสร้าง ทรัพย์สินรายการนั้นจะคงมูลค่าไว้ จนกว่าสร้างเสร็จ
      ในรายงาน จึงมีค่า " 0 "
    2 มี 3 เงื่อนไข  คือ  ค่าเสื่อมในงวด หามากจาก (ถ้าทรัพย์สินหมดอายุใช้งานในงวด ค่าเสื่อมในงวด เท่ากับ
        วันในงวด คูณ ค่าเสื่อมทรัพย์สินต่อวัน(depree_day) แต่ถ้าคำนวณแล้ว ได้มากกว่า มูลค่า
        ทรัพย์สินคงเหลือยกมา น้อยกว่า  ให้ใช้มูลค่าทรัพย์สินคงเหลือ
         แต่ถ้าทรัพย์สินใด  หมดอายุตั้งแต่  งวดก่อน  ค่าเสื่อมในงวดจะเท่ากับ "0"
    3 ถ้าทรัพย์สินใดหมดอายุการใช้งาน ให้คงมูลค่าทรัพย์สินไว้ " 1 "  และค่าเสื่อมสะสมทั้งหมดจะถูกหัก "1"
       ทรัพย์สินอื่นที่ยังมีอายุการใช้ในงวดรายงาน  หรือรายงานงวดต่อๆๆไป  ค่าเสื่อมในงวดคำนวณตามปกติ
       สิ่งที่ส่งมาในกระทู้ ยังผิดตรงที่ว่า ค่าเสื่อมสะสมของทรัพย์สินถูกหัก "1" ทุกรายการ ซึ่งรายการที่ยังมีอายุ
     การใช้งานจึง " ผิด "

รายงานค่าเสื่อม ณ 31/12/62
1 ค่าเสื่อมสะสม  ถ้าทรัพย์สินไหนตัดค่าเสื่อมครบแล้ว จะคงมูลค่าปลายงวด ไว้ "1" และค่าเสื่อมสะสมจะหักออก "1"
2 ค่าเสื่อมสะสม เป็นทรัพย์สินที่ยังมีอายุการใช้งาน เกิน 31/12/62 มูลค่าปลายงวด ยังไม่ต้องสำรองไว้ 1  และค่าเสื่อมสะสมก็ไม่ต้องหัก 1