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
 

aris <[EMAIL PROTECTED]> wrote:
If Trim(CdLOpen.Filename = "") Then
 'MsgBox "Nama File tidak boleh kosong!"
 Exit sub
End If
----- Original Message -----
Sent: Friday, March 24, 2006 8:55 AM
Subject: [Programmer-VB] tanya save Dialog

mau 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




Kirim email ke