Access - Programm Kinderferienprogramm

[MaggieMay]

Hi,

du brauchst in der Aktivitätentabelle ein zusätzliches Datenfeld zur Erfassung der ID für den extra Hinweis, außerdem eine zusätzliche Tabelle für die Hinweistexte. Im Formular zum Anlegen/Pflegen der Aktivitäten muss dieses Datenfeld als Kombifeld hinzugefügt werden. Falls es so ein Formular noch nicht gibt, sollte es angelegt werden.

BTW:
Die Aktivitäten im Beschreibungstext durchzunummerieren halte ich für einen Fehler, dadurch kann man nicht alphabetisch sortieren und suchen. Eine der Aktivität zugeordnete Nummer sollte separat gespeichert werden.

Das Unterformular im Anmeldeformular sollte an eine Abfrage gebunden werden, in der auch der zu zeigende Hinweis enthalten ist, dann kann bei Auswahl einer Aktivität der zugeordnete Hinweis per MsgBox ausgegeben werden. Die Syntax dieses VBA-Befehls findest du in der Access-Hilfe.

Wer kann mir das mal einrichten

Einrichten solltest du das selbst, schließlich bist du für dieses Projekt verantwortlich, da solltest du dich inzwischen mit Access vertraut gemacht haben. Ich kann dir nur Vorschläge machen und Hilfestellung bei konkreten Fragen geben.

[sebi95]

Hallo,  gibt es eine leichtere Lösung kenne mich überhaupt net mit Access aus, Sorry, kannst du mir das nicht bitte einrichten?
Bräuchte nur die popups das andere funktioniert ja einwandfrei

[MaggieMay]

Du musst dir aber doch wenigstens über den Ablauf Gedanken gemacht haben, ich meine wie willst du das angehen?
Die Auswahl einer Aktivität im Unterformular löst ein Ereignis aus - sagt dir das wenigstens etwas?
Dieses Ereignis kann man nutzen, um die Auswahl zu prüfen und darauf zu reagieren.

Jemandem eine DB oder auch nur eine kleine zusätzliche Funktionalität darin zu erstellen, der nicht willens oder in der Lage ist, die Lösung anschließend zu verstehen, um daraus für zukünftige Arbeiten mit Access zu lernen, macht für mich keinen Sinn. Wenn man einfach nur bedient werden und nichts dazulernen will, dann sollte man sich das auch konsequenterweise etwas kosten lassen und an eine Job-Börse wenden. Ein Forum ist dafür der falsche Ort.

[sebi95]

Mir müsste nur einmal das eine popup erstellt werden, die anderen popups kann ich dann selbst erstellen,

[MaggieMay]

Wie gesagt, das Stichwort lautet "MsgBox", Erläuterungen und Beispiele dazu findest du in der Access-Hilfe. Schon mal nachgesehen??

für die 1. Aktivität "Übernachtung im Club Delta" wäre das z.B.  das Popup "Hinweis: Einverständniserklärung erforderlich!"

Code [Auswählen] Erweitern

If Me!AktivitaetenID = 1 Then
    MsgBox "Hinweis: Einverständniserklärung erforderlich!"
End If

[sebi95]

Hallo,

ich versucht es so einzufügen wie du es mir geschrieben, hast, leider funktioniert es nicht! Ich weis nicht warum kannst du es mir bitte einmal eintragen in die jetzt angehängte Datenbank.

[MaggieMay]

Ich kann in der DB nichts entsprechendes finden. Deinen Versuch solltest du schon zeigen, damit man dir den Fehler erklären kann.

[sebi95]

ich hab es versucht einzuüfen aber es geht  nicht speichern?! wer kenn mir helfen, Der Bericht soll auch nicht wie jetzt pro Teilnehmer aufgelistet sein sondern pro Aktivität das die Veranstalter der Aktivität dann eine Teilnehmerliste (für Ihre Aktivität) mitnehmen können.

[MaggieMay]

Hi,

VBA-Code lässt sich immer speichern, auch wenn er falsch ist.

Dann zeige es an einem Screenshot wie und wo du etwas eingefügt hast.

Was den Bericht betrifft, so musst du ihn nach Aktivität gruppieren und die Teilnehmer im Detailbereich anzeigen, wenn du eine Teilnehmerliste erhalten willst.

[sebi95]

Ich weis net jetzt hat sich irgendwie alles verstellt

Ich hab den Code eingestellt vielleicht kannst du mal reinschauen und auch den Fehler beheben das im Formular wieder Geldbeträge und die Löschfunktion funktioniert.

[DF6GL]

Hallo,

Geh in den VBA-Editor und kompiliere die DB. Wirf dann die angemeckerte Prozedur aus dem Modul...

Korrigiere sodann diese Code-Passage:
   If IstAnzahl < MaxAnzahl Then
        If Me.Parent.txtAlter < 6 Or DLookup("AktivitaetenID", "Aktivitaeten", "AktivitaetenID=" & Me.AktivitaetenID_F) = -1 Then
            Me.txtPreis = 0
        Else
            Me.txtPreis = DLookup("PreisKind", "Aktivitaeten", "AktivitaetenID=" & Me.AktivitaetenID_F)
        End If
   


wobei der Tabellenfeldname (blau) entspr. angepasst werden muss.

Dabei verstehe ich hier nicht den Sinn der Dlookup-Funktion...



Vielleicht willst Du nur feststellen, ob in "TeilnehmerAktivitäten" ein DS für den akt. Teilnehmer vorhanden ist. Dann wäre die Dcount-Funktion einfacher und sinnvoller.:

DCount("*","Teilnehmer_Aktivitaet", "TeilnehmerID_F=" & Me.TeilnehmerID_F) >0

[sebi95]

Danke für die bisherige Hilfe. Dennoch bekomm ich das allein nicht hin. Ich mache dieses Programm ehrenamtlich und würde mich freuen wenn mich jemand unterstützt. Denn das Programm sollte morgen fertig sein.

[sebi95]

Hallo,

Geh in den VBA-Editor und kompiliere die DB. Wirf dann die angemeckerte Prozedur aus dem Modul...

Korrigiere sodann diese Code-Passage:
   If IstAnzahl < MaxAnzahl Then
        If Me.Parent.txtAlter < 6 Or DLookup("AktivitaetenID", "Aktivitaeten", "AktivitaetenID=" & Me.AktivitaetenID_F) = -1 Then
            Me.txtPreis = 0
        Else
            Me.txtPreis = DLookup("PreisKind", "Aktivitaeten", "AktivitaetenID=" & Me.AktivitaetenID_F)
        End If
   


wobei der Tabellenfeldname (blau) entspr. angepasst werden muss.

Dabei verstehe ich hier nicht den Sinn der Dlookup-Funktion...



Vielleicht willst Du nur feststellen, ob in "TeilnehmerAktivitäten" ein DS für den akt. Teilnehmer vorhanden ist. Dann wäre die Dcount-Funktion einfacher und sinnvoller.:

DCount("*","Teilnehmer_Aktivitaet", "TeilnehmerID_F=" & Me.TeilnehmerID_F) >0

Kannst du mir dies einrichten?

[DF6GL]

Hallo,

Du sagst mir ja nicht, was da eigentlich passieren soll...

Ansonsten siehe Anlage

[sebi95]

ich hab dir geschriben was die Datenbank machen sollte.