กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
349 3
URL.หัวข้อ /
URL
อยากให้มีข้อความเตือนเวลา record ถูกแก้ไขเปลี่ยนแปลงค่ะ
ไม่ค่อยมีความรู้เกี่ยวกัน Access มากนักน่ะค่ะ ตอนนี้ก็ลองทำ form อย่างง่ายเพื่อเก็บข้อมูล ทำตามหนังสือน่ะค่ะ แต่มีปัญหา คือเวลาคนอื่นๆเข้าไปดูข้อมูลใน record แล้วเผลอไปกด คีย์บอรด์อะไรเข้า ทำให้ข้อมูลถูกเปลี่ยนโดยไม่ได้ตั้งใจ ก็เลยอยากจะให้มี massage ขึ้นมาเตือนว่า "จะ save ข้อมูลที่ถูกเปลี่ยนแปลงใหม?" เวลาที่จะเปลี่ยนไปดู record อื่นๆ มีวิธีที่ทำได้ง่ายๆไหมคะ คือเขียน code ไม่เป็นเลยน่ะค่ะ แล้วก็ถ้าหากต้องการแก้ไขข้อมูลใน record จริงๆ ก็อยากให้มีวันที่ถูกแก้ไขขึ้นให้ด้วยค่ะ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02996
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "This record has been changed."
strMsg = strMsg & vbCrLf & "Do you want to save the changes to this record?"
strMsg = strMsg & vbCrLf & "Click 'Yes' to save or 'No' to throw away the changes."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub *** Edited by Supap Chaiya *** 20/5/2546 20:11:15
Dim strMsg As String
strMsg = "This record has been changed."
strMsg = strMsg & vbCrLf & "Do you want to save the changes to this record?"
strMsg = strMsg & vbCrLf & "Click 'Yes' to save or 'No' to throw away the changes."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub *** Edited by Supap Chaiya *** 20/5/2546 20:11:15
3 @R03003
ขอบคุณมากค่ะ ทำได้แล้วค่ะ
Time: 0.0445s
ใช้โค้ดดังนี้
DoCmd.OpenForm "Form1",,,,acFormReadOnly
ส่วนคำถามที่ 2 ให้ดูกระทู้ http://www.thai-access.com/suphap.php?topic_id=694 ครับ