Office: (Office 2010) Daten aus Formular löschen

maikek · 7. Februar 2016

Das Formular "Patienten"
(BTW, Präfixe erleichtern das Leben erheblich; frmPatient bzw. ufrmPatient, tblPatient, rptPatient ...)
muss als Datenherkunft die Verknüpfungstabelle bekommen.

Die Steuerelementinhalte der Felder auf dem Formular musst du dann auch entsprechend ändern, da die alten (Name etc.) nicht mehr vorhanden sind.
Verknüpft wird dann das Ufo mit dem Hfo über die ID.
Für die Teilnehmer nimmst du ein Kombifeld zur Auswahl, 1. Spalte (ausgeblendet) Teilnehmer ID, zweite Spalte Nachname & Vorname & ...

maike

valux1337 · 7. Februar 2016

Hi,

Hinter dem Formular steckt eine Abfrage..

Code:

SELECT AbfUnterformular.VName, AbfUnterformular.NName, AbfUnterformular.Telefonnummer, AbfUnterformular.PLZ, AbfUnterformular.ORT, AbfUnterformular.Bemerkung
FROM AbfUnterformular;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe jetzt mal der Abfrage das Feld "ID_Verknüpfungen" hinzugefügt.
Kann man das so auch machen?

Der Code hinter dem Löschen Button ist dann wie folgt, allerdings noch
nicht funktionsfähig..

Code:

strSQL = "DELETE * FROM [Verknüpfungen] " & _
"WHERE [ID_Verknüpfungen] = " & Me.ID_Patienten
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Edit:
EXAKT. Es funktioniert auch so, endlich!

MfG
Valux

valux1337 · 10. Februar 2016

Hey,

Da habe ich mich wohl zu früh gefreut.
Jetzt funktioniert das Formular Teilnehmer hinzufügen nicht mehr,
obwohl ich in meiner Abfrage nur 2 neue Felder hinzugefügt habe.
Wie kann das sein?
Ein Bild der Fehlermeldung wenn ich einen neuen Teilnehmer hinzufügen will
habe ich angehängt.

MfG
Valux

maikek · 10. Februar 2016

Code:

obwohl ich in meiner Abfrage nur 2 neue Felder hinzugefügt habe.
Wie kann das sein?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich kann von hier aus deine neue Abfrage nicht sehen. Vor allem schon nicht die Ausgangs-Abfrage "AbfUnterformular", auf die da abgefragt wird:
Code:

SELECT AbfUnterformular.VName ... FROM AbfUnterformular;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Warum bindest du nicht das Teilnehmer hinzufügen Formular an die Verknüpfungstabelle, stellst die Beziehung zum HF über die VeranstaltungsID her und gut is - das erzähl' ich hier nun schon ad nauseam ...
maike

valux1337 · 10. Februar 2016

Ok - Done! Klappt auch wunderbar.
letzte Frage: Hab beim Teilnehmer hinzufügen ein Bemerkungsfeld eingefügt.
Wie kann ich das aus den Pflichtfeldern nehmen?
Schon alles versucht...

Code:

Error1:
If Error = "Unzulässige Verwendung von Null" Then
MsgBox ("Bitte alle Felder ausfüllen!")
Else
MsgBox ("Unbekannter Fehler: " & Error)
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG
Valux

maikek · 10. Februar 2016

Wie kann ich das aus den Pflichtfeldern nehmen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich kann deinen Bildschirm immer noch nicht sehen ... Hast du das in der Tabelle bei den Eigenschaften so eingestellt? Dann mach's da halt wieder raus.
maike

valux1337 · 10. Februar 2016

Das habe ich schon überprüft, da steht alles auf Nein.
Steht wohl im Programmcode drin nur ich finde die Position nicht wo..
Ich hänge den einfach mal an.

Code:

Private Sub PatientenEintragen_Click()
Dim EVName As String
Dim ENName As String
Dim ETelefonnummer As String
Dim EPLZ As String
Dim EOrt As String
Dim EBemerk As String

Dim EID_Patienten As String

On Error GoTo Error1:
EVName = Me.Text2
ENName = Me.Text4
ETelefonnummer = Me.Text7
EPLZ = Me.Text38
EOrt = Me.Text40
EBemerk = Text52
EID_Patienten = PatientPrüfen(Text2, Text4, Text7)

If EID_Patienten = -1 Then

'neuen Datensatz schreiben
With CurrentDb().OpenRecordset("Patienten", dbOpenDynaset, dbAppendOnly)
.AddNew
!VName = EVName
!NName = ENName
!Telefonnummer = ETelefonnummer
!PLZ = EPLZ
!ORT = EOrt
!Bemerkung = EBemerk
.Update
End With

EID_Patienten = PatientPrüfen(EVName, ENName, ETelefonnummer)

PatientID = EID_Patienten
With CurrentDb().OpenRecordset("Verknüpfungen", dbOpenDynaset, dbAppendOnly)
.AddNew
!Veranstaltung = Uebergabe
!Patient = PatientID
.Update
End With
Forms!Anzeige!Patienten.Requery
Forms!Anzeige!Anzahl.Requery
DoCmd.Close acForm, "Hinzufügen"

Exit Sub
ElseIf EID_Patienten >= 0 Then

PatientID = EID_Patienten
With CurrentDb().OpenRecordset("Verknüpfungen", dbOpenDynaset, dbAppendOnly)
.AddNew
!Veranstaltung = Uebergabe
!Patient = PatientID
.Update
End With
Forms!Anzeige!Patienten.Requery
Forms!Anzeige!Anzahl.Requery
DoCmd.Close acForm, "Hinzufügen"

Exit Sub
End If

Error1:
If Error = "Unzulässige Verwendung von Null" Then
MsgBox ("Bitte alle Felder ausfüllen!")
Else
MsgBox ("Unbekannter Fehler: " & Error)
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG
Valux

maikek · 10. Februar 2016

Hm. wieso bindest du denn nicht einfach die Formulare an die Tabellen und prüfst dann im BeforeUpdate, ob der Patient schon existiert? Falls ja, Meldung und speichern abbrechen ... Statt dessen so ein Umstand ...

Hast du übrigens oben im Modulkopf jeweils "Option Explicit" eingetragen?
Da dürfte es dann beim Debuggen so einige Hinweise geben.

Na, egal. Vermutlich steht dein Bemerkungsfeld in der Tabelle auf "Leere Zeichenfolge Nein". Entweder nimmst du das da raus oder besser, du regelst das im Code:
Code:

EBemerk = Nz(Me.Text52, "keine")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann hast du auch gleich einen passenden Eintrag *wink.gif* .

maike

valux1337 · 16. Februar 2016

Alles klar, hat geklappt!

Vielen Dank *Smilie

Office: (Office 2010) Daten aus Formular löschen

Daten aus Formular löschen

Daten aus Formular löschen

Daten aus Formular löschen

Daten aus Formular löschen

Daten aus Formular löschen - Similar Threads - Daten Formular löschen

Formular nur Daten speichern

Wöchentliche Daten in stündliche aufteilen

Datensatz abfragen und Daten ergänzen

Excel VBA aus einem Formular Daten in eine geschlossen Arbeitsmappe zu übertragen

1 Formular aber daten auf 2 Tabellenblätter speichern

Daten in bestimmtes Feld in Access Formular

Daten aus Zellen in Formular-Vorlage einfügen