1
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.
3
ห้อง MS Access / : สร้างปุ่ม Export PDF แบบเลือกที่อยู่
« เมื่อ: 23 พ.ค. 66 , 18:44:45 »
Private Sub Command13_Click()
On Error Resume Next
DoCmd.OutputTo acOutputReport, "rptSugarOrder", _
acFormatPDF, ""
End Sub
On Error Resume Next
DoCmd.OutputTo acOutputReport, "rptSugarOrder", _
acFormatPDF, ""
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
4
ห้อง MS Access / : Running sum ค่าคงเหลือเบิกจ่ายวัสดุ แบบมีเงื่อนไข
« เมื่อ: 03 มี.ค. 65 , 11:16:24 »
ลองใช้ DAO ดูนะครับผมไม่แน่ใจว่าได้ไหมแต่รุ่นเก่าๆ ใช้ตัวนี้
เช่น
Dim rs As DAO.Recordset
Dim rsOut As DAO.Recordset
ลองดูนะครับ
และเช็คตรง
หน้าเขียนโค้ด > Tool > Reference

เช่น
Dim rs As DAO.Recordset
Dim rsOut As DAO.Recordset
ลองดูนะครับ
และเช็คตรง
หน้าเขียนโค้ด > Tool > Reference

โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
5
ห้อง MS Access / : นำข้อมูลจาก Excel เข้า Access พบว่า เกิด Error ครับ
« เมื่อ: 24 ก.พ. 65 , 10:44:50 »
ปัญหานี้เกิดเกิดได้จากหลายสาเหตุ
ที่เคยเจอ
1. ไม่ได้เปิด Excel มาเพื่อ Reformat ตารางให้เหมาะสมสำหรับการนำเข้า Access เช่น มีข้อมูลอยู่ในคอลัมน์ A ถึง G แล้วก็มีขยะโผล่มาใน J20, K300 และอื่นๆ
2. ข้อมูลแถวแรกใน Excel (ไม่นับ Header) เป็นตัวเลข แล้ว แถวถัดไปเป็น Text เกิดจากความฉลาด (หรือสาระแน) ของ Access ที่คิดว่าข้อมูลทั้งหมดต่อจากนี้เป็นตัวเลข พอไม่เป็นตัวเลขก็เลย Error
3. ไฟล์ Excel ไม่ใช่ Excel
ที่เคยเจอ
1. ไม่ได้เปิด Excel มาเพื่อ Reformat ตารางให้เหมาะสมสำหรับการนำเข้า Access เช่น มีข้อมูลอยู่ในคอลัมน์ A ถึง G แล้วก็มีขยะโผล่มาใน J20, K300 และอื่นๆ
2. ข้อมูลแถวแรกใน Excel (ไม่นับ Header) เป็นตัวเลข แล้ว แถวถัดไปเป็น Text เกิดจากความฉลาด (หรือสาระแน) ของ Access ที่คิดว่าข้อมูลทั้งหมดต่อจากนี้เป็นตัวเลข พอไม่เป็นตัวเลขก็เลย Error
3. ไฟล์ Excel ไม่ใช่ Excel
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
6
ห้อง MS Access / : จะทำ Running No เมื่อพิมพ์แล้วกด Enter ครับ
« เมื่อ: 21 ก.พ. 65 , 17:54:35 »
ตัวอย่างไฟล์ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
8
ห้อง MS Access / : ต้องการทำ ค.ศ. เป็น พ.ศ. ครับ
« เมื่อ: 18 ก.พ. 65 , 19:01:11 »
ต้องไปตั้งค่า Regional Settings ให้เป็นปี พ.ศ. ครับ
แต่แนะนำให้ใช้ใน Access เท่านั้นนะครับ
แต่แนะนำให้ใช้ใน Access เท่านั้นนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
9
ห้อง MS Access / : ใครมีตัวอย่างโปรแกรมตัดสต๊อคสินค้าหรือขายหน้าร้านไหมครับ
« เมื่อ: 05 ก.ค. 64 , 18:03:42 »
แจกโปรแกรมเก็บข้อมูลการเบิกจ่ายสต็อก Version 9 (ทั้งรุ่นปกติและบาร์โค้ด)
สนใจส่งข้อความหา อ.OddyWriter ครับ

สนใจส่งข้อความหา อ.OddyWriter ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
10
ห้อง MS Access / : combo box ไม่ขึ้นรายการตามที่พิมพ์
« เมื่อ: 26 มี.ค. 64 , 16:19:38 »
ไฟล์ที่มีปัญหาครับ
ท่านใดลองแล้ว ไม่มีปัญหาตามที่ว่า
รบกวนแจ้งด้วยน่ะครับ
https://drive.google.com/file/d/1gQm3-g0HFl7Oi5hquiyP0DBWpQQi8SEE/view?usp=sharing
ท่านใดลองแล้ว ไม่มีปัญหาตามที่ว่า
รบกวนแจ้งด้วยน่ะครับ
https://drive.google.com/file/d/1gQm3-g0HFl7Oi5hquiyP0DBWpQQi8SEE/view?usp=sharing

โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
11
ห้อง MS Access / : หัว Title Bar ในคิวรี่หายครับ
« เมื่อ: 26 มี.ค. 64 , 11:40:38 »
Access Options > Current Database > Display Document Tabs
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
12
ห้อง MS Access / : หัว Title Bar ในคิวรี่หายครับ
« เมื่อ: 26 มี.ค. 64 , 09:38:44 »
หน้าตาที่หายไปเป็นแบบไหนครับ มันหายได้หลายแบบ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
13
ห้อง MS Access / : ทำซับฟอร์มค้นหาแล้วเกิด Error
« เมื่อ: 10 ก.พ. 64 , 15:26:48 »
แก้ โค้ดปุ่มค้นหาเป็นแบบนี้ครับ
โค๊ด: [Select]
Private Sub Command14_Click()
If IsNull(txt_FirstName) And IsNull(txt_NickName) Then
MsgBox "กรุณาระบุ ชื่อพนักงาน หรือ ชื่อเล่น ก่อนค้นหา’", vbOKOnly, "Warning !!"
txt_EmpID2.SetFocus
ElseIf Not IsNull(txt_FirstName) And IsNull(txt_NickName) Then
Me.Filter = "(((FirstName) Like '*" & txt_FirstName & "*'))"
Me.FilterOn = True
ElseIf IsNull(txt_FirstName) And Not IsNull(txt_NickName) Then
Me.Filter = "(((NickName) Like '*" & txt_NickName & "*'))"
Me.FilterOn = True
End If
If IsNull(txt_EmpID2) Then
MsgBox "ไม่พบข้อมูล !!", vbOKOnly, "Warning !!"
Me.FilterOn = False
End If
Me.Refresh
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
14
ห้อง MS Access / : การใส่คำสั่งสลับค่าไปมาเมื่อคลิ๊กที่ปุ่ม
« เมื่อ: 05 ก.พ. 64 , 15:43:04 »
ใช้ IF เช็ดเงื่อนไขเอาก็ได้แล้วครับเช่น
Private Sub btn_01_Click()
if IsNull(Me.txt_01) Then
Me.txt_01 = "1"
Elseif Me.txt_01 = "1" Then
Me.txt_01 = "0"
Elseif Me.txt_01 = "0" Then
Me.txt_01 = "1"
End if
End Sub
Private Sub btn_01_Click()
if IsNull(Me.txt_01) Then
Me.txt_01 = "1"
Elseif Me.txt_01 = "1" Then
Me.txt_01 = "0"
Elseif Me.txt_01 = "0" Then
Me.txt_01 = "1"
End if
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
15
ห้อง MS Access / : สอบถามการรันตัวเลขตู้ครับ
« เมื่อ: 04 ก.พ. 64 , 15:34:09 »
Recordsort ของ ซัฟฟอร์มที่ชื่อ frmDepDoccSub ใส่โค้ดไปว่า
โค๊ด: [Select]
SELECT qryDepDoc.Cabinet, qryDepDoc.Shelf, qryDepDoc.Block, qryDepDoc.Sequence, qryDepDoc.DateRecieve, qryDepDoc.AppNo, qryDepDoc.CIF, qryDepDoc.CusName, qryDepDoc.DocTypeCode, qryDepDoc.DocTypeName, qryDepDoc.DateStart, qryDepDoc.Status, qryDepDoc.[01], qryDepDoc.[02], qryDepDoc.[03], qryDepDoc.[04], qryDepDoc.[05], qryDepDoc.[06]
FROM qryDepDoc
WHERE (((qryDepDoc.Cabinet)=[forms]![frmSearchDoc]![Cb_Cabinet]) AND ((qryDepDoc.Shelf)=[forms]![frmSearchDoc]![Cb_Shelf]) AND ((qryDepDoc.Block)=[forms]![frmSearchDoc]![Cb_Block]))
ORDER BY qryDepDoc.Sequence DESC;
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
16
ห้อง MS Access / : สอบถามการรันตัวเลขตู้ครับ
« เมื่อ: 03 ก.พ. 64 , 10:00:42 »อ้างถึง
กรอกข้อมูลครั้งที่ 2 โดยกรอก AppNo,CIF แต่พอจะใส่วันที่โปรแกรมขึ้น pop up ดังรูปน่ะครับให้ลบ คำส่ง msgbox ออกไปพอดีผมทำมาเช็คค่าของตัวแปร แล้วลืมลบครับ

ลบ MsgBox strSequence ออกไปครับ
อ้างถึง
ออกจากโปรแกรมแล้วเข้าใหม่ กรอกข้อมูลครบถ้วน แล้วกดปุ่มลบข้อมูล เกิด error ตามรูปปุ่มลบผมไม่ได้ทำให้ครับ เพราะที่ตอนคุณบอกมาแค่ให้ช่วยทำระบบ รันลำดับ และ ให้มีการแจ้งเตือน
เมื่อไม่ได้เลือกรายการเอกสารเท่านั้นครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang