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

Selasa, 29 September 2015

Bls: [belajar-access] Cancel Kondisi pada access Msbox function

Dear Pak Ahmad Qomaruddin,

Untuk solusi dari bapak sudah saya coba. Hasilnya oke dan berhasil :).

Terima kasih atas bantuan yang berharga,

Salam,

Indra P Rakhim

Mobile : +6285780480959

PIN BB : 7D86658D

Pada Selasa, 29 September 2015 7:27, "Ahmad Qomaruddin ud13en@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:

coba disini If vbOK Then diganti If yes=vbOK Then

dan ini if vbCancel then diganti if yes=vbCancel then atau baris ini dinonaktifkan saja dan End if dikurangi satu

semoga membantu

2015-09-28 12:06 GMT+07:00 Indra Rakhim indra.rakhim@yahoo.co.id [belajar-access] <belajar-access@yahoogroups.com>:

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