Hi
mo nambahin aja ya....
private sub SimpanAja()
On Error GoTo got
cd.InitDir = App.Path
cd.CancelError = True
cd.Filter = "Excel Files(*.xls)"
cd.FilterIndex = 2
cd.ShowSave
got:
Exit Sub
end sub
cd.InitDir = App.Path
cd.CancelError = True
cd.Filter = "Excel Files(*.xls)"
cd.FilterIndex = 2
cd.ShowSave
got:
Exit Sub
end sub
aris <[EMAIL PROTECTED]> wrote:
If Trim(CdLOpen.Filename = "") Then
'MsgBox "Nama File tidak boleh kosong!"
Exit sub
End If----- Original Message -----From: slamet rubantoSent: Friday, March 24, 2006 8:55 AMSubject: [Programmer-VB] tanya save Dialogmau tanya dong....kalo save dialog di klik cancel supaya ga lanjut proses gimana sih caranya?untuk tambahan informasi, gue pakai CommonDialog.thanks atas respons sebelumnya.Slam
Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2ยข/min or less.
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
