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

[tubitmmm]

สวัสดีค่ะ

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

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

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

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

[pizza_p]

ไม่แน่ใจว่าหมายถึงการสร้างรหัสแบบนี้หรือเปล่า

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]

ทำได้แล้วค่ะ ขอบคุณมากค่ะ แต่ทีนี้ เลข 3 ตัว ที่Random จะทำยังไงให้ random แต่ละบรรทัดไปเลยคะ ไม่ใช่random พร้อมกันทุกบรรทัดค่ะ และไม่เปลี่ยนค่า เพราะจะต้องเก็บlog ไว้ด้วยค่ะ 

[tubitmmm]

ทำได้แล้วค่ะ ขอบคุณมากค่ะ แต่ทีนี้ เลข 3 ตัว ที่Random จะทำยังไงให้ random แต่ละบรรทัดไปเลยคะ ไม่ใช่random พร้อมกันทุกบรรทัดค่ะ และไม่เปลี่ยนค่า เพราะจะต้องเก็บlog ไว้ด้วยค่ะ 

[pizza_p]

แก้โดยการเพิ่ม 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 แล้วใช้ค่าดังกล่าวแทน

[tubitmmm]

แก้โดยการเพิ่ม 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 ไม่ได้ค่ะ รบกวนด้วยนะคะ ขอบคุณค่ะ 

[pizza_p]

โปรแกรมทีทำอยู่ทำงานอย่างไร เรียก Query ขั้นตอนไหนอย่างไร จะเก็บไว้ที่ใดอย่างไร บอกให้ละเอียดครับ ไม่งั้นจะตอบไม่ได้

[tubitmmm]

โปรแกรมทีทำอยู่ทำงานอย่างไร เรียก Query ขั้นตอนไหนอย่างไร จะเก็บไว้ที่ใดอย่างไร บอกให้ละเอียดครับ ไม่งั้นจะตอบไม่ได้

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

[gezcoding]

ติดปัญหาเหมือนกัน ตอนนี้แก้ได้แล้วค่ะ ขอบคุณกระทู้นี้มากค่ะ