แสดงกระทู้

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.


Messages - kunlek

หน้า: 1 2 3 [4] 5 6 7 ... 13
55
ห้อง MS Access / ตัดทศนิยมเหลือ 2 ไม่ได้ ใน properties sheet มีให้กำหนด format แต่ไม่มี decimal
« เมื่อ: 27 ก.ค. 63 , 21:32:27 »
เรียน อจ ช่วยพิจารณาปัญหาครับ
ค่าเสื่อมต้นงวด: Nz(IIf([status]=0,IIf(([วันต้นงวด]-[term_day])>0,([book_vul]),([วันต้นงวด]*[depree_day])),"0"))
ทำไมฟิลด์พวกนี้มีจุดทศนิยมมากมาย ใน properties sheet มีแต่ format   ไม่มีdecimal  แปลกๆๆครับ
และบรรทัดถัดไปของ ฟิลด์มูลค่าต้นงวด มูลค่าคงเหลือ ขึ้น error  ไม่รู้สาเหตุ

56
ห้องโฆษณาฟรี / : POS Member Live Pro เขียนจาก Access ล้วนๆ รบกวนทดสอบด้วยครับผม
« เมื่อ: 27 ก.ค. 63 , 19:32:14 »
โปรแกรมน่าใช้งานจังครับ

57
ห้องโฆษณาฟรี / : POS Member Live Pro เขียนจาก Access ล้วนๆ รบกวนทดสอบด้วยครับผม
« เมื่อ: 27 ก.ค. 63 , 08:02:44 »
โหลดใหม่แล้ว ถามหารหัส ใส่รหัสที่ให้ก็ไม่ได้ครับใช่  "123456" หรือ?

58
ห้อง MS Access / : รวมตัวเลขไม่ได้
« เมื่อ: 26 ก.ค. 63 , 15:39:17 »
แก้ไขเรื่องตัวเลข สร้าง reportได้แล้ว ติดปัญหาเรื่อง ทศนิยม มีปัญหาเรื่องบางฟิลด์ ตัดทศนิยมเหลือ 2 ตำแหน่งไม่ได้  ไม่รู้เป็นสาเหตุใด

59
ห้อง MS Access / : รวมตัวเลขไม่ได้
« เมื่อ: 25 ก.ค. 63 , 14:19:57 »
หาจำนวนวัน(31/12/61)ในคิวรี่    โดย ใช้ วันที่ ลบ วันที่ ผลลัพท์ error   แต่ถ้าวันที่ เดี่ยวๆๆ ได้ ไม่รู้ต้องใช้นิพจน์?

60
ห้อง MS Access / : รวมตัวเลขไม่ได้
« เมื่อ: 24 ก.ค. 63 , 13:06:17 »
ในคิวรี่ ฟิลด์ depree_acc_bal ค่าเสื่อมสะสม ได้ทำ expression ว่า ถ้าคำนวณจำนวนวัน date_age มาจาก date_buy ถึงวันที่ิิออกรายงาน(คือสิ้นปี)   มากกว่าจำนวนอายุการใช้งาน(asset_term)*365 ค่าของ date_age=0 
ซึ่งรายงานผมจึงผิดครับ  เช่น ถ้าหม้อแปลงไฟฟ้า วันที่ซื้อมา  18/02/56 รายงานผมค่า "เสื่อมงวดนี้"  เป็น 0 ถ้าออกรายงาน วันที่ 31 ธค 61 ที่ถูกต้อง ยังมีจำนวนวัน 49 วัน เหลืออยู่ในปี 2561   ยอดที่ถูก จึงต้องเท่ากับ  [depree_day]*49 =7527.85 ครับ
****จะเขียน expression อย่างไร เพือ หาจำนวน จากวันที่ 1 มค ถึงวันที่ 18 กพ ? เท่ากับกี่ วัน

61
ห้องโฆษณาฟรี / : POS Member Live Pro เขียนจาก Access ล้วนๆ รบกวนทดสอบด้วยครับผม
« เมื่อ: 24 ก.ค. 63 , 09:15:24 »
โหลดแล้ว เปิดการเข้ารหัสไม่ได้ครับ

62
ห้อง MS Access / รวมตัวเลขไม่ได้
« เมื่อ: 24 ก.ค. 63 , 09:07:30 »

A  ยอดผลลัพธ์ จากตาราง เมื่อเกินอายุใช้งานมีค่า =1
B  หาผลรวม ไม่ได้ ???????

63
ห้อง MS Access / : ปัญหาปัดเศษทศนิยม
« เมื่อ: 20 ก.ค. 63 , 19:34:09 »
ค้นหาทางแก้ในเวปบอร์ดนี้ได้พอดี  ใช้หลักการ Int(x คูณ 100) หาร 100

64
ห้อง MS Access / : ปัญหาปัดเศษทศนิยม
« เมื่อ: 20 ก.ค. 63 , 17:27:21 »
มูลค่าสินค้าสุทธิ ควรเท่ากับ 354,579.53 บาท  (379,400.10-24,820.57)   ประเภทของฟิลด์เป็น standard,decimal=2

65
ห้อง MS Access / ปัญหาปัดเศษทศนิยม
« เมื่อ: 20 ก.ค. 63 , 17:22:53 »


66
ห้อง MS Access / : ขอวิธีเพิ่มข้อมูลในตาราง โดยเอาข้อมูลจาก tableอื่นที่ link กัน
« เมื่อ: 16 ก.ค. 63 , 15:59:35 »
ข้อมูลเก่า cust_id จาก voucher_s ไม่ไปครับ แต่ entry ปัจจุบันมี cust_id ทั้ง 2 table ครับ

67
ห้อง MS Access / ขอวิธีเพิ่มข้อมูลในตาราง โดยเอาข้อมูลจาก tableอื่นที่ link กัน
« เมื่อ: 16 ก.ค. 63 , 13:24:35 »
จากกระทู้หัวข้อเรื่องดึงราคาฯ  Mainforms Voucehr_s (table voucher_s มี ฟิลด์ cust_id) และ SubForms fsale(table fsale เดิมไม่มี ฟิลด์ cust_id มาเพิ่มฟิลด์ cust_id ภายหลัง )   ผมขอวิธีจะเอาข้อมูลจาก cust_id ของ voucher_s ไปใส่ใน ฟิลด์ใหม่ cust_id ของ fsale โดยผูกกันด้วย voucher_s_id

68
ห้อง MS Access / : วิธีการเพิ่มรายการขายสินค้าใหม่โดย ดึงราคาล่าสุด แต่แก้ไขราคาได้
« เมื่อ: 15 ก.ค. 63 , 15:03:53 »
ขอบคุณครับ

69
ห้อง MS Access / : วิธีการเพิ่มรายการขายสินค้าใหม่โดย ดึงราคาล่าสุด แต่แก้ไขราคาได้
« เมื่อ: 15 ก.ค. 63 , 11:22:20 »
ขอบพระคุณครับท่าน  ถ้าไม่ได้การช่วยรีโมท สงสัยฟอร์มจะเละไปใหญ่ ตอนนี้ก็ยังไม่เข้าใจ textbox กับ label ต่างกัน?
Code ที่ถูกต้องแล้ว

Private Sub goods_id_AfterUpdate()
Call CheckS_Price
End Sub
--------------------
Sub CheckS_Price()
Dim LastDate As String
Dim strPurchase_history As String
If Not IsNull(Me.date_sale) And Not IsNull(Me.goods_id) And Not IsNull(Forms!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id) Then
strPurchase_history = Nz(DLookup("[cust_id]", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] ='" & Forms!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id & "'"), 0)

LastDate = Nz(DLast("date_sale", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] ='" & Forms!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id & "'"), 0)
Me.s_price = Nz(DLookup("[s_price]", "[fsale]", "cstr([date_sale]) ='" & LastDate & "' And [goods_id] ='" & goods_id & "' And [cust_id] ='" & Forms!ACC_ºÑ¹·Ö¡¢ÒÂÊÔ¹¤éÒ!txtcust_id & "'"), 0)
End If
 End Sub

70
ห้อง MS Access / : วิธีการเพิ่มรายการขายสินค้าใหม่โดย ดึงราคาล่าสุด แต่แก้ไขราคาได้
« เมื่อ: 14 ก.ค. 63 , 14:42:41 »
แก้ไขชื่อฟิลด์ goods_id ใน fsale จาก combo18 เป็น goods_id แล้วก็ยังไม่ได้ครับ

71
ห้อง MS Access / : วิธีการเพิ่มรายการขายสินค้าใหม่โดย ดึงราคาล่าสุด แต่แก้ไขราคาได้
« เมื่อ: 14 ก.ค. 63 , 12:37:08 »
ส่งตัวอย่างครับ

72
ห้อง MS Access / : วิธีการเพิ่มรายการขายสินค้าใหม่โดย ดึงราคาล่าสุด แต่แก้ไขราคาได้
« เมื่อ: 13 ก.ค. 63 , 22:08:10 »

Private Sub Combo18_AfterUpdate()
Call CheckS_Price
End Sub
....................................................
Sub CheckS_Price()
Dim LastDate As String
Dim strPurchase_history As String
If Not IsNull(Me.date_sale) And Not IsNull(Me.goods_id) And Not IsNull(Forms!ACC_บันทึกขายสินค้า!txtcust_id) Then
strPurchase_history = Nz(DLookup("[cust_id]", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] =" & Forms!ACC_บันทึกขายสินค้า!txtcust_id & ""), 0)

LastDate = Nz(DLast("date_sale", "[fsale]", "[goods_id] = '" & goods_id & "' And [cust_id] =" & Forms!ACC_บันทึกขายสินค้า!txtcust_id & ""), 0)
Me.s_price = Nz(DLookup("[s_price]", "[fsale]", "cstr([date_sale]) ='" & LastDate & "' And [goods_id] ='" & goods_id & "' And [cust_id] =" & Forms!ACC_บันทึกขายสินค้า!txtcust_id & ""), 0)
End If
...........................
ตอนนี้ได้แก้ไขไปตามนี้ ยังไม่ได้ครับ ไม่แสดง errorอะไร เลยด้วย ( forms ชื่อ ACC_บันทึกขายสินค้า  subforms ชื่อ fsale)

หน้า: 1 2 3 [4] 5 6 7 ... 13