55
ห้อง MS Access / : โค้ด VBA สำหรับการเปิดฟอร์มข้อมูลที่เลือกใน List ล้ม แก้อย่างไรดี
« เมื่อ: 24 เม.ย. 66 , 21:03:17 »
แนะนำให้แนบไฟล์ด้วยครับ จะได้ง่ายต่อการช่วยเหลือครับ
แสดงกระทู้
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.
56
ห้อง MS Access / : insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« เมื่อ: 19 เม.ย. 66 , 11:12:22 »
จากตรงนี้
If Me.txt0 <> "" Then
มีเหตุการณ์เดียวที่จะทำ Else คือต้อง = "" หรือ ZWS นะครับ (เท่าที่นึกออก)
If Me.txt0 <> "" Then
มีเหตุการณ์เดียวที่จะทำ Else คือต้อง = "" หรือ ZWS นะครับ (เท่าที่นึกออก)
57
ห้อง MS Access / : insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« เมื่อ: 18 เม.ย. 66 , 16:33:05 »
แสดงว่าเงื่อนไขผิดครับ ต้องหาเองว่าผิดตรงไหน
58
ห้อง MS Access / : insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« เมื่อ: 18 เม.ย. 66 , 13:10:48 »
Private Sub txt0_AfterUpdate()
Dim sql As Variant
If Me.txt0 <> "" Then
DoCmd.RunSQL "Insert into tbl_slide (tb_slidenum) values ('test');"
Else
DoCmd.RunSQL "update tbl_slide set tbl_slide.tb_timeout = Now(),tbl_slide.tb_status='Done' where tbl_slide.tb_slidenum like'" & Me.txt0 & "';"
Me.tbl_slide_subform.Requery
End If
End Sub
และ
ถ้ากำหนด Require เป็น Yes แต่ไม่ใส่ข้อมูล ก็ไม่สามารถ Append ได้
Dim sql As Variant
If Me.txt0 <> "" Then
DoCmd.RunSQL "Insert into tbl_slide (tb_slidenum) values ('test');"
Else
DoCmd.RunSQL "update tbl_slide set tbl_slide.tb_timeout = Now(),tbl_slide.tb_status='Done' where tbl_slide.tb_slidenum like'" & Me.txt0 & "';"
Me.tbl_slide_subform.Requery
End If
End Sub
และ
ถ้ากำหนด Require เป็น Yes แต่ไม่ใส่ข้อมูล ก็ไม่สามารถ Append ได้
59
ห้อง MS Access / : ต้องการเรียงลำดับข้อมูลโดยมีเงื่อนใน access สามารถทำได้ไหมคะ
« เมื่อ: 31 มี.ค. 66 , 15:57:21 »
ใช้ Report Wizard โดยเลือกจัดกลุ่มข้อมูล (Grouping)
60
ห้อง MS Access / : ต้องการเรียงลำดับข้อมูลโดยมีเงื่อนใน access สามารถทำได้ไหมคะ
« เมื่อ: 26 มี.ค. 66 , 19:28:00 »
จากข้อ 1 ให้ใช้ Select Query แล้ว Sort ชื่อ/จำนวน แบบ Descending
จากข้อ 2 อ่านตั้งแต่เช้า ยังไม่เข้าใจ
จากข้อ 2 อ่านตั้งแต่เช้า ยังไม่เข้าใจ
61
ห้อง MS Access / : เชื่อมต่อ ODBC ลิงค์ตาราง Sql service มา Access เเล้วเกิด error ครับ
« เมื่อ: 22 มี.ค. 66 , 20:07:26 »62
ห้อง MS Access / : ใช้งานไฟล์ Access ร่วมกันเป็นองค์กร
« เมื่อ: 09 มี.ค. 66 , 12:09:11 »
ตอบทีละข้อนะครับ
1. การนำ Font ไปลงที่เครื่อง B C D E F จะทำให้การแสดงผลเหมือนกันครับ ไม่เกี่ยวกับการทำงานร่วมกัน เช่นถ้าเรานำ Font TH Sarabun ไปลงทุกเครื่อง ก็จะทำให้ทุกเครื่องแสดงเป็น TH Sarabun เหมือนกันหมด
2. สำหรับเครื่อง X Y Z จากจังหวัดอื่นๆ ถ้าจะให้บันทึกลงเครื่อง A โดยตรงแบบ Real Time ต้องทำผ่าน VPN ครับ คือต้องทำให้เสมือนอยู่ใน LAN วงเดียวกัน แต่จะทำงานช้านะครับ ซึ่งการทำงานช้า อาจมีผลต่อข้อมูลได้ เช่นข้อมูลหาย
1. การนำ Font ไปลงที่เครื่อง B C D E F จะทำให้การแสดงผลเหมือนกันครับ ไม่เกี่ยวกับการทำงานร่วมกัน เช่นถ้าเรานำ Font TH Sarabun ไปลงทุกเครื่อง ก็จะทำให้ทุกเครื่องแสดงเป็น TH Sarabun เหมือนกันหมด
2. สำหรับเครื่อง X Y Z จากจังหวัดอื่นๆ ถ้าจะให้บันทึกลงเครื่อง A โดยตรงแบบ Real Time ต้องทำผ่าน VPN ครับ คือต้องทำให้เสมือนอยู่ใน LAN วงเดียวกัน แต่จะทำงานช้านะครับ ซึ่งการทำงานช้า อาจมีผลต่อข้อมูลได้ เช่นข้อมูลหาย
63
ห้อง MS Access / : ค้นหาวันที่เพื่อแสดงรายงานตามวันที่เลือกใน MS Access
« เมื่อ: 26 ม.ค. 66 , 17:08:09 »
64
ห้อง MS Access / : มีใครเคยใช้ Access 365 บ้างไหมคะ
« เมื่อ: 20 ม.ค. 66 , 19:52:03 »
ใช้งานได้ปกติ มีการ Update ใหม่เป็นระยะๆ ทำให้โปรแกรม 365 ทันสมัยอยู่เสมอ ไม่มีปัญหากับรุ่นอื่นๆ ครับ
65
ห้อง MS Access / : คิวรี่ กรองข้อมูลมารายการเดียว
« เมื่อ: 14 ม.ค. 66 , 11:14:31 »
1. เปิด Properties ของ Query
2. กำหนด Unique Values = yes
66
ห้อง MS Access / : การใช้คำสั่ง IIF ค่ะขอคำแนะนำค่ะ
« เมื่อ: 03 ม.ค. 66 , 22:30:45 »
เกิดจากใส่คำสั่งซ้อนคำสั่งครับ
ในฟอร์มก็มี IIF ใน โมดูลก็มีอี๊กกกกก โปรแกรมไม่รู้จะทำไง เลยแสดง Error ครับ
ในฟอร์มก็มี IIF ใน โมดูลก็มีอี๊กกกกก โปรแกรมไม่รู้จะทำไง เลยแสดง Error ครับ
67
ห้อง MS Access / : การใช้คำสั่ง IIF ค่ะขอคำแนะนำค่ะ
« เมื่อ: 03 ม.ค. 66 , 21:42:32 »
อาจต้องส่งตัวอย่างไฟล์มาให้หน่อยน่ะครับ สมาชิกที่นี่จะได้ดูให้ได้น่ะครับ
บางใช้ IsNull หรือแทนที่จะใช้ "1" ก็ใช้เป็น 1 แทน อะไรงี้ ก็หายครับ เลยต้องดูข้อมูลประกอบ
บางใช้ IsNull หรือแทนที่จะใช้ "1" ก็ใช้เป็น 1 แทน อะไรงี้ ก็หายครับ เลยต้องดูข้อมูลประกอบ
68
ห้อง MS Access / : ตรวจสอบการนำเข้าชุดข้อมูลซ้ำ
« เมื่อ: 22 ธ.ค. 65 , 11:42:38 »
สามารถสร้าง Query ด้วย Wizard แล้วเลือก Find Duplicated หรือ Find Unmatched ได้ครับ
69
ห้อง MS Access / : ต้องการให้ปุ่มอยู่กลางจอ
« เมื่อ: 29 พ.ย. 65 , 12:47:15 »
ตัวอย่าง Code ครับ
Private Sub Form_Resize()
Me.Command0.Left = (Me.InsideWidth - Me.Command0.Width) / 2
End Sub
Private Sub Form_Resize()
Me.Command0.Left = (Me.InsideWidth - Me.Command0.Width) / 2
End Sub
70
ห้อง MS Access / : error หลังจาก update access 2010 เป็น 2021 64bits
« เมื่อ: 23 พ.ย. 65 , 12:22:06 »
เปลี่ยน
Public Declare Function
เป็น
Public Declare PtrSafe Function
Public Declare Function
เป็น
Public Declare PtrSafe Function
71
ห้อง MS Access / : อยากให้เก็บค่าข้อมุลก่อน Update
« เมื่อ: 09 พ.ย. 65 , 21:56:18 »
อย่างที่บอกไงครับ ไม่ใช่ Before Update จะทำได้หมด
คราวนี้ก็ต้องมาดูว่าคุณจะ Update ตอนไหน ก็ไปดักหน้าเก็บข้อมูลเข้าตารางก่อน ซึ่งผมก็บอกไม่ได้ว่าต้องทำอย่างไร เพราะต้องดู Process Flow แล้วหาจุดดักเก็บข้อมูล เช่น
เปิดฟอร์มมาก็เก็บข้อมูลเข้าตัวแปรเอาไว้ก่อน
พอจะทำการแก้ไขข้อมูล ก็อาจสร้างปุ่มเพื่อเก็บข้อมูลก่อนการแก้ไข โดยบังคับว่าถ้าไม่คลิกปุ่มนี้ก็จะแก้ไขข้อมูลไม่ได้ อะไรงี้
สรุปคือคุณต้อง Tricker Point ให้เจอก่อนครับ ถ้าหาไม่เจอก็สร้างมันขึ้นมา
คราวนี้ก็ต้องมาดูว่าคุณจะ Update ตอนไหน ก็ไปดักหน้าเก็บข้อมูลเข้าตารางก่อน ซึ่งผมก็บอกไม่ได้ว่าต้องทำอย่างไร เพราะต้องดู Process Flow แล้วหาจุดดักเก็บข้อมูล เช่น
เปิดฟอร์มมาก็เก็บข้อมูลเข้าตัวแปรเอาไว้ก่อน
พอจะทำการแก้ไขข้อมูล ก็อาจสร้างปุ่มเพื่อเก็บข้อมูลก่อนการแก้ไข โดยบังคับว่าถ้าไม่คลิกปุ่มนี้ก็จะแก้ไขข้อมูลไม่ได้ อะไรงี้
สรุปคือคุณต้อง Tricker Point ให้เจอก่อนครับ ถ้าหาไม่เจอก็สร้างมันขึ้นมา
72
ห้อง MS Access / : อยากให้เก็บค่าข้อมุลก่อน Update
« เมื่อ: 09 พ.ย. 65 , 20:07:57 »
ทำได้ครับ แต่เงื่อนไขต้องชัดเจนก่อนเช่น
1. เก็บทั้งหมด หรือเก็บแค่บางฟิลด์
2. เก็บไว้นานแค่ไหน เก็บไปเรื่อยๆ หรือเก็บไว้เผื่อทำ Undo
หลักการง่ายๆ คือ เก็บไว้ในตัวแปร หรือเก็บไว้ในตาราง (พิจารณาจากเงื่อนไขทั้ง 2 ข้อ) โดยใช้ Event ที่เหมาะกับขั้นตอนการทำงาน (บางกรณี Before Update ใช้ไม่ได้)
1. เก็บทั้งหมด หรือเก็บแค่บางฟิลด์
2. เก็บไว้นานแค่ไหน เก็บไปเรื่อยๆ หรือเก็บไว้เผื่อทำ Undo
หลักการง่ายๆ คือ เก็บไว้ในตัวแปร หรือเก็บไว้ในตาราง (พิจารณาจากเงื่อนไขทั้ง 2 ข้อ) โดยใช้ Event ที่เหมาะกับขั้นตอนการทำงาน (บางกรณี Before Update ใช้ไม่ได้)
