แสดงกระทู้

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.


Topics - Un

หน้า: [1] 2 3
1
ห้อง MS Access / โค๊ตสร้างตารางวันลา
« เมื่อ: 29 มิ.ย. 67 , 15:14:02 »


เรื่องโค๊ตอีกแล้วครับ
จากตารางการลา(LeaveDayBF) DateStart=วันที่ลา WD=เลขบอกวัน(1อาทิตย์ 2จันทร์ 3อังคาร...)
U=ชื่อคนลา Unit=จำนวนวันที่ลา ผมอยากได้โค๊ตไปอีกตารางหนึ่ง (LeaveDay) ตามรูปครับ

จากรูปจะเห็นว่านายดำ ลา 5 วัน ตั้งแต่วันอังคารที่ 9 ลา 5 วันทำให้วันสุดท้ายลาวันจันทร์ ข้ามวันเสาอาทิตย์
ส่วนวันอื่นๆ ที่ไม่ได้ติดวันเสาอาทิตย์ ก็เป็นไปตามรูปเลยครับ

อาจารย์ช่วยหน่อยครับ โค๊ตลักษณะแบบนี้ ผมยังไม่เคยมีเลย ลองผิดลองถูกไม่ได้ครับ

2


ต้องการนำค่าจาก Query ชื่อ qAppoint_Dlookup
ไปใส่ตาราง Appoint_Month_tmp โดยนำค่าเดือน
ไปใส่ใน คอลัมน์ M ใส่ค่า 1 ในคอลัมน์ Class เมื่อเป็นรายการแรกในวันนั้น
และนำค่าจาก คอลัมน์ ASPC โดยดูว่าเป็นวันที่เท่าใด ก็นำไปใส่ในคอลัมน์ D วันที่นั้นๆ
เช่น วันที่ 5/8/2567 นำค่า ASPC คือ ฉีดยาคุมกำเนิด 1 ราย ไปใส่ใน คอลัมน์ D5 ตามรูป
จากรูปจะเห็นว่าวันที่ 11/8/2567 มี 2 รายการ ให้ขึ้นเรคคอดใหม่ โดยเพิ่มเป็น Class 2 ตามรูป

ลบกวนอาจารย์เขียนโคตแบบนี้ให้ศึกษาหน่อยครับ ลองทำมา 2-3 วันมันขึ้น Error ตลอดเลยครับ


3
ห้อง MS Access / ปฏิทินตารางนัด
« เมื่อ: 24 พ.ค. 67 , 09:38:36 »
มีตารางที่เก็บข้อมูลวันนัด ดังนี้
    วันที่       ประเภทการนัด
1/6/2567     เจาะเลือด
3/6/2567     พบแพทย์
4/7/2567     ถอนฟัน
มีแนวคิดหรือวิธีนำข้อมูลมาทำในรูปแบบปฏิทินมั้ยครับ
โดยแสดงข้อมูลในปฏิทินเป็นประเภทการนัด จำนวน
ขอบคุณครับ   

4
ห้อง MS Access / link Google Map ตามพิกัด
« เมื่อ: 25 มี.ค. 67 , 11:16:42 »
ผมมีพิกัด GPS และได้ทำ Link ไปเปิด Google Map ดังนี้
โค๊ด: [Select]
Application.FollowHyperlink "http://maps.google.co.th/maps?q=" & Me.La & "," & Me.Lo & ""ผมอยากให้เปิด Map ที่เป็นรูปภาพ ไม่ใช่ Satlelite ต้องแก้ตรงไหนครับ

5
ห้อง 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)

6
ห้อง 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 หลัก โดยถ้ามีรูปก็ขึ้นรูป
ถ้าไม่มีก็ไม่ต้องขึ้นรูป


7
ผมมี Text File ใช้ชื่อเป็นเลข 13 หลัก (เลขบัตร ปชช)
อยู่ใน Folder C:\temp ตัวอย่าง C:\temp\1234512345123.txt
ผมจะตรวจสอบว่า คนๆ นี้(ชื่อไฟล์) มีอยู่ในฐานข้อมูลรึยัง โดย
ดูจาก  Record ในฟิลด์ ชื่อ CID จากตาราง Person ชนิดข้อมูล เป็น Text
ผมต้องเขียนโค็ตยังงัยครับ ให้ถ้ามี เลข 13 หลักนี้อยู่แล้ว
บอกว่ามีแล้ว ถ้ายังไม่มีบอกว่ายังไม่มี ขอบพระคุณครับ

8
ห้อง MS Access / Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 19 ม.ค. 66 , 16:07:03 »


จากในรูปตัวสีแดง
ผม Copy Code จากไฟล์ที่แชร์กันในนี้
ผมก็ใช้งานได้ตามปกติ แต่มีบางเครื่อง
ที่นำโปรแกรมไปใช้ เกิด Err แบบนี้ขึ้นมา
มันไม่ได้เกิดที่เครื่องผม จึงสงสัยว่ามันเป็นที่
Windows หรือ Offife หรือไม่ มันแก้ไขยังไงได้บ้างครับ

9
ผมทำหน้าฟอร์มสลิปเงินเดือนมา 1 ฟอร์ม
เปิดฟอร์มมา มีข้อมูลครบแล้ว
อยากได้คำสั่งในปุ่มให้
Click แล้ว คำสั่งแรก กดปุ่มที่คีบอร์ด Alt+Printsceen
แล้วเอาไฟล์ที่ได้วางเป็นรูปภาพนามสกุล Jpg. (ตรงนี้ไม่รู้ทำได้ป่าว)
คำสั่งต่อไปคือเปิด หน้าต่างให้เลือกที่วางไฟล์ และตั้งชื่อเอง

ขอบพระคุณอาจารย์ทุกท่านที่ชี้แนะครับ

10
เมื่อเราบันทึกข้อมูลลำดับต่างๆ ลงใบฐานข้อมูลของเราแล้ว
มีการแก้ไข เช่น เพิ่มเรคคอด ลบเรคคอด หรือแก้ไขวันที่บันทึก
ทำให้ข้อมูลลำดับที่บันทึกไว้นั้นเรียงผิด
ผมจึงอยากทำปุ่มไว้เรียงลำดับ โดยเมียเงื่อนไขดังนี้
-เรียงลำดับตามวันที่ ฟิล DateR
-เรคคอดแรก เท่ากับ 1
-วันที่เดียวกันเลขเดียวกัน เช่นวันที่ 2 ถ้าเป็นลำดับที่ 7 ก็เป็น 7 ทุกเรคคอด
-วันที่ถัดไป +1 ลำดับ
ฟิลดืี่บันทึกชื่อ SEQrec
ต้องเขียนโคตปุ่มยังงัยครับ
ขอบพระคุณอาจารย์ที่ช่วยครับ

11

ขอ Query Running sum ฟิลด์ Totel ครับ
โดย MCode เป็นตัวแปลตามชนิดวัสดุ
      MType เป็นตัวแปลถ้ารับ(เท่ากับ1)จะเอาค่าที่รับมาบวก ถ้าเบิก(เท่ากับ2)เอามาลบ
Table แรกชื่อ qMrep

ขอความช่วยเหลือด้วยครับ

12


ถ้ามีรายการใน 1 วัน SendCardEndNo จะรันวันละ 1 เลข
SendCardNo จะรันตามจำนวน Cashier คือใน 1 วัน
Cashier คนแรก จะรันแรก 1 พอคนอื่นมาบันทึก ก็จะเป็นเลขต่อไป คือ 2
แต่ถ้าคนเก่ามาบันทึกในวันเดิม ก็จะรันแรกเดิมของเค้า
วันต่อไป SendCardEndNo ก็จะรันต่อไป
SendCardNo ก็รันต่อไป ตามรูปตัวอย่างเลยครับ

เขียนโคตไม่ถูก ขอความกรุณาครับ

13
ใครโหลดโปรแกรมอ่านบัตรประชาชน ของ
Awara Thailand ตัวนี้ >> THIDSMCReaderV1.exe
ขอหน่อยครับ พอดีพอดีโหลดไว้แล้วมันหายไป

14
เมื่อสั่งพิมพ์ให้ PageFooterSection พิมพ์เฉพาะหน้าสุดท้าย

ใช้คำสั่งอย่างไรครับ

15
ผมพิมพ์คำว่า เอนก Access มันแก้ไขให้เอง เป็น อเนก
ปกติก็ไปแก้ที่การตั้งค่า แต่พอเป็น Access คั้งแต่ 2010 ขึ้นไป แก้ที่ตรงไหนครับ
ผมลองไปที่ ตั้งค่า > ฐานข้อมูลปัจจุบัน > ตัวเลือกการแก้ไขชื่อัตโนมัติ คลิกที่กล่องคำสั่งออก
แล้วปิดโปรแกรม เปิดใหม่ แต่มันไม่หายครับ ใครรู้ช่วยหน่อยครับ

16
ต้องการพิมพ์สติกเกอร์ตามจำนวนแผ่นที่กำหนด



ในแต่ละแผ่นก็มีข้อมูลเช่น ชื่อ-สกุล ปัญหาคือ เช่น
นาย ก ต้องการ 3 แผ่น นาย ข 4 แผ่น นาย ค 5 แผ่น
เก็บข้อมูลในตารางไว้ดังนี้
์Name                 Unit(จำนวนแผ่นที่จะพิมพ์)
นาย ก                    3
นาย ข                    4
นาย ค                    5
ต้องตั้งค่าหรือ เขียนยังงัยให้พิมพ์ออกมาในสติกเกอร์ ดังรูปภาพ ได้ครับ

ขอบคุณครับ


17
เพิ่มฟิลด์ในตารางปลายทางที่ Sever

เราจะอ้างอิงยังงัยครับ ขอบคุณครับ

18
ห้อง MS Access / ซ่อน PageHeaderSection หน้าแรก
« เมื่อ: 15 พ.ค. 63 , 11:40:50 »
อยากซ่อน PageHeaderSection ที่หน้าแรก

ผมใช้โคตแบบนี้

        If Page = 1 Then
            Me.PageHeaderSection.Visible = False
        Else
            Me.PageHeaderSection.Visible = True
        End If

แต่ทำไมมันกับซ่อนที่หน้าถัดไป แต่หน้าแรกไม่ซ่อน
ผมลองทำสลับกัน ผลออกมาเหมือนเดิม

หน้า: [1] 2 3