1
ห้อง MS Access / : คำสั่งพิมพ์ สติ๊กเกอร์ ตามจำนวนสินค้า
« เมื่อ: เมื่อวานนี้ เวลา 10:27:41 »
https://www.thai-access.com/index.php?topic=1284.0
โพสต์นี้ได้รับคำขอบคุณจาก: Surapong J Noom
แสดงกระทู้
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.
2
ห้อง MS Access / : ขอดูตัวอย่างการเขียน code vba office 32 และ 64 bit ครับ
« เมื่อ: 07 มิ.ย. 66 , 19:26:15 »
https://www.thai-access.com/yeadram_view.php?topic_id=5163
โพสต์นี้ได้รับคำขอบคุณจาก: chai
3
ห้อง MS Access / : อ้างชื่อไฟล์มาตรวจสอบในตาราง
« เมื่อ: 31 พ.ค. 66 , 18:10:33 »
ใช้ไฟล์นี้ดึงชื่อไฟล์เข้ามาในฐานข้อมูล แล้วสั่ง Unmatched Query หาไฟล์ที่ชื่อไม่ตรงกันออกมาครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Un
4
ห้อง MS Access / : รบกวนขอความช่วยเหลือ สอบถามเวลาปริ้นไม่ไห้มีพื้นหลังรูปภาพ
« เมื่อ: 27 พ.ค. 66 , 11:16:54 »
1. ต้องใช้รูป PNG ที่ทำพื้นหลังเป็น Transparent
2. กำหนด Background เป็น Transparent
2. กำหนด Background เป็น Transparent
โพสต์นี้ได้รับคำขอบคุณจาก: Un
5
ห้อง MS Access / : การเพิ่มและอับเดตข้อมูลครั้งละหลายๆ เรคคอร์ดค่ะ
« เมื่อ: 26 เม.ย. 66 , 12:34:30 »
ยืนยันอีก 1 เสียงครับ O/
โพสต์นี้ได้รับคำขอบคุณจาก: Un
6
ห้อง MS Access / : insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« เมื่อ: 19 เม.ย. 66 , 11:12:22 »
จากตรงนี้
If Me.txt0 <> "" Then
มีเหตุการณ์เดียวที่จะทำ Else คือต้อง = "" หรือ ZWS นะครับ (เท่าที่นึกออก)
If Me.txt0 <> "" Then
มีเหตุการณ์เดียวที่จะทำ Else คือต้อง = "" หรือ ZWS นะครับ (เท่าที่นึกออก)
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59
7
ห้อง MS Access / : insert into ช่วยตรวจสอบให้หน่อยได้มั้ยคะ
« เมื่อ: 18 เม.ย. 66 , 16:33:05 »
แสดงว่าเงื่อนไขผิดครับ ต้องหาเองว่าผิดตรงไหน
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59
8
ห้อง 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 ได้
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59
9
ห้อง 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 วงเดียวกัน แต่จะทำงานช้านะครับ ซึ่งการทำงานช้า อาจมีผลต่อข้อมูลได้ เช่นข้อมูลหาย
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ
10
ห้อง MS Access / : ค้นหาวันที่เพื่อแสดงรายงานตามวันที่เลือกใน MS Access
« เมื่อ: 26 ม.ค. 66 , 17:08:09 »
โพสต์นี้ได้รับคำขอบคุณจาก: mtaccess
13
ห้อง MS Access / : การใช้คำสั่ง IIF ค่ะขอคำแนะนำค่ะ
« เมื่อ: 03 ม.ค. 66 , 22:30:45 »
เกิดจากใส่คำสั่งซ้อนคำสั่งครับ
ในฟอร์มก็มี IIF ใน โมดูลก็มีอี๊กกกกก โปรแกรมไม่รู้จะทำไง เลยแสดง Error ครับ
ในฟอร์มก็มี IIF ใน โมดูลก็มีอี๊กกกกก โปรแกรมไม่รู้จะทำไง เลยแสดง Error ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59
14
ห้อง MS Access / : การใช้คำสั่ง IIF ค่ะขอคำแนะนำค่ะ
« เมื่อ: 03 ม.ค. 66 , 21:42:32 »
อาจต้องส่งตัวอย่างไฟล์มาให้หน่อยน่ะครับ สมาชิกที่นี่จะได้ดูให้ได้น่ะครับ
บางใช้ IsNull หรือแทนที่จะใช้ "1" ก็ใช้เป็น 1 แทน อะไรงี้ ก็หายครับ เลยต้องดูข้อมูลประกอบ
บางใช้ IsNull หรือแทนที่จะใช้ "1" ก็ใช้เป็น 1 แทน อะไรงี้ ก็หายครับ เลยต้องดูข้อมูลประกอบ
โพสต์นี้ได้รับคำขอบคุณจาก: ingfahm59
15
ห้อง MS Access / : ตรวจสอบการนำเข้าชุดข้อมูลซ้ำ
« เมื่อ: 22 ธ.ค. 65 , 11:42:38 »
สามารถสร้าง Query ด้วย Wizard แล้วเลือก Find Duplicated หรือ Find Unmatched ได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak
16
ห้อง 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
โพสต์นี้ได้รับคำขอบคุณจาก: nonc31
