Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Liste zum Löschen von Datensätzen verwenden
zurück: Datenblattansicht und ein paar Probleme weiter: filter endlosformular 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
Gast



Verfasst am:
20. Jul 2010, 10:43
Rufname:

Liste zum Löschen von Datensätzen verwenden - Liste zum Löschen von Datensätzen verwenden

Nach oben
       Version: Office 2003

Einen guten Tag wünsche ich,

ich habe ein Problem mit einer Access Datenbank.

Ich möchte gern mit hilfe eines Listenfeldes, in einem Formular, alle Datensätze anzeigen und das beim Klick auf den entsprechenden Eintrag dieser Datensatz gelöscht wird.

Die Formatierung der Liste ist Folgende:

Arbeitsplatz_________Kennzahl__________Inhalt

Job 1_____________ABC-CC-123_________BlaBla
Job 1_____________ABC-CC-234_________BlaBla
Job 1_____________ABC-CC-345_________BlaBla
Job 2_____________ABC-CC-123_________BlaBla
Job 3_____________ABC-CC-345_________BlaBla

Wichtig ist hier nun, das die Kennzahlen mehreren Jobs zugeordnet sein können, aber nur die des entsprechenden Jobs, der ausgewählt wird, gelöscht werden soll.

Über FindFirst ist es ja kein Problem den ersten Datensatz auszufiltern, der die Kennzahl enthält. Aber wie bringe ich ihm nun bei, das auch der Job richtig erkannt wird?

In diesem Konkreten Beispiel, ich möchte ABC-CC-123 für Job 2 löschen und klicke es an, nun bekomme ich mit meinem Code natürlich nur ABC-CC-123 für Job 1 zu fassen.

Ich hoffe hier kann mir jemand helfen.

Grüsse,
André

Code:
Private Sub Liste27_Click()

    Dim rs As Object
    Dim Aplatz As String
    Dim Kzahl As String

    Set rs = Me.Recordset.Clone
   
    rs.FindFirst "[Arbeitsplatz] = '" & Me!Liste27.Column(0) & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   
'------------------------ Namen auslesen --------------------------------
       
    Aplatz = Me!Liste27.Column(0)
    Kzahl = Me!Liste27.Column(1)
   
'------------------------ Eingabe überprüfen --------------------------------

    If MsgBox("Der Unterweisung " & Kzahl & " für den Arbeitsplatz " & Aplatz _
    & " soll gelöscht werden." & vbNewLine & vbNewLine & "Ist dies Korrekt?", _
    vbYesNo, "Eingabe überprüfen!") = vbYes Then
       

        rs.Delete
        Me.Requery
               
    Else: Exit Sub
   
    End If

End Sub
Gast



Verfasst am:
20. Jul 2010, 14:32
Rufname:


AW: Liste zum Löschen von Datensätzen verwenden - AW: Liste zum Löschen von Datensätzen verwenden

Nach oben
       Version: Office 2003

wie wäre es wenn du dich beim find first auf den arbeitsplatz UND(via AND) auf die kennziffer beziehst? wie z.b. bei einer filterung?
Salunikki
Neuling


Verfasst am:
20. Jul 2010, 14:43
Rufname:

AW: Liste zum Löschen von Datensätzen verwenden - AW: Liste zum Löschen von Datensätzen verwenden

Nach oben
       Version: Office 2003

Hi!

Ich bin der erste Gast, keine Ahnung warum er meinen Account nicht akzeptiert hat und die Frage als Gast gestellt hat.

Zitat:
wie wäre es wenn du dich beim find first auf den arbeitsplatz UND(via AND) auf die kennziffer beziehst? wie z.b. bei einer filterung?


Du meinst etwa so?

Code:
Private Sub Liste27_Click()

    Dim rs As Object
    Dim Aplatz As String
    Dim Kzahl As String

    Set rs = Me.Recordset.Clone
   
    rs.FindFirst "[Arbeitsplatz] = '" & Me!Liste27.Column(0) & "'" And _
     "[Kennzahl] = '" & Me!Liste27.Column(1) & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   
'------------------------ Namen auslesen --------------------------------
       
    Aplatz = Me!Liste27.Column(0)
    Kzahl = Me!Liste27.Column(1)
   
'------------------------ Eingabe überprüfen --------------------------------

    If MsgBox("Die Unterweisung " & Kzahl & " für den Arbeitsplatz " & Aplatz _
    & " soll gelöscht werden." & vbNewLine & vbNewLine & "Ist dies Korrekt?", _
    vbYesNo, "Eingabe überprüfen!") = vbYes Then
       

        rs.Delete
        Me.Requery
               
    Else: Exit Sub
   
    End If

End Sub


Das hatte ich schon versucht, aber entweder ist der Syntax falsch oder es funktioniert so einfach nicht. Ich bekomme nämlich den Laufzeitfehler '13' "Typen unverträglich".

Gruss,
André
Gast



Verfasst am:
20. Jul 2010, 14:55
Rufname:

AW: Liste zum Löschen von Datensätzen verwenden - AW: Liste zum Löschen von Datensätzen verwenden

Nach oben
       Version: Office 2003

typen unverträglich bezieht sich auf die datentypen der felder! wenn z.b. das eine als integer und das andere als text deklariert ist.

mfg
Gast



Verfasst am:
20. Jul 2010, 15:09
Rufname:

AW: Liste zum Löschen von Datensätzen verwenden - AW: Liste zum Löschen von Datensätzen verwenden

Nach oben
       Version: Office 2003

Hi.

Also es sind alles Strings.

Wenn ich das AND weg lasse und statt dessen zwei mal den rs.FindFirst durchlaufen lasse, einmal für Arbeitsplatz und einmal für Kennzahl, dann läuft er durch.

Ist natürlich sinnlos, aber so kann ich die Funktion wenigstens testen und das scheint so korrekt zu sein.

Gruss,
André
Nouba
nicht ganz unwissend :)


Verfasst am:
20. Jul 2010, 19:23
Rufname:
Wohnort: Berlin

AW: Liste zum Löschen von Datensätzen verwenden - AW: Liste zum Löschen von Datensätzen verwenden

Nach oben
       Version: Office 2003

Hallo,

das And gehört schon mit zum Kriterium: ... & "' And Kennzahl = '" & ...

PS: Warum pflegst Du keinen Primärschlüssel?

_________________
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.
Salunikki
Neuling


Verfasst am:
21. Jul 2010, 07:03
Rufname:


AW: Liste zum Löschen von Datensätzen verwenden - AW: Liste zum Löschen von Datensätzen verwenden

Nach oben
       Version: Office 2003

Hallo,

alles klar, hat funktioniert! Besten Dank!

Zitat:
PS: Warum pflegst Du keinen Primärschlüssel?


Das frag ich mich auch immer mehr!

Grüsse,
André
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: (A03) DS in einer Excel-Tabelle mit Löschabfrage löschen 6 PrinceArthas 794 08. Aug 2005, 00:13
PrinceArthas (A03) DS in einer Excel-Tabelle mit Löschabfrage löschen
Keine neuen Beiträge Access Tabellen & Abfragen: duplikatabfrage, löschen der doppelten datensätze.... 1 nebbio 1489 30. Jan 2005, 16:58
hommy duplikatabfrage, löschen der doppelten datensätze....
Keine neuen Beiträge Access Tabellen & Abfragen: Wert von Kontrollkästchen für Abfrage verwenden? 1 JoHo 1690 21. Jan 2005, 11:41
JoHo Wert von Kontrollkästchen für Abfrage verwenden?
Keine neuen Beiträge Access Tabellen & Abfragen: Spalten in Tabelle löschen wenn ohne Inhalt 7 Zoran 776 14. Jan 2005, 16:33
Skogafoss Spalten in Tabelle löschen wenn ohne Inhalt
Keine neuen Beiträge Access Tabellen & Abfragen: Öffnen von verschiedenen Tabellen aus einer Liste 8 Gast 493 05. Jan 2005, 10:35
Gast Öffnen von verschiedenen Tabellen aus einer Liste
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz löschen und die anderen neu durchnummerieren 16 brauchehilfe@office 5626 20. Okt 2004, 15:34
Willi Wipp Datensatz löschen und die anderen neu durchnummerieren
Keine neuen Beiträge Access Tabellen & Abfragen: Einmalige Datensätze löschen 18 frankkugler 1614 18. Okt 2004, 15:33
frankkugler Einmalige Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Platzhaltern (Wildcards) suchen - **** löschen 1 Gast 1281 12. Okt 2004, 11:40
Skogafoss Nach Platzhaltern (Wildcards) suchen - **** löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelleninhalt löschen 2 Tobi 988 23. Sep 2004, 12:14
Tobi Tabelleninhalt löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Probleme mit Datensätzen in Tabellen 0 Jörg O 403 14. Sep 2004, 12:20
Jörg O Probleme mit Datensätzen in Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Bei"Parameterwert eingeben"Para über Liste auswähl 10 Figo 1008 20. Aug 2004, 12:09
Figo Bei"Parameterwert eingeben"Para über Liste auswähl
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit bestimmter Anzahl von Datensätzen PRO Kategorie 0 olivermk 486 10. Aug 2004, 18:44
olivermk Abfrage mit bestimmter Anzahl von Datensätzen PRO Kategorie
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript