koding di function sudah baik, hanya saja kurang satu hal. Anda harus mengdeklarasikan Usia
Dim Usia Function Coba(a As String) As Double ...bla..bla End Function Kesalahan anda lakukan di : 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) <<===ini kesalahan anda End sub yang anda lakukan dengan kode diatas adalah menjalankan fungsi Coba, tetapi hasil dari fungsi Coba itu tidak anda tangkap, maka hasil nya adalah 0 (nol), Nol itu terjadi karena type data Function Coba adalah double, jadi bukan hasil dari function Coba. Rubah kode menjadi seperti ini: 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) Coba(a) <== hasilnya adalah usia, usia sudah dideklarasikan, sehingga bisa dibaca diprosedur manapun Label1.Caption = Usia End sub Semoga membantu: =(oVo)= ==================== BaceInside Publisher Copyright @2007 Not for reproduced, republished. Thank You ==================== ----- Original Message ---- From: Sodik Ihwan <[EMAIL PROTECTED]> To: [email protected] Sent: Wednesday, May 14, 2008 9:59:54 AM Subject: Re: [Programmer-VB] function 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
