kalau VBA seperti ini
Private Sub cmdHapus_Click()
HapusData
MsgBox ("Hapus data selesai")
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku").select
pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
UserForm.txtTahun.SetFocus
End If
End Sub
ketika kita pilih vbCancel maka akan kembali ke userfor dan txtTahun
sebagai SetFocus, namun kemudian menjalankan perintah
MsgBox ("Hapus data selesai")
kira-kira bagaimana modifikasinya, agar kembali ke userform tapi tidak
menjalankan perintah menampilkan pesan
terima kasih
Pada tanggal 02/11/12, Mr. Kid <mr.nm...@gmail.com> menulis:
> Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
>
> 2012/11/2 him mah <himmah....@gmail.com>
>
>> **
>>
>>
>> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
>> benar tidak semua control mau setFocus
>>
>>
>> Pada tanggal 02/11/12, Mr. Kid <mr.nm...@gmail.com> menulis:
>> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
>> > kalau gitu set fokus nya panggil si mbahnya dulu...
>> >
>> > misal nama form adalah userform1
>> > control yang akan diambil adalah txtTahun
>> > userfom1.txtTahun.setfocus
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> >
>> > 2012/11/2 him mah <himmah....@gmail.com>
>> >
>> >> **
>>
>> >>
>> >>
>> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
>> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> >> vbYesNoCancel, "cek")
>> >>
>> >> nah ketika kita pilih vbCancel
>> >> contoh filenya saya lampirkan
>> >>
>> >> Pada tanggal 02/11/12, Mr. Kid <mr.nm...@gmail.com> menulis:
>> >>
>> >> > Coba ganti :
>> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo,
>> >> > "cek")
>> >> > menjadi :
>> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
>> >> "cek")
>> >>
>> >>
>> >>
>> >
>>
>>
>>
>
