343
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.
344
ห้อง MS Access / : SUM ค่าของตัวเลขจาก Queryที่กรองแล้ว
« เมื่อ: 03 ก.ย. 61 , 11:12:12 »
ใช้ DSUM โดยกำหนดเงื่อนไชเหมือน Query ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: prajak
347
ห้อง MS Access / : ต้องการหา% ของแต่ละรายการจากqueryครับ
« เมื่อ: 20 ส.ค. 61 , 19:35:32 »
เพิ่มคำสั่งที่ Query Design ตามนี้ครับ
Percent: [QtyF]/DSum("[QtyF]","[ชื่อตาราง]")*100
Percent: [QtyF]/DSum("[QtyF]","[ชื่อตาราง]")*100
โพสต์นี้ได้รับคำขอบคุณจาก: prajak
349
ห้อง MS Access / : สร้างสายงาน
« เมื่อ: 14 ส.ค. 61 , 18:54:24 »
หลักการสร้างตารางข้อมูลคือ ต้องให้มีเซลล์ว่างๆ น้อยที่สุดหรือไม่มีเลยได้ยิ่งดี
แนะนำว่าควรแยกเป็นตารางย่อยๆ ดีกว่าครับโดย
1. ตารางเก็บชื่อคนที่เป็นตารางหลัก โดยเก็บข้อมูล กิติศักดิ์ จันทรา
2. ตารางเก็บข้อมูลคนอื่นๆ ที่สัมพันธ์กับตารางข้อมูลของชื่อหลัก (กิติศักดิ์ จันทรา)
เนื่องไม่รู้ว่าเป็นข้อมูลอะไร ทำไมต้องเป็นอย่างนี้ ก็เลยแนะนำได้เท่านี้ครับ
แนะนำว่าควรแยกเป็นตารางย่อยๆ ดีกว่าครับโดย
1. ตารางเก็บชื่อคนที่เป็นตารางหลัก โดยเก็บข้อมูล กิติศักดิ์ จันทรา
2. ตารางเก็บข้อมูลคนอื่นๆ ที่สัมพันธ์กับตารางข้อมูลของชื่อหลัก (กิติศักดิ์ จันทรา)
เนื่องไม่รู้ว่าเป็นข้อมูลอะไร ทำไมต้องเป็นอย่างนี้ ก็เลยแนะนำได้เท่านี้ครับ
350
ห้อง MS Access / : อยากทราบวิธีเปลียนแถบเมนูของAccess 2007ขึ้นไปครับ
« เมื่อ: 08 ส.ค. 61 , 09:30:42 »
<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<!-- ซ่อนแท็บ CREATE ->
<tab idMso="TabCreate" visible="false" />
<!-- เพิ่ม TAB A Custom Tab ->
<tab id="dbCustomTab" label="A Custom Tab" visible="true">
<group id="dbCustomGroup" label="A Custom Group">
<control idMso="Paste" label="Built-in Paste" enabled="true"/>
</group>
<group id="dbCustomGroup2" label="Another Custom Group">
<control idMso="ImportExcel" label="Import from Excel" enabled="true"/>
<control idMso="ExportExcel" label="Export to Excel" enabled="true"/>
<control idMso="FontColorPicker" label="FontColorPicker" enabled="true"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
ผมก็ไม่ได้เก่ง XML นะครับ ถ้ามีพื้นฐาน HTML จะเข้าใจ Code XML ได้ไม่ยาก
ข้างบนนี่คือตัวอย่าง Code ง่ายๆ ที่คุณน่าจะเอาไปต่อยอดเองได้
โดยผมได้แนบไว้ไฟล์เอาไปทดลองมาให้ด้วย
วิธีการเอา Code เกี่ยวกับ Ribbon แบบง่ายๆ คือ ให้สร้าง Custom Menu แล้ว Export จากนั้นเปิดอ่านด้วย Notepad เอาครับ
Code ไม่ยากจริงๆ
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<!-- ซ่อนแท็บ CREATE ->
<tab idMso="TabCreate" visible="false" />
<!-- เพิ่ม TAB A Custom Tab ->
<tab id="dbCustomTab" label="A Custom Tab" visible="true">
<group id="dbCustomGroup" label="A Custom Group">
<control idMso="Paste" label="Built-in Paste" enabled="true"/>
</group>
<group id="dbCustomGroup2" label="Another Custom Group">
<control idMso="ImportExcel" label="Import from Excel" enabled="true"/>
<control idMso="ExportExcel" label="Export to Excel" enabled="true"/>
<control idMso="FontColorPicker" label="FontColorPicker" enabled="true"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
ผมก็ไม่ได้เก่ง XML นะครับ ถ้ามีพื้นฐาน HTML จะเข้าใจ Code XML ได้ไม่ยาก
ข้างบนนี่คือตัวอย่าง Code ง่ายๆ ที่คุณน่าจะเอาไปต่อยอดเองได้
โดยผมได้แนบไว้ไฟล์เอาไปทดลองมาให้ด้วย
วิธีการเอา Code เกี่ยวกับ Ribbon แบบง่ายๆ คือ ให้สร้าง Custom Menu แล้ว Export จากนั้นเปิดอ่านด้วย Notepad เอาครับ
Code ไม่ยากจริงๆ
โพสต์นี้ได้รับคำขอบคุณจาก: ปิ่นณรงค์
351
ห้อง MS Access / : ป้องกันไม่ให้แก้ไขข้อมูล
« เมื่อ: 07 ส.ค. 61 , 10:14:27 »
สำหรับฟอร์ม
1. TextBox ที่เก็บวันที่ชื่อ txtDataDate
2. ที่ On Current ของฟอร์มให้ใส่ Code นี้ครับ
Private Sub Form_Current()
If txtDataDate < Date Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub
1. TextBox ที่เก็บวันที่ชื่อ txtDataDate
2. ที่ On Current ของฟอร์มให้ใส่ Code นี้ครับ
Private Sub Form_Current()
If txtDataDate < Date Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Xternity
352
ห้อง MS Access / : ตารางนี้ไปใช้ที่ไหนบ้าง
« เมื่อ: 30 ก.ค. 61 , 22:37:46 »
เลือกตาราง > Database Tools > Object Dependencies
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak
353
ห้อง MS Access / : อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม
« เมื่อ: 26 ก.ค. 61 , 11:40:22 »ทดสอบเปลี่ยนเดือน เลขสามตัวท้ายไม่กลับไปเริ่มนับ 001 นะครับ (ฉบับมาโครก็เช่นเดียวกัน)
RunnungNum myDate Data 6107001 26-07-18 11 6107002 26-07-18 22 6108003 01-08-18 33 6108004 01-08-18 44 6109005 01-09-18 55 6109006 01-09-18 66
ก็ไม่เปลี่ยนสิครับ เพราะลืมทำเงื่อนไขนั้นไว้
ลองดูไฟล์ใหม่ครับ
354
ห้อง MS Access / : ขอสอบถามเรื่องการรันเดือนค่ะ
« เมื่อ: 23 ก.ค. 61 , 21:33:57 »
ไฟล์ตัวอย่างครับ
Access 2016
ข้อแนะนำ ไม่ควรตั้งชื่อ ตาราง ฟอร์ม อะไรพวกนี้เป็นภาษาไทย เพราะอาจมีผลต่อ VBA ได้
Access 2016
ข้อแนะนำ ไม่ควรตั้งชื่อ ตาราง ฟอร์ม อะไรพวกนี้เป็นภาษาไทย เพราะอาจมีผลต่อ VBA ได้
โพสต์นี้ได้รับคำขอบคุณจาก: นก
355
ห้อง MS Access / : อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม
« เมื่อ: 23 ก.ค. 61 , 20:52:34 »
ผม test ทั้งมาโครและโมดูลของคุณปิ่นณรงค์แล้วไม่พบปัญหาใดๆ
การตั้งค่า Windows ผมก็ตั้งเหมือนกับของคุณ
ผมใช้ Office 365 (2016) ปัญหาน่าจะอยู่เครื่องคุณแล้วล่ะ
ลองตั้งค่า Access ของคุณเป็นภาษาอังกฤษดีกว่าครับ
File > Options > Language
การตั้งค่า Windows ผมก็ตั้งเหมือนกับของคุณ
ผมใช้ Office 365 (2016) ปัญหาน่าจะอยู่เครื่องคุณแล้วล่ะ
ลองตั้งค่า Access ของคุณเป็นภาษาอังกฤษดีกว่าครับ
File > Options > Language
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown
356
ห้อง MS Access / : อยากได้ตัวอย่าง access การทำ running number แบบ ปี เดือน รันเลข 3 ตำแหน่ง มือใหม
« เมื่อ: 20 ก.ค. 61 , 10:12:47 »357
ห้อง MS Access / : Report ออกเป็น Excel อยากให้เป็นรูปแบบของReport Access
« เมื่อ: 19 ก.ค. 61 , 13:37:31 »
จริงๆ แล้วเปิด Report แล้วสั่ง Export มันก็จะได้อย่างที่ต้องการแล้วนะ
โพสต์นี้ได้รับคำขอบคุณจาก: วรวุฒิ
358
ห้อง MS Access / : query หลายตัว
« เมื่อ: 16 ก.ค. 61 , 12:15:29 »ส่งไฟล์มาครับ อีเมล์ผมมีอยู่ในระบบ
ดูไฟล์แล้วนะครับ ให้สร้าง Crosstab จากตารางได้เลยครับ ส่วน 70 Query ไม่ได้ใช้อะไร
โพสต์นี้ได้รับคำขอบคุณจาก: WONDERWOMAN
359
ห้อง MS Access / : แปลง database access 97 เป็น เวอร์ชั่นอื่น
« เมื่อ: 21 มิ.ย. 61 , 12:08:46 »
มันมีหลายเงื่อนไขครับ
ใช้ Office 365 รุ่นใหม่ก็ได้
สิ่งที่ต้องสนใจคือ VBA กับชื่อคอนโทรล ถ้าของเดิมมีภาษาไทยอยู่อาจมีปัญหาได้
แล้ว VBA บางคำสั่งก็เปลี่ยนไปในปัจจุบัน แต่สามารถแก้ไขได้
ใช้ Office 365 รุ่นใหม่ก็ได้
สิ่งที่ต้องสนใจคือ VBA กับชื่อคอนโทรล ถ้าของเดิมมีภาษาไทยอยู่อาจมีปัญหาได้
แล้ว VBA บางคำสั่งก็เปลี่ยนไปในปัจจุบัน แต่สามารถแก้ไขได้
โพสต์นี้ได้รับคำขอบคุณจาก: Ramida.Elle
360
ห้อง MS Access / : สอบถามQueryให้แสดงวันที่ทุกวันของเดือน
« เมื่อ: 05 มิ.ย. 61 , 23:44:56 »
ทำให้เห็นเป็นแนวทางเฉยๆ นะครับ
อาจต้องเขียน VBA หรือใช้คำสั่ง IIF ใน Query เพื่อปรับแต่งการแสดงผล
พอดีจะหายไป 3 วันน่ะครับ เลยอยู่ดูต่อไม่ได้
อาจต้องเขียน VBA หรือใช้คำสั่ง IIF ใน Query เพื่อปรับแต่งการแสดงผล
พอดีจะหายไป 3 วันน่ะครับ เลยอยู่ดูต่อไม่ได้
โพสต์นี้ได้รับคำขอบคุณจาก: Earth