จะเขียนโค๊ดเช็คว่าตอนนี้ฟอร์มอยู่ในโหมดอะไร
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 269   5
URL.หัวข้อ / URL
จะเขียนโค๊ดเช็คว่าตอนนี้ฟอร์มอยู่ในโหมดอะไร

อยากให้ฟอร์มนึงใช้งานได้หลาย ๆอย่างน่ะครับ
ต้องเขียนคำสั่งว่าอะไรครับ
Private Sub chkmode_Click(Cancel As Integer)
msgbox ค่าของโหมดที่ต้องการ ('แก้ไข, เพิ่มข้อมูล,อ่านได้อย่างเดียว)

ขอบคุณล่วงหน้าครับ

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

1 @R02701
ให้ดู Properties ของฟอร์มในหมวดของ Data จะเห็นค่าเหล่านี้

Allow Edits
Allow Detetions
Allow Additions
Data Entry

โดยจะมีค่าเป็น True หรือ False

ส่วนอีกตัวหนึ่งคือ NewRecord จะเป็นตัวบอกว่าฟอร์มอยู่ในฐานะที่จะเพิ่มข้อมูลใหม่หรือไม่

ลองใส่โค้ดต่อไปนี้ลงในส่วนของ On Load ของฟอร์มที่เปิดในโหมดต่างๆ ดูครับ แล้วลองประยุกต์ใช้ดู

Private Sub Form_Load()
Dim strString As String
strString = "Additions = " & Me.AllowAdditions & vbCrLf & "Edtions = " & Me.AllowEdits & _
vbCrLf & "Deletions = " & Me.AllowDeletions & vbCrLf & "Add =" & Me.NewRecord & _
vbCrLf & "Data Entry = " & Me.DataEntry
MsgBox strString
End Sub
2 @R02702
ขอบคุณครับอาจารย์เดี๋ยวจะลองทำดู
3 @R02716
ขอถามเพิ่มครับ การเซ็ทโหมดของ subform จากปุ่ม delete บนเมนฟอร์ม
ผมต้องการลบข้อมูลโดยใช้คลิกปุ่มลบที่อยู่บนเมนฟอร์ม

DoCmd.SetWarnings False
[Forms]![m_main]![m_sub].AllowDeletions = True
Me.AllowDeletions = True
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70


มัน Errorที่บรรทัดนี้ครับ

[Forms]![m_main]![m_sub].AllowDeletions = True

มันขึ้น object does't support this property or method
ไม่ทราบไวยากรณ์ต้องเป็นแบบใหนครับ
4 @R02717
เนื่องจากเราอ้างอิงถึง SubForm ต้องมีคำว่า Form ด้วยครับ

[Forms]![m_main]![m_sub].Form.AllowDeletions = True

ลองดูกระทู้ http://www.thai-access.com/suphap.php?topic_id=330 เพิ่มเติมนะครับ

ส่วนการลบข้อมูลปัจจุบัน ควรใช้คำสั่งนี้ดีกว่าครับ

DoCmd.RunCommand acCmdDeleteRecord

ควรหลีกเลี่ยงการใช้คำสั่ง DoMenuItem ต่างๆ ถ้าไม่จำเป็นหรือมีคำสั่งอื่นที่ทำงานแทนกันได้ครับ

ลองค้นด้วยคำว่า acCmdDeleteRecord เพิ่มเติมดูนะครับ
5 @R02718
ขอบคุณครับเดี๋ยวจะลองดูใหม่
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0529s