สอบถามโค้ดไม่ต้องบันทึกข้อมูลครับ

[Eik Q Sang]

จากโค้ดด้านล่าง

โค๊ด: [Select]

Private Sub Form_Current()
    DoCmd.Maximize
    DoCmd.GoToRecord , , acNewRec
End Sub

Sub Ark()
Dim box As String
txt_CIF.SetFocus
box = MsgBox("คุณต้องการบันทึกข้อมูลหรือไม่?", vbQuestion + vbYesNo, "Save Confirmation!!")
If box = vbYes Then
Call checkNull
Else
Call delete
frmCabinatUsed.Requery
End If
End Sub
Sub delete()
On Error Resume Next
DoCmd.SetWarnings False
    DoCmd.GoToControl Screen.PreviousControl.Name
    Err.Clear
    If (Not Form.NewRecord) Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    If (Form.NewRecord And Not Form.Dirty) Then
        Beep
    End If
    If (Form.NewRecord And Form.Dirty) Then
        DoCmd.RunCommand acCmdUndo
    End If
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If
cmdDeleteRecord_Click_Exit:
    Exit Sub
cmdDeleteRecord_Click_Err:
    MsgBox Error$
    Resume cmdDeleteRecord_Click_Exit
End Sub

Sub checkNull()
If IsNull(txt_CIF) Then
MsgBox "กรุณาระบุ CIF !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_TONo) Then
MsgBox "กรุณาระบุ TO No. !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocCode) Then
MsgBox "กรุณาระบุรหัสเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocTypeCode) Then
MsgBox "กรุณาระบุรหัสประเภทเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocName) Then
MsgBox "กรุณาระบุชื่อเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocDate) Then
MsgBox "กรุณาระบุวันที่เอกสาร !!", vbOKOnly, "Warning !!"
End If
DoCmd.GoToRecord , , acNewRec
Me.frmKeyData01.Requery
End Sub
คำถาม ผมต้องการให้เมื่อไม่กดปุ่มบันทึก ก็ไม่ต้องบันทึกหน้านี้เข้าตาราง ต้องแก้ไขอย่างไรบ้างครับ ขอบคุณมากครับ

[ปิ่นณรงค์]

ใช้การสร้างตัวแปล มาเช็คสถานะของการบันทึกก็ได้ครับ โดยใช้ Events Form_BeforeUpdate ในการตรวจสอบ โค้ดผมยุบเหลือแค่นี้นะครับ

โค๊ด: [Select]

Private Sub cmb_Save_Click()
Dim IsSave As Boolean
If IsNull(txt_CIF) Then
MsgBox "กรุณาระบุ CIF !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_TONo) Then
MsgBox "กรุณาระบุ TO No. !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocCode) Then
MsgBox "กรุณาระบุรหัสเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocTypeCode) Then
MsgBox "กรุณาระบุรหัสประเภทเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocName) Then
MsgBox "กรุณาระบุชื่อเอกสาร !!", vbOKOnly, "Warning !!"
ElseIf IsNull(txt_DocDate) Then
MsgBox "กรุณาระบุวันที่เอกสาร !!", vbOKOnly, "Warning !!"
else
DoCmd.RunCommand (acCmdSaveRecord)
IsSave = True
End If
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)  'ก่อนข้อมูลจะถูกบันทึกในตารางต้องผ่านเงื่อนไขนี้ก่อน ครับถ้าตอบ No หรือกดปิดฟอร์มโดยไม่ได้กดบันทึก ข้อมูลจะไม่ถูกบันทึก
Dim msg As Integer
If IsSave = False Then
    msg = MsgBox("คุณต้องการบันทึกข้อมูลนี้หรือไม่?", vbYesNo, "สอบถาม")
    If msg = vbNo Then
       Me.Undo
    End If
End If
End Sub


[Eik Q Sang]

ขอบพระคุณมากครับอาจารย์

[Eik Q Sang]

เออเร่อตรงนี้แก้ตรงไหนครับจารย์

[Eik Q Sang]

เกิด Error แบบนี้อ่าคับ ไม่ทราบว่าแก้ไขอย่างไรบ้างครับ ขอบคุณมากครับผม

[Eik Q Sang]

[ปิ่นณรงค์]

ไม่รู้แบบนี้ไหมนะครับ ที่ฟอร์มสอง ถ้าไม่กดบันทึก เวลาจะปิดจะมีการสอบถามเรื่องการบันทึกข้อมูลถ้าตอบ No ข้อมูลจะไม่บันทึกใน ตาราง tblFollowDetail
เพิ่มระบบค้นหา No มาแสดง ลองดูครับ

[Eik Q Sang]

ไม่รู้แบบนี้ไหมนะครับ ที่ฟอร์มสอง ถ้าไม่กดบันทึก เวลาจะปิดจะมีการสอบถามเรื่องการบันทึกข้อมูลถ้าตอบ No ข้อมูลจะไม่บันทึกใน ตาราง tblFollowDetail
เพิ่มระบบค้นหา No มาแสดง ลองดูครับ

ขอบพระคุณมากๆครับอาจารย์

[ปิ่นณรงค์]

รบกวนถ้าจะอ้างอิง Code ยาวๆ จากโพสก่อน ผมว่าไม่ต้องก็ได้ครับให้กดโพสข้อความไปเลยไม่ต้องอ้างอิงมาเพราะมันจะดูรก และอ่านยากครับ

[Eik Q Sang]

รบกวนถ้าจะอ้างอิง Code ยาวๆ จากโพสก่อน ผมว่าไม่ต้องก็ได้ครับให้กดโพสข้อความไปเลยไม่ต้องอ้างอิงมาเพราะมันจะดูรก และอ่านยากครับ

ครับ อาจารย์ ขอบคุณมากครับผม

[Eik Q Sang]

รบกวนดูไฟล์หน่อยคับ คือ พอผมกรอกรายละเอียดใน frmFollowMain แล้วกดปุ่ม Follow เพื่อที่จะเปิดฟอร์ม frmFollowDetail พบว่า มี pop up แจ้งเตือนให้กรอก parameter ต้องแก้ตรงไหนคับถึงจะไม่ให้ขึ้นครับขอบคุณมากครับผม

[ปิ่นณรงค์]

ต้องดู ประเภทของข้อมูลด้วยครับ เช่น เป็น text / Date/Time / หรือ ตัวเลข การกำหนดจะไม่เหมืิอนกัน
ที่มันแสดงป๊อบอัพขึ้นมาเพราะเงื่อนไขนั้น Doccode ต้องเป็นตัวเลข แต่ในงานของคุณเป็น text ครับ
แก้เป็นแบบนี้ครับ

โค๊ด: [Select]

DoCmd.OpenForm "frmFollowDetail", WhereCondition:="[Doccode]= '" & txt_DocCode1 & "'"

[Eik Q Sang]

อ่อเข้าใจแล้วครับ อาจารย์ ขอบคุณมากครับผม