Coba gunakan input parameter.
>> prosedur HapusData
1. bentuk deklarasi prosedur :
Sub HapusData(optional sMsg as string="Hapus data selesai")
2. set pesan saat cancel menjadi nullstring
else
UserForm.txtTahun.SetFocus
smsg=vbnullstring
endif
3. Prosedur HapusData selesai diubah
>> prosedur event click si cmdHapus
1. deklarasikan variabel pesan :
dim sPesan as string
2. panggil prosedur HapusData dengan membawa variabel sPesan :
HapusData sPesan
3. Cek isi sPesan, jika ada isinya, maka tampilkan msgbox :
if lenb(spesan)<>0 then
msgbox spesan,vbinformation,"Hapus Data"
endif
4. Prosedur event click si cmdHapus selesai diubah
Wassalam,
Kid.
2012/11/2 him mah <himmah....@gmail.com>
> **
>
>
> 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")
> >> >>
> >> >>
> >> >>
> >> >
> >>
> >>
> >>
> >
>
>
>
