แสดงกระทู้

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 - Un

หน้า: [1] 2 3 4
1
สร้าง Append Query ชื่อ Query1
แล้วไปใส่คำสั่งให้ Run Query
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

2
ขอบคุณครับอาจารย์
โพสต์นี้ได้รับคำขอบคุณจาก: Su

3
ใช้ชื่อคอนโทลเป็นภาษาไทยหมดเลย จะต่อยอดยากนะครับ
ผมทำในส่วนที่ถามไม่ได้ดูอย่างอื่นนะครับ คือคลิกที่ครึ่งวันแล้ว รวมวันลา = 0.5
โพสต์นี้ได้รับคำขอบคุณจาก: John Memoriall

4
เพราะโจทย์มันไม่ละเอียดเลยตอบยาก
1.ไม่รู้ว่าตรง รวมวันลา ใช้การพิมพ์เอง หรือ เกิดจากการเลือกวันที่
2. วันที่ลา ที่ระบุถ้าหลายวัน จะติ๊กครึ่งวันได้รึป่าว
 แต่จากที่ดูรูป ครึ่งวันส่วนใหญ่ เป็นวันที่ ถึง วันเดียวกัน
 ผมจะใช้ AfterUpdate ถ้าคลิกที่ครึ่งวัน จะให้รวมวันลา = 0.5

จะให้ง่ายกว่านี้ส่งโปรแกรมมาเลย
โพสต์นี้ได้รับคำขอบคุณจาก: John Memoriall

5
1. ต้องเพิ่มฟิลด์ที่สินค้านั้นๆ ก่อนว่าเป็นสินค้าโปรโมชั่นรึป่าว เช่นค่า = 0 คือไม่เป็นสินค้าโปรชั่น = 1 เป็นสินค้าโปรโมชั่น
2. ให้ใส่ช่องนี้ในหน้าซื้อขาย
3. ใช้กล่องข้อความ Sum ฟิลด์ ที่เพิมมานี้
4. ในช่องคิดเงิน ใส่เงื่อนไขไป ว่าถ้ากล่องข้อความที่ Sum > 3 ก็เอาจำนวนเงินมา -20 ถ้าไม่ใช่ก็ เป็นจำนวนเงินเดิม
แนวคิดก็ประมาณนี้
โพสต์นี้ได้รับคำขอบคุณจาก: maicnx

6
ห้อง MS Access / ประมวลผลค่าเสื่อม
« เมื่อ: 17 ก.ค. 66 , 14:12:06 »
สืบเนื่องจากกระทู้ https://www.thai-access.com/index.php?topic=2233.0

เลยเอามาถามแทน เผื่อคนเอาไปใช้ได้เยอะเลย


ในการทำทะเบียนครุภัณฑ์ ส่วนใหญ่เราก็ใช้วิธีคำนวนกันเป็นรายปี เมื่อสิ้นปีงบประมาณ (30 ก.ย.)
เราก็จะคำนวนโดยใช้ Query Append ข้อมูลค่าเสื่อมตามที่คำนวนไปเก็บในตารางในแต่ละปี
แต่ในกระทู้นั้นเหมือนเก็บข้อมูลทุกปี ไม่ใช้ใช้เฉพาะปีปัจจุบัน ผมเลยออกแบบวิธีการคิดค่าเสื่อมดังนี้


-คิดค่าเสื่อมเป็นรายวัน โดยเริ่มคิดตั้งแต่ปี 2560 และราคาต้องเกิน 10,000 บาท
-เมื่อหมดอายุการใช่งาน ให้เหลือไว้ 1 บาท โดยไม่ต้องนำมาคำนวนอีก
-DEPRECIA เป็นตารางที่บันทึกครุภัณฑ์
-DEPRECPROCESS ไว้รับข้อมูลจากการคำนวน เอาไปเขียน Report ในภายหลัง
-ISSU เก็บรายการครุภัณฑ์ที่จำหน่ายแล้ว
เมื่อเปิดฟอร์ fProcess ขึ้นมา กดปุ่มคำนวนค่าเสื่อม (อันนี้ที่ทำไมเป็น)
ให้คำนวนค่าเสื่อมตั้งแต่ปี 2560 แล้วเอาไปใส่ในตาราง DEPRECPROCESS
จนถึงปีที่ระบุในฟอร์ม (30 ก.ย.2566)
โพสต์นี้ได้รับคำขอบคุณจาก: marut.navy

7
หลักการก็จากที่เราเก็บไฟล์ PDF ในฐานข้อมูล
เปลี่ยนมาเก็บ File Path แทน โดยเพิ่มฟิลด์เป็น Text
เมื่อเราจะเปิด PDF File ของเอกสารตัวไหน ก็เก็บPath
ของตัวนั้น แล้ว FollowHyperlink ชื่อไฟล์ Path ตามตัวอย่างที่ให้ไป

ในตัวอย่างกดปุ่ม ... มันจะไปเปิดที่เก็บ PDF File แล้วเราเลือกไฟล์ที่ต้องการ
มันจะนำ File Path มาเก็บ แล้วเรากดปุ่ม Open PDF มันก็จะเปิดไฟล์ให้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: savetri

8
ทำได้ครับ โดย เก็บเป็น Path แทน แล้วสั่งเปิดโดย FollowHyperlink ชื่อไฟล์ Path
โพสต์นี้ได้รับคำขอบคุณจาก: savetri

9
Billnum=Day([tDate]) & Month([tDate]) & Year([tDate])+543 & Right('0000' & [ID],4)
วันที่กับเดือนเค้านิยมเป็น 2 หลักนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: marut.navy, seksan orm, maicnx

10
ห้อง MS Access / : การทำทะเบียนครุภัณฑ์
« เมื่อ: 29 มิ.ย. 66 , 13:30:41 »
ตามแนวกรมบัญชีกลาง ครับ คิดแบบเส้นตรง ครับผม
เค้าก็คิดเป็นเส้นตรงทั้งนั้นแหละ มหาดไทยคิดเป็นวันแล้ว
จากคำถาม อ่านแล้วไม่รู้จะตอบยังงัยนะ
ไม่ทราบพอมีโค้ดเขียนป่าวครับผม
คำถามที่ถาม ผมไม่รู้จะตอบตรงไหนครับ เขียนโคตตรงไหน
ส่งรูปหน้ารายงานมา ก็ไม่รู้จะตอบยังงัยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: marut.navy

11
ห้อง MS Access / : การใช้ MsgBox
« เมื่อ: 28 มิ.ย. 66 , 10:21:21 »
สมมุติกล่องข้อความ ชื่อ กล่อง1 และกล่อง2
ที่ปุ่มคำสั่ง

Private Sub Command_Click()
    Me.กล่อง1 = ""
    Me.กล่อง2 = ""
    Me.กล่อง1.Setfocus
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: maicnx

12
ห้อง MS Access / : การใช้ MsgBox
« เมื่อ: 27 มิ.ย. 66 , 17:44:59 »
         Dim RetValue As Variant
                RetValue = MsgBox("กด Yes เมื่อต้องการปิด", vbOKCancel + vbDefaultButton2, "Un")
                Select Case RetValue
                    Case 1
                        DoCmd.close acForm, "ชื่อฟอร์ม"
                    Case Else
                        '''
                 End Select

ประมาณนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: maicnx

13
ห้อง MS Access / : Show รูปบัตรในฟอร์ม
« เมื่อ: 14 มิ.ย. 66 , 09:01:55 »
ที่กล่องรูปภาพหรือ Image Object ตั้ง Data -> Control Source เป็น
โค๊ด: [Select]
="C:\pic\" & [id_card] & ".jpg"
หรือถ้าเวลาย้ายไปใว้ที่อื่นแล้วอยู่คู่กันเสมอก็ใช้เป็น
โค๊ด: [Select]
=[CurrentProject].[Path] & "\pic\" & [id_card] & ".jpg"
เรียบร้อย สวยงาม ขอบคุณครับอาจารย์
โพสต์นี้ได้รับคำขอบคุณจาก: marut.navy

14
ห้อง MS Access / Show รูปบัตรในฟอร์ม
« เมื่อ: 13 มิ.ย. 66 , 14:17:40 »
ถ้าเราเก็บไฟล์รูป (.Jpg) ใน Drive C โฟลเดอร์ pic โดยใช้เลข 13 หลักเป็นชื่อไฟล์
C:\pic\xxxxxxxxxxxx1.jpg
C:\pic\xxxxxxxxxxxx2.jpg
C:\pic\xxxxxxxxxxxx3.jpg
C:\pic\xxxxxxxxxxxx4.jpg
เราสร้างฟอร์มแบบต่อเนื่อง โดยในฟอร์มมี
1.กล่องข้อความ ชื่อ id_card แสดงเลข 13 หลัก จากตารางที่เก็บ
2.Image Object ชื่อ Image1
อยากให้เปิดฟอร์มา แล้วรูปที่เราเก็บไว้ใน Drive C โฟลเดอร์ pic
Show ใน Image Object ตามเลข 13 หลัก โดยถ้ามีรูปก็ขึ้นรูป
ถ้าไม่มีก็ไม่ต้องขึ้นรูป

โพสต์นี้ได้รับคำขอบคุณจาก: marut.navy

15
เมื่อเช้าอ่านแล้ว ไม่ค่อยเข้าใจ ไม่น่าใช่แบบนี้ แต่เอาไปปรับดูแล้วกันครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Surapong J Noom

16
ถ้าหมายถึง ตรงลายเซน ให้โปร่งใส ทำไม่ได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: thekaihuo

17
เวลาเกิด Error ก็ต้องไปแกะที่คำสั่งที่ละขั้นตอน ว่าเกิดจากขั้นตอนไหน
ระบบที่ไม่ซับซ้อนก็พอจะแกะได้ง่าย ระบบที่ซับซ้อนก็ยาก
บางครั้งเกิดจากโปรแกรมที่เขียน บางครั้งเกิดจาก User
และยิ่งถ้าปัญหามันเกิดจากข้อมูลด้วยแล้ว ยิ่งยากจะหา
ขอให้โชคดีครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

18
เวลาทำฟอร์ม ก็ไม่ต้องพิมพ์ทุกครั้ง การทำฐานข้อมูล เราก็ต้องเก็บตารางสินค้า
ตารางต่างๆ มันเอาไปต่อยอดได้อีกไม่รู้กี่รูปแบบ แต่สุดท้ายมันก็อยู่ที่คนใช้
ว่าชอบแบบไหน ตารางแบบที่คุณบอกผมก็ทำมาแล้ว สุดท้ายมาจบแบบที่ผมบอก
ลองทำดูครับ การเขียนโปรแกรมใช้เองไม่ยาก เขียนให้คนอื่นใช้ ยากมาก
ไม่ใช่ทำโปรแกรมยาก แต่วิธีที่จะใช้มันหลากหลาย พอเราบอกสิ่งที่ดีที่สุด
เค้าก็จะไม่เอา พอมีปัญหาก็จะให้แก้ ลองทำดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

หน้า: [1] 2 3 4