Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
DS anlegen/Ufo aktualisieren
zurück: Recourdsource per VB für ein Endlosformular, alle Werte glei weiter: Registersteuerelement 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
Hard-Die
Von allem ein bisschen...


Verfasst am:
24. Apr 2008, 11:33
Rufname:

DS anlegen/Ufo aktualisieren - DS anlegen/Ufo aktualisieren

Nach oben
       Version: Office 2003

Hallihallöchen,

ich kriegs mal wieder nicht hin und hoffe jemandkann mir helfen...

Ich hab ein simples HF mit einem Textfeld Bezeichnung (basierend auf einer Tab[ Schlüsselspalte + Bezeichnung]) zur Dateneingabe + Button zum Speichern. Dazu kommt ein Ufo mit der Datenblattansicht der Tab.
Ziel ist, wen wunderts das Anlegen neuer Datensätze. Mit dem Speichern per Button soll eine Bestätigung erfolgen, die Ansicht im Ufo aktualisiert werden sowie das Textfeld wieder geleert werden. Ich hab daher folgenden Code auf den Button gelegt:
Code:
    Select Case MsgBox("Wollen Sie die Artikelgruppe wirklich anlegen?", _
                       vbYesNoCancel)
      Case vbYes
        'es wird gespeichert nach Bestätigung und Prüfung
        If IsNull(Me!NeueArtikelgruppeSpeichern) Then
            MsgBox "Bitte geben Sie eine gültige " & _
                   "Artikelgruppenbezeichnung ein!"
            Me!NeueArtikelgruppeSpeichern.SetFocus
            Cancel = False
          Else
            Cancel = True
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , _
                             acMenuVer70
            Forms!For_Artikelgruppen!SubFor_Artikelgruppen.Form.Requery
            Me!Artikelgruppenbezeichnung = " "
       End If
Die noch folgenden Fälle der MsgBox arbeiten korrekt.

Gebe ich nun einen neuen DS ins Textfeld ein, ändert sich immer der letzte bestehende DS der Tabelle anstatt ein neuer angelegt wird. Das Textfeld leert sich wie gefortert. Wenn ich dann allerdings im Ufo scrollen will leert sich der DS dann vollständig - Ich vermute das leere Textfeld wird dann in die Tab aktualisiert.
Hat jemand ne Idee wo mein Fehler liegen könnte.

Gruß und schon mal Danke
Hard-Die
Marmeladenglas
komme zurecht


Verfasst am:
24. Apr 2008, 12:03
Rufname:

AW: DS anlegen/Ufo aktualisieren - AW: DS anlegen/Ufo aktualisieren

Nach oben
       Version: Office 2003

ich seh in deinem Code nirgends die Neuanlage eines DS, sondern nur das Überschreiben eines bestehenden, wie du es auch schilderst.
Dein Textfeld sollte ungebunden sein. Du könntest z.b. dann über eine SQL-Anweisung den neuen WErt des Textfeldes in die Tabelle anfügen lassen.
Code:
    Dim strSQL As String
   
    strSQL = "INSERT INTO tbl_xy (DeinFeld) " & _
             "VALUES ('" & Me!DeinTextfeld & "');"
    CurrentDb.Execute strSQL, 128
oder du arbeitest anstelle des Buttons über das Ereignis NotInList:
Dein Textfeld als ungebundenes Kombifeld abändern, als Rowsource die Tabelle. Das Ereignis NotInList dient dazu deinen Code unterzubringen mit entsprechender Neuanalge eines DS über obigen Code.
Nur wenn du deine DS eh schon im Unterformular zur Ansicht gelistet hast, warum schreibst du den neuen DS nicht einfach in das UFO, sondern gehst über den umständlichen Weg ein Textfeld im Hauptformular auszulesen ? Smile
Dient dein Hauptformular lediglich dazu dein Textfeld aufzunehmen ? oder ist da noch mehr dahinter ?
Hard-Die
Von allem ein bisschen...


Verfasst am:
24. Apr 2008, 13:12
Rufname:


AW: DS anlegen/Ufo aktualisieren - AW: DS anlegen/Ufo aktualisieren

Nach oben
       Version: Office 2003

Hallo Marmeladenglas,

vielen Dank für deine Antwort. Offensichtlich hab ich bisher die Zeile
Code:
            DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , _
                             acMenuVer70
falsch intrepretiert. Bei deinem Lösungvorschlag kam immer die Meldung "Objekt erforderlich". Allerdings kann es auch an meiner Felddeklaration gelegen haben. Hab es daher mit
Code:
            DoCmd.GoToRecord , , acNewRec
probiert und es funktioniert.

Gruß
Hard-Die
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: Beziehungen anlegen 7 sk42 1136 24. Jan 2008, 23:51
sk42 Beziehungen anlegen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten mit Abfrage aktualisieren oder einfügen 1 Matthias182 929 28. Dez 2007, 21:32
stpimi Daten mit Abfrage aktualisieren oder einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Excel aktualisieren 0 MagixG23 306 19. Nov 2007, 17:56
MagixG23 Daten aus Excel aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aktualisieren 1 dpinart 526 24. Sep 2007, 16:01
JörgG Abfrage aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: tabelle aktualisieren? 0 thorsten1896 421 06. Sep 2007, 11:24
thorsten1896 tabelle aktualisieren?
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenverknüpfung automatisch aktualisieren 2 dior 3689 21. Aug 2007, 19:22
dior Tabellenverknüpfung automatisch aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: aktualisieren einer externen verknüpften Tabelle 4 die susi 516 27. Jun 2007, 14:26
sulü aktualisieren einer externen verknüpften Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: mehrere Unterformulare aktualisieren 1 leo-leipzig 822 13. Apr 2007, 07:20
blicki mehrere Unterformulare aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenerstellungsabfrage aktualisieren 11 Jürgen_NMS 1536 26. Okt 2006, 12:02
Jürgen_NMS Tabellenerstellungsabfrage aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Feld aktualisieren 2 FraMat 830 04. Okt 2006, 11:44
FraMat Feld aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen aktualisieren 2 jeep_66 1033 18. Sep 2006, 18:18
jeep_66 Tabellen aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Textdatei(en) automatisch anlegen und per "klick" 0 BuffyDamion 835 05. Sep 2006, 12:38
BuffyDamion Textdatei(en) automatisch anlegen und per "klick"
 

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