hab den code jetzt schon fast beisammen, aber irgendwo klemmts:
Code:
Option Base 1
Global db As Database, rc As Recordset, rc1 As Recordset, rec As Recordset, rc2 As Recordset
Global aktuellesnodes As Variant
Sub sql()
Dim w1 As Worksheet
Set w1 = Worksheets("Sheet1")
w1.Range("C3:K30").ClearContents
a = ActiveCell.Row
Nr = ActiveSheet.Cells(a, 29).Value
Set db = DBEngine.Workspaces(0).OpenDatabase("J:\PROJEKT\PIS\test\test.mdb")
sql1 = "SELECT Tabelle1.PNR, Tabelle1.NAME, Tabelle1.VNAM, Tabelle1.KST FROM Tabelle1 WHERE (((Tabelle1.PNR)=[NR]))"
Set rc1 = db.OpenRecordset(sql1)
On Error Resume Next
rc1.MoveFirst
ss = 3
i = rc1.RecordCount
w1.Select
While Not rc1.EOF
For anz = 1 To i
w1.Cells(3, ss).Value = rc1!fnr
w1.Cells(4, ss).Value = rc1!Pnr
w1.Cells(5, ss).Value = rc1!Name
w1.Cells(6, ss).Value = rc1!VNAM
ss = ss + 1
rc1.MoveNext
Next anz
Wend
End Sub
in der roten Zeile fehlt laut Debugger ein Parameter.. nur welcher ?
mfg