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"
<[EMAIL PROTECTED]> 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...
> >
>
