ต้องการ หลังจากกดบันทึก ให้เคลียหน้าจอด้วย
กระทู้เก่าบอร์ด อ.Yeadram

 926   5
URL.หัวข้อ / URL ต้องการ หลังจากกดบันทึก ให้เคลียหน้าจอด้วย

Private Sub cmd_admin_Click()
Dim sql As String
    sql = "insert into Admin(id_admin,name_admin,sername_admin,nickname_admin,tel_admin) values ('" & id_admin & "','" & name_admin & "','" & sername_admin & "','" & nickname_admin & "','" & tel_admin & "');"
    DoCmd.RunSQL sql
End Sub

อันนี้ Code บันทึกข้อมูลของผม
ต้องเขียนโค๊ดหรือเซ็ตค่ายังไงครับ หลังจากบันทึกให้ล้างหน้าจอด้วย
โดย: ไม้เอก เมื่อ: 5 เม.ย. 2559 , 15:15

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

1 @R21994
คือเรา จะสร้าง Macro >> Go To Record >> กำหนด ระเบียน >> ระเบียนใหม่

เสร็จแล้ว ไปกำหนดโค๊ต ในปุ่มตกลงอ่ะค่ะ
Private Sub cmd_admin_Click()
Dim sql As String
    sql = "insert into Admin(id_admin,name_admin,sername_admin,nickname_admin,tel_admin) values ('" & id_admin & "','" & name_admin & "','" & sername_admin & "','" & nickname_admin & "','" & tel_admin & "');"
    DoCmd.RunSQL sql
    DoCmd.SetWarnings (0)
    MsgBox ("บันทึกข้อมูลเรียบร้อย")
    DoCmd.RunMacro ("ชื่อMacroที่สร้าง")
End Sub

ประมาณนี้อ่ะค่ะ
โดย: มะลิ เมื่อ: 5 เม.ย. 2559 , 15:57
2 @R21995
ขอบคุณครับ ^^
โดย: ไม้เอก เมื่อ: 5 เม.ย. 2559 , 16:12
3 @R21998


ยังไม่ได้ครับ สร้าง macro แบบนี้หรือปล่าวครับ
บันทึกได้ปรกติแต่ไม่ล้างหน้าจอให้
โดย: ไม้เอก เมื่อ: 5 เม.ย. 2559 , 16:43
4 @R21999
เพิ่มโค้ดนี้เข้าไปครับ

Dim ctl As Control 'เอาไว้บนสุด
    

For Each ctl In Form_Form1.Controls 'เปลี่ยน Form_Form1 เป็น Form_ชื่อฟอร์มที่ใช้โค้ดนี้
   Select Case ctl.ControlType
      Case acTextBox
           ctl.value = ""
      Case acOptionGroup, acComboBox, acListBox
          ctl.value = Null
      Case acCheckBox
        ctl.value = False
   End Select
Next
โดย: ธัชชัย เมื่อ: 5 เม.ย. 2559 , 17:22
5 @R22000
ขอบคุุณมาก ครับผม
โดย: ไม้เอก เมื่อ: 7 เม.ย. 2559 , 07:54
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3101s