Weiß jdm was daran falsch ist ?
Es kommt ne Fehlermeldung das ein Parameter erwartet wurde und zu wenige übergeben wurden.
Soryy ich hab null VBA erfahrung !!!
Private Sub Form_Current()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(„select vsn.nummer from abw_ltg l, abw_schacht vsn where vsn.nodelink=l.startnode and l.mslink=[Formulare]![frm_abw_ltg]![mslink]“)
If rs.RecordCount = 1 Then
txt_field1.SetFocus
txt_field1.Text = rs.Fields(„NUMMER“).Value
Else
txt_field1.SetFocus
txt_field1.Text = „“
End If
rs.Close
End Sub