Tambahan,
kalo dipanggil dari immediate window;
?fBuildPath("BTSE013")
hasilnya:
BTSE013-BTSE010-BTSE016-BTSE006-BantenTV
tinggal di panggil saja fungsi ini dari query.
Mdh2-an bisa membantu.
--- In [email protected], "wedhi2002" <[EMAIL PROTECTED]>
wrote:
>
> saya coba bantu ya ...
>
> -----------start-------------
>
> Public strPath As String
>
> Function fBuildPath(ByVal strPath As String) As String
> On Error GoTo err_f
>
> x = Split(strPath, "-")
> y = x(UBound(x))
> strKolom = "FarEnd"
> strTable = "Table1"
> strCriteria = "[NearEnd]='" & y & "'"
> If DCount(strKolom, strTable, strCriteria) > 0 Then
> strPath = strPath & "-" & DLookup(strKolom, strTable,
> strCriteria)
> fBuildPath = fBuildPath(strPath)
> Else
> fBuildPath = strPath
> End If
>
> exit_f:
> Exit Function
>
> err_f:
> Debug.Print Err.Description
> Resume exit_f
>
> End Function
>
> ---------end----------------------
>
> --- In [email protected], "M. Aksan Kurdin"
> <aksan.kurdin@> wrote:
> >
> > Ini kerjaan mas agus sigit 'tukang pipa minyak bawah laut', coba
> > search arsip milis ini.
> > Analogi yang sama seperti pembuatan BOM (Build of Material) yang
> > menggunakan recursif. Juga sudah dibahas panjang lebar.
> >
> > aksan kurdin
> >
> > --- In [email protected], Madaloa <madaloa@> wrote:
> > >
> > > para master yth.
> > >
> > > tulung ane bikin query utk table terlampir.
> > >
> > > Yang diperlukan adalah mencari path dari site-site yg saling
> > berhubungan
> > > tsb.
> > >
> > > Jadi misal site BTSE013, dia terkoneksi ke BTSE010
> > > Site BTSE010 terkoneksi ke BTSE016
> > > Site BTSE016 terkoneksi ke BTSE006
> > > dst.
> > >
> > > Path tsb bisa dalam string aja spt:
> > > BTSE013-BTSE010-BTSE016-BTSE006-dst
> > >
> > >
> > > tararengkyu...
> > >
> >
>
