Access-o-Mania

Hallo Leute,

ich habe nun folgendes Problem:

Ich habe das Formular Versicherung mit der Abfrage qryVersicherung. Hier ist der Primärschlüssel VersicherungsNr und es hat den Fremdschlüssel PferdeNr für den Bezug nach oben.
Nun soll es ein zweites Formular Entschädigung geben auf Basis der Abfrage qryEntschädigung. Hier ist der Primärschlüssel Versicherungsnummer und es enthällt den Fremschlüssel VersicherungsNr und PferdeNr.

Nun soll per Button im Entschädigungsformular ein neuer Datensatz erfasst werden Das ist auch kein Problem. Das Problem stellt die Überprüfung da:

Es darf für die Versicherung noch keine Entschädigung vorhanden sein., bzw. in einem vorhandenen Datensatz nur ein bestimmtes Feld gefüllt sein, dessen Wert ich zurückerhalte. Wie kann ich das abfragen?

Das mag einfach zu lösen zu sein, aber ich habe keine Idee :( :( :(

P.S. sollte es in der falschen Kategorie sein, bitte verschieben

Servus,

schaust Du hier:

www.donkarl.com?FAQ4.25 (http://www.donkarl.com?FAQ4.25)

Gruß aus Berlin
Pat

manchmal kann das scheinbar so ferne soooo nah sein ;)

Danke! Sollte für heute mal Schluss machen, fehlt die Konzentration ;)

Hier noch eine Ergänzungsfrage:

Wie kann ich von einem gefundenen Datensatz auf einzelne Felddaten zugreifen?
Abfrage zunächst mit :
If IsNull(DLookup("VersicherungsNr", "qryEntschädigung", "VersicherungsNr =" & (Me!VersicherungsNr))) Then
Code für Ifpassage#
ElseIf
Hier ist das Problem
End If

Ich möchte, wenn er einen doppelten Datensatz in der qryEntschädigung findet, den Wert z.B. des Feldes Zuschuss von diesem Datensatz haben...

Wie ist das zu lösen?

Muss per SQL da erst ne Abfrage gemacht werden?, die ich dafür nutze??

Habe keine richtige Idee.....

Ich habe etwas weiter probiert und bin nun soweit: Hoffe nicht auf dem Holzweg zu sein :-[ :-[

Else
        Dim s9SQL$
   
        s9SQL$ = " SELECT * FROM qryVersicherung" _
            & " WHERE [Zuschuss_Heilkosten]Is Not NULL" _
            & " ORDER BY VersicherungsNr;"
End If

Wie erhalte ich nun den Inhalt von Zuschuss_Heilkosten der gefundenen Datensätze?

Bzw. Wie kann ich diese ganze Aktion in ein "IfElse" einbauen, damit dann eine Reaktion erfolgen kann?

Servus,

ZitatHier noch eine Ergänzungsfrage:

Hierfür solltest Du -sofern inhaltlich abweichend vom Startthema- künftig einen neuen Thread aufmachen...

ZitatWie kann ich von einem gefundenen Datensatz auf einzelne Felddaten zugreifen?

Ich gehe davon aus, dass Du unter "zugreifen" nicht die Anzeige in einem Formular oder Bereicht meinst...

ZitatIch möchte, wenn er einen doppelten Datensatz in der qryEntschädigung findet, den Wert z.B. des Feldes Zuschuss von diesem Datensatz haben...

...was meinst Du denn mit "haben"? Soll der Wert in einer msgbox o.ä. angezeigt werden?

Wenn Du auf spezielle Felder eines speziellen Datensatzes zugreifen willst, muss dieser Datensatz erst'mal geöffnet werden, dann pickst Du Dir das gewünschte Feld heraus; in deinem Bsp. in etwa wie folgt:

Else
    Dim rs as DAO.Redordset        
    Dim strSQL as string          
    strSQL = "SELECT * FROM qryVersicherung" & _
                   " WHERE [Zuschuss_Heilkosten] Is Not NULL" & _
                   " ORDER BY VersicherungsNr"
    Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    msgbox rs![Zuschuss_Heilkosten]
    Set rs = Nothing
End If

Gruß
P.

ZitatZitat
Ich möchte, wenn er einen doppelten Datensatz in der qryEntschädigung findet, den Wert z.B. des Feldes Zuschuss von diesem Datensatz haben...
...was meinst Du denn mit "haben"? Soll der Wert in einer msgbox o.ä. angezeigt werden?

Zu Testzwecken soll es in einer Msgbox ausgegeben werden. Später soll ein Vergleich angestellt werden und mit dem Wert, den ich irgendwie in einem String speichern muss, gerechnet werden.

Dim rs As DAO.Redordset
Hier gibt es ein Problem.Fehler ist "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert"
Wo ist das Problem?
Habe ACC 07 und habe extra Microsoft DAO 3.6 Object Library aktiviert. Wo soll der Fehler sein??

OK, war ein Rechtschreibfehler nicht redordset, sonder recordset...

Nun habe ich folgendes Problem mit der Zeile


Erhalte eine Laufzeitfehler 3061
"1 Parameter wurde erwartet, aber es wurden zu wenig Parameter übergeben."

Welche Parameter????? Wo ist da das Problem??

EDIT: Habe es, es war auch hier ein FEhler in der SQL-Anweisung. Name stimmt nicht mit Feldname in Quelle überein.

...was so viel heißt, wie: Problem gelöst?????

JOP!!

Danke!