สอบถามการสร้างฟอร์ม ครับ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

15 มิ.ย. 62 , 08:48:08
อ่าน 479 ครั้ง

superdog

  • สมาชิกไท.Access
  • กระทู้: 3

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

สอบถามการสร้างฟอร์ม ครับ
« เมื่อ: 15 มิ.ย. 62 , 08:48:08 »
สวัสดีครับ ผมเป็นมือใหม่ มีเรื่องรบกวบจะสอบถามพี่และอาจาร หน่อยครับ
โจทย์มีอยู่ว่า
1.ผมต้องการสร้างฟอร์มที่เอาไว้คีย์ข้อมูลหลายๆข้อมูลในฟอร์มนั้น
2.เมื่อกดบันทึกแล้วให้ข้อมูลที่อยู่ในหน้าฟอร์มนั้นหายไปเพื่อรอรับข้อมูลที่จะคีย์เข้าไปใหม่

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

 

15 มิ.ย. 62 , 14:24:36
ตอบกลับ #1

UnKnown

: สอบถามการสร้างฟอร์ม ครับ
« ตอบกลับ #1 เมื่อ: 15 มิ.ย. 62 , 14:24:36 »
ลองโหลดไฟล์ท่านปิ่นณรงค์จากกระทู้ > การบันทึกข้อมูลลงตารางจากการใช้แบบฟอร์ม ไปแกะดูครับ ซึ่งจะมีทั้ง
- คีย์ข้อมูลหลายๆข้อมูลในฟอร์ม
- เมื่อกดบันทึกแล้วให้ข้อมูลที่อยู่ในหน้าฟอร์มนั้นหายไปเพื่อรอรับข้อมูลที่จะคีย์เข้าไปใหม่

 
โพสต์นี้ได้รับคำขอบคุณจาก: ปิ่นณรงค์, superdog

17 มิ.ย. 62 , 08:29:55
ตอบกลับ #2

ปิ่นณรงค์

: สอบถามการสร้างฟอร์ม ครับ
« ตอบกลับ #2 เมื่อ: 17 มิ.ย. 62 , 08:29:55 »
ตัวอย่างคือการกำหนด ประเภทของ Control ครับ ถ้าเป็นประเภทที่เราเลือกเช่นจะสั่งให้ null หรือให้ว่าง ในประเภท textbox หรือ Combobox หรือ ให้เป็น False ใน checkbox ครับ

โค๊ด: [Select]
Sub ResetForm()   
    On Error GoTo Err_Err
    Dim ctl As Control
           
    For Each ctl In Me
        If ctl.ControlType = acComboBox Then
                ctl = Null       
        End If
        If ctl.ControlType = acTextBox Then
                ctl = Null
        End If
        If ctl.ControlType = acCheckBox Then
                ctl = False
        End If

          Next ctl
   
Exit_err:
        Exit Sub
Err_Err:
        MsgBox Error$
        MsgBox ("ผิดพลาดตรง Reset Form")
        Resume Exit_err

End Sub

เวลาจะเรียกใช้งานก็สั่ง Call ResetForm()

ส่วนประเภทของ Control ต่างๆ ที่มีใน access ก็ตามนี้เลยคับ
Constant              Control
acBoundObjectFrame   Bound object frame
acCheckBox              Check box
acComboBox              Combo box
acCommandButton      Command button
acCustomControl      ActiveX (custom) control
acImage                      Image
acLabel                      Label
acLine                      Line
acListBox                      List box
acObjectFrame              Unbound object frame or chart
acOptionButton              Option button
acOptionGroup              Option group
acPage                      Page
acPageBreak              Page break
acRectangle              Rectangle
acSubform       Subform/subreport
acTabCtl                      Tab
acTextBox      Text box
acToggleButton      Toggle button
« แก้ไขครั้งสุดท้าย: 17 มิ.ย. 62 , 08:45:58 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: superdog


บอร์ดเรียนรู้ Access สำหรับคนไทย