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"
Elseif vbCancel then[Form_QryTransIN subform].Status = "Unposting"
End IfEnd If
End If
End If
End IfMohon bantuannya apa yang kurang dari kodingan tersebut sehingga kondisi masih tetap ke kondisi pertama.Thank You,Rgrds,
__._,_.___
Posted by: Ahmad Qomaruddin <ud13en@gmail.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (2) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar