สมัครสมาชิก
 

สอบถามเรื่องการ error vba ค่ะ



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

04 ก.ย. 62 , 10:51:32
อ่าน 65 ครั้ง

PooPae

สอบถามเรื่องการ error vba ค่ะ
« เมื่อ: 04 ก.ย. 62 , 10:51:32 »
หนูเขียนโค้ดลงตัวปุ่มสีเขียวดังนี้ค่ะ
Private Sub Command477_Click()
DoCmd.RunCommand (acCmdRecordsGoToNew)
End Sub
จากนั้นเมื่อกดปุ่มเขียวขณะที่ไม่มีข้อมูลก็เกิด error ดังภาพค่ะ เลยอยากทราบว่าต้องเขียนโค้ดอย่างไรจึงดัก error ดังภาพได้บ้างคะ

 

04 ก.ย. 62 , 11:17:42
ตอบกลับ #1

PNR

: สอบถามเรื่องการ error vba ค่ะ
« ตอบกลับ #1 เมื่อ: 04 ก.ย. 62 , 11:17:42 »
ลองแก้เป็นแบบนี้ครับว่าได้ไหม

Private Sub Command477_Click()
Me.Dirty False
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
End sub
:meaw: :grin: :shout:
 

04 ก.ย. 62 , 11:29:44
ตอบกลับ #2

PooPae

: สอบถามเรื่องการ error vba ค่ะ
« ตอบกลับ #2 เมื่อ: 04 ก.ย. 62 , 11:29:44 »
ขึ้นดังภาพเลยค่ะ

 

04 ก.ย. 62 , 11:54:32
ตอบกลับ #3

PNR

: สอบถามเรื่องการ error vba ค่ะ
« ตอบกลับ #3 เมื่อ: 04 ก.ย. 62 , 11:54:32 »

Private Sub Command477_Click()
me.dirty = false
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
End sub

ลืมใส่ =
ลองดูคับว่าได้ไหม
:meaw: :grin: :shout:
 
โพสต์นี้ได้รับคำขอบคุณจาก: PooPae

04 ก.ย. 62 , 12:08:04
ตอบกลับ #4

PooPae

: สอบถามเรื่องการ error vba ค่ะ
« ตอบกลับ #4 เมื่อ: 04 ก.ย. 62 , 12:08:04 »
ทำได้แล้วค่ะ กราบขอบพระคุณงามๆเลยค่าา  :love: :yuush:

 

04 ก.ย. 62 , 13:25:35
ตอบกลับ #5

PooPae

: สอบถามเรื่องการ error vba ค่ะ
« ตอบกลับ #5 เมื่อ: 04 ก.ย. 62 , 13:25:35 »
ขอสอบถามเพิ่มเติมอีกนิดนะคะ ว่า Dirty คืออะไรหรอคะ

Private Sub Command477_Click()
me.dirty = false
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
End sub

ลืมใส่ =
ลองดูคับว่าได้ไหม

 

04 ก.ย. 62 , 14:26:38
ตอบกลับ #6

PNR

: สอบถามเรื่องการ error vba ค่ะ
« ตอบกลับ #6 เมื่อ: 04 ก.ย. 62 , 14:26:38 »
Dirty คือการทำงานใดๆ อยู่ครับ

สมมุติ
If me.dirty then
me.dirty = false
end if

จากโค้ด ถ้า ยังมีการแก้ไข การทำงานใดๆ อยู่ก็สั่งหยุด จากโค้ดนี้ ปกติมันก็จะบันทึกข้อมูลลงตารางแล้วนะครับ
แต่ผมใส่โค้ดบันทึกเข้าไปด้วย ไว้เป็นแนวทางเฉยๆ ครับ
:meaw: :grin: :shout:
 
โพสต์นี้ได้รับคำขอบคุณจาก: PooPae

04 ก.ย. 62 , 14:34:55
ตอบกลับ #7

PooPae

: สอบถามเรื่องการ error vba ค่ะ
« ตอบกลับ #7 เมื่อ: 04 ก.ย. 62 , 14:34:55 »
ขอบคุณมากๆเลยค่ะ  :grin:

 


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