Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Löschen mit bedingung
Gehe zu Seite Zurück  1, 2
zurück: Suchfunktion weiter: anfängerfragen - datenblattansicht 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
sib
Gast


Verfasst am:
15. Aug 2007, 18:08
Rufname:

AW: Löschen mit bedingung - AW: Löschen mit bedingung

Nach oben
       Version: Office 2003

Hmm ne andersrum,
Detailtabelle: TB_Lehrgang, Verknüpfungsfeld = LehrgangsartNRFS
Basistabelle: TB_Lehrgangsart, ID = LehrgangsNR

Ich hab das ganze jetzt mal anders gelöst. Es funktioniert auch. *freu*
Könnt mir ja sagen ob das ok so ist oder ob es nicht optimal ist es so zu machen.

Achja war grad etwas faul hab jetzt die Zeilenumbrüche nicht in _ & geändert. ;)
Code:
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb()
   'Abfrage ob es zu der aktuellen Lehrgangsart noch Lehrgänge gibt,
   'Anzahl der Lehrgänge mit der Lehrgangsart
    Set rs = db.OpenRecordset("SELECT Count(*) as anzahl " & _
                                "FROM TB_Lehrgang " & _
                               "WHERE LehrgangsartNrFS=" & Me!LehrgangsartNR)
    rs.MoveFirst
    If Not rs.EOF Then
        'Wenn es mindestens einen gibt darf nicht gelöscht werden
        If rs![anzahl] >= 1 Then
            MsgBox "Löschen ist nicht möglich!" & vbCrLf & _
                   "Es sind noch Lehrgänge mit dieser Lehrgangsart vorhanden!"
        End If
        'Wenn keine Datensätze vorhanden sind darf gelöscht werden
        If rs![anzahl] = 0 Then
            DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        End If
        rs.Close
    End If
Achja ich habe den Standard Löschen Code von MS Access genommen und kann mir da anbei gleich jemand sagen wo da der Unterschied zwischen 8 und 6 ist. Smile

Ich weiß nur das die 8 für das Löschen benutzt wird, die 6 erschließt sich mir nicht.
Code:
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Oder sollte ich vielleicht selber die Löschen Routine schreiben?
JörgG
Access-Team


Verfasst am:
15. Aug 2007, 20:53
Rufname:
Wohnort: b. Dresden

AW: Löschen mit bedingung - AW: Löschen mit bedingung

Nach oben
       Version: Office 2003

Hallo,

verwende möglichst keine Menübefehle, wird die Menüleiste ausgeblendet funktionieren diese nicht mehr.
Code:
    If Not rs.EOF Then
        If rs!anzahl = 0 Then 'Wenn keine Datensätze vorhanden sind darf gelöscht werden
            CurrentDb.Execute "DELETE * " & _
                                "FROM TB_Lehrgangsart " & _
                               "WHERE LehrgangsartNr = " & Me!LehrgangsartNR, _
                              dbFailOnError
          Else 'Wenn es mindestens einen gibt darf nicht gelöscht werden
            MsgBox "Löschen ist nicht möglich!" & vbCrLf & _
                   "Es sind noch Lehrgänge mit dieser Lehrgangsart vorhanden!"
        End If
        rs.Close
    End If

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Willi Wipp
Moderator


Verfasst am:
15. Aug 2007, 23:51
Rufname:
Wohnort: Raum Wiesbaden


Re: Löschen mit bedingung - Re: Löschen mit bedingung

Nach oben
       Version: Office 2003

Hi Ihr Zwei,

Hier noch 2 andere Varianten zum Loeschen Wink
Code:
            Me.Recordset.Delete
' oder wenn Menueleiste verfuegbar!
            DoCmd.RunCommand acCmdDeleteRecord

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
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: Tabellenvergleich | Gleiche Datensätze löschen 0 Daikon 979 29. Nov 2005, 13:50
Daikon Tabellenvergleich | Gleiche Datensätze löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung in Abfrage 1 hafisch 1101 23. Sep 2005, 13:17
Dalmatinchen Bedingung in Abfrage
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: SQL : Datenbank löschen 1 cfl2si 7440 23. März 2005, 12:30
Willi Wipp SQL : Datenbank 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: Wenn Bedingung 1 DB_User 500 15. Jan 2005, 16:18
MirkoK Wenn Bedingung
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: Summieren von Werten in Abfrage bei Bedingung 1 SamSamSam 574 06. Jan 2005, 23:09
reke Summieren von Werten in Abfrage bei Bedingung
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
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum