title image


Smiley Na prima - soweit habe ich das noch interpretieren können ....
Hallo Mike,



ich meine: Wo liegt jetzt Dein Problem?

Schon in der Tabelle, im Form, beim Auswerten, oder wo?



Und: Rekursiv - Du hast es ja schon geschrieben.

Im einfachsten Fall reicht eine Tabelle mit zwei Feldern:

(die Tabelle heißt hier mal 'tblBaugruppe')

BG_NrTeile_NrBG1T1BG1T2BG1BG2BG2T21BG2T22BG2BG54BG3T0815BG3T4711BG33T4711BG33BG99BG54T541BG54T542BG99T991BG99T992

Und folgender Code:

(hier in diesem Beispiel wird eine 'Haupttabelle2' befüllt. Das Beispiel hatte ich mal als TestDb zur Veranschaulichung für einen User nach seinen Angaben gebastelt.)





Private Sub Test()

  FillTempBgTeile "BG1"

End Sub

'______________________________________________________________________________



Private Function FillTempBgTeile(BG As String)

On Error GoTo Er

    Dim rs      As Recordset

    Dim rsAdd   As Recordset

    Dim strSQL  As String

    

    strSQL = "SELECT BG_Nr, Teile_Nr" _

           & " FROM tblBaugruppe" _

           & " WHERE BG_Nr='" & BG & "'" _

           & " ORDER BY BG_Nr, Teile_Nr"

    Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)

    

    If Not rs.EOF Then

        Set rsAdd = CurrentDb.OpenRecordset("HauptTabelle2", dbOpenDynaset)

        While Not rs.EOF

            rsAdd.AddNew

            rsAdd.Fields("BG_Nr") = rs.Fields("BG_Nr")

            rsAdd.Fields("Teile_Nr") = rs.Fields("Teile_Nr")

            rsAdd.Update

            FillTempBgTeile rs.Fields("Teile_Nr")

            rs.MoveNext

        Wend

    End If

    

Ex:

    On Error Resume Next

    rs.Close

    Set rs = Nothing

    rsAdd.Close

    Set rsAdd = Nothing

    Exit Function

Er:

    Dim strErr As String

    strErr = "Fehlermeldung/Information..." & vbCrLf

    strErr = strErr & "FehlerNummer: " & Err.Number & vbCrLf

    strErr = strErr & "Beschreibung: " & Err.Description

    MsgBox strErr, vbCritical + vbOKOnly, "Function: FillTempBgTeile"

    Resume Ex

    Resume

End Function





So in der Richtung - ist es das was Du meinst?







Gruß Carsten


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: