37
ห้อง MS Access / รบกวนสอบถามฟังก์ชั่น Random ครับ
« เมื่อ: 17 พ.ค. 61 , 21:20:36 »
คือผมต้องการสร้างปุ่มไว้ Random ฟิวในเทเบิ้ลที่เป็น Text ต้องเขียนโค้ดอย่างไรบ้างครับ ขอบคุณมากครับผม
แสดงกระทู้
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.
38
ห้อง MS Access / ต้องการให้ Repeat ในส่วน Report Header ในทุกหน้า
« เมื่อ: 13 พ.ค. 61 , 13:33:18 »
ในหน้า Report ถ้าเราต้องการให้ Repeat ในส่วน Report Header ในทุกหน้า ต้องไปเซ็ทตรงไหนหรอครับผม ขอบคุณครับ
39
ห้อง MS Access / ต้องการสร้างปุ่มลบ Table ครับ
« เมื่อ: 12 พ.ค. 61 , 22:20:54 »
ผมสร้างฟอร์มนำเข้าไฟล์ Excel โดยฟอร์มนี้จะเลือกไฟล์ที่เป็น Excel ก่อน แล้วจึงกดปุ่ม Import ไฟล์เข้ามา ซึ่งไฟล์ Excel นี้เป็นไฟล์ที่นำมาทำข้อมูลประจำ ดังนั้น หากเราเผลอไปกดปุ่ม Import ระบบจะสร้างชื่อ Table นั้นซ้ำ เช่น หลังจากกดปุ่ม Import ไฟล์จะถูกสร้างเป็น Table ชื่อว่า tblData ถ้ากดปุ่มนำเข้าซ้ำจะมีชื่อเทเบิ้ลมาเพิ่มเป็น tblData_1
คำถาม คือ ผมต้องการจะสร้างปุ่มไว้ลบเทเบิ้ลที่ขึ้นต้นด้วย tblData ทั้งหมด เพราะหากมีไฟล์ tblData_1 หรือ tblData_2 ไปเรื่อยๆ ผมจะได้ลบเทเบิ้ลนี้ทีเดียว จะมีวิธีการอย่างไรบ้างครับ ขอบคุณครับ
คำถาม คือ ผมต้องการจะสร้างปุ่มไว้ลบเทเบิ้ลที่ขึ้นต้นด้วย tblData ทั้งหมด เพราะหากมีไฟล์ tblData_1 หรือ tblData_2 ไปเรื่อยๆ ผมจะได้ลบเทเบิ้ลนี้ทีเดียว จะมีวิธีการอย่างไรบ้างครับ ขอบคุณครับ
40
ห้อง MS Access / รบกวนสอบถามเรื่องการทำตู้เก็บเอกสารครับ
« เมื่อ: 10 พ.ค. 61 , 11:31:22 »
รบกวนสอบถามครับว่าจะสร้างตู้เก็บเอกสาร ว่าเราจะสร้างอย่างไร โดยใช้แค่เทเบิ้ลและคิวรี่เท่านั้น โดยมีรายละเอียด ดังนี้
Zone - พื้นที่
Cabinet - ตู้
Shelf - ชั้น
Sequence - ลำดับ
Size - ขนาดแฟ้มหน่วยเป็นนิ้ว
โดยมีเงื่อนไขดังนี้
Zone
- A มี 11 Cabinet
- B มี 12 Cabinet
- C มี 7 Cabinet
- D มี 9 Cabinet
- E มี 8 Cabinet
- F มี 12 Cabinet
- G มี 9 Cabinet
- H มี 7 Cabinet
- K มี 13 Cabinet
Shelf
- ถ้าเป็น Zone - A ถึง E มี 7 Shelf
- ถ้าเป็น Zone - F ถึง K มี 9 Shelf
Sequence
- ถ้าเป็น Zone - A ถึง D มี 12 Sequence
- ถ้าเป็น Zone - E มี 26 Sequence
- ถ้าเป็น Zone - F ถึง K มี 18 Sequence
ยกเว้น Zone - E8 มี 26 Sequence
Size (ขนาดแฟ้ม หน่วยเป็นนิ้ว)
- ถ้าเป็น Zone - A ถึง E ใช้แฟ้ม 3 นิ้ว
- ถ้าเป็น Zone - F ถึง K ใช้แฟ้ม 2 นิ้ว
ยกเว้น Zone - E8 ใช้แฟ้ม 1 นิ้ว
ขอบพระคุณมากๆครับผม
Zone - พื้นที่
Cabinet - ตู้
Shelf - ชั้น
Sequence - ลำดับ
Size - ขนาดแฟ้มหน่วยเป็นนิ้ว
โดยมีเงื่อนไขดังนี้
Zone
- A มี 11 Cabinet
- B มี 12 Cabinet
- C มี 7 Cabinet
- D มี 9 Cabinet
- E มี 8 Cabinet
- F มี 12 Cabinet
- G มี 9 Cabinet
- H มี 7 Cabinet
- K มี 13 Cabinet
Shelf
- ถ้าเป็น Zone - A ถึง E มี 7 Shelf
- ถ้าเป็น Zone - F ถึง K มี 9 Shelf
Sequence
- ถ้าเป็น Zone - A ถึง D มี 12 Sequence
- ถ้าเป็น Zone - E มี 26 Sequence
- ถ้าเป็น Zone - F ถึง K มี 18 Sequence
ยกเว้น Zone - E8 มี 26 Sequence
Size (ขนาดแฟ้ม หน่วยเป็นนิ้ว)
- ถ้าเป็น Zone - A ถึง E ใช้แฟ้ม 3 นิ้ว
- ถ้าเป็น Zone - F ถึง K ใช้แฟ้ม 2 นิ้ว
ยกเว้น Zone - E8 ใช้แฟ้ม 1 นิ้ว
ขอบพระคุณมากๆครับผม
41
ห้อง MS Access / รบกวนสอบถามคิวรี่แบบมีเงื่อนไขครับ
« เมื่อ: 19 เม.ย. 61 , 09:33:16 »
จากข้อมูลเทเบิ้ลมีรายละเอียดดังนี้
Code Status Final
001 A
001 D
001 D
002 A
003 D
004 P
004 A
005 C
005 D
005 D
ถ้าผมจะคิวรี่โดยมีเงื่อนไขดังนี้
ถ้า ฟิลด์ Code - 001 มี Status A กับ C กับ D ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - 001 มี Status A อย่างเดียว ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - Code 001 มี Status A กับ D ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - 001 มี Status D อย่างเดียว ให้อัพเดทในฟิลด์ Final เป็น D
ถ้า ฟิลด์ Code - Code 001 มี Status C กับ D ให้อัพเดทในฟิลด์ Final เป็น D
ถ้า ฟิลด์ Code - Code 001 มี Status P กับ D ให้อัพเดทในฟิลด์ Final เป็น P
ต้องคิวรี่อย่างไรบ้างครับ ขอบคุณมากครับผม
Code Status Final
001 A
001 D
001 D
002 A
003 D
004 P
004 A
005 C
005 D
005 D
ถ้าผมจะคิวรี่โดยมีเงื่อนไขดังนี้
ถ้า ฟิลด์ Code - 001 มี Status A กับ C กับ D ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - 001 มี Status A อย่างเดียว ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - Code 001 มี Status A กับ D ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - 001 มี Status D อย่างเดียว ให้อัพเดทในฟิลด์ Final เป็น D
ถ้า ฟิลด์ Code - Code 001 มี Status C กับ D ให้อัพเดทในฟิลด์ Final เป็น D
ถ้า ฟิลด์ Code - Code 001 มี Status P กับ D ให้อัพเดทในฟิลด์ Final เป็น P
ต้องคิวรี่อย่างไรบ้างครับ ขอบคุณมากครับผม
42
ห้อง MS Access / Auto Number ไม่รันลำดับต่อไป รบกวนตรวจสอบให้ทีครับ
« เมื่อ: 15 เม.ย. 61 , 19:57:10 »
จากโค้ดด้านล่าง เป็นโค้ดรัน Auto Number แต่พอผมรันถึงลำดับที่ 8 ปรากฎว่าพอกดรันใหม่ ระบบดันกลับมารัน 1 ใหม่ ไม่ทราบว่าเพราะเหตุใด รบกวนผู้รู้ชี้แนะหน่อยครับ ขอบคุณมากครับผม
Private Sub Command29_Click()
If Me.NewRecord = True Then
Dim strOldID As String
Dim lngCurrentNumber As Long
Dim lngNextNumber As Long
Dim strNextNumber As String
Dim strNewID As String
If IsNull(DLast("[BorrowID]", "tblBorrow")) Then
Me.txt_BorrowID = "BR00001"
Else
strOldID = DLast("[BorrowID]", "tblBorrow")
Debug.Print strOldID
lngCurrentNumber = getDigits(strOldID)
Debug.Print lngCurrentNumber
lngNextNumber = lngCurrentNumber + 1
Debug.Print lngNextNumber
strNextNumber = String(5 - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber)
Debug.Print strNextNumber
strNewID = "BR" & strNextNumber
Debug.Print strNewID
If IsNull(strOldID) Then
Me.txt_BorrowID = "BR00001"
Else
Me.txt_BorrowID = strNewID
End If
End If
End If
End Sub
Private Sub Command29_Click()
If Me.NewRecord = True Then
Dim strOldID As String
Dim lngCurrentNumber As Long
Dim lngNextNumber As Long
Dim strNextNumber As String
Dim strNewID As String
If IsNull(DLast("[BorrowID]", "tblBorrow")) Then
Me.txt_BorrowID = "BR00001"
Else
strOldID = DLast("[BorrowID]", "tblBorrow")
Debug.Print strOldID
lngCurrentNumber = getDigits(strOldID)
Debug.Print lngCurrentNumber
lngNextNumber = lngCurrentNumber + 1
Debug.Print lngNextNumber
strNextNumber = String(5 - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber)
Debug.Print strNextNumber
strNewID = "BR" & strNextNumber
Debug.Print strNewID
If IsNull(strOldID) Then
Me.txt_BorrowID = "BR00001"
Else
Me.txt_BorrowID = strNewID
End If
End If
End If
End Sub
43
ห้อง Ms Access อื่นๆ / สอบถามเรื่องการใช้ฟอนต์ครับผม
« เมื่อ: 13 เม.ย. 61 , 14:30:21 »
ผมมีปัญหาเกี่ยวกับการใช้ฟอนต์ครับ คือ เขียนโปรแกรมใช้ฟอนต์นึง พอไปเปิดใช้อีกสถานที่นึงฟอนต์ก็เปลี่ยน เพราะเครื่องนั้นไม่มีฟอนต์นั้น
ผมอยากรู้ว่าใช้ฟอนต์อะไรกันบ้างครับ ที่เป็นฟอนต์พื้นฐาน สวย และเห็นชัดและมีขนาดเท่าไหร่กันบ้างครับ ขอบคุณครับ
ผมอยากรู้ว่าใช้ฟอนต์อะไรกันบ้างครับ ที่เป็นฟอนต์พื้นฐาน สวย และเห็นชัดและมีขนาดเท่าไหร่กันบ้างครับ ขอบคุณครับ
44
ห้อง MS Access / จะสร้าง Report การยืมสมุด โดยให้แสดงผลวันเกินกำหนดคืนอย่างไรครับ
« เมื่อ: 03 เม.ย. 61 , 01:14:06 »
ผมได้สร้างตารางการยืมสมุด ซึ่งในตาราง Table1 ประกอบด้วย NameBorrow,DateDeadline ซึ่งผมได้สร้างคิวรี่การยืมเกินกำหนด ชื่อ qryOverdue โดยนำตาราง Table1 มาแสดงในคิวรี่และได้เพิ่มฟิลด์ Overdue: [DateDeadline]-Date()
คำถาม คือ ผมต้องการจะสร้าง Report โดยมี Combo Box ซึ่งมีลิสต์ให้เลือก ระหว่าง ไม่ถึงกำหนดคืน กับ เกินกำหนดคืน จะมีวิธีการอย่างไรบ้างครับ เพื่อให้รีพอตออกมาแบบนี้ครับ ขอบคุณมากครับ
คำถาม คือ ผมต้องการจะสร้าง Report โดยมี Combo Box ซึ่งมีลิสต์ให้เลือก ระหว่าง ไม่ถึงกำหนดคืน กับ เกินกำหนดคืน จะมีวิธีการอย่างไรบ้างครับ เพื่อให้รีพอตออกมาแบบนี้ครับ ขอบคุณมากครับ
45
ห้อง MS Access / สร้างฟอร์มลบเรคคอร์ด แล้วเกิดเออเร่อเมื่อกดปุ่มลบเรคคอร์ดครับ
« เมื่อ: 02 เม.ย. 61 , 22:11:19 »
รบกวนสอบถามหน่อยครับ ผมสร้างฟอร์มลบเรคคอร์ดขึ้นมาแล้วติดปัญหาตรงที่ว่า เมื่อกดปุ่มลบเรคคอร์ดแรกปกติไม่เกิดปัญหาใดๆ แต่พอกดลบเรคคอร์ดต่อมาพบว่าเกิด เออเร่อครับ จึงรบกวนดูโค้ดให้หน่อยครับผม ขอบคุณมากครับผม
โค๊ด: [Select]
Private Sub Command19_Click()
Dim rst As DAO.Recordset
If MsgBox("คุณต้องการลบข้อมูลนี้หรือไม่ ?" & vbCrLf & "", vbYesNo + vbInformation, "Warning !!") = vbYes Then
Set rst = Recordset
If Not rst.EOF Then
rst.delete
Me.txt_Status = "20"
End If
Set rst = Nothing
End If
Me.Form.Requery
End Sub
46
ห้อง MS Access / Preview Report แล้วตารางเลยหน้ากระดาษ
« เมื่อ: 01 เม.ย. 61 , 20:49:58 »
ในกรณีที่เราสร้าง Report แล้วพอกด Preview เพื่อที่จะปริ้น ปรากฎว่า ตารางเลยหน้ากระดาษไป พอจะมีโค้ด หรือวิธีไหนอย่างไรบ้างให้วิวออกมาแล้วพอดีกับหน้ากระดาษบ้างไหมครับ ขอบคุณครับ
47
ห้อง MS Access / ให้ข้อมูลแสดงในซับฟอร์ม เมื่อกรอกข้อมูลเสร็จ
« เมื่อ: 01 เม.ย. 61 , 14:33:33 »
ผมสร้างฟอร์มกรอกข้อมูลลูกค้าโดยมีปุ่มเพิ่มข้อมูล ซึ่งในฟอร์มนี้มีซับฟอร์มลูกค้า ซึ่งผมต้องการให้ เมื่อกรอกข้อมูลเสร็จ แล้วกดปุ่มเพิ่มข้อมูล
ข้อมูลที่เพิ่งกรอกไปจะมาโชว์ในซับฟอร์มทันที จะมีวิธีไหนอย่างไรบ้างไหมครับ ขอบคุณครับ
ข้อมูลที่เพิ่งกรอกไปจะมาโชว์ในซับฟอร์มทันที จะมีวิธีไหนอย่างไรบ้างไหมครับ ขอบคุณครับ
48
ห้อง MS Access / จะป้องกันการกรอกข้อมูล บนฟอร์มที่มีทั้งฟอร์มหลักและย่อย ได้อย่างไรครับ
« เมื่อ: 15 มี.ค. 61 , 19:26:30 »
ผมได้สร้างฟอร์มบันทึกข้อมูลลูกค้า ซึ่งมีทั้งฟอร์มหลักและฟอร์มย่อย เมื่อกรอกข้อมูลครบทั้งฟอร์มหลักและย่อย จะมีปุ่มให้เพิ่มข้อมูล คำถามคือ มีโค้ดไหนบ้างครับ
ที่ในกรณี เมื่อฟอร์มจะบันทึกหรือเพิ่มข้อมูล ก็ต่อเมื่อมีการกดปุ่มเพิ่มหรือบันทึกข้อมูล เพราะเนื่องจากบางทีเราเผลอไปเลือกหรือคีย์ข้อมูลใดๆโดยไม่ตั้งใจฟอร์มก็จะบันทึกข้อมูลเอง ขอบคุณมากครับผม
ที่ในกรณี เมื่อฟอร์มจะบันทึกหรือเพิ่มข้อมูล ก็ต่อเมื่อมีการกดปุ่มเพิ่มหรือบันทึกข้อมูล เพราะเนื่องจากบางทีเราเผลอไปเลือกหรือคีย์ข้อมูลใดๆโดยไม่ตั้งใจฟอร์มก็จะบันทึกข้อมูลเอง ขอบคุณมากครับผม
49
ห้อง MS Access / แสดงข้อมูลในฟิลด์หลัก เมื่อเลือกเรคคอร์ดจากฟอร์มย่อยครับ
« เมื่อ: 15 มี.ค. 61 , 16:01:28 »
ผมได้สร้างฟอร์มกรอกข้อมูลสินค้า โดยมีฟิลด์หนึ่งชื่อฟิลด์ว่า รหัสสินค้า ผมต้องการให้ เมื่อคลิ๊กที่ปุ่ม แว่นขยาย ตามรูป ให้ป๊อบอัพฟอร์มของสินค้า ซึ่งมีรหัสสินค้า ชื่่อสินค้านั้นอยู่ โดยเมือเลือกรหัสสินค้าใดในฟอร์มนี้ (คลิ๊กที่ปุ่มจากฟอร์มนี้) ให้ข้อมูลที่เราเลือก แสดงลงในฟิลด์รหัสสินค้าในฟอร์มหลัก ไม่ทราบว่าต้องทำอย่างไรบ้างครับ ขอบคุณมากครับผม
50
ห้อง MS Access / สอบถามการสร้างความสัมพันธ์ของตารางการยืมครับ
« เมื่อ: 07 มี.ค. 61 , 15:04:41 »
รบกวนสอบถาม Relationship ของการยืมเอกสารครับ รายละเอียด ดังนี้
ตารางของ ข้อมูลลูกค้า tblCusMast มีฟิลด์ดังนี้
1.No - ลำดับที่
2.DateIn - วันที่
3.DateOut - วันที่
4.Type - ประเภทลูกค้า
5.CIF - รหัสลูกค้า
6.CusName - ชื่อลูกค้า
7.Code - รหัสปี
8.Status - สถานะ
ตัวอย่าง เช่น
No DateIN DateOut Type CIF CusName Code Status
1 01/08/2015 รายย่อย 001 นายสมชาย H2015/001 Active
ตารางของ การยืม tblBorrow มีฟิลด์ดังนี้
1.No - ลำดับที่
2.BorrowID - รหัสการยืม
3.DocNo - เลขที่เอกสารสัญาที่ยืม
4.DateBorrow - วันที่ยืม
5.DateDeadline - กำหนดคืน
6.Status - สถานะ
7.Remark - หมายเหตุ
ตัวอย่าง เช่น
No BorrowID DocNo DateBorrow DateReturn Status Remark
1 B001 10150 15/11/2017 30/11/2017 ยืม
ตารางของ ประเภทเอกสาร tblDocType มีฟิลด์ดังนี้
1.No - ลำดับที่
2.DocTypeID - รหัสประเภทเอกสาร
3.Description - คำอธิบาย
ตัวอย่าง เช่น
No DocTypeID Description
1 001 สัญญากู้เงิน
2 002 สัญญาค้ำ
ตารางของ ข้อมูลพนักงาน tblEmployee มีฟิลด์ดังนี้
1.No - ลำดับที่
2.EmployeeID - รหัสพนักงาน
3.EmployeeName - ชื่อพนักงาน
4.Division - แผนก
5.tel - เบอร์
ตัวอย่าง เช่น
No EmployeeID EmployeeName Division Tel
1 EM001 นายสวนทาง บัญชี 5066
ตัวอย่างการยืมนะครับ เช่น นายสวนทาง (tblEmployee) ยืมเอกสารสัญญากู้เงิน (tblDocType) โดยยืมสัญญากู้เงินเลขที่ 10150 (tblBorrow) ของลูกค้าชื่อ นายสมชาย (tblCusMast) เป็นต้นครับ
จาก 3 ตาราง tblCusMast / tblBorrow / tblDocType /tblEmployee รบกวนสอบถามแนวทาง การสร้างความสัมพันธ์ครับ ขอบคุณมากครับผม
ตารางของ ข้อมูลลูกค้า tblCusMast มีฟิลด์ดังนี้
1.No - ลำดับที่
2.DateIn - วันที่
3.DateOut - วันที่
4.Type - ประเภทลูกค้า
5.CIF - รหัสลูกค้า
6.CusName - ชื่อลูกค้า
7.Code - รหัสปี
8.Status - สถานะ
ตัวอย่าง เช่น
No DateIN DateOut Type CIF CusName Code Status
1 01/08/2015 รายย่อย 001 นายสมชาย H2015/001 Active
ตารางของ การยืม tblBorrow มีฟิลด์ดังนี้
1.No - ลำดับที่
2.BorrowID - รหัสการยืม
3.DocNo - เลขที่เอกสารสัญาที่ยืม
4.DateBorrow - วันที่ยืม
5.DateDeadline - กำหนดคืน
6.Status - สถานะ
7.Remark - หมายเหตุ
ตัวอย่าง เช่น
No BorrowID DocNo DateBorrow DateReturn Status Remark
1 B001 10150 15/11/2017 30/11/2017 ยืม
ตารางของ ประเภทเอกสาร tblDocType มีฟิลด์ดังนี้
1.No - ลำดับที่
2.DocTypeID - รหัสประเภทเอกสาร
3.Description - คำอธิบาย
ตัวอย่าง เช่น
No DocTypeID Description
1 001 สัญญากู้เงิน
2 002 สัญญาค้ำ
ตารางของ ข้อมูลพนักงาน tblEmployee มีฟิลด์ดังนี้
1.No - ลำดับที่
2.EmployeeID - รหัสพนักงาน
3.EmployeeName - ชื่อพนักงาน
4.Division - แผนก
5.tel - เบอร์
ตัวอย่าง เช่น
No EmployeeID EmployeeName Division Tel
1 EM001 นายสวนทาง บัญชี 5066
ตัวอย่างการยืมนะครับ เช่น นายสวนทาง (tblEmployee) ยืมเอกสารสัญญากู้เงิน (tblDocType) โดยยืมสัญญากู้เงินเลขที่ 10150 (tblBorrow) ของลูกค้าชื่อ นายสมชาย (tblCusMast) เป็นต้นครับ
จาก 3 ตาราง tblCusMast / tblBorrow / tblDocType /tblEmployee รบกวนสอบถามแนวทาง การสร้างความสัมพันธ์ครับ ขอบคุณมากครับผม
51
ห้อง MS Access / ทำฟอร์มโชว์ทุกเรคคอร์ด แล้วไม่แสดงผลครับ
« เมื่อ: 05 มี.ค. 61 , 21:42:32 »
ผมได้สร้างฟอร์มค้นหาโดยใส่โค้ดดังนี้ครับ
Private Sub Command18_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
Me.Requery
If rs.RecordCount < 1 Then
MsgBox "???????????"
txt_CIF = ""
txt_CusName = ""
Form_Load
DoCmd.ShowAllRecords
End If
rs.Close
Set rs = Nothing
Me.Requery
End Sub
Private Sub Form_Load()
DoCmd.Maximize
Me.txt_CIF = ""
Me.txt_CusName = ""
Me.Requery
Me.txt_CIF.SetFocus
End Sub
พอรันฟอร์มไม่แสดงทุกเรคคอร์ดไม่ทราบว่าต้องแก้ไขตรงไหนอย่างไรบ้างครับ ขอบคุณมากครับผม
Private Sub Command18_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
Me.Requery
If rs.RecordCount < 1 Then
MsgBox "???????????"
txt_CIF = ""
txt_CusName = ""
Form_Load
DoCmd.ShowAllRecords
End If
rs.Close
Set rs = Nothing
Me.Requery
End Sub
Private Sub Form_Load()
DoCmd.Maximize
Me.txt_CIF = ""
Me.txt_CusName = ""
Me.Requery
Me.txt_CIF.SetFocus
End Sub
พอรันฟอร์มไม่แสดงทุกเรคคอร์ดไม่ทราบว่าต้องแก้ไขตรงไหนอย่างไรบ้างครับ ขอบคุณมากครับผม
52
ห้อง MS Access / เมื่อกรอกข้อมูลใน TextBox1 แล้วให้ออโต้ TextBox2 ให้เหมือนกันทำไงครับ
« เมื่อ: 02 มี.ค. 61 , 21:38:38 »
ผมต้องการให้ เมื่อกรอกต้องวงกลม 1 แล้วให้ออโต้ข้อมูลลงในวงกลม 2 อะครับทำไงครับ ต้องการให้ 1 เท่ากับ 2 น่ะครับ ขอบคุณครับ
53
ห้อง MS Access / รบกวนสอบถามการสร้างตารางความสัมพันธ์ Relationship หน่อยครับ
« เมื่อ: 27 ก.พ. 61 , 20:35:18 »
รบกวนสอบถามการสร้างตารางความสัมพันธ์ Relationship หน่อยครับ
คือผมมีตู้เก็บเอกสาร โดยตู้ที่เก็บมีอยู่ 5 ชั้น โดยแต่ละชั้นเก็บแฟ้มลูกค้าได้ชั้นละ 90 ผมได้สร้างตารางตู้เก็บเอกสารดังนี้ครับ
Table ที่ 1 มีชื่อว่า tblCabinet มีฟิลด์ดังนี้คับ
Cabinet Code Status
1/1/1 001 10
1/1/2 002 10
1/1/3 001 10
1/1/4 003 10
หมายเหตุ - ผมขออธิบายความหมายของเลขตู้ตามนี้นะครับ 1/2/4 หมายถึง ตู้ที่ 1 ชั้นที่ 2 ลำดับที่ 4 ส่วน Status - 10 คือ เอกสารยังอยู่ 20 คือเอกสารนั้นปิดบัญชีไป
ส่วนแฟ้มลูกค้าผมได้สร้างตารางดังนี้ครับ
Table ที่ 2 มีชื่อว่า tblCusMast มีฟิลด์ดังนี้ครับ
Type Code Name Status
รายย่อย 001 สมชาย 10
รายย่อย 002 สมหมาย 10
รายย่อย 003 สมหวัง 20
ทั้งนี้ผมอยากให้นึกถึงห้องสมุดนะคับที่มีการเรียงสมุดตามหมวดหมู่ไว้น่ะครับ
เงื่อนไข - ใน 1 Code สามารถมีได้หลาย Cabinet
และเวลาที่ลูกค้ารายนั้นปิดบัญชี (Status 20) ตู้ก้อจะว่าง แล้วพอมีลูกค้ารายใหม่ (Status 10) ก้อให้ใส่ลูกค้ารายใหม่ เข้าไปแทนในตู้ที่ว่างอยู่น่ะคับ
ผมอยากสร้างว่าเราจะสร้างตารางความสัมพันธ์ Relationship ยังไงบ้าง และมีแนวคิดในการทำฟอร์ม อย่างไรบ้างครับ ขอบคุณมากครับผม
คือผมมีตู้เก็บเอกสาร โดยตู้ที่เก็บมีอยู่ 5 ชั้น โดยแต่ละชั้นเก็บแฟ้มลูกค้าได้ชั้นละ 90 ผมได้สร้างตารางตู้เก็บเอกสารดังนี้ครับ
Table ที่ 1 มีชื่อว่า tblCabinet มีฟิลด์ดังนี้คับ
Cabinet Code Status
1/1/1 001 10
1/1/2 002 10
1/1/3 001 10
1/1/4 003 10
หมายเหตุ - ผมขออธิบายความหมายของเลขตู้ตามนี้นะครับ 1/2/4 หมายถึง ตู้ที่ 1 ชั้นที่ 2 ลำดับที่ 4 ส่วน Status - 10 คือ เอกสารยังอยู่ 20 คือเอกสารนั้นปิดบัญชีไป
ส่วนแฟ้มลูกค้าผมได้สร้างตารางดังนี้ครับ
Table ที่ 2 มีชื่อว่า tblCusMast มีฟิลด์ดังนี้ครับ
Type Code Name Status
รายย่อย 001 สมชาย 10
รายย่อย 002 สมหมาย 10
รายย่อย 003 สมหวัง 20
ทั้งนี้ผมอยากให้นึกถึงห้องสมุดนะคับที่มีการเรียงสมุดตามหมวดหมู่ไว้น่ะครับ
เงื่อนไข - ใน 1 Code สามารถมีได้หลาย Cabinet
และเวลาที่ลูกค้ารายนั้นปิดบัญชี (Status 20) ตู้ก้อจะว่าง แล้วพอมีลูกค้ารายใหม่ (Status 10) ก้อให้ใส่ลูกค้ารายใหม่ เข้าไปแทนในตู้ที่ว่างอยู่น่ะคับ
ผมอยากสร้างว่าเราจะสร้างตารางความสัมพันธ์ Relationship ยังไงบ้าง และมีแนวคิดในการทำฟอร์ม อย่างไรบ้างครับ ขอบคุณมากครับผม
54
ห้อง MS Access / ทำระบบ Log In แล้วเกิด เออเร่อ ควรแก้ไขอย่างไรบ้างครับผม
« เมื่อ: 08 ก.พ. 61 , 17:08:27 »
ผมได้สร้างระบบ Log IN โดยได้สร้าง Table และ Form (รูปที่1)
โดยได้เขียนโค้ด VB ไว้ในปุ่ม Log In ใน Form (รูปที่ 2)
พบว่าเกิดเออเร่อ ...
คำถาม อยากสอบถามผู้รู้และอาจารย์ทุกท่านว่า โค้ดต้องแก้ไขตรงไหนอย่างไรบ้างครับ ขอบคุณมากครับผม
รูปที่ 1
โดยได้เขียนโค้ด VB ไว้ในปุ่ม Log In ใน Form (รูปที่ 2)
รูปที่ 2
โค๊ด: [Select]
Private Sub Command6_Click()
If DLookup("Password", "tblUser", "User_ID" = '" & Me.txt_ID & "'") = Me.txt_Password Then
nEmployee = CInt(DLookup("User_ID", "tblUser", "User_Name = '" & Me.txt_ID & "'"))
Else
MsgBox "ÃËÑʼèÒ¹äÁè¶Ù¡µéͧ ¡ÃسҡÃÍ¡ãËÁèÍÕ¡¤ÃÑé§ ËÃ×Í µÔ´µèͼÙé´ÙáÅÃкº", , "ÃËÑʼԴ"
End If
End Subพบว่าเกิดเออเร่อ ...
คำถาม อยากสอบถามผู้รู้และอาจารย์ทุกท่านว่า โค้ดต้องแก้ไขตรงไหนอย่างไรบ้างครับ ขอบคุณมากครับผม
