coba sebelum end function ditambahkan baris ini mas Coba = Usia salam, sodik
On Mon, 12 May 2008 22:23:00 +0700, vbyono <[EMAIL PROTECTED]> wrote: > Function Coba(a As String) As Double > If a = "muda" Then > usia = 1 > Else > If a = "paruhbaya" Then > usia = 2 > Else > usia = 3 > End If > End If > End Function > > Private Sub Command1_Click() > Dim x,x1,a As String > x = " SELECT * FROM NN WHERE NN.No=1" > Set x1 = cn.Execute(x) > a = x1(0) > Label1.Caption = Coba(a) ' Kenapa ya Fungsi ini tidak bisa > melakukan penyeleksian ya... > end sub > > ' Kenapa ya Fungsi ini tidak bisa melakukan penyeleksian ya... > Mohon bantuannya,Maklum ya saya Kan pemula... > -- Using Opera's revolutionary e-mail client: http://www.opera.com/mail/ Send instant messages to your online friends http://asia.messenger.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: wahana.programmer Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/Programmer-VB/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
