Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
selektierten Eintrag aus ListBox entfernen
zurück: Details in einem Formular ein/ausblenden wie in Abfrage +/- weiter: Benutzung von Felder einer Abfrage Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Zeittotschlaeger
Gast


Verfasst am:
20. Okt 2006, 06:06
Rufname:

selektierten Eintrag aus ListBox entfernen - selektierten Eintrag aus ListBox entfernen

Nach oben
       Version: Office XP (2002)

Hallo alle,

in meiner ListBox stehen die Einträge
Code:
SELECT CodeNo, CodeID, CodeDescription, CodePrice
FROM   tblCalc;
Über einen Button möchte ich eine einzelne Zeile löschen, aus der ListBox und aus tblCalc.

Der Button Change funktioniert schon ganz gut:
Code:
Private Sub btnCodeChange_Click()
On Error GoTo Err_btnCodeChange_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stDocName = "frmCodesSee"
    stLinkCriteria = "[CodeID]=" & Me![lstCodes]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_btnCodeChange_Click:
    Exit Sub
Err_btnCodeChange_Click:
    MsgBox "Please select entry above first!"
    Resume Exit_btnCodeChange_Click
End Sub
Mag mir jemand sagen, wie ich den Lösch-Button hinbekomme?
Willi Wipp
Moderator


Verfasst am:
20. Okt 2006, 09:02
Rufname:
Wohnort: Raum Wiesbaden

Re: selektierten Eintrag aus ListBox entfernen - Re: selektierten Eintrag aus ListBox entfernen

Nach oben
       Version: Office XP (2002)

Hi Zeittotschlaeger,

wie waere es denn so
Code:
Private Sub btnCodeDelete_Click()
On Error GoTo Err_btnCodeDelete_Click
    Dim strSQL  As String
   
    If Nz(Me!lstCodes, 0) = 0 Then                      'Kein Eintrag markiert
        MsgBox "Please select entry above first!"
        Me!lstCodes.SetFocus
      Else                                               'Ein Eintrag markiert
        If MsgBox("Do oyu really want to delete the entry '" & _
                  Me!lstCodes.Column(2) & "'?", vbYesNo) = vbYes Then
            strSQL = "DELETE * FROM tblCalc " & _
                      "WHERE CodeID=" & Me!lstCodes
            DBEngine(0)(0).Execute strSQL, dbFailOnError
            Me!lstCodes.Requery
            MsgBox "Entry deleted!", vbExclamation
          Else
            MsgBox "Entry not deleted!", vbExclamation
        End If
    End If
Exit_btnCodeDelete_Click:
    Exit Sub
Err_btnCodeDelete_Click:
    MsgBox "Fehler (" & Err.number & "): '" & Err.Description & "'"
    Resume Exit_btnCodeChange_Click
End Sub
Eventuell solltest Du auch die "allgemeine" Fehlerbehandlung im anderen Code so umstellen Wink
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Zeittotschlaeger
Gast


Verfasst am:
30. Okt 2006, 10:58
Rufname:


AW: selektierten Eintrag aus ListBox entfernen - AW: selektierten Eintrag aus ListBox entfernen

Nach oben
       Version: Office XP (2002)

Funktioniert wie zu erwarten war tatsaechlich.
Nur dass er bei keiner Selektion auch die Meldung bringt, er haette was erfolgreich geloescht.

Jetzt muss ich da mal einige Stunden weiterschauen, wie das jetzt weiter funktionieren soll mit den Tabellen.

Vielen Dank erstmal hierfür!
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: CR aus String entfernen 6 Gast 2327 09. Dez 2009, 14:46
Gast CR aus String entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Leerzeichen in Tabelle entfernen 2 adular 1520 01. Jul 2009, 10:17
adular Leerzeichen in Tabelle entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Nur Datensätze mit 6-stelligem Eintrag anzeigen 3 Marc.Nicolai 192 02. Feb 2009, 18:28
KlausMz Abfrage: Nur Datensätze mit 6-stelligem Eintrag anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Eintrag 8 von 10 Tage in Liste ausgeben lassen 0 eXplicit 397 04. Nov 2008, 08:52
eXplicit Abfrage: Eintrag 8 von 10 Tage in Liste ausgeben lassen
Keine neuen Beiträge Access Tabellen & Abfragen: aus 2 Tabellen eine machen, und doppelte Sätze entfernen 4 Fabian Meiner 1509 22. Sep 2008, 14:17
Fabian Meiner aus 2 Tabellen eine machen, und doppelte Sätze entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Doppelter Eintrag (PLZ) in einer DB ? 2 sure 393 17. Sep 2008, 09:07
Gast Doppelter Eintrag (PLZ) in einer DB ?
Keine neuen Beiträge Access Tabellen & Abfragen: Beim Löschen weitere Datensätze ebenfalls entfernen 6 Gast 300 10. Sep 2008, 13:05
Gast Beim Löschen weitere Datensätze ebenfalls entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Memofeld auf eintrag prüfen 2 Mella 86 812 12. Aug 2008, 09:14
Mella 86 Memofeld auf eintrag prüfen
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere Werte aus Listbox als Kriterium für eine Abfrage ? 4 besserist 1714 17. Jun 2008, 20:28
besserist Mehrere Werte aus Listbox als Kriterium für eine Abfrage ?
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfragen entfernen 5 Kathrin_bcn 1134 15. Apr 2008, 16:39
Kathrin_bcn Parameterabfragen entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Tabellen vergleichen und doppelte entfernen 3 idontknow 604 14. Nov 2007, 12:51
Nouba 2 Tabellen vergleichen und doppelte entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Kombinationsfeld ohne Eintrag soll Ereignis hervorrufen 3 Bullett 611 21. Jul 2007, 14:23
rita2008 Kombinationsfeld ohne Eintrag soll Ereignis hervorrufen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver