กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
343 1
URL.หัวข้อ /
URL
อยากเขียนคำสั่ง find edit delet ผมมีไฟล์ตัวอย่างให้ด้วยครับผมอยากได้คำแนะนำ
อยากเขียนคำสั่ง find edit delet ผมมีไฟล์ตัวอย่างให้ด้วยครับผมอยากได้คำแนะนำ
ตอนนี้ทำโปรแกรมโรงแรมอยู่ อย่างอื่น ok หมด เหลือแต่ คำสั่ง find edit delet ครับ
คือ
1.เวลาเลือกรายการใน listbox แล้วเวลากดปุ่ม edit แล้วให้ขึ้นอีกฟอร์มหนึ่งในโหมด edit แล้วกด save เพื่อบันทึก
2.เวลาเลือกรายการใน listbox แล้วเวลากดปุ่ม delet แล้วให้มี msgbox แจ้งว่าแน่ใจหรือยัง จากนั้นก็ลบ record ที่เลือกออก โดยที่ listbox ก็ ถูกลบทันที
3.อยากทำปุ่มค้นหาข้อมูลใน Query (เพราะ listbox ผมเอาข้อมูลจากQuery ) โดย สามารถเลือกได้ว่า
จะค้นหาใน ฟิลด์ใด
ตัวอย่างที่ให้มาไม่ใช่โปรแกรมโรงแรมที่ผมเขียน แต่เป็นโปรแกรมตัวอย่างเพื่อจะได้ให้ อาจารย์ ทำให้ดูเป็นตัวอย่างครับ และอย่าให้ผมค้นหาในบอร์ดเลยครับผมเคยเจอแล้วแต่ดัดแปลงไม่เป็น ยังไงก็ให้อาจารย์ ทำให้ดูเป็นตัวอย่างนะครับ แล้วส่งมาที่ jipp501@hotmail.com ครับ บอกการแก้ไขโค้ดด้วย เพื่อจะได้ดัดแปลงถูก ขอบคุณมากครับ
ตอนนี้ทำโปรแกรมโรงแรมอยู่ อย่างอื่น ok หมด เหลือแต่ คำสั่ง find edit delet ครับ
คือ
1.เวลาเลือกรายการใน listbox แล้วเวลากดปุ่ม edit แล้วให้ขึ้นอีกฟอร์มหนึ่งในโหมด edit แล้วกด save เพื่อบันทึก
2.เวลาเลือกรายการใน listbox แล้วเวลากดปุ่ม delet แล้วให้มี msgbox แจ้งว่าแน่ใจหรือยัง จากนั้นก็ลบ record ที่เลือกออก โดยที่ listbox ก็ ถูกลบทันที
3.อยากทำปุ่มค้นหาข้อมูลใน Query (เพราะ listbox ผมเอาข้อมูลจากQuery ) โดย สามารถเลือกได้ว่า
จะค้นหาใน ฟิลด์ใด
ตัวอย่างที่ให้มาไม่ใช่โปรแกรมโรงแรมที่ผมเขียน แต่เป็นโปรแกรมตัวอย่างเพื่อจะได้ให้ อาจารย์ ทำให้ดูเป็นตัวอย่างครับ และอย่าให้ผมค้นหาในบอร์ดเลยครับผมเคยเจอแล้วแต่ดัดแปลงไม่เป็น ยังไงก็ให้อาจารย์ ทำให้ดูเป็นตัวอย่างนะครับ แล้วส่งมาที่ jipp501@hotmail.com ครับ บอกการแก้ไขโค้ดด้วย เพื่อจะได้ดัดแปลงถูก ขอบคุณมากครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.1506s
1. ลอง
DoCmd.OpenForm "Form1",,,"[ID]=" & Me.List0,acFormEdit
เปลี่ยน Form1 และฟีลด์ ID ให้เป็นฟีลด์ของเราก่อน
2. ลอง
Private Sub cmdDelete_Click()
If MsgBox("Do you want to delete this record?", vbOKCancel) = vbOK Then
DoCmd.Execute "Delete * From Table1 Where ID=" & Me.List0
Else
Exit Sub
End If
เปลี่ยน Table1 และฟีลด์ ID ให้เป็นฟีลด์ของเราก่อน
3. ลองดูตัวอย่างเกี่ยวกับ Dynamic Query ดูครับ ค้นหาคำว่า Dynamic หรือ ดูในหน้า http://agserver.kku.ac.th/basiceng/download.asp ครับ
End Sub