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 / : อ้างชื่อไฟล์มาตรวจสอบในตาราง
« เมื่อ: 30 พ.ค. 66 , 22:46:11 »
ไม่รู้ใช่ป่าวแบบนี้
โพสต์นี้ได้รับคำขอบคุณจาก: Un
4
ห้อง 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
5
ห้อง MS Access / : ปัดเศษทศนิยมเฉพาะ .9 ขึ้นเป็นจำนวนเต็ม ตำกว่า .9 ให้แสดงเป็นปกติได้ไหมคะ
« เมื่อ: 15 พ.ค. 66 , 02:26:12 »
ไม่รู้ว่ามีฟังชั่นของ Access ในตัวมันเองหรือป่าว แต่ทำฟังชั่นใช้เองก็ O ยุนะครับ




โพสต์นี้ได้รับคำขอบคุณจาก: MAKI
6
ห้อง MS Access / : มีวิธีหาคนที่ ขาดงาน 3 วันติด ได้ไหมคะ สรุปในรายงานเป็นสัปดาห์
« เมื่อ: 24 เม.ย. 66 , 21:35:04 »7
ห้อง MS Access / : อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
« เมื่อ: 02 มี.ค. 66 , 18:55:02 »
ทั้ง 2 ค่า ABCDEFGHIJKLM และ ABCDEFGHIJ M มีความยาว 13 ตัวอักษรเท่ากัน แต่อันนึงอยากตัดเอา 12 ตัวอักษร อีกอันอยากได้ 10 ตัวอักษร ใช้เงื่อนไขอะไรดี มาแยกแยะให้มันแตกต่างกันน้อ
ใช้ Instr([txtsticker]," ") หาตำแหน่งช่องว่าง แล้วใช้ Mid()เข้ามาช่วย ถ้าเกิดว่ามัน เป็น AB CDEFGHIJM จะทำไงล่ะ
หรือจะ Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))



หรือจะ Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))
โพสต์นี้ได้รับคำขอบคุณจาก: yot
8
ห้อง MS Access / : โปรแกรมมันขึ้นว่า 'Id' is not an index in this table เกิดจากอะไรค่ะ
« เมื่อ: 02 มี.ค. 66 , 18:40:29 »
กด shift ค้าง+เปิดโปรแกรม ถ้าเข้าถึงได้ ก็ลองทำการซ่อมแซมฐานข้อมูลดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI
9
ห้อง MS Access / : ต้องใช้ query อย่างไงครับ
« เมื่อ: 01 มี.ค. 66 , 22:50:51 »
table สิครับ แกะตัวอย่างดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: aphichet.p@gmail.com
10
ห้อง MS Access / : สร้างquery เมื่่อคริกในlist จะเเสดงรูปภาพ(Attachment)ตรงกับข้อมูลในqueryนั้น
« เมื่อ: 27 ก.พ. 66 , 20:08:55 »
ใช้เรื่องของ SubForm
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ
12
ห้อง MS Access / : ต้องใช้ query อย่างไงครับ
« เมื่อ: 20 ก.พ. 66 , 21:52:36 »
สร้างฟิลด์ลำดับเพิ่ม แล้วใช้การ Loop เข้ามาช่วย
13
ห้อง MS Access / : Export file to Excel แบบหลายชีท
« เมื่อ: 20 ก.พ. 66 , 21:37:40 »
Dim expXLS, Sheet1, Sheet2, Sheet3, Sheet4, ไปเรื่อยๆ As String
expXLS = "D:\test.xls"
Sheet1 = "ตาราง/คิวรี่1"
Sheet2 = "ตาราง/คิวรี่2"
Sheet3 = "ตาราง/คิวรี่3"
Sheet4 = "ตาราง/คิวรี่4"
ไปเรื่อยๆ.............
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet1, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet2, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet3, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet4, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, ไปเรื่อยๆ, expXLS, True
expXLS = "D:\test.xls"
Sheet1 = "ตาราง/คิวรี่1"
Sheet2 = "ตาราง/คิวรี่2"
Sheet3 = "ตาราง/คิวรี่3"
Sheet4 = "ตาราง/คิวรี่4"
ไปเรื่อยๆ.............
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet1, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet2, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet3, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet4, expXLS, True
DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, ไปเรื่อยๆ, expXLS, True
โพสต์นี้ได้รับคำขอบคุณจาก: attapong
14
ห้อง MS Access / : Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 23 ม.ค. 66 , 15:34:30 »
ลองทำผ่าน safe mode และลงทะเบียน Comdlg32.dll ด้วย cmd commands ครับ
สำหรับ 32บิต
cd\
C:
cd C:\windows\sysWOW64
regsvr32.exe %systemroot%\SysWOW64\Comdlg32.dll
หรือ สำหรับ 64บิต
cd\
C:
cd C:\windows\System32
regsvr32.exe %systemroot%\System32\Comdlg32.dll
สำหรับ 32บิต
cd\
C:
cd C:\windows\sysWOW64
regsvr32.exe %systemroot%\SysWOW64\Comdlg32.dll
หรือ สำหรับ 64บิต
cd\
C:
cd C:\windows\System32
regsvr32.exe %systemroot%\System32\Comdlg32.dll
โพสต์นี้ได้รับคำขอบคุณจาก: Un
15
ห้อง MS Access / : Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 20 ม.ค. 66 , 10:40:24 »
#If Win64 Or VBA7 Then ก็ Win64
โพสต์นี้ได้รับคำขอบคุณจาก: Un
16
ห้อง MS Access / : หา function ใน query ที่จะตัดตัวอักษร
« เมื่อ: 20 ม.ค. 66 , 10:39:05 »Left([ฟิลด์1],InStr([ฟิลด์1],"คำค้น")-1)
โพสต์นี้ได้รับคำขอบคุณจาก: aphichet.p@gmail.com