Online Reference

Home

DeleteControl, DeleteReportControl Statement

Access Statement, คำสั่ง DeleteControl Statement ใช้ลบตัว control บนฟอร์มที่ระบุ

Access Statement, คำสั่ง DeleteReportControl Statement ใช้ลบตัว control บนรายงานที่ระบุ

เช่น การกำหนด Procedure ให้ทำงานครั้งแรกเมื่อผู้ใช้ log on เข้าสู่ฐานข้อมูล โดยตั้งค่าคุณสมบัติ OnClick ให้กับปุ่มบนฟอร์มให้ Procedure เมื่อผู้ใช้ log on เข้ามาและ Procedure ทำงานแล้ว จะสามารถใช้คำสั่ง DeleteControl ลบปุ่มคำสั่งจากฟอร์มได้เมื่อปุ่มที่กำหนดไว้

ไวยากรณ์

DeleteControl formname, controlname

DeleteReportControl reportname, controlname

อากิวเมนต์ของคำสั่ง CreateControl และ CreateReportControl มีรายละเอียด คือ

ลักษณะการประยุกต์

คำสั่ง CreateControl และ CreateReportControl ใช้ได้เฉพาะด้าน Design view ของฟอร์ม หรือรายงาน

ดูเพิ่มเติม

ฟังก์ชัน CreateControl, ฟังก์ชัน CreateReportControl

ตัวอย่าง

ตัวอย่างการใช้คำสั่ง CreateControl และ CreateReportControl โดยการสร้างฟอร์มที่มีปุ่มคำสั่ง และให้แสดงข้อความถามผู้ใช้ ถ้าต้องการลบปุ่มคำสั่ง เมื่อผู้ใช้คลิก Yes จะทำการลบปุ่มคำสั่ง

Sub DeleteCommandButton()

  Dim frm As Form, ctlNew As Control
  Dim strMsg As String, intResponse As Integer, intDialog As Integer

  ' สร้างฟอร์มใหม่และดึง pointer ไป
  Set frm = CreateForm

  ' สร้างปุ่มคำสั่งใหม่
  Set ctlNew = CreateControl(frm.New, acCommandButton)

  ' ฟอร์มขนาดปกติ
  Docmd.Restore

  ' กำหนด caption
  ctlNew.Caption = "New Command Button"

  ' ขนาดตัว Control
  ctlNew.SizeToFit

  ' ข้อความให้ผู้ใช้ลบตัว control
  strMsg = "About to delete "& ctl.New.Name &". Continue?"

  ' กำหนด ปุ่มให้ปรากฏใน dialog box
  intDialog = vbYesNo + vbCritical + vbDefaultButton2
  intResponse = MsgBox(strMsg, intDialog)

  If intResponse = vbYes Then
    ' ลบตัว control
    DeleteControl frm.Name, ctlnew.Name
  End If

End Sub