สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

30 ม.ค. 61 , 10:46:17
อ่าน 732 ครั้ง

tubitmmm

  • สมาชิกไท.Access
  • กระทู้: 5

  • Thank You ไท.Access

    • ดูรายละเอียด

สวัสดีค่ะ

พอดีอยากสร้าง QR Code ใน Access คือตอนนี้สร้างได้แล้วค่ะ แต่ติดตรงเงื่อนไขเวลาคิวอาร์แสดงผลออกมา

ซึ่งตอนนี้ได้ดึงวันที่มาแสดงในคิวอาร์ค่ะ แต่ต้องการให้วันที่สลับตำแหน่งตามที่ต้องการอย่างเช่น DDMMYYYYHHmm เป็น HYMDYmYYDHMm ค่ะ

แล้วให้เลขข้างหน้า 3 ตัวเป็น Random ขึ้นมา ให้รวมได้ทั้งหมด 15 ตัวค่ะ ถึงจะผ่านเงื่อนไขเวลาแสกนคิวอาร์ค่ะ

รบกวนด้วยนะคะ ขอบคุณค่ะ

 

30 ม.ค. 61 , 12:44:02
ตอบกลับ #1

pizza_p

> สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ
« ตอบกลับ #1 เมื่อ: 30 ม.ค. 61 , 12:44:02 »
ไม่แน่ใจว่าหมายถึงการสร้างรหัสแบบนี้หรือเปล่า

Public Function QRString() As String
Dim DateStr As String, DateChr(12) As String, i As Integer

DateStr = Format(Now(), "DDMMYYYYHHmm")
For i = 1 To 12
    DateChr(i) = Mid(DateStr, i, 1)
Next
QRString = Format(Int(Rnd() * 1000), "000") & DateChr(9) & DateChr(5) & DateChr(3) & DateChr(1) & DateChr(6) & DateChr(11) & DateChr(7) & DateChr(8) & DateChr(2) & DateChr(10) & DateChr(4) & DateChr(12)

End Function

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

31 ม.ค. 61 , 12:05:45
ตอบกลับ #2

tubitmmm

  • สมาชิกไท.Access
  • กระทู้: 5

  • Thank You ไท.Access

    • ดูรายละเอียด

> สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ
« ตอบกลับ #2 เมื่อ: 31 ม.ค. 61 , 12:05:45 »
ทำได้แล้วค่ะ ขอบคุณมากค่ะ แต่ทีนี้ เลข 3 ตัว ที่Random จะทำยังไงให้ random แต่ละบรรทัดไปเลยคะ ไม่ใช่random พร้อมกันทุกบรรทัดค่ะ และไม่เปลี่ยนค่า เพราะจะต้องเก็บlog ไว้ด้วยค่ะ  :TT:

 

31 ม.ค. 61 , 12:07:10
ตอบกลับ #3

tubitmmm

  • สมาชิกไท.Access
  • กระทู้: 5

  • Thank You ไท.Access

    • ดูรายละเอียด

> > สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ
« ตอบกลับ #3 เมื่อ: 31 ม.ค. 61 , 12:07:10 »
ทำได้แล้วค่ะ ขอบคุณมากค่ะ แต่ทีนี้ เลข 3 ตัว ที่Random จะทำยังไงให้ random แต่ละบรรทัดไปเลยคะ ไม่ใช่random พร้อมกันทุกบรรทัดค่ะ และไม่เปลี่ยนค่า เพราะจะต้องเก็บlog ไว้ด้วยค่ะ  :TT:
« แก้ไขครั้งสุดท้าย: 31 ม.ค. 61 , 12:08:57 โดย tubitmmm »

 

31 ม.ค. 61 , 14:25:00
ตอบกลับ #4

pizza_p

> สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ
« ตอบกลับ #4 เมื่อ: 31 ม.ค. 61 , 14:25:00 »
แก้โดยการเพิ่ม parameter นี้เข้าไป

Public Function QRString(vAny As Variant) As String
Dim DateStr As String, DateChr(12) As String, i As Integer

DateStr = Format(Now(), "DDMMYYYYHHmm")
For i = 1 To 12
    DateChr(i) = Mid(DateStr, i, 1)
Next

QRString = Format(Int(Rnd() * 1000), "000") & DateChr(9) & DateChr(5) & DateChr(3) & DateChr(1) & DateChr(6) & DateChr(11) & DateChr(7) & DateChr(8) & DateChr(2) & DateChr(10) & DateChr(4) & DateChr(12)

End Function

คุณได้รัน function นี้ใน Query หรือไม่ ถ้าเอาไปรันใน Query ให้ระบุชื่อ field ที่มีอยู่ฟิลด์ไหนก็ได้ลงไปใน function นี้เช่น

QRString([ชื่อฟิลด์อะไรก็ได้ที่มีอยู่])

ปล. ทุกครั้งที่มีการ populate หรือ recalculate ตัว Query นี้ค่ามันจะเปลี่ยนทุกครั้ง ดังนั้นให้เรียกใช้เพียงครั้งเดียวแล้วเก็บค่าที่ได้เข้าในตาราง หรือใน Log แล้วใช้ค่าดังกล่าวแทน
« แก้ไขครั้งสุดท้าย: 31 ม.ค. 61 , 15:09:25 โดย pizza_p »

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

12 ก.พ. 61 , 11:48:03
ตอบกลับ #5

tubitmmm

  • สมาชิกไท.Access
  • กระทู้: 5

  • Thank You ไท.Access

    • ดูรายละเอียด

> > สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ
« ตอบกลับ #5 เมื่อ: 12 ก.พ. 61 , 11:48:03 »
แก้โดยการเพิ่ม parameter นี้เข้าไป

Public Function QRString(vAny As Variant) As String
Dim DateStr As String, DateChr(12) As String, i As Integer

DateStr = Format(Now(), "DDMMYYYYHHmm")
For i = 1 To 12
    DateChr(i) = Mid(DateStr, i, 1)
Next

QRString = Format(Int(Rnd() * 1000), "000") & DateChr(9) & DateChr(5) & DateChr(3) & DateChr(1) & DateChr(6) & DateChr(11) & DateChr(7) & DateChr(8) & DateChr(2) & DateChr(10) & DateChr(4) & DateChr(12)

End Function

คุณได้รัน function นี้ใน Query หรือไม่ ถ้าเอาไปรันใน Query ให้ระบุชื่อ field ที่มีอยู่ฟิลด์ไหนก็ได้ลงไปใน function นี้เช่น

QRString([ชื่อฟิลด์อะไรก็ได้ที่มีอยู่])

ปล. ทุกครั้งที่มีการ populate หรือ recalculate ตัว Query นี้ค่ามันจะเปลี่ยนทุกครั้ง ดังนั้นให้เรียกใช้เพียงครั้งเดียวแล้วเก็บค่าที่ได้เข้าในตาราง หรือใน Log แล้วใช้ค่าดังกล่าวแทน

ขอโทษที่หายไปนานนะคะ ตอนนี้เหมือนยังทำไม่ถูกค่ะ คือรันที่คิวรี่ได้เรียบร้อยแล้วแต่ยังเก็บลง Table ไม่ได้ค่ะ รบกวนด้วยนะคะ ขอบคุณค่ะ  :TT:

 

12 ก.พ. 61 , 12:24:53
ตอบกลับ #6

pizza_p

> สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ
« ตอบกลับ #6 เมื่อ: 12 ก.พ. 61 , 12:24:53 »
โปรแกรมทีทำอยู่ทำงานอย่างไร เรียก Query ขั้นตอนไหนอย่างไร จะเก็บไว้ที่ใดอย่างไร บอกให้ละเอียดครับ ไม่งั้นจะตอบไม่ได้

 

12 ก.พ. 61 , 13:06:10
ตอบกลับ #7

tubitmmm

  • สมาชิกไท.Access
  • กระทู้: 5

  • Thank You ไท.Access

    • ดูรายละเอียด

> > สร้าง QR Code ตามเงื่อนไขไม่ได้ค่ะ
« ตอบกลับ #7 เมื่อ: 12 ก.พ. 61 , 13:06:10 »
โปรแกรมทีทำอยู่ทำงานอย่างไร เรียก Query ขั้นตอนไหนอย่างไร จะเก็บไว้ที่ใดอย่างไร บอกให้ละเอียดครับ ไม่งั้นจะตอบไม่ได้

เรียก Query ขั้นตอนการ Gen QR ค่ะ แล้วจะเก็บลง Table_Main คือตอนนี้ดึงคิวรี่ไปอยู่ที่หน้า Report ที่จะมี QRCode ด้วย แต่ตัวReport ยังไม่เก็บLog ลงTable ค่ะ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย