Office: Anfügeabfrage mit festem und variablem Wert

Moin,

ich steh grad ein wenig auf dem Schlauch bei der Erstellung einer Anfügeabfrage. Ich habe eine Bestandsdatenbank mit Mitarbeiter und Softwareverwaltung und möchte jetzt einen Button in das Formular einbauen, der die Softwareverknüpfungen des Teamleiters auf den Mitarbeiter kopiert. Ich hab eine Select Anweisung, die mir die Software ausgibt:

SELECT TSoftwarePerson.SoftwareID
FROM TSoftwarePerson
WHERE (((TSoftwarePerson.Person_ID)=[Forms]![F_Mitarbeiter_pflegen]![Team]));
Die Übergabe des Teamleiters will ich noch in VB einbinden, sobald ich die Abfrage hab und den Button richtig gestalte.

Dieses Select muss nun mit der UID des neuen Mitarbeiters in die Tabelle TSoftwarePerson. Also muss das ganze doch in Richtung:

INSERT INTO TSoftwarePerson ( Person_ID, SoftwareID )
...

Und da häng ich jetzt. Wie sag ich der Anfügeabfrage "Nimm UID von [Forms]![F_Mitarbeiter_pflegen]![UID] und alle Einträge aus oben genanntem select und schreibe beides in die Tabelle TSoftwarePerson"???

Danke im voraus

 

Ich hab ehrlich keine Ahnung, ob das geht, aber vielleicht kannst Du folgendes mal versuchen:

Code:

INSERT INTO TSoftwarePerson ( Person_ID, SoftwareID ) values 
  SELECT [Forms]![F_Mitarbeiter_pflegen]![UID], TSoftwarePerson.SoftwareID 
  FROM TSoftwarePerson 
  WHERE (((TSoftwarePerson.Person_ID)=[Forms]![F_Mitarbeiter_pflegen]![Team]));

Ich weiß nicht, ob man die Formularfelder auch in dem Select-Clause benutzen kann...

Eine andere Idee wäre ein Inner-select a la:

Code:

INSERT INTO TSoftwarePerson ( Person_ID, SoftwareID ) values 
  SELECT is.UID, TSoftwarePerson.SoftwareID 
  FROM (
    select TMitarbeiter.UID from TMitarbeiter 
    where TMitarbeiter.UID=[Forms]![F_Mitarbeiter_pflegen]![UID]
  ) is, TSoftwarePerson 
  WHERE (((TSoftwarePerson.Person_ID)=[Forms]![F_Mitarbeiter_pflegen]![Team]));

 

Habs mit dieser Lösung hin gebracht:

INSERT INTO TSoftwarePerson ( Person_ID, SoftwareID )
SELECT TEmployee.UID, TSoftwarePerson.SoftwareID
FROM TSoftwarePerson, TEmployee
WHERE (((TSoftwarePerson.Person_ID)=[Forms]![F_Mitarbeiter_pflegen]![Team]) And (TEmployee.UID) = [Forms]![F_Mitarbeiter_pflegen]![UID]);