1
ห้อง MS Access / : reportส่วนใหญ่จะสั่งพิมพ์ทั้งหมด แต่บางทีก็อยากสั่งพิมพ์เฉพาะที่เราทำเครื่องหมาย
« เมื่อ: 04 ธ.ค. 66 , 15:21:42 »
ลองเปลี่ยน พิมพ์เฉพาะรายการนี้ เป็น []CheckBox
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa
แสดงกระทู้
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 / : ต้องการให้ 1 Form เเสดงได้หลายๆ Record ไม่ใช่เเค่ รายละเอียดใน 1 แถว
« เมื่อ: 21 ก.ย. 66 , 18:51:19 »ถ้าให้หน้าฟอร์มเป็นตารางสดแบบนี้ Create -> Form Wizard -> เลือกข้อมูลที่ต้องการนำมาแสดงในตาราง -> Next -> Datasheet -> Finish ครับ
2.รูปข้อมูลที่เติมเข้าไปเเล้ว ซึ่งอยากให้ form เเสดงเเบบนี้
หรือถ้าต้องการแบบนี้(จัดรูปแบบได้)แต่เรียงไล่ลงมาก็ตั้งค่าเป็น Continuous Forms ครับ
3.เเต่พอเอาข้อมูลไปสร้าง form กับ เเสดงข้อมูลทีละ เเถวๆ ต้องเปิดไปหน้าถัดไปเพื่อดูข้อมูลคนที่ 2
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ
3
ห้อง MS Access / : ต้องการเก็บข้อมูลโดยเมื่อ autonumber ครบ 100 ให้เริ่มใหม่และเปลี่ยนชื่ออีกช่องนึงแบบอัตโนมัติ
« เมื่อ: 15 ก.ย. 66 , 15:48:29 »
นำไฟล์ของ อ.OddyWriter ไปเปิดดูแล้วหาทางแก้ให้นับเลขต่อจากวันศุกร์ที่แล้วเป็นที่เรียบร้อยครับ 
1. เปิดไฟล์
2. คลิก InputData
หวังว่าจะใช่สิ่งที่ต้องการ แกะโค้ดเองนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Beau
4
ห้อง MS Access / : ต้องการเก็บข้อมูลโดยเมื่อ autonumber ครบ 100 ให้เริ่มใหม่และเปลี่ยนชื่ออีกช่องนึงแบบอัตโนมัติ
« เมื่อ: 11 ก.ย. 66 , 13:17:03 »
จากการตีความของผมได้ความว่า [หมายเลขตัวอย่าง] ไม่นำมาคิดหรือเกี่ยวข้องใดๆเลย //สังเกตจากรูป 
สิ่งที่จะนำมาคิดคือ วันนั้นเป็นวันอะไร(Monday,...) & XX(เลขชุดของวันนั้นๆ) & "-" & 1-100(เลขลำดับของชุดในวันนั้นๆ) ตัวอย่างผลลัพธ์
Monday01-1
Monday01-2
Tuesday01-1
...
Monday01-100
Monday02-1
...
Tuesday01-100
Tuesday02-1
...
Wednesday09-99
Wednesday09-100
Wednesday10-1
Wednesday10-2
ปล.แวะมาตีความเฉยๆนะ
สิ่งที่จะนำมาคิดคือ วันนั้นเป็นวันอะไร(Monday,...) & XX(เลขชุดของวันนั้นๆ) & "-" & 1-100(เลขลำดับของชุดในวันนั้นๆ) ตัวอย่างผลลัพธ์
Monday01-1
Monday01-2
Tuesday01-1
...
Monday01-100
Monday02-1
...
Tuesday01-100
Tuesday02-1
...
Wednesday09-99
Wednesday09-100
Wednesday10-1
Wednesday10-2
ปล.แวะมาตีความเฉยๆนะ
โพสต์นี้ได้รับคำขอบคุณจาก: Beau
5
ห้อง MS Access / : สอบถามเรื่องการสร้าง Folder ตามเรคคอร์ดใน Table ครับ
« เมื่อ: 30 ส.ค. 66 , 12:57:05 »
Private Sub Command32_Click()
Dim rst As DAO.Recordset
Dim sPathUser As String
sPathUser = Environ$("USERPROFILE") & "\my documents\"
Set rst = CurrentDb.OpenRecordset("SELECT [CustomerName] FROM Table_A", dbOpenSnapshot)
Do While Not rst.EOF
MkDir (sPathUser & rst![CustomerName])
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ
Dim rst As DAO.Recordset
Dim sPathUser As String
sPathUser = Environ$("USERPROFILE") & "\my documents\"
Set rst = CurrentDb.OpenRecordset("SELECT [CustomerName] FROM Table_A", dbOpenSnapshot)
Do While Not rst.EOF
MkDir (sPathUser & rst![CustomerName])
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
6
ห้อง MS Access / : ขอคำสั่ง การส่งข้อมูลจาก คิวรี่ เข้าตารางค่ะ
« เมื่อ: 26 ก.ค. 66 , 11:16:35 »
คิวรี่กรองข้อมูลเดือนก่อนหน้ากำหนด Criteria เป็น
Year([ชื่อฟิลด์วันที่])* 12 + DatePart("m", [ชื่อฟิลด์วันที่]) = Year(Date())* 12 + DatePart("m", Date()) - 1
ทึีมา : ตัวอย่างการใช้วันที่เป็นเกณฑ์ในคิวรีของ Access
Year([ชื่อฟิลด์วันที่])* 12 + DatePart("m", [ชื่อฟิลด์วันที่]) = Year(Date())* 12 + DatePart("m", Date()) - 1
ทึีมา : ตัวอย่างการใช้วันที่เป็นเกณฑ์ในคิวรีของ Access
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี
7
ห้อง MS Access / : นับจำนวน record แบบมีเงื่อนไข
« เมื่อ: 25 ก.ค. 66 , 20:13:18 »
แนวคิดแบบทำกล่องตัวแปลเพิ่มเข้ามา
แล้วก็ทำ Sum แบบตัวอื่นได้เลย
P=3 | M=2
ปล.กล่องตัวแปลทำให้ขนาดเล็กๆและสั่งซ้อนใว้ก็ได้นะ
| Promo | =IIf([txtPromo]="P",1,0) | =IIf([txtPromo]="M",1,0) |
| P | 1 | 0 |
| M | 0 | 1 |
| M | 0 | 1 |
| P | 1 | 0 |
| P | 1 | 0 |
แล้วก็ทำ Sum แบบตัวอื่นได้เลย
P=3 | M=2
ปล.กล่องตัวแปลทำให้ขนาดเล็กๆและสั่งซ้อนใว้ก็ได้นะ
โพสต์นี้ได้รับคำขอบคุณจาก: maicnx
8
ห้อง MS Access / : ต้องการให้บรรทัดเปลี่ยนสีได้ตามเงื่อนไข Backcolor
« เมื่อ: 22 ก.ค. 66 , 15:03:25 »
1.เปลี่ยนแค่ตัวกล่องข้อความ
2.เปลี่ยนทั้งแถวผมใช้วิธีตามนี้ ->สอบถามวิธีเปลี่ยนสีพื้นหลังรายการใน Continuous Forms
3.อันนี้เขาเปลี่ยนสีตามเช็คบล็อค
โค๊ด: [Select]
Private Sub txt_Remark_AfterUpdate()
If Me.txt_Remark = 1 Then
Me.txt_Remark.BackColor = vbYellow
Else
Me.txt_Remark.BackColor = RGB(255, 255, 255)
End If
End Sub2.เปลี่ยนทั้งแถวผมใช้วิธีตามนี้ ->สอบถามวิธีเปลี่ยนสีพื้นหลังรายการใน Continuous Forms
3.อันนี้เขาเปลี่ยนสีตามเช็คบล็อค
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang
9
ห้อง MS Access / : Show รูปบัตรในฟอร์ม
« เมื่อ: 13 มิ.ย. 66 , 17:17:37 »10
ห้อง MS Access / : การค้นหาข้อมูลตามช่วงวันที่
« เมื่อ: 07 มิ.ย. 66 , 10:16:11 »
เพิ่มใช้ If ตรวจสอบแบบนี้ดูครับ
Private Sub comFind_Click()
If IsNull(Me.txtStart) Or IsNull(Me.txtEnd) Then
MsgBox "กรุณาใส่วันที่เริ่มและวันที่สุดท้ายด้วยครับ"
Exit Sub
End If
startD = Format(Me.txtStart.Value, "mm/dd/yyyy")
endD = Format(Me.txtEnd.Value, "mm/dd/yyyy")
...
Private Sub comFind_Click()
If IsNull(Me.txtStart) Or IsNull(Me.txtEnd) Then
MsgBox "กรุณาใส่วันที่เริ่มและวันที่สุดท้ายด้วยครับ"
Exit Sub
End If
startD = Format(Me.txtStart.Value, "mm/dd/yyyy")
endD = Format(Me.txtEnd.Value, "mm/dd/yyyy")
...
โพสต์นี้ได้รับคำขอบคุณจาก: maicnx
11
ห้อง MS Access / : Import ตารางรูป Accessไป Php MyAdmin เเล้วลิงค์กลับมา Access เเต่รูปไม่สามารถได้
« เมื่อ: 03 เม.ย. 66 , 11:49:45 »
ทำไมไม่เอารูปเป็นไฟล์ใว้ด้านนอกแล้วลิ้งเป็น url แทนล่ะครับ
เพราะปัญหาน่าจะเกิดจากการเข้ารหัสข้อมูลที่ไม่ตรงกันอย่างเช่นใน Access ภาษาไทย My SQL เป็นภาษาอื่น(แบบนี้ยังพอแก้ได้แต่ก็ไม่ 100%เสมอไป)
หรืออีกทางเลือก(ถ้ายังคงจะเก็บรูปใว้ในดาต้าเบส)คือลบข้อมูลรูปที่ดึงจาก Access ออกทั้งหมดแล้วอัพไปใส่ My SQL ใหม่โดยตรง
เพราะปัญหาน่าจะเกิดจากการเข้ารหัสข้อมูลที่ไม่ตรงกันอย่างเช่นใน Access ภาษาไทย My SQL เป็นภาษาอื่น(แบบนี้ยังพอแก้ได้แต่ก็ไม่ 100%เสมอไป)
หรืออีกทางเลือก(ถ้ายังคงจะเก็บรูปใว้ในดาต้าเบส)คือลบข้อมูลรูปที่ดึงจาก Access ออกทั้งหมดแล้วอัพไปใส่ My SQL ใหม่โดยตรง
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ
12
ห้อง MS Access / : ต้องการเรียงลำดับข้อมูลโดยมีเงื่อนใน access สามารถทำได้ไหมคะ
« เมื่อ: 27 มี.ค. 66 , 15:16:01 »
ข้อ2 คงต้องการประมาณว่าถ้า A,B,C อันไหนมีมากกว่า3 ให้แสดงเพียง 3 รายการที่มีค่ามากที่สุดและมีเส้นแบ่งหรือแยกกลุ่มด้วยมั้งครับ
เช่น ชื่อ จำนวน ชื่อ จำนวน
A 3 A 3
B 1 A 2
A 2 A 1
A 1 ==>> B 2
B 2 B 2
B 1 B 1
B 2 C 1
C 1
A 1
เช่น ชื่อ จำนวน ชื่อ จำนวน
A 3 A 3
B 1 A 2
A 2 A 1
A 1 ==>> B 2
B 2 B 2
B 1 B 1
B 2 C 1
C 1
A 1
โพสต์นี้ได้รับคำขอบคุณจาก: Kittyy_meow00
13
ห้อง MS Access / : access สามารถสร้าง Qr code เรียกเก็บเงิน แสกนผ่าน APPธนาคาร ได้ไหมค่ะ
« เมื่อ: 28 ม.ค. 66 , 16:44:55 »
เจอเว็บแอ็บที่สามารถเจน Promptpay ID แล้วระบุยอดเงินลงไปได้ ทำให้คนอื่นสามารถออก QR Code Promptpay ได้โดยที่ไม่ต้องเปิดแอ็บธนาคาร(ถ้าไม่กลัวคนอื่นใส่ Promptpay ตัวเองหรือโกงโอนเงินให้คนอื่นอ่ะนะ)
https://genpromptpay.web.app
ส่วนถ้าจะให้ Access ทำงานได้แบบนี้ก็พึ่ง vba ต้องลองถาม github
https://github.com/pheerathach/promptpay
https://genpromptpay.web.app
ส่วนถ้าจะให้ Access ทำงานได้แบบนี้ก็พึ่ง vba ต้องลองถาม github
https://github.com/pheerathach/promptpay
14
ห้อง MS Access / : Err Code ไม่รู้จะแก้ตรงไหน
« เมื่อ: 19 ม.ค. 66 , 19:23:14 »
วิธีการ 1: ดาวน์โหลด Comdlg32.dll และติดตั้งด้วยตนเอง
วิธีการ 3: ติดตั้งหรือติดตั้ง Microsoft Visual C ++ Redistributable Package ใหม่
ที่มา : Download Comdlg32.dll for Windows 10, 8.1, 8, 7, Vista and XP - 32 Bit and 64 Bit
https://windll.com/th/dll/microsoft-corporation/comdlg32
https://www.exefiles.com/th/dll/comdlg32-dll / WinThruster เป็นโปรแกรมที่เว็บเขาโฆษณาจะลองดูไหมแล้วแต่นะครับ
- คัดลอกไฟล์ไปยังไดเร็กทอรีการติดตั้งโปรแกรมหลังจากที่ไม่มีไฟล์ DLL
- หรือย้ายไฟล์ DLL ไปยังไดเร็กทอรีของระบบของคุณ (C:\Windows\System32 และสำหรับ 64 บิตใน C:\Windows\SysWOW64\)
- ตอนนี้คุณต้องรีบูตเครื่องคอมพิวเตอร์
วิธีการ 3: ติดตั้งหรือติดตั้ง Microsoft Visual C ++ Redistributable Package ใหม่
- ข้อผิดพลาด Comdlg32.dll อาจปรากฏขึ้นเนื่องจาก Microsoft Visual C ++ Redistributable Package คุณควรตรวจสอบการอัปเดตและติดตั้งซอฟต์แวร์ใหม่ ใช้ Windows Updates ค้นหาการดำเนินการนี้ เมื่อคุณพบ Microsoft Visual C ++ Redistributable Package คุณสามารถอัปเดตหรือลบเวอร์ชันที่ล้าสมัยและติดตั้งโปรแกรมใหม่ได้
ที่มา : Download Comdlg32.dll for Windows 10, 8.1, 8, 7, Vista and XP - 32 Bit and 64 Bit
https://windll.com/th/dll/microsoft-corporation/comdlg32
https://www.exefiles.com/th/dll/comdlg32-dll / WinThruster เป็นโปรแกรมที่เว็บเขาโฆษณาจะลองดูไหมแล้วแต่นะครับ
15
ห้อง MS Access / : การใช้ Nas synology เป็นที่เก็บ Database Access
« เมื่อ: 09 ธ.ค. 65 , 10:46:42 »16
ห้อง MS Access / : คำสั่งก๊อปปี้ไฟล์เป็นรูปภาพ
« เมื่อ: 01 ธ.ค. 65 , 15:40:41 »
เท่าที่พอจะหาทางบันทึกเป็นไฟล์รูปภาพได้คือต้องใช้โปรแกรมเสริมเช่น Snagit แต่ขึ้นตอนการใช้งานจะยาวตัวอย่างคือ
->ทำ Report -> ที่ Report ตั้งค่าให้ปริ้นไปที่ Snagit และกำหนดขนาดตามต้องการ
และเมื่อกดปริ้น Report ->Snagit จะรับไฟล์ภาพมาเราต้องไปสั่งบันทึกชื่อ/นามสกุล/ที่วางไฟล์เองที่โปรแกรมSnagitอีกที
หรือที่จริงโปรแกรม Snagit มันก็เป็นโปรแกรมที่ใว้สำหรับจับภาพหน้าจออยู่แล้วดังนั้นเมื่อเรากด Printsceen ตามด้วยคลิ๊กเม้า...ภาพก็จะถูกส่งมาให้ Snagit ทันทีจากกด Ctrl+S เพื่อสั่งบันทึก /ลองดูครับ
->ทำ Report -> ที่ Report ตั้งค่าให้ปริ้นไปที่ Snagit และกำหนดขนาดตามต้องการ
และเมื่อกดปริ้น Report ->Snagit จะรับไฟล์ภาพมาเราต้องไปสั่งบันทึกชื่อ/นามสกุล/ที่วางไฟล์เองที่โปรแกรมSnagitอีกที
หรือที่จริงโปรแกรม Snagit มันก็เป็นโปรแกรมที่ใว้สำหรับจับภาพหน้าจออยู่แล้วดังนั้นเมื่อเรากด Printsceen ตามด้วยคลิ๊กเม้า...ภาพก็จะถูกส่งมาให้ Snagit ทันทีจากกด Ctrl+S เพื่อสั่งบันทึก /ลองดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Un
17
ห้อง MS Access / : ใช้คำสัง Refresh หรือ Requery แต่มันไม่ทำงาน ช่วยตอบหน่อยครับ
« เมื่อ: 15 พ.ย. 65 , 13:01:12 »
ตัวอย่าง Me.Recalc หรือ Me.???.Requery ผมจะสั่งให้มันทำงานเมื่อทำอะไรสักอย่างก่อน(ผมใช้ Me. นำหน้า)
โค๊ด: [Select]
Private Sub Cus_ID_Click()
Cus_Tax_ID.Value = Cus_ID.Column(9)
Cus_Name.Value = Cus_ID.Column(1)
Cus_addess.Value = Cus_ID.Column(2) & " " & Cus_ID.Column(3) & Cus_ID.Column(4) & " " & Cus_ID.Column(5) & " " & Cus_ID.Column(6) & Cus_ID.Column(7) & " " & Cus_ID.Column(8) '& "."
Cus_Note2.Value = Cus_ID.Column(10)
Percent.Value = Cus_ID.Column(11)
Me.F_Bill_v7_Item.Form.T902 = Me.Percent
Me.Recalc
End Sub
Private Sub Cus_ID_AfterUpdate()
Me.Cus_ID = Format(Me.Cus_ID.Value, "00000")
Me.Recalc
End Sub
Private Sub Cus_ID_Enter()
Me.Cus_ID = Format(Me.Cus_ID.Value, "00000")
Me.Recalc
End Subโค๊ด: [Select]
Private Sub Ang1_GotFocus()
Me.Ang1.Requery
End Sub
Private Sub Ang2_GotFocus()
Me.Ang2.Requery
End Sub
Private Sub Ang3_GotFocus()
Me.Ang3.Requery
End Sub
Private Sub Ang4_GotFocus()
Me.Ang4.Requery
End Sub
Private Sub Ang5_GotFocus()
Me.Ang5.Requery
End Sub
Private Sub Ang6_GotFocus()
Me.Ang6.Requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Pongsak
18
ห้อง MS Access / : สอบถามหาค่าหลายๆช่วงของตารางมารวมกันครับ
« เมื่อ: 28 ต.ค. 65 , 16:12:50 »
จากเท่าที่ดูท่านต้องทำให้มีการแยกรอบการทำงานให้ออกเป็นชุดที่ชัดเจนกว่านี้ เช่น
ทีนี้ค่อยนำค่าสูงสุดของแต่ละรอบมาบวกกัน 200+150=350 เป็นต้น
ปล.เป็นแค่แนวคิดในการออกแบบนะครับ ส่วนชุดคำสั่งในการหาผลรวมของค่าสูงสุดนั้นผมไม่รู้เลย
| Status | DateData | Name | MCDOWNTIME | รอบ |
| setup | 10/10/2022 | PLR | ||
| Down | 10/10/2022 | PLR | 0 | 1 |
| Down | 10/10/2022 | PLR | 100 | 1 |
| Down | 10/10/2022 | PLR | 200 | 1 |
| Run | 10/10/2022 | PLR | ||
| Run | 10/10/2022 | PLR | ||
| Down | 10/10/2022 | PLR | 0 | 2 |
| Down | 10/10/2022 | PLR | 120 | 2 |
| Down | 10/10/2022 | PLR | 150 | 2 |
ทีนี้ค่อยนำค่าสูงสุดของแต่ละรอบมาบวกกัน 200+150=350 เป็นต้น
ปล.เป็นแค่แนวคิดในการออกแบบนะครับ ส่วนชุดคำสั่งในการหาผลรวมของค่าสูงสุดนั้นผมไม่รู้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: arampong
