Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Einfügen, wenn Bedingung erfüllt
zurück: Listenfeld weiter: Variable in VBA-Code einbinden 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
Barni
von alles a bisl^^


Verfasst am:
30. März 2007, 12:00
Rufname:

Einfügen, wenn Bedingung erfüllt - Einfügen, wenn Bedingung erfüllt

Nach oben
       Version: Office XP (2002)

Hallo zusammen,

ich habe wieder mal ein Problem^^ Ich habe eine ID, die man verwendet. Wenn diese ID, das erste mal eingegeben wird, soll sie gleichzeitig in eine andere Tabelle geschrieben werden zusätzlich.

Daher überprüfe ich nur, ob diese ID in der zusätzlichen Tabelle steht. Wenn nicht, soll er einen Datensatz anfügen. Wie ich das gelöst habe hier....
Code:
    If Not rs.BOF Then
        rs.FindFirst "Segmente Like " & ID
        If rs.EOF Then
            rs.AddNew
            rs!ID = ID
            rs.Update
            MsgBox "Neue ID wurde eingetragen", vbOKOnly, _
                   "Datenbankinformation"
        End If
    End If
Allerdings wird die Bedingung nie erfüllt, die EOF......selbst wenn gar nix in der Tabelle steht. Was mach ich da falsch? :-/

Würde mich über Hilfe freuen. Smile

_________________
mit vielen Grüßen
Barni
JoachimK
Einsteiger


Verfasst am:
30. März 2007, 12:40
Rufname:
Wohnort: Gomaringen


AW: Einfügen, wenn Bedingung erfüllt - AW: Einfügen, wenn Bedingung erfüllt

Nach oben
       Version: Office XP (2002)

Hallo Barni,

ich versuch mal kurz eine mögliche Alternative anzubieten (denn in 15min bin ich im Urlaub^^).
Erstmal, Dein Recordset basiert auf einem Dynaset oder einemSnapshot, oder?
Denn die Find-Methoden lassen sich meines wissens nach nicht bei Tabellen anwenden.

Dann verstehe ich ausserdem den Aufbau Deines Code nicht ganz, könnte aber daran liegen, dass mein Hirn schon im Wochenende ist.

Ich schreib daher einfach mal, wie ich das aufbauen würde (vorrausgesetzt ich habe Dein Problem richtig verstanden Wink ).
Code:
    '...
    rs.MoveFirst
    Do While rs.EOF = False
        If rs!Segmente = ID Then
            GoTo Gefunden
          Else
            rs.MoveNext
        End If
    Loop
    If rs.EOF = True And rs!Segmente <> ID Then
        rs.AddNew
        rs!ID = ID
        rs.Update
        MsgBox "Neue ID wurde eingetragen", vbOKOnly, "Datenbankinformation"
    End If
Gefunden:
    '...
Naja, dies mak als spontanen Vorschlag. Bin mir sicher, dass es schönere Lösungen gibt, aber diese könnte meiner Meinung nach auch funktionieren.
Für Syntax lege ich meine hand jedoch nicht ins Feuer! (Wie gesagt, ich bin eigentlich schon im Urlaub!)

Hoffe ich konnte Dir eine Grundlage zum tüffteln bieten

Gruß Joachim
Willi Wipp
Moderator


Verfasst am:
30. März 2007, 13:06
Rufname:
Wohnort: Raum Wiesbaden

Re: Einfügen, wenn Bedingung erfüllt - Re: Einfügen, wenn Bedingung erfüllt

Nach oben
       Version: Office XP (2002)

Hi Barni,

oder auch so
Code:
        rs.FindFirst "Segmente = " & ID
        If rs.NoMatch Then

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Barni
von alles a bisl^^


Verfasst am:
03. Apr 2007, 10:10
Rufname:


AW: Einfügen, wenn Bedingung erfüllt - AW: Einfügen, wenn Bedingung erfüllt

Nach oben
       Version: Office XP (2002)

Ah, Super, jetzt gehts endlich wie es soll Smile

Danke! Very Happy

_________________
mit vielen Grüßen
Barni
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: Bedingung mit mehreren Kontrollkästchen 2 sambagold 896 03. Jan 2007, 16:49
sambagold Bedingung mit mehreren Kontrollkästchen
Keine neuen Beiträge Access Tabellen & Abfragen: Autowert aktuelles Jahr in Tabelle einfügen 2 AndreM 1712 19. Dez 2006, 20:27
AndreM Autowert aktuelles Jahr in Tabelle einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus 2 Tabelle Vergleichen in einer Abfrage einfügen 0 Petermann 1005 10. Dez 2006, 04:30
Petermann Werte aus 2 Tabelle Vergleichen in einer Abfrage einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Unterdatenblatt einfügen - warum - hilfe 2 sbmiles21 2421 26. Sep 2006, 14:05
sbmiles21 Unterdatenblatt einfügen - warum - hilfe
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung in Abfrage? 2 Sir Toby 599 31. Aug 2006, 13:44
Gast Bedingung in Abfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: Automatischer Zähler in Word einfügen 1 SMP 4000 4330 18. Aug 2006, 16:52
Gast Automatischer Zähler in Word einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung zum anzeigen 1 Krawak 495 17. Mai 2006, 14:09
Gast Bedingung zum anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung an Unterabfrage knüpfen 2 florianm 806 04. Apr 2006, 15:24
florianm Bedingung an Unterabfrage knüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Problem beim einfügen in bestehende Tabelle 1 Gast 890 17. März 2006, 10:07
stpimi Problem beim einfügen in bestehende Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Datum automatisch einfügen 5 UPPsycho 898 09. März 2006, 20:58
jens05 Datum automatisch einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze in Tabelle kopieren und einfügen 3 Menzek 3924 10. Feb 2006, 11:48
lothi Datensätze in Tabelle kopieren und einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingung in Abfrage 1 hafisch 1101 23. Sep 2005, 13:17
Dalmatinchen Bedingung in Abfrage
 

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