Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem Ufo-Eintrag - Fremdschlüssel
zurück: Filtern im Formular mit ADO-Recordset führt zu Absturz weiter: Datensatz freigeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Zabeline
lerne jeden Tag was neues dazu - VBA Lehrling


Verfasst am:
05. Mai 2011, 13:37
Rufname:

Problem Ufo-Eintrag - Fremdschlüssel - Problem Ufo-Eintrag - Fremdschlüssel

Nach oben
       Version: Office 2003

Hallo,

fFolgende Fallbeschreibung

Meine Tabelle tbl_angebotspositionen ist via Fremdschlüssel u.a. mit der tbl_pd_liegen verknüpft (bzw. andersherum).

Über das Form f_angebot bzw. dazugehörige ufo_angebotspositionen werden Daten eingegeben.
Je nach dem welche Produktgruppe bei der Eingabe der Angebotspositionen ausgewählt wird, geht ein entsprechendes Form für die PDs auf. Diese Forms haben jeweils Registerelemente.

Im vorliegenden Problemfall nehmen wir f_pd_liegen (weil Produktgruppe OP-Tisch).

Da fangen dann die Probleme an:
Wenn ich die PDs eingeben will, meckert er schon mal rum, wegen irgendwelchen Nullwerten (?).
Dann meckert er, dass der Datensatz nicht zugefügt/geändert werden könnte, weil ein DS in der Tabelle tbl_angebotspositionen mit diesem DS in Beziehung stehen muss. (was ja durch den Fremdschlüssel vorgegeben ist)

Ich bin verwirrt und kapiere nicht, was hier schief gelaufen sein soll.

Wer kann mir helfen?

Danke.

_________________
Gruss Sammy
--------------------------------------------------------------------------------------------------------------------
Unser Bestreben sollte sein, die Vergangenheit über die Gegenwart für die Zukunft positiv zu nutzen.



DB_1.zip
 Beschreibung:

Download
 Dateiname:  DB_1.zip
 Dateigröße:  527.29 KB
 Heruntergeladen:  11 mal

kyron9000
Practitioner :)


Verfasst am:
05. Mai 2011, 19:04
Rufname:
Wohnort: Wien


AW: Problem Ufo-Eintrag - Fremdschlüssel - AW: Problem Ufo-Eintrag - Fremdschlüssel

Nach oben
       Version: Office 2003

Hallo,

habe mir die DB mal kurz angesehen... f_angeb wo sind die "PDs" wo kannst eigentlich überhaupt etwas eingeben das einen anderen DS anzeigt...
...ausser unten zum nächsten DS schalten?

Du hast mM kein Feld für eine Suchfunktion.

Ungefähr erkenne ich das Problem schon... du gibst einfach eine neue (andere) ID auf eine alte ID ein... das geht nicht, du brauchst dazu ein neues Feld zum suchen.

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
Zabeline
lerne jeden Tag was neues dazu - VBA Lehrling


Verfasst am:
06. Mai 2011, 14:37
Rufname:

AW: Problem Ufo-Eintrag - Fremdschlüssel - AW: Problem Ufo-Eintrag - Fremdschlüssel

Nach oben
       Version: Office 2003

Hallo

es geht nicht um eine Suchfunktion.

Wenn ich eine Angebotsposition eingebe, muss ich auch eine Produktgruppe auswählen. Und sobald ich die Produktgruppe eingegeben habe, geht automatisch das dazugehörige Form für die PDs (=produktdetails) auf.

Hier sind die entsprechenden PDs einzugeben, fertig.

Funzt halt nur nicht, wegen beschriebenen Fehler.

_________________
Gruss Sammy
--------------------------------------------------------------------------------------------------------------------
Unser Bestreben sollte sein, die Vergangenheit über die Gegenwart für die Zukunft positiv zu nutzen.
Nouba
nicht ganz unwissend :)


Verfasst am:
06. Mai 2011, 15:40
Rufname:
Wohnort: Berlin


AW: Problem Ufo-Eintrag - Fremdschlüssel - AW: Problem Ufo-Eintrag - Fremdschlüssel

Nach oben
       Version: Office 2003

Hallo,

Dein Pflichtfeld Produktbezeichnung muss ausgefüllt sein, bevor der Datensatz gespeichert werden kann.
Code:
Option Compare Database
Option Explicit

Private Sub Kombi_PGID_AfterUpdate()
  On Error GoTo Kombi_PGID_AfterUpdate_Error

  Me.Dirty = False  'versuche, die Daten zu speichern

  Select Case Kombi_PGID
  Case 1: Kombi_PGID = "1"
    MsgBox "Form Anästhesie"
  Case 2: Kombi_PGID = "2"
    MsgBox "Dental"
  Case 3: Kombi_PGID = "3"
    MsgBox "Disposable"
  Case 4: Kombi_PGID = "4"
    DoCmd.OpenForm "f_pd_EEG"
  Case 5: Kombi_PGID = "5"
    DoCmd.OpenForm "f_pd_EKG"
  Case 6: Kombi_PGID = "6"
    DoCmd.OpenForm "f_pd_EMG"
  Case 7: Kombi_PGID = "7"
    DoCmd.OpenForm "f_pd_endoskop"
  Case 8: Kombi_PGID = "8"
    MsgBox "Form Ersatzteile"
  Case 9: Kombi_PGID = "9"
    MsgBox "Form Geräte"
  Case 10: Kombi_PGID = "10"
    DoCmd.OpenForm "f_pd_holoware"
  Case 11: Kombi_PGID = "11"
    DoCmd.OpenForm "f_pd_instrumente"
  Case 12: Kombi_PGID = "12"
    DoCmd.OpenForm "f_pd_chirurg_instrumente"
  Case 13: Kombi_PGID = "13"
    DoCmd.OpenForm "f_pd_leuchten"
  Case 14: Kombi_PGID = "14"
    DoCmd.OpenForm "f_pd_liegen"
  Case 15: Kombi_PGID = "15"
    MsgBox "Form Maschinen"
  Case 16: Kombi_PGID = "16"
    DoCmd.OpenForm "f_pd_moebel"
  Case 17: Kombi_PGID = "17"
    MsgBox "Form Monitoring"
  Case 18: Kombi_PGID = "18"
    DoCmd.OpenForm "f_pd_pumpen"
  Case 19: Kombi_PGID = "19"
    MsgBox "Form sonstiges"
  Case 20: Kombi_PGID = "20"
    MsgBox "Form Stainless Steel"
  Case 21: Kombi_PGID = "21"
    DoCmd.OpenForm "f_pd_autoklave"
  Case 22: Kombi_PGID = "22"
    DoCmd.OpenForm "f_pd_liegen"
  Case 23: Kombi_PGID = "23"
    MsgBox "Form Tische"
  Case 24: Kombi_PGID = "24"
    MsgBox "Form Verbrauchsmaterial"
  Case 25: Kombi_PGID = "25"
    MsgBox "Form Verwaltung"
  Case 26: Kombi_PGID = "26"
    MsgBox "Form Wagen"
  Case 27: Kombi_PGID = "27"
    MsgBox "Form Zimmerausstattung"
  Case 28: Kombi_PGID = "28"
    MsgBox "Form Zubehör Geräte"
  Case 29: Kombi_PGID = "29"
    MsgBox "Form Zubehör Maschinen"
  Case 30: Kombi_PGID = "30"
    MsgBox "Form Zubehör sonstiges"
  Case 31: Kombi_PGID = "31"
    MsgBox "Form Zubehör Wagen"
  Case 32: Kombi_PGID = "32"
    DoCmd.OpenForm "f_pd_absaugen"
  Case 33: Kombi_PGID = "33"
    DoCmd.OpenForm "f_pd_refraktion"
  Case 34: Kombi_PGID = "34"
    MsgBox "Form Zubehör Tische, Möbel"
  Case 35: Kombi_PGID = "35"
    DoCmd.OpenForm "f_pd_gipssaege"

  End Select

  'Me!Kombi_ProduktID = Me!Kombi_ProduktID.Column(0, 0)
  '  -- muss das sein?
  '  -- wenn ja, warum dann nicht
  '  -- Me!Kombi_ProduktID.Requery

  On Error GoTo 0
  Exit Sub

Kombi_PGID_AfterUpdate_Error:
  Select Case Err
  Case 3314
    MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt."
    Me.Kombi_ProduktID.SetFocus
    Me.Kombi_ProduktID.Dropdown
  Case Else
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") " & _
           "in procedure Kombi_PGID_AfterUpdate of VBA Dokument " & _
           "Form_ufo_angebotspositionen"
  End Select
End Sub

Private Sub Kombi_PGID_Change()
  ' jetzt im AfterUpdate
End Sub

Private Sub Kombi_ProduktID_AfterUpdate()
  Call Kombi_PGID_AfterUpdate 'wenn noch mal zugeordnet werden soll
End Sub

Private Sub Kombi_ProduktID_GotFocus()
  Set_RowSource "Kombi_ProduktID"
End Sub

Private Sub Kombi_ProduktID_LostFocus()
  Set_RowSource "Kombi_ProduktID", True
End Sub

Private Sub T2_Text_GotFocus()
  'Me!Kombi_ProduktID.SetFocus ' das Feld ist gesperrt!!!
End Sub

Private Sub Set_RowSource(strControlName As String, _
                          Optional blnShowAll As Boolean)
  Select Case strControlName
  Case "Kombi_ProduktID"
    Me!Kombi_ProduktID.RowSource = _
    "SELECT ProduktID, Produkt " & _
    "FROM tbl_produkte " & _
    IIf(blnShowAll, "", _
        "WHERE PGID_F = " & Me!Kombi_PGID) & " " & _
        "ORDER BY T2_Text"

  End Select
End Sub


BTW: Sollten die Produktdetails zu einer Angebotsposition nicht besser 1:1 verknüpft werden? Ausserdem besteht die Gefahr, dass zu einer Angebotsposition nach Ändern der PGID mehrere Produktdetails (in verschiedenen Tabellen) erstellt werden können. Ggf. noch einmal die Eingabestrategie dafür überdenken.

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Fremdschlüssel per Abfrage ? 4 Tiri74 99 24. Aug 2013, 19:12
Tiri74 Fremdschlüssel per Abfrage ?
Keine neuen Beiträge Access Programmierung / VBA: INSERT INTO Fremdschlüssel 10 greenhoorn 212 20. März 2013, 15:35
JMalberg INSERT INTO Fremdschlüssel
Keine neuen Beiträge Access Formulare: Fremdschlüssel eines UFO´s auflösen 3 Palmsbeach 102 07. Dez 2012, 17:49
MiLie Fremdschlüssel eines UFO´s auflösen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage vom Fremdschlüssel soll Werte aus anderer Tabelle 6 Dutch_OnE 502 20. Dez 2011, 13:40
Dutch_OnE Abfrage vom Fremdschlüssel soll Werte aus anderer Tabelle
Keine neuen Beiträge Access Berichte: Fremdschlüssel in Berichten 6 SleepWalker86 287 31. Okt 2011, 18:00
SleepWalker86 Fremdschlüssel in Berichten
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl von Zuordnungen als Fremdschlüssel begrenzen 7 leonardokroeger 206 07. Jul 2011, 14:29
leonardokroeger Anzahl von Zuordnungen als Fremdschlüssel begrenzen
Keine neuen Beiträge Access Formulare: neuer DS mit Fremdschlüssel übergeben (kein UFo!) 9 Zabeline 381 25. Mai 2011, 16:40
Zabeline neuer DS mit Fremdschlüssel übergeben (kein UFo!)
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Append Query Fremdschlüssel austauschen VBA 1 gg019 993 07. Apr 2011, 10:33
gg019 SQL Append Query Fremdschlüssel austauschen VBA
Keine neuen Beiträge Access Formulare: Unterformular: Fremdschlüssel ausblenden 6 Bangla 673 19. Feb 2011, 16:25
Bangla Unterformular: Fremdschlüssel ausblenden
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Fremdschlüssel in 2 Tabellen suchen 12 joekater 510 21. Okt 2010, 18:14
MissPh! Nach Fremdschlüssel in 2 Tabellen suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz ohne Fremdschlüssel anlegen 22 Riti 2128 26. Sep 2010, 12:51
Marmeladenglas Datensatz ohne Fremdschlüssel anlegen
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbankaufbau/meherere Fremdschlüssel aus gleicher Tabelle 0 Scrat1986 1322 19. Jan 2009, 18:51
Scrat1986 Datenbankaufbau/meherere Fremdschlüssel aus gleicher Tabelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen