55
ห้อง MS Access / : ขอถามสอบครับ Error Expected 1
« เมื่อ: 08 ก.ย. 64 , 11:46:59 »ต้องส่งไฟล์มาดูครับ
หน้านี้ครับผม ขอบคุณครับ
https://drive.google.com/file/d/1G2iS1MDoeDU9NLN_6Yo1LmkpnRlmlu5S/view?usp=sharing
แสดงกระทู้
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.
หน้านี้ครับผม ขอบคุณครับ
https://drive.google.com/file/d/1G2iS1MDoeDU9NLN_6Yo1LmkpnRlmlu5S/view?usp=sharing
56
ห้อง MS Access / : ขอถามสอบครับ Error Expected 1
« เมื่อ: 08 ก.ย. 64 , 10:20:59 »เปลี่ยน CurrentDb.Execute เป็น DoCmd.RunSQL
มันถามหาอันนี้อะครับ พอกด OK ก็ขึ้นแบบนี้ครับ
โค๊ด: [Select]
DoCmd.RunSQL "UPDATE Q_PI_Checkbox SET Q_PI_Checkbox.Selected = Null;"
Me.Requery
Forms!PIScreen!NavigationSubform.Requery
Forms!PIScreen!NavigationSubform!Q_PI_Checkbox_subform.Requery
57
ห้อง MS Access / : ขอถามสอบครับ Error Expected 1
« เมื่อ: 08 ก.ย. 64 , 08:09:54 »สงสัย ทำไมไม่ใช้คำสั่ง
DoCmd.RunSQL
ไม่ทราบว่าใส่ตรงไหนครับผม ผมลองทำแล้วครับยัง Error อยู่ครับ
58
ห้อง Ms Access อื่นๆ / : การใช้ UNION Query เพื่อรวมข้อมูลหลายชุดมาแสดงต่อกันใน Query เดียว
« เมื่อ: 07 ก.ย. 64 , 15:21:50 »
ขอบคุณครับผม
59
ห้อง MS Access / ขอถามสอบครับ Error Expected 1
« เมื่อ: 07 ก.ย. 64 , 13:10:58 »
ไม่ทราบว่าผมขาดอะไรหรอครับ ขอบคุณครับ
60
ห้อง MS Access / : ถ้าฟิลด์ยาวเต็มแล้ว เราจะแก้ไขยังไงครับ
« เมื่อ: 07 ก.ย. 64 , 13:08:30 »
ขอบคุณครับ
61
ห้อง MS Access / : ถ้าฟิลด์ยาวเต็มแล้ว เราจะแก้ไขยังไงครับ
« เมื่อ: 07 ก.ย. 64 , 11:19:55 »แนะนำให้ออกแบบฐานข้อมูลให้เหมาะสมครับ เนื่องจากหลักการของฐานข้อมูลนั้น ไม่ควรมีจำนวนฟิลด์เยอะๆ
อย่าลืมนะครับว่า ฐานข้อมูล ไม่ใช่ Excel
การออกแบบตารางควรจะกำหนดจำนวนฟิลด์ให้น้อยเข้าไว้
แนะนำว่าควรเปลี่ยนรูปแบบตารางดังนี้
tblResult มีฟิลด์ ID, CheckID, Result
โดย ID เป็นรหัสของเจ้าของชิ้อ ซึ่งผมไม่รู้ว่าเป็นชื่อคนหรือชื่องานที่ตรวจ
CheckID เป็นครั้งที่ตรวจ
Result เป็นผลการตรวจ
ตารางแบบนี้ ผู้ใช้สามารถเพิ่มข้อมูลได้ไม่จำกัดจำนวนครั้ง
พอนึกภาพออกเลยครับ
ผมมีอีกสิ่งที่กำลัง งง ครับ ผมจะทำให้ Datasheet มันลิ้งกับข้อมูลในหน้่า Form ว่าเรากำลังดูใครอยู่ แต่ยังไม่ทันได้ใส่โค้ดอะไรเลย มันก็ลิ้งกันแล้ว เวลาเรากดถัดไป ลองทำจากไฟล์ใหม่ก็เป็น ไม่ทราบว่าอันนี้มันเป็นกฎของมันอยู่แล้วหรือเปล่าครับ
62
ห้อง MS Access / ถ้าฟิลด์ยาวเต็มแล้ว เราจะแก้ไขยังไงครับ
« เมื่อ: 07 ก.ย. 64 , 08:54:16 »
ฟิลด์ใน 1 ตารางหรือคิวรี่ สามารถยาวสุด 255 ฟิลด์ถูกไหมครับตามข้อมูลข้างบน
ในคิวรี่ผม User จะสร้างฟิลด์[ครั้งที่ตรวจ]และ[ผลตรวจ]เองแบบนี้เรื่อยๆ ถ้าวันนึงฟิลด์เต็มจนจำกัดก็คือ User จะไม่สามารถส้รางฟิลด์มาอีกแล้วใช้ไหมครับ
63
ห้อง MS Access / : ไม่ให้แสดงคำว่า Error ใน Query
« เมื่อ: 01 ก.ย. 64 , 15:49:31 »
ขอบคุณครับผม ใช้วิธีการเพิ่มภาษาไทยใน Expression Builder ในคิวรี่เลยครับ
64
ห้อง MS Access / : ไม่ให้แสดงคำว่า Error ใน Query
« เมื่อ: 01 ก.ย. 64 , 14:21:12 »ท่านดูในโค้ดที่ copy มาว่า เป็นภาษาไทยมาครบไหม
บ้างที่เรา copy Code มาจากเว็บ ภาษาไทยจะเพี้ยน วิธีแก้่คือ
1.กด Copy Code จาก เว็บมา
2.เปิด Excel ขึ้นมา เลือกที่ Cell ได้ก็ได้กดคลิ๊กขวา >> วางแบบพิเศษ >> มันจะมี ข้อความ Unicode กับ ข้อความ
3.ให้เลือก ข้อความ แล้วดูว่าโค๊ดที่เรา copy มา เป็นภาษาไทย ถูกต้องหรือไม่
4.ถ้าถูกต้องแล้ว ให้ Copy โค๊ดนี้ไปวาง ในโปรแกรมเรา
มาครบปกติเลยเครับ
65
ห้อง MS Access / : ไม่ให้แสดงคำว่า Error ใน Query
« เมื่อ: 01 ก.ย. 64 , 14:06:47 »
Error หายแต่มีภาษาแปลกๆโผล้มาหลังวัน เดือน ปี ครับ หรือว่า Access ที่ไม่ใช่ภาษาอังกฤษ ถ้าดึงการทำงานมาจาก VBA จะเป็นภาษาแบบนี้หรือเปล่าครับ
66
ห้อง MS Access / : ไม่ให้แสดงคำว่า Error ใน Query
« เมื่อ: 01 ก.ย. 64 , 13:17:52 »
หาวัน
หาเดือน
หาปี
รวมวันเดือนปี
โค๊ด: [Select]
dวัน: IIf(DateDiff("d",DateAdd("m",DateDiff("m",[DOB],Date()),[DOB]),Date())<0,DateDiff("d",DateAdd("m",DateDiff("m",[DOB],Date())-1,[DOB]),Date()),DateDiff("d",DateAdd("m",DateDiff("m",[DOB],Date()),[DOB]),Date()))
หาเดือน
โค๊ด: [Select]
dเดือน: IIf(DateDiff("d",DateAdd("m",DateDiff("m",[DOB],Date()),[DOB]),Date())<0,(DateDiff("m",[DOB],Date())-1) Mod 12,DateDiff("m",[DOB],Date()) Mod 12)
หาปี
โค๊ด: [Select]
dปี: IIf(DateDiff("d",DateAdd("m",DateDiff("m",[DOB],Date()),[DOB]),Date())<0,(DateDiff("m",[DOB],Date())-1)\12,DateDiff("m",[DOB],Date())\12)
รวมวันเดือนปี
โค๊ด: [Select]
OwnAge: IIf([dวัน]>0 And [dเดือน]>0 And [dปี]>0,[dปี] & " ปี " & [dเดือน] & " เดือน " & [dวัน] & " วัน",IIf([dวัน]=0 And [dเดือน]>0 And [dปี]>0,[dปี] & " ปี " & [dเดือน] & " เดือน ",IIf([dวัน]>0 And [dเดือน]=0 And [dปี]>0,[dปี] & " ปี " & [dวัน] & " วัน",IIf([dวัน]>0 And [dเดือน]>0 And [dปี]=0,[dเดือน] & " เดือน " & [dวัน] & " วัน",IIf([dวัน]=0 And [dเดือน]=0 And [dปี]>0,[dปี] & " ปี ",IIf([dวัน]=0 And [dเดือน]>0 And [dปี]=0,[dเดือน] & " เดือน ",IIf([dวัน]>0 And [dเดือน]=0 And [dปี]=0,[dวัน] & " วัน","")))))))
67
ห้อง MS Access / ไม่ให้แสดงคำว่า Error ใน Query
« เมื่อ: 01 ก.ย. 64 , 11:50:18 »
อันนี้เป็นการหาอายุครับ ถ้าไม่กรอกวันมันจะขึ้น Error 4 ช่องเลยเพราะใส่โค้ดทั้ง 4 ช่อง ถ้าหากเราไม่ใส่วันแต่อยากให้มันไม่ขึ้น Error ได้ไหมครับ พอรู้ว่าใช้ iif เงื่อนไข else ให้เป็น "" แต่โค้ดค่อนข้าง งง ครับ(ดูมาจาก Youtube อีกที) เลยไม่แน่ใจว่าจะเติมตรงไหนดี สับสนวงเล็บ เลยอบากสอบถามว่ามีวิธีอื่นทีไม่ได้ไปเติม iif ไหมครับ
68
ห้อง MS Access / : จะทำยังไงให้ใน Form จำค่าการ Sort
« เมื่อ: 01 ก.ย. 64 , 11:42:54 »
ขอบคุณครับผม
69
ห้อง MS Access / จะทำยังไงให้ใน Form จำค่าการ Sort
« เมื่อ: 01 ก.ย. 64 , 09:49:17 »
เปิด form มาต้องมานั่ง Sort ใหม่ตลอดเลยครับ ใน Query ก็ Sort แล้ว ใน Subform ที่เป็นไฟล์แยกก็ Sort แล้ว
70
ห้อง MS Access / : อัพเดท วัน-เวลา เมื่อมีการกดบันทึก
« เมื่อ: 31 ส.ค. 64 , 15:13:39 »ช่อง TextUpdate พิมพ์ถูกไหมครับ
ขอโทษครับ ตกม้าตายเองครับ ขอบคุณครับผม
71
ห้อง MS Access / : อัพเดท วัน-เวลา เมื่อมีการกดบันทึก
« เมื่อ: 31 ส.ค. 64 , 14:53:51 »จากรูปที่อธิบายมีช่องให้ใส่ในฟอร์ม ชื่อ TextUpdate
เลือก event on click จากปุ่ม "บันทึก" ที่สร้างไว้ (ผมไม่รู้ว่าปุ่มชื่ออะไร แต่ผมตั้งชื่อเป็น cmdSave นะครับ)
เลือก code builder
พิมพ์ Me.TextUpdate = Date() (ให้โปรแกรมใส่วันที่ จากในเครื่อง ลงในช่อง TextUpdate)
จะได้เป็น
Private Sub cmdSave_Click()
Me.TextUpdate = Date()
End Sub
เพิ่มเติม1 : กรณี อยากได้ วันที่+เวลา ใช้ Now() แทน Date() ก็ได้ครับ
เพิ่มเติม2 : กรณี อยากให้แสดงผลเป็น รูปแบบอื่นๆ เช่น 1/7/64 ,02/09/2564 ใส่คำสั่ง Format() ช่วยได้ครับ
Me.TextUpdate = Format(Date(),"dd/mm/yyyy") -> 01/08/2564
Me.TextUpdate = Format(Date(),"d/m/yyyy") -> 1/8/2564
Me.TextUpdate = Format(Date(),"d/m/yy") -> 1/8/64
อย่าลืมเชื่อม TextUpdate กับ field เพื่อเก็บข้อมูลด้วยนะครับ
มัน error แบบนี้ครับ
72
ห้อง MS Access / : อัพเดท วัน-เวลา เมื่อมีการกดบันทึก
« เมื่อ: 31 ส.ค. 64 , 09:25:14 »ในช่องอัพเดท
ลองใส่ =date() ดูนะคะว่าได้หรือเปล่า
ใส่ในค่าเริ่มต้นค่ะ
ได้ครับ แต่อันนี้มันคือบอกว่าวันนี้วันที่เท่าไหร่หรือเปล่าครับ ของผมจะอัพเดตวันที่เมื่อกด บันทึกอะครับ มันไม่น่าใช้ได้ใช่ไหมครับ
