แสดงกระทู้

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
1
ห้อง 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 ต้องแก้ตรงไหนครับ

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

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


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

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


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

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

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

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

8

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

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

9


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

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

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

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

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

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

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



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

ขอบคุณครับ


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

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

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

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

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

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

16
ผมมีข้อมูลอยู่ 70 เรคคอด
เอามาทำ รายงาน โดยที่ในแต่ละหน้า ต้องการเพียงแค่ 15 เรคคอด
แล้วตัดขึ้นหน้าใหม่ โดยแต่ละหน้า มีบรรทัด Sum ด้วย
ผมต้องตั้งค่าตรงไหน หรือ ทำอย่างไรบ้างครับ
ขอบคุณครับ

17
ห้อง MS Access / กำหนด Format ตัวเลข
« เมื่อ: 24 เม.ย. 63 , 15:36:47 »


จากรูป ผมกำหนด  Format ของกล่องข้อความเป็น Standard ทศนิยม 2 ตำแหน่งแล้ว (วงกลมที่ 1)
แต่ผลลัพธ์ตอน Preview ออกเป็นแบบ วงกลม 2 และ 3 ซึ่งผมอยากให้ออกเป็นแบบวงกลม 3

คำถามคือทำไมมันเป็นแบบนี้
และจะแก้ไขอย่างไรบ้างครับ

ผมได้ลองใส่ format([B4],"0.00") ในคิวรี่และว ก็ไม่ได้

18
มีฟิลด์ SEQ ชนิด Number Long Integer
ต้องการเขียนโคตให้ Run เลขตั้งแต่ที่กำหนด ไปจนหมดเรคคอด
ต้องเขียนยังงัยครับ ขอบคุณครับ

หน้า: [1] 2