Dim Frm As Form
if tutup=true then
For Each Frm In Forms
Unload Frm
Set Frm = Nothing
Next Frm
If Not Dbs Is Nothing Then Set Dbs = Nothing
If Not Rs Is Nothing Then Set Rs = Nothing
End
end if
End Sub
--- In [email protected], Rommy Zamanuddin
<[EMAIL PROTECTED]> wrote:
>
> saya punya coding di module seperti ini :
>
> Public Sub TutupSemuaForm()
> Dim Frm As Form
> For Each Frm In Forms
> Unload Frm
> Set Frm = Nothing
> Next Frm
> If Not Dbs Is Nothing Then Set Dbs = Nothing
> If Not Rs Is Nothing Then Set Rs = Nothing
> End
> End Sub
>
> klo saya ingin panggil di form1 dengan penulisan :
>
> call TutupSemuaForm (True) atau
> call TutupSemuaForm (False)
>
> gimana cara penulisan coding di modulenya ?
>
> Terima Kasih banyak atas perhatiannya !
>
> Wassalam
>
> __________________________________________________
> Apakah Anda Yahoo!?
> Lelah menerima spam? Surat Yahoo! memiliki perlindungan terbaik
terhadap spam
> http://id.mail.yahoo.com
>
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
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
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.
