[belajar-access] maap blm mudeng.... filter dari Form

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, July 29, 2009 5:42 PM
Subject: Re: [belajar-access] maap blm mudeng.... filter dari Form

>
>
> Option Compare Database
>
> Sub FilterList()
> Dim sqlFilterType As String
>
> If Len(Me.Combo6 & "") = 0 Then
> sqlFilterType = ""
> Else
> sqlFilterType = "Type = '" & Me.Combo6 & "'"
> End If
>
> If Len(Me.Combo8 & "") = 0 Then
> sqlFilterMerk = ""
> Else
> sqlFilterMerk = "MerkID = '" & Me.Combo8 & "'"
> End If
>
> If sqlFilterType = "" Then
> If sqlFilterMerk = "" Then
> Me.Filter = ""
> Me.FilterOn = False
> Else
> Me.Filter = sqlFilterMerk
> Me.FilterOn = True
> End If
> Else
> If sqlFilterMerk = "" Then
> Me.Filter = sqlFilterType
> Me.FilterOn = True
> Else
> Me.Filter = sqlFilterType & " AND " & sqlFilterMerk
> Me.FilterOn = True
> End If
> End If
>
>
> End Sub
>
> Private Sub Combo6_AfterUpdate()
> FilterList
> End Sub
>
> Private Sub Combo8_AfterUpdate()
> FilterList
> End Sub
>


>
>
>
> Harry siswanto wrote:
>
> Dear suhu/senior
>
> mungkin bisa bantu kasi solusinya dari contoh terlampir
> bagaimana untuk melakukan Filtering/selection dari form
> misal dipilih : Honda dan Mobil
> maka hanya Honda dan type mobil saja yg keluar...
>
> implementasi utk di msaccess saja, tidak terkait dengan SQL...
>
> terima kasih sebelumnya
>
>
> --
> Harry Siswanto
> Email: harry.siswanto@gmail.com
> www.facebook.com/harry.siswanto
>
>
>