ACCESS FEED: [belajar-access] Cancel Kondisi pada access Msbox function

Minggu, 27 September 2015

[belajar-access] Cancel Kondisi pada access Msbox function

Dear Bang Haer & Rekan Millist Access,

Saya mau bertanya mengenai kondisi, saya membuat Msgbox function VbOkCancel,

Target : Ketika saat muncul VB Information klik Ok = proses, dan Cancel = Cancel/Tidak Jadi,

Akan tetapi dalam codingan saya ketika klik cancel tetap di proses.

Mohon bantuannya dari rekan2 millist.

Codenya seperti ini:

Dim yes As String

    If Form_FrmTransaksiIn.txtcount2.Value = 0 Then
    MsgBox "Detail item belum diisi"
    Else
    If Form_FrmTransaksiIn.txtStatus.Value = "Posting" Then
    MsgBox "Data ini Sudah diposting"
    Else
    If Form_FrmTransaksiIn.txtcount2.Value <> 0 Then
        yes = MsgBox("Apakah Data ini akan diposting", vbQuestion + vbOKCancel)
        If vbOK Then
        [Form_QryTransIN subform].Status = "Posting"
        MsgBox "Data Sudah di Posing"
        Else

if vbCancel then

[Form_QryTransIN subform].Status = "Unposting"
End If

        End If
    End If
    End If
    End If

Mohon bantuannya apa yang kurang dari kodingan tersebut sehingga kondisi masih tetap ke kondisi pertama.

Thank You,

Rgrds,

Indra P Rakhim

Mobile : +6285780480959

PIN BB : 7D86658D

__._,_.___

Posted by: Indra Rakhim <indra.rakhim@yahoo.co.id>

Reply via web post