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.
2
ห้อง MS Access / : สั่งปิดฟอร์มอัตโนมัติ
« เมื่อ: 22 ต.ค. 63 , 15:57:25 »มีฟอร์มทั้งหมด 2 ฟอร์มชื่อ "collection","ข้อมูลทั้งหมด" ทั้ง 2 ฟอร์มพนักงานจะเปิดใช้พร้อมกัน
คำถามคือ ปัจจุบันผมใช้งานอยู่หน้าฟอร์ม collection และจะเปลี่ยนไปใช้หน้าฟอร์ม ข้อมูลทั้งหมด อยากให้ ฟอร์ม collection ปิดอัตโนมัติต้องทำยังไงครับ
ที่ฟอร์ม ข้อมูลทั้งหมด ใส่ Event แบบนี้เข้าไปครับ
การทำงานคือเมื่อเราใช้งานอยู่ที่ collectionเมื่อเราไปกดที่ ฟอร์มข้อมูลทั้งหมด
จะทำให้ ฟอร์มข้อมูลทั้งหมด ถูก โฟกัสเราก็สั่งปิดฟอร์ม collection ได้เลย
Private Sub Form_GotFocus()
DoCmd.Close acForm, "collection"
End Sub
3
ห้อง MS Access / : ปัญหาการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ตามเงื่อนไข
« เมื่อ: 22 ต.ค. 63 , 15:45:39 »
ส่งFile และ เพิ่มข้อมูลเบื้องต้นในตาราง และฟอร์มนั้นมาครับ (ถ้าไม่ได้ส่วนตัวมาก)
เดี่ยวผมปรับโค้ดให้ใหม่ ดูแล้วโค้ดไม่ได้ยาวอะไรเลยครับ สั้นๆ เอง
เดี่ยวผมปรับโค้ดให้ใหม่ ดูแล้วโค้ดไม่ได้ยาวอะไรเลยครับ สั้นๆ เอง
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin
4
ห้อง MS Access / : report แบบจัดกลุ่ม ตามค่าที่กำหนด
« เมื่อ: 20 ต.ค. 63 , 14:04:45 »
คือเมื่อ User คีย์ รายละเอียดรายการของที่ลูกค้าสั่ง และ มีรายการลด รวมอยู่ด้วย
เช่นใบเสนอราคารหัส V001 ตามตัวอย่าง
เราก็สร้างคิวรี่เข้ามาเปรียบเทียบ จากรหัสสินค้าที่ มีการปรับเปลี่ยนไปจากเดิม
ก็จะได้ข้อมูลของ ราคาที่ลูกค้าเก่าเคยขอไว้แล้วครับ
ที่ฟอร์ม ลองกรอกรหัสใบเสนอราคา ว่า V001 แล้วกดออกรายงานดูครับ
ปรับใหม่โดยการสร้างรายงาน Sub ครับ
ลองทำตามตัวอย่างที่คุณบอกมา
ตัวอย่างหน้า 1/2
ตัวอย่างหน้า 2/2
เช่นใบเสนอราคารหัส V001 ตามตัวอย่าง
เราก็สร้างคิวรี่เข้ามาเปรียบเทียบ จากรหัสสินค้าที่ มีการปรับเปลี่ยนไปจากเดิม
ก็จะได้ข้อมูลของ ราคาที่ลูกค้าเก่าเคยขอไว้แล้วครับ
ที่ฟอร์ม ลองกรอกรหัสใบเสนอราคา ว่า V001 แล้วกดออกรายงานดูครับ
ปรับใหม่โดยการสร้างรายงาน Sub ครับ
ลองทำตามตัวอย่างที่คุณบอกมา
ตัวอย่างหน้า 1/2
ตัวอย่างหน้า 2/2
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel
5
ห้อง MS Access / : report แบบจัดกลุ่ม ตามค่าที่กำหนด
« เมื่อ: 20 ต.ค. 63 , 10:30:46 »
ซับซ้อนดีเหมือนกัน
รออาจารย์ท่านอื่นก่อนนะครับผมยังคิดไม่ออกอิอิ
เช่น
ใบเสร็จเลขที่ V001
รายงานที่ 1
รายการสินค้า
รหัสใบสั่งซื้อ|รหัสสินค้า|ราคาปกติ|ราคาลด
V001 | P1 |25 |25
V001 | P2 |20 |15
V001 | P3 |15 |15
V001 | P4 |30 |25
V001 | P5 |25 |20
รายงานอันที่ 2
รหัสสินค้า P5 ราคาลด 20 ของใบเสร็จเลขที่ V001 (head group)
รหัสใบสั่งซื้อ|ราคาลด (details)
V003 | 20
V003 | 15
รหัสสินค้า P4 ราคาลด 25 ของใบเสร็จเลขที่ V001 (head group)
รหัสใบสั่งซื้อ|ราคาลด (details)
V004 | 35
V003 | 30
ถ้าแยกพอทำได้ แต่ถ้าหน้าไปหน้า 2 ผมก็ยังทำไม่เป็น รออาจารย์ท่านอื่น
แต่ถ้าแสดงแบบแยกคิวรี่ และคนละรายงานกันก็พอทำได้
แล้วการระบุ ราคาลด และรหัสสินค้าคุณจะทำอย่างไรครับ
รออาจารย์ท่านอื่นก่อนนะครับผมยังคิดไม่ออกอิอิ
เช่น
ใบเสร็จเลขที่ V001
รายงานที่ 1
รายการสินค้า
รหัสใบสั่งซื้อ|รหัสสินค้า|ราคาปกติ|ราคาลด
V001 | P1 |25 |25
V001 | P2 |20 |15
V001 | P3 |15 |15
V001 | P4 |30 |25
V001 | P5 |25 |20
รายงานอันที่ 2
รหัสสินค้า P5 ราคาลด 20 ของใบเสร็จเลขที่ V001 (head group)
รหัสใบสั่งซื้อ|ราคาลด (details)
V003 | 20
V003 | 15
รหัสสินค้า P4 ราคาลด 25 ของใบเสร็จเลขที่ V001 (head group)
รหัสใบสั่งซื้อ|ราคาลด (details)
V004 | 35
V003 | 30
ถ้าแยกพอทำได้ แต่ถ้าหน้าไปหน้า 2 ผมก็ยังทำไม่เป็น รออาจารย์ท่านอื่น
แต่ถ้าแสดงแบบแยกคิวรี่ และคนละรายงานกันก็พอทำได้
แล้วการระบุ ราคาลด และรหัสสินค้าคุณจะทำอย่างไรครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel
6
ห้อง MS Access / : report แบบจัดกลุ่ม ตามค่าที่กำหนด
« เมื่อ: 20 ต.ค. 63 , 08:09:59 »
เดี่ยวจะลองทำให้ดู
เนื่องจากการเลือก P4 P5 ผมคิดว่าคงไม่ใช่การเลือกแบบตายตัวใช่ไหม
บ้างครั้งอาจจะเลือก P2 P3 หรือ เลือกเพิ่มเติมหลายๆ ตัวผมอาจจะใช้ Listbox ในการเลือกรายการส่วนลด ที่จะแสดงในรายงานด้วยนะครับ
ขอทำตัวอย่างแปป
เนื่องจากการเลือก P4 P5 ผมคิดว่าคงไม่ใช่การเลือกแบบตายตัวใช่ไหม
บ้างครั้งอาจจะเลือก P2 P3 หรือ เลือกเพิ่มเติมหลายๆ ตัวผมอาจจะใช้ Listbox ในการเลือกรายการส่วนลด ที่จะแสดงในรายงานด้วยนะครับ
ขอทำตัวอย่างแปป
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel
7
ห้อง MS Access / : ACCESS สามารถสร้างปุ่มส่งข้อมูลไป Excel ได้ไหมครับ
« เมื่อ: 19 ต.ค. 63 , 08:16:23 »
ส่งออกไป excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ชื่อตารางหรือคิวรี่", "ระบุตำแหน่งไฟล์และตั้งชื่อไฟล์ที่Exportออกไป", True, "ชื่อsheetที่ต้องการ"
ตัวอย่าง
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "table1", "E:\Myexport.xls", True, "SheetData1"
นำเข้า จาก Excel to Access
หลักการคล้ายๆ กันครับเปลี่ยนจาก acExport มาเป็น acImport
เช่น
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Importเข้าTableไหน", "ตำแหน่งไฟล์และชื่อไฟล์ที่จะนำเข้า", True
ตัวอย่าง
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "MyTable", "E:\MyImport.xls", True
acSpreadsheetType นั้นลองเช็คดูนะครับ ว่าของท่านใช้ Excel รุ่นไหน
acSpreadsheetTypeExcel8 Microsoft Excel 97 format
acSpreadsheetTypeExcel9 Microsoft Excel 2000 format
acSpreadsheetTypeExcel12 Microsoft Excel 2010 format
acSpreadsheetTypeExcel12Xml Microsoft Excel 2010/2013/2016 XML format (.xlsx, .xlsm, .xlsb)
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ชื่อตารางหรือคิวรี่", "ระบุตำแหน่งไฟล์และตั้งชื่อไฟล์ที่Exportออกไป", True, "ชื่อsheetที่ต้องการ"
ตัวอย่าง
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "table1", "E:\Myexport.xls", True, "SheetData1"
นำเข้า จาก Excel to Access
หลักการคล้ายๆ กันครับเปลี่ยนจาก acExport มาเป็น acImport
เช่น
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Importเข้าTableไหน", "ตำแหน่งไฟล์และชื่อไฟล์ที่จะนำเข้า", True
ตัวอย่าง
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "MyTable", "E:\MyImport.xls", True
acSpreadsheetType นั้นลองเช็คดูนะครับ ว่าของท่านใช้ Excel รุ่นไหน
acSpreadsheetTypeExcel8 Microsoft Excel 97 format
acSpreadsheetTypeExcel9 Microsoft Excel 2000 format
acSpreadsheetTypeExcel12 Microsoft Excel 2010 format
acSpreadsheetTypeExcel12Xml Microsoft Excel 2010/2013/2016 XML format (.xlsx, .xlsm, .xlsb)
โพสต์นี้ได้รับคำขอบคุณจาก: SSukHaveq
8
ห้อง MS Access / : ต้องการให้ ฟังก์ชั่น Totals ใน Datasheet ทำได้มากกว่าที่มี เราสามารถเพิ่มเองได้ไ
« เมื่อ: 14 ต.ค. 63 , 16:12:44 »
สามารถทำได้ตรง Form และ Report ครับ มันจะมี Footer สามารถสร้างการคำนวนได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel
9
ห้อง MS Access / : ต้องการ Loop ชื่อตาราง ชื่อฟิลด์ โดยใช้ชื่อจากตาราง tbTarang1 ดังรูป
« เมื่อ: 14 ต.ค. 63 , 16:07:43 »
น่าจะแบบนี้ครับ
โค๊ด: [Select]
Sub FieldNames()
Dim rst, rstOut, strTable As Recordset
Dim f As Field
Dim SQL, RecordName As String
Set rst = CurrentDb.OpenRecordset("tbTarang1")
Set rstOut = CurrentDb.OpenRecordset("tbfild1")
rst.MoveFirst
Do Until rst.EOF
RecordName = rst!fname
Set strTable = CurrentDb.OpenRecordset(RecordName)
For Each f In strTable.Fields
rstOut.AddNew
rstOut![tarang] = RecordName
rstOut![fild] = f.Name
rstOut.Update
Next
rst.MoveNext
Loop
rst.Close: Set rst = Nothing
rstOut.Close: Set rstOut = Nothing
strTable.Close: Set strTable = Nothing
End Sub
10
ห้อง MS Access / : ต้องการสั่งให้ Combo box ใน sub form Requery
« เมื่อ: 12 ต.ค. 63 , 14:28:19 »
ใช้การกำหนด RowSource ครับ ตัวอย่าง
สมมุติ ชื่อตาราง table1
ชื่อฟิลล์ที่นำมาแสดงชื่อรายการในคอมโบบ๊อกชื่อ NationalID
Private Sub cbPlantID_AfterUpdate()
Dim SQL As String
If Me.cbPlantID = 5 Then
SQL = "SELECT NationalID FROM Table1;"
Else
SQL = "SELECT NationalID FROM Table1 WHERE (((PlantID)=[forms]![ชื่อฟอร์มหลัก]![cbPlantID]));"
End If
Forms![ชื่อฟอร์มหลัก]![ชื่อฟอร์มย่อย].Form.cbNationalID.RowSource = SQL
End Sub
สมมุติ ชื่อตาราง table1
ชื่อฟิลล์ที่นำมาแสดงชื่อรายการในคอมโบบ๊อกชื่อ NationalID
Private Sub cbPlantID_AfterUpdate()
Dim SQL As String
If Me.cbPlantID = 5 Then
SQL = "SELECT NationalID FROM Table1;"
Else
SQL = "SELECT NationalID FROM Table1 WHERE (((PlantID)=[forms]![ชื่อฟอร์มหลัก]![cbPlantID]));"
End If
Forms![ชื่อฟอร์มหลัก]![ชื่อฟอร์มย่อย].Form.cbNationalID.RowSource = SQL
End Sub
11
ห้อง MS Access / : การเพิ่มจำนวน 1 -100 แล้วบันทึกลงตาราง
« เมื่อ: 12 ต.ค. 63 , 10:36:51 »ถ้าเราต้องการให้แยก Field ในตาราง ครับ เราต้องเพิ่มทุกช่องใช่ไหมครับ
เช่น ถ้าเราใส่ตรง Number 1 - 10
ก่จะได้
Runnum : AAA 10ตัว
Runnum1 : 2010 10ตัว
Runnum2 : 0001-0010
แก้โค้ดเป็นแบบนี้
โค๊ด: [Select]
Dim strNum As String
Dim I As Long
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("table1", DB_OPEN_DYNASET)
For I = Me.txtBeginNumber To Me.txtEndNumber
strNum = Right("00000" & I, 4)
rs.AddNew
rs![Runnum] = Me.txtModel
rs![Runnum1] = Me.txtYear
rs![Runnum2] = strNum
rs.Update
Next
rs.Close
db.Close
Set rs = Nothing: Set db = Nothing
โพสต์นี้ได้รับคำขอบคุณจาก: nonc31
12
ห้อง MS Access / : ต้องการสั่งให้ Combo box ใน sub form Requery
« เมื่อ: 12 ต.ค. 63 , 09:51:08 »
ที่มุมมองออกแบบ บน MainForm ให้คุณกดติ๊กที่ Subform แล้วที่คุณสมบัติของ Subform ดูชื่อจริงๆของ Subformครับมันไม่ได้ชื่อเดียวกับที่คุณตั้งไว้เสมอไป ถ้าจะแก้ให้ตรงต้องแก้ตรงนั้นครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin
13
ห้อง MS Access / : ต้องการสั่งให้ Combo box ใน sub form Requery
« เมื่อ: 12 ต.ค. 63 , 09:13:53 »อาจจะเกิดจากสาเหตุอื่นๆ ได้ครับ
เช่นการกำหนด เชื่อมโยงข้อมูลหลัก กับข้อมูลลูก ตรงนี้ก็มีส่วนเหมือนกัน
ต้องดูการกำหนด RecordSource ของคอมโบ txtNationalID ด้วยครับว่าตั้งค่าถูกหรือไม่
โพสต์นี้ได้รับคำขอบคุณจาก: Tatchawin
14
ห้อง MS Access / : ตั้งค่าแก้ไขคำอัคโนมัติ
« เมื่อ: 08 ต.ค. 63 , 14:07:41 »ผมพิมพ์คำว่า เอนก Access มันแก้ไขให้เอง เป็น อเนก
ปกติก็ไปแก้ที่การตั้งค่า แต่พอเป็น Access คั้งแต่ 2010 ขึ้นไป แก้ที่ตรงไหนครับ
ผมลองไปที่ ตั้งค่า > ฐานข้อมูลปัจจุบัน > ตัวเลือกการแก้ไขชื่อัตโนมัติ คลิกที่กล่องคำสั่งออก
แล้วปิดโปรแกรม เปิดใหม่ แต่มันไม่หายครับ ใครรู้ช่วยหน่อยครับ
อยู่ตรง ตั้งค่า > การพิสูจน์อักษร มันจะมีปุ่ม ตัวเลือกการแก้ไขอัตโนมัติ
15
ห้อง MS Access / : ขอคำแนะนำ วิธีนำ record จาก table A ไป able B
« เมื่อ: 07 ต.ค. 63 , 08:31:50 »มีตาราง A และตาราง ฺB เหมือนกัน แต่ตาราง B ขาดรายการบิลที่ป้อนในเดือนมีนาคม 63(date_sale) ทั้งเดือน เราจะใช้ query แบบ append ได้ไหมครับ และ criteria จะระบุช่วงเดือนอย่างไร?
ใช้Append ได้ครับแต่เงื่อนไขก็คือ ที่ Field date_sale ของตาราง A
โดยใช้การระบุช่วงเดือนโดยใช้ Between
สมมุติชื่อฟอร์ม ชื่อ FormName
มี textbox 2 ตัวชื่อ DateStart และ DateEnd เพื่อใช้ในการระบุวันที่เริ่มต้น และวันที่สิ้นสุด
สร้างปุ่มขึ้นมา 1 ปุ่ม ใส่โค้ดนี้เข้าไป
Dim strSQL As String
strSQL = "INSERT INTO TableB SELECT TableA.* FROM TableA WHERE TableA.date_sale Between [forms]![FormName]![DateStart] And [forms]![FormName]![DateEnd];"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
โพสต์นี้ได้รับคำขอบคุณจาก: sjs
16
ห้อง MS Access / : FilterByGroupCourseกรองตามกลุ่มเรียนบนฟอร์มMainMenu
« เมื่อ: 07 ต.ค. 63 , 08:05:58 »อ้างถึง
เจอว่าถ้าเราไม่เคลียร์ค่าใน รหัสงาน หรือ ชื่องาน คิวรี่ใน subForm มันทำงานไม่ได้การแสดงข้อมูลที่ผมทำให้ไปตอนแรกคล้ายๆกับการเลือก จังหวัด อำเภอ ตำบล ซึ่งข้อมูลจะเกี่ยวเนื่องกันลงมาเรื่อยๆครับ
บางครั้งที่คิวรี่ไม่ยอมแสดงข้อมูลก็เพราะว่า ข้อมูลจากส่วนบนลงมาไม่อยู่ในกลุ่มเดียวกัน
อ้างถึง
สลับการเคลียร์ค่าระหว่างรหัสงาน กับ ชื่อ งาน คิดว่า เมื่อตอนเราสั่งคลิกบน คอมโบบ็อกซ์
รหัสงาน เสร็จให้คาไว้อยู่ ฟอร์มย่อยแสดงข้อมูล ยังไม่เคลียร์ค่าบนคอมโบบ็อกซ์ combobox jc
ใช้ Events Got_Focus ได้เลยครับ เมื่อ Cersor โฟกัสที่คอมโบบ๊อกไหนEvents ก็จะทำงาน
อ้างถึง
พอเราคลิกเลือก ชื่องาน comboBox jn ก็อยากให้ไปเคลียร์ค่า combobox jc ก่อน แล้วค่อยไปเรียกคิวรี่มาแสดงถ้าเราเคลียค่าของ combobox jc ก็แสดงว่า เราต้องการแสดงผลของ ชื่องานที่เราเลือก โดยไม่สนใจว่ารหัสงานอะไรใช่หรือไม่
ถ้าใช้แก้โค้ดตามด้านล่างได้เลย
แก้โค้ดเป็นแบบนี้
โค๊ด: [Select]
Private Sub jc_AfterUpdate()
MultiFilter
End Sub
Private Sub jn_AfterUpdate()
MultiFilter
End Sub
Private Sub jc_GotFocus()
Me.jn.Value = Null
End Sub
Private Sub jn_GotFocus()
Me.jc.Value = Null
End Sub
Private Sub MultiFilter()
Dim sql As String
sql = "SELECT * FROM [Qry_Sub_F1S1] WHERE [group] Like '" & Nz(Me.gr, "*") & "' AND [Jobcode] Like '" & Nz(Me.jc, "*") & "' AND [jobname] Like '" & Nz(Me.jn, "*") & "'"
Me.F1S1.Form.RecordSource = sql
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa