37
ห้อง MS Access / ฟังก์ชั่น date time ของ เดือนปี
« เมื่อ: 28 ธ.ค. 63 , 23:23:38 »
ถ้ามีตัวเลขใน field เป็น 12/63 ต้องการให้แสดงผลเป็น ธันวาคม ุ63 เขียนฟังก์ชั่นแบบไหนครับ
แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
38
ห้อง MS Access / ทำไมโอนพร้อมกัน ไม่ได้
« เมื่อ: 16 ต.ค. 63 , 23:50:08 »
ต้องการโอนข้อมูล ตาราง 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_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
39
ห้อง MS Access / : ขอคำแนะนำ วิธีนำ record จาก table A ไป able B
« เมื่อ: 16 ต.ค. 63 , 22:57:02 »
runtime error '3070'
The Microsoft Access database engine does not recognize'voucher_s.*' as a valid field name or expression
The Microsoft Access database engine does not recognize'voucher_s.*' as a valid field name or expression
40
ห้อง MS Access / : ขอคำแนะนำ วิธีนำ record จาก table A ไป able B
« เมื่อ: 16 ต.ค. 63 , 22:50:32 »
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 ครับ
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 ครับ
41
ห้อง MS Access / : ขอคำแนะนำ วิธีนำ record จาก table A ไป able B
« เมื่อ: 13 ต.ค. 63 , 19:35:41 »
เนื่องจาก table A และ Table B อยู่คนละ file.mdb ครับ
ถ้า Table B เป็น table ที่อยู่ d:\MM.mdb เราจะอ้างอิงเขียนตรง INSERT INTO table b จะเขียนได้อย่างไรครับ
ถ้า Table B เป็น table ที่อยู่ d:\MM.mdb เราจะอ้างอิงเขียนตรง INSERT INTO table b จะเขียนได้อย่างไรครับ
42
ห้อง MS Access / ขอคำแนะนำ วิธีนำ record จาก table A ไป able B
« เมื่อ: 06 ต.ค. 63 , 21:40:29 »
มีตาราง A และตาราง ฺB เหมือนกัน แต่ตาราง B ขาดรายการบิลที่ป้อนในเดือนมีนาคม 63(date_sale) ทั้งเดือน เราจะใช้ query แบบ append ได้ไหมครับ และ criteria จะระบุช่วงเดือนอย่างไร?
43
ห้อง MS Access / : ค้นหาเลขที่บิลเลือกตามเลขนำหน้า
« เมื่อ: 19 ส.ค. 63 , 07:44:22 »
ผมใช้ combo box อยู่แล้วครับ แต่เวลาค้นหาโชว์ทุก record ใช้งานจริง ไม่ต้องการให้โชว์ record INV ต้องการให้โชว์เฉพาะเรคคอร์ด PSV...และ PAA...
44
ห้อง MS Access / : ค้นหาเลขที่บิลเลือกตามเลขนำหน้า
« เมื่อ: 14 ส.ค. 63 , 11:24:01 »
ถ้าบิลที่อยู่ใน list ค้นหา ประกอบด้วย IV163-08-01-01 .... และ PAA163-08-02-01..... และ PSV163-08-13-01.... แต่เราต้องการให้ใน list โชว์เฉพาะ PSV....กับ PAA ครับ ผมจะเขียนอย่างไรครับ
45
ห้อง MS Access / : ค้นหาเลขที่บิลเลือกตามเลขนำหน้า
« เมื่อ: 13 ส.ค. 63 , 22:56:39 »
[ENTER Bill Group] คืออะไรครับ เอามาจากไหนครับ?
46
ห้อง MS Access / ค้นหาเลขที่บิลเลือกตามเลขนำหน้า
« เมื่อ: 11 ส.ค. 63 , 22:57:09 »
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 จะเขียนอย่างไรครับ
ค้นบิลที่ขึ้นต้นด้วย PAAปป-ดด-วว-xx และถ้าต้องค้นบิลขึ้นต้นด้วย PCปป-ดด-วว-xx หลัง where จะเขียนอย่างไรครับ
47
ห้อง MS Access / : เรียน อจ และผู้รู้ครับ ไม่รู้จะเขียน IIF อย่างไรครับ??
« เมื่อ: 30 ก.ค. 63 , 09:42:42 »
แก้ตามที่ท่านแนะนำก็ได้ผลลัพธ์ตามต้องการ แต่รายการเครื่องดูดฝุ่น hitachi ทำไมยังผิดอยู่ครับ จริง ๅ 106.85+4893.15=5000 แต่ทำไม= 5001.74 (เครื่องดูดฝุ่น อายุใช้งาน 5 ปี ครับในงวดปี 62 ค่าเสื่อมในงวดจึง =106.85+4893.15 ผิดกับรายการอื่น ที่อายุการใช้งานเกินงวด 62 เช่น คอมพิวเตอร์ทั้งชุด จึงมีค่า =1000+3484.93 ซึ่งถูกต้องแล้ว)
เรียน อจ ช่วยพิจาณาหาสาเหตุทีครับ ขอบพระคุณอย่างสูงจริงๆๆครับ
เรียน อจ ช่วยพิจาณาหาสาเหตุทีครับ ขอบพระคุณอย่างสูงจริงๆๆครับ
48
ห้อง MS Access / : เรียน อจ และผู้รู้ครับ ไม่รู้จะเขียน IIF อย่างไรครับ??
« เมื่อ: 29 ก.ค. 63 , 21:22:54 »
ตัวอย่างครับ ประกอบกระทู้
49
ห้อง MS Access / : รวมตัวเลขไม่ได้
« เมื่อ: 29 ก.ค. 63 , 19:49:57 »
มูลค่าต้นงวด: Format(CDec(([book_vul]-[ค่าเสื่อมต้นงวด]),"0.00")) ทำไมได้ผลลัพธ์ " 0" ทั้งหมด ครับ
50
ห้อง MS Access / : เรียน อจ และผู้รู้ครับ ไม่รู้จะเขียน IIF อย่างไรครับ??
« เมื่อ: 29 ก.ค. 63 , 19:05:37 »
ตัวแปร
ค่าเสื่อมสะสม=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" ทุกรายการ ซึ่งรายการที่ยังมีอายุ
การใช้งานจึง " ผิด "
ค่าเสื่อมสะสม=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" ทุกรายการ ซึ่งรายการที่ยังมีอายุ
การใช้งานจึง " ผิด "
51
ห้อง MS Access / : รวมตัวเลขไม่ได้
« เมื่อ: 29 ก.ค. 63 , 17:27:03 »
ผมใช้ Round ผลลัพธ์ไม่ถูกทั้งหมด อย่างที่ท่านว่า ก็นึกว่าเป็นเรื่องทศนิยมยาวไป ตัดเหลือ 2 ตำแหน่ง คงต้องไปแก้เป็น CDec(format(n,"0.00")) แล้วคงแก้ type field table เพราะใช้ number/double กำหนด format/decimal เป็น standard/decimal มาตลอด ขอบพระคุณมากครับ
52
ห้อง MS Access / เรียน อจ และผู้รู้ครับ ไม่รู้จะเขียน IIF อย่างไรครับ??
« เมื่อ: 28 ก.ค. 63 , 21:27:51 »
รายงานค่าเสื่อม ณ 31/12/62
1 ค่าเสื่อมสะสม ถ้าทรัพย์สินไหนตัดค่าเสื่อมครบแล้ว จะคงมูลค่าปลายงวด ไว้ "1" และค่าเสื่อมสะสมจะหักออก "1"
2 ค่าเสื่อมสะสม เป็นทรัพย์สินที่ยังมีอายุการใช้งาน เกิน 31/12/62 มูลค่าปลายงวด ยังไม่ต้องสำรองไว้ 1 และค่าเสื่อมสะสมก็ไม่ต้องหัก 1
53
ห้อง MS Access / : รวมตัวเลขไม่ได้ ตอนนี้แก้ได้แล้ว
« เมื่อ: 28 ก.ค. 63 , 07:37:52 »
ตอบกระทู้ตัวเอง ได้ข้อคิดจากเวปบอร์ดนี้ครับ แก้ปัญหาที่ติดคือ ใช้ ฟังก์ชั่น Round([x],2)
54
ห้อง MS Access / มีวิธีกำหนด ทศนิยม 2 หลักได้อย่างไร
« เมื่อ: 27 ก.ค. 63 , 21:41:55 »
จากกระทู้ที่แล้ว ที่มาของตัวเลข
มูลค่าต้นงวด: Nz([book_vul]-[ค่าเสื่อมต้นงวด])
ค่าเสื่อมต้นงวด: Nz(IIf([status]=0,IIf(([วันต้นงวด]-[term_day])>0,([book_vul]),([วันต้นงวด]*[depree_day])),"0"))
วันต้นงวด: DateDiff("d",[date_buy],[befor_end_date])-1
มูลค่าคงเหลือ : Nz(IIf([book_vul]-([ค่าเสื่อมต้นงวด]+[ค่าเสื่อมงวดนี้])=0,1,([book_vul]-([ค่าเสื่อมต้นงวด]+[ค่าเสื่อมงวดนี้]))))
จะมีฟังก์ชั่นอะไรมาครอบตัวเลขของผลลัพธ์นี้ให้มีทศนิยม เหลือ 2 ตำแหน่งได้บ้างครับ
มูลค่าต้นงวด: Nz([book_vul]-[ค่าเสื่อมต้นงวด])
ค่าเสื่อมต้นงวด: Nz(IIf([status]=0,IIf(([วันต้นงวด]-[term_day])>0,([book_vul]),([วันต้นงวด]*[depree_day])),"0"))
วันต้นงวด: DateDiff("d",[date_buy],[befor_end_date])-1
มูลค่าคงเหลือ : Nz(IIf([book_vul]-([ค่าเสื่อมต้นงวด]+[ค่าเสื่อมงวดนี้])=0,1,([book_vul]-([ค่าเสื่อมต้นงวด]+[ค่าเสื่อมงวดนี้]))))
จะมีฟังก์ชั่นอะไรมาครอบตัวเลขของผลลัพธ์นี้ให้มีทศนิยม เหลือ 2 ตำแหน่งได้บ้างครับ
