Textbausteine mit Checkboxen einer Tabelle einfüge

Computer: Software & Programmierung Microsoft Access
#1

Ich will eine Projektaufgaben Datenbank erstellen.
Dafür habe ich eine Tabelle „tblAufgabenProjekt“.
Darin die Felder: Aufgaben_ID, Projekt_ID, Aufgabentitel, Aufgabenbeschreibung, Anhang, Verantwortlichkeit, Startdatum, Enddatum, Erledigt.

Da bei den verschiedenen Projekte vielfach die gleichen Aufgaben entstehen, würde ich gerne folgendes machen:

Ein Formular bei dem man die per Checkboxen auswählen kann, welche „Standard-Aufgaben“ es gibt und evtl. noch weitere „neuen“ Aufgaben dazufügen.

Mit einer Schaltfläche werden nun für alle Aufgaben die angewählt wurden, jeweils die Aufgaben_ID generiert, Projekt_ID ausgelesen, und der Aufgabentitel & Beschreibung kopiert oder generiert (was halt einfacher ist)

Anschliessend werden in einem weiteren Formular alle Aufgaben aufgelistet, wo dann Termin, Verantwortlichkeit, etc. definiert werden können.

Meine Frage nun:
Wie bekomm ich die Textbausteine, die ich angewählt habe in meine Tabelle?

Gruss und danke
calvin

#2

Hallo,

Ich will eine Projektaufgaben Datenbank erstellen.

schön :wink:

Dafür habe ich eine Tabelle „tblAufgabenProjekt“.
Darin die Felder: Aufgaben_ID, Projekt_ID, Aufgabentitel,
Aufgabenbeschreibung, Anhang, Verantwortlichkeit, Startdatum,
Enddatum, Erledigt.

diese Tabelle sollte (muss) folgendermaßen aufgebaut sein:

AufgabenProjekt_ID (das ist das Primärschlüsselfeld), Aufgaben_ID (das ist das Fremdschlüsselfeld zur neuen Tabelle „tblAufgaben“) , Projekt_ID, Aufgabentitel,

Aufgabenbeschreibung

(diese Felder sind in tblAufgaben enthalten), Anhang, Verantwortlichkeit, Startdatum,
Enddatum, Erledigt.

Da bei den verschiedenen Projekte vielfach die gleichen
Aufgaben entstehen, würde ich gerne folgendes machen:

Wenn tblAufgaben NUR eine Vorlagentabelle sein soll, aus der man Aufgaben übernehmen kann , aber nicht muss, dann kann die tblAufgabenProjekt erst mal so bleiben, wie sie ist.(dabei trotzdem das Primaäschlüsselfeld passend benamsen)

Ein Formular bei dem man die per Checkboxen auswählen kann,

welche „Standard-Aufgaben“ es gibt und evtl. noch weitere
„neuen“ Aufgaben dazufügen.

Erst mal geht es um Tabellen, bevor Formulare dran sind. Also erzeuge die schon oben angedeutete Tabelle „tblAufgaben“

tblAufgaben:

Aufgabe_ID (PK, Autowert)
Aufgabe_Titel
Aufgabe_Beschreibung
Aufgabe_Marker (Ja/Nein-Feld)

Mit einer Schaltfläche werden nun für alle Aufgaben die
angewählt wurden,

Mit einem Formular mit Basis zu tblAufgaben werden die Vorlage-Aufgaben gepflegt (Erfassung/Änderung/Löschen" und der Marker für die zu übernehmenden Aufgaben gesetzt.

jeweils die Aufgaben_ID generiert,

die wird automatisch generiert, da ist kein Zutun nötig.

Projekt_ID ausgelesen,

nix Projekt_ID, die gibt es nicht in dieser Tabelle

und der Aufgabentitel & Beschreibung
kopiert

ok, das geschieht mit einer Schaltfläche im Formular mit Basis zu tblAufgabenProjekt

oder generiert (was halt einfacher ist)

nix generieren.

Anschliessend werden in einem weiteren Formular alle Aufgaben
aufgelistet, wo dann Termin, Verantwortlichkeit, etc.
definiert werden können.

nix „anschliessend“. Dieses Form ist schon geöffnet und das Kopieren wird aus diesem Form angestoßen.

Meine Frage nun:
Wie bekomm ich die Textbausteine, die ich angewählt habe in
meine Tabelle?

Mit etwas Code hinter einer Schaltfläche („btnAGCopy“),der mittels SQL und mit den akt. Daten (oder halt auch Recordsets) die markierten Aufgaben-Datensätze ausliest und in die tblAufgabenProjekt anfügt.

Gruß
Franz, DF6GL

#3

PS:

schau mal 2 Threads tiefer…

#4

Hey Franz

Zuerst mal herzlichen Dank für deine Ausführung/Berichtigung.
Ich habs mal so aufgegleist, wie du beschrieben hast.

Nur mit dem Teil mit dem

Mit etwas Code hinter einer Schaltfläche („btnAGCopy“),der
mittels SQL und mit den akt. Daten (oder halt auch Recordsets)
die markierten Aufgaben-Datensätze ausliest und in die
tblAufgabenProjekt anfügt.

happerts glaube ich noch etwas…

Hier was ich im Code habe:

Private Sub btnAGCopy_Click()
CurrentDb.Execute („INSERT INTO tblAufgabenProjekt (Aufgaben_ID) SELECT tblAufgaben.Aufgaben_ID FROM tblAufgaben WHERE ((tblAufgaben.Aufgabe_Marker)=True)“)
End Sub

Stimmt meine SQL Anweisung nicht?

Gruss calvin

#5

Hallo,

Zuerst mal herzlichen Dank für deine Ausführung/Berichtigung.
Ich habs mal so aufgegleist, wie du beschrieben hast.

Nur mit dem Teil mit dem

Mit etwas Code hinter einer Schaltfläche („btnAGCopy“),der
mittels SQL und mit den akt. Daten (oder halt auch Recordsets)
die markierten Aufgaben-Datensätze ausliest und in die
tblAufgabenProjekt anfügt.

happerts glaube ich noch etwas…

Hier was ich im Code habe:

Private Sub btnAGCopy_Click()
CurrentDb.Execute („INSERT INTO tblAufgabenProjekt
(Aufgaben_ID) SELECT tblAufgaben.Aufgaben_ID FROM tblAufgaben
WHERE ((tblAufgaben.Aufgabe_Marker)=True)“)
End Sub

Stimmt meine SQL Anweisung nicht?

so ist es, es fehlen die Textfelder und akt. ProjektNummer, wenn die Aufgaben nur als Vorlage dienen und auch Aufgaben in tblAufgabenProjekt „manuell“ eingetragen werden sollen.

CurrentDb.Execute „INSERT INTO tblAufgabenProjekt(Projekt_ID, Aufgabentitel, Aufgabenbeschreibung)
SELECT " & Me!Projekt_ID & " as Projekt_ID , Aufgabe_titel, Aufgabe_beschreibung FROM tblAufgaben
WHERE Aufgabe_Marker=True“

Namen müssen angepasst werden!

Gruß
Franz, DF6GL

#6

CurrentDb.Execute „INSERT INTO tblAufgabenProjekt(Projekt_ID,
Aufgabentitel, Aufgabenbeschreibung)
SELECT " & Me!Projekt_ID & " as Projekt_ID , Aufgabe_titel,
Aufgabe_beschreibung FROM tblAufgaben
WHERE Aufgabe_Marker=True“

Bin jetzt nicht sicher, ob ich alles verstanden habe - aber das Feld Aufgabentitel und Aufgabenbeschreibung gibt es ja gar nicht im tblAufgabenProjekt

diese Tabelle sollte (muss) folgendermaßen aufgebaut sein:

AufgabenProjekt_ID (das ist das Primärschlüsselfeld), Aufgaben_ID (das ist das Fremdschlüsselfeld zur neuen Tabelle „tblAufgaben“) , Projekt_ID, :Aufgabentitel, Aufgabenbeschreibung
(diese Felder sind in tblAufgaben enthalten), Anhang, Verantwortlichkeit, :Startdatum, Enddatum, Erledigt.

… kann er dann trotzdem da reinschreiben? Bei mir kommt der Fehler
„Laufzeitfehler '3127: Die INSERT INTO-Anweisung enthält folgenden unbekannten Feldnamen: ‚Aufgaben_Titel‘. …“

Folgende Tabellen/Felder habe ich:

tblAufgaben

  • Aufgaben_ID (PK, Autowert)
  • Aufgaben_Titel (txt)
  • Aufgaben_Beschreibung (txt)
  • Aufgabe_Marker (bool)

tblAufgabenProjekt

  • AufgabenProjekt_ID (PK, Zahl)
  • Aufgaben_ID (Zahl)
  • Projekt_ID(Zahl)
  • Anhang (Anlage)
  • Verantwortlichkeit (txt)
  • Startdatum (date)
  • Enddatum (date)
  • Erledigt (bool)
#7

Hallo,

In der Annahme, es gibt noch die Tabelle „tblProjekte“ mit PK „Projekt_ID“ und der nicht nötigen Erfassung von „manuell“ definierten Aufgaben (solchen, die nicht in tblAufgaben enthalten sind), dann sieht der SQl-String so aus:

CurrentDb.Execute „INSERT INTO tblAufgabenProjekt(Projekt_ID,
Aufgaben_ID)
SELECT " & Me!Projekt_ID & " as Projekt_ID , Aufgaben_ID, FROM tblAufgaben WHERE Aufgabe_Marker=True“

und weiterhin zum Reset des Markers:

CurrentDb.Execute „Update tblAufgaben set Aufgabe_Marker =0 Where Aufgabe_Marker 0“

Gruß
Franz, DF6GL