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

[ikorcrubpom]

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

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

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

Private Sub btnAdd_Click()

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

End Sub

[PNR]

คำสั่ง มันดัดแปลงได้หลายๆแนวมากแล้วแต่การบันทึกว่าจะทำแบบไหน
ถ้าแบบเบื้องต้น ใช้ 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

ลองไปดัดแปลงใช้งานดูครับ