เช้คข้อมูลก่อนเปิดฟอร์ม
กระทู้เก่าบอร์ด อ.Yeadram

 1,220   4
URL.หัวข้อ / URL เช้คข้อมูลก่อนเปิดฟอร์ม

คือผมสร้างฟอร์มค้นหาข้อมูลขึ้นมา โดยมี text box 2ตัว คือ txtSearch1 และ txtSearch2 โดยตรวจสอบว่ามีข้อมูลอยู่ใน ตาราง tbAsset_Office หรือไม่
ถ้าไม่มีข้อมูลก็แสดง "ข้อความฟ้อง" แต่ถ้ามีข้อมูลก็เปิดฟอร์ม FrmAsset_Detail ขึ้นมา ประมานี้ครับ


รบกวนผู้รู้ช่วยชี้แนะด้วยครับ
ขอบคุณมากครับ
โดย: Poo เมื่อ: 2 เม.ย. 2555 , 17:30

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R12507
ใช้ recordset.RecordCount หรือ DCount() ถ้า = 0 ก็ขึ้น message box
โดย: PichaiTC เมื่อ: 2 เม.ย. 2555 , 18:41
2 @R12508
รบกวนอีกนิดครับช่วยเขียนโค้ดตัวอย่างให้ดูด้วยครับ

เด็กใหม่เพิ่งหัดเขียนครับ
ขอบคุณมากครับ
โดย: Poo เมื่อ: 2 เม.ย. 2555 , 19:01
3 @R12509
กด Alt+F11 แล้วกด F1
หลังจากนั้นพิมพ์ RecordCount หรือ Dcount method
มีตัวอย่างให้ดูเต็มๆ เลยครับ
โดย: PichaiTC เมื่อ: 3 เม.ย. 2555 , 09:57
4 @R12514
ตัวอย่าง
- ตารางหรือคิวรี่ ที่ต้องการให้ค้นหาชื่อ tb_main
- ชื่อฟิลด์ในตาราง tb_main ที่ต้องการค้นหา ชื่อ Doc

If IsNull(DLookup("Doc", "tb_main", "[tb_main].[Doc] Like '" & "*" & Me.txtSearch1 & "*" & "'")) Then
MsgBox "ค้นหาไม่พบ"
Else
DoCmd.OpenForm "FrmAsset_Detail"
End If

- หากต้องการค้นหาแบบหลายเงื่อนไขก็สามารถใช้ And หรือ Or เพิ่มได้เช่น ต้องการค้นหาคำทั้งใน txtSearch1 และ txtSearch2 ในฟิลด์ Doc

If IsNull(DLookup("Doc", "tb_main", "[tb_main].[Doc] Like '" & "*" & Me.txtSearch1 & "*" & "'" & " Or [tb_main].[Doc] Like '" & "*" & Me.txtSearch2 & "*" & "'")) Then
MsgBox "ค้นหาไม่พบ"
Else
DoCmd.OpenForm "FrmAsset_Detail"
End If

ประมาณนี้ครับ ถ้าไม่เข้าในลองศึกษาจาก Help ของ Access ตามที่คุณ PichaiTC บอกครับ เรื่องรูปแบบของ DLookup โดยเฉพาะการกำหนดเงื่อนไข (Criteria) เป็นเครื่องมือที่ดี ทำให้ตรงความต้องการของเราได้

โดย: TTT เมื่อ: 3 เม.ย. 2555 , 13:53
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3410s