ปุ่มเพิ่มและบันทึกในปุ่มเดียวกัน


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

09 ส.ค. 64 , 10:55:36
อ่าน 507 ครั้ง

ikorcrubpom

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

  • ขอบคุณ ไท.Access

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

ขออนุญาตสอบถามครับ ผมอยากจะสร้างปุ่มให้ปุ่มเพิ่มและบันทึกเป็นปุ่มเดียวกัน

เมื่อคลิกปุ่ม เพิ่ม คำว่า เพิ่ม ก็จะเปลี่ยนเป็นคำว่า บันทึก พอคลิกอีกที ก็ให้บันทึกข้อมูลลง ตาราง แล้วก็ปุ่มก็กลับมาเป็นคำว่า เพิ่ม เหมือนเดิม

ตอนนี้ผมทำได้แค่ เปลี่ยนข้อความในปุ่ม ว่า เพิ่ม ให้เป็น บันทึก แต่ไปต่อไม่ถูกครับ ขอความอนุเคราะห์ด้วยครับ  :prettiness:

Private Sub btnAdd_Click()

Me.btnAdd.Caption = "บันทึก"

End Sub

 

09 ส.ค. 64 , 11:43:16
ตอบกลับ #1

PNR

: ปุ่มเพิ่มและบันทึกในปุ่มเดียวกัน
« ตอบกลับ #1 เมื่อ: 09 ส.ค. 64 , 11:43:16 »
คำสั่ง มันดัดแปลงได้หลายๆแนวมากแล้วแต่การบันทึกว่าจะทำแบบไหน
ถ้าแบบเบื้องต้น ใช้ Current ในการเช็ค และไปสร้างเงื่อนไขเช็คจาก .Caption เช่น

สร้าง Sub ขึ้นมาใส่
โค๊ด: [Select]
Private Sub CheckRecord()
If NewRecord Then
Me.btnAdd.Caption = "บันทึก"
Else
Me.btnAdd.Caption = "เพิ่ม"
End If
End Sub

ที่ Event Form_Current() ใส่โค้ด
โค๊ด: [Select]
Private Sub Form_Current()
CheckRecord
End Sub

ต่อมาสร้างเงื่อนไขให้กับปุ่มเพิ่ม/บันทึก
โค๊ด: [Select]
Private Sub btnAdd_Click()
If IsNull(Me.ID) Then 'เช็คเงื่อนไขบนฟอร์มว่า ID ไม่เป็นค่าว่างป้องกันกรณีที่ยังไม่ได้เพิ่มข้อมูลแล้วกดบันทึก
MsgBox "กรุณาระบุข้อมูล", vbCritical, "Status!!"
Else
If Me.btnAdd.Caption = "บันทึก" Then
DoCmd.RunCommand acCmdSave
Me.btnAdd.Caption = "เพิ่ม"
ElseIf Me.btnAdd.Caption = "เพิ่ม" Then
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub

ลองไปดัดแปลงใช้งานดูครับ
Time to stop for me  :dizzy:
 


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


 

Sitemap 1 2 3 4 5