Coba deh function-nya diubah seperti ini:
Function Coba(A As String) As Double
If A = "muda" Then
Coba = 1
ElseIf A = "paruhbaya" Then
Coba = 2
Else
Coba = 3
End If
End Function
Semoga Membantu...
> 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...
>
>
>
>
>
>
------------------------------------
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/
