Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datensatz wird nicht gespeichert
zurück: Animation der Befehlsschaltflächen mein Mouse Over weiter: Suchfeld im Formular zeigt Daten nicht an 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
matthpi
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. März 2007, 15:55
Rufname:

Datensatz wird nicht gespeichert - Datensatz wird nicht gespeichert

Nach oben
       Version: Office 2003

Es ist schwer eine geeignete Überschrift zu finden daher die etwas profane Sad

Also ich habe folgende Funktion, die mir per Click ein PDF Hyperlink in ein Textfeld schreiben sol (gleiches Problem tritt aber bei einer anderen Funktion auch auf).
Code:
Private Sub AddPDF_Click()
On Error GoTo Fehler
    Dim wzhwndOwner As Long, wzAppName As String, wzDlgTitle As String
    Dim wzOpenTitle As String, wzFile As String, wzInitialDir As String
    Dim wzFilter As String, wzFilterIndex As Long, wzView As Long
    Dim wzflags As Long, wzfOpen As Boolean, ret As Long
    Dim actRS As Integer
    Dim rs As Object
   
    WizHook.Key = 51488399
    wzhwndOwner = 0&
    wzAppName = ""
    wzDlgTitle = "Add an PDF File"
    wzOpenTitle = "Add PDF"
    wzFile = String(255, Chr(0))
    wzInitialDir = "D:\xjfjem\PDF"
    wzFilter = "PDF Files " & "(*.pdf)"
    wzFilterIndex = 1
    wzView = 1
    wzflags = 64
    wzfOpen = True
    ret = WizHook.GetFileName(wzhwndOwner, wzAppName, wzDlgTitle, _
                              wzOpenTitle, wzFile, wzInitialDir, wzFilter, _
                              wzFilterIndex, wzView, wzflags, wzfOpen)
    If ret <> -302 Then
        Add_Pdf wzFile, Me![NumberID]
        actRS = Form![NumberID]
        Me.Requery
        Set rs = Me.RecordsetClone
        rs.FindFirst "[NumberID] = " & actRS
        Me.Bookmark = rs.Bookmark
    End If
Ende:
    Set rs = Nothing
    Exit Sub
Fehler:
    Reset
    MsgBox Err.Description
    Resume Ende
End Sub
Die Add_PDF Funktion steckt in einem Modul und sieht do aus:
Code:
Sub Add_Pdf(wzFileName, Optional pos As Variant)
On Error GoTo Fehler
    Dim rs As DAO.Recordset
   
    Set rs = CurrentDb.OpenRecordset("tblPatentdatenbank", dbOpenDynaset)
    'MsgBox (pos)
    If IsMissing(pos) Then
        rs.AddNew
      Else
        rs.FindFirst "[NumberID]=" & pos
        rs.Edit
    End If
    rs("PDF") = wzFileName & "#" & wzFileName & "#"
    'MsgBox (rs("PDF"))
    rs.Update
    'MsgBox (rs("PDF"))
    rs.Close
Ende:
    Set rs = Nothing
    Exit Sub
Fehler:
    Reset
    MsgBox Err.Description
    Resume Ende
End Sub
Über eine Messagebox habe ich mir den Wert meines [PDF] Feldes in meiner Tabelle ausgeben lassen und er stimmt auch. Sobald aber der Datensatz geschlossen wird und ich ein Requery ausführe, schreibt er den Wert des PDF Feldes in den ersten Datensatz und nicht in meinen gerade bearbeiteten, obwohl der Datensatz eigentlich schon wieder geschlossen sein sollte. Das macht er aber nur wenn ich den Datensatz nicht vorher per Hand (oder per DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70) speichere. Sobald der Datensatz gespeichert ist, funktioniert die Funktion.

NumberID ist mein Primärschlüssel der auf Autowert steht. Und auch einen Wert besitzt. Kann jemand den Fehler finden?
Nouba
nicht ganz unwissend :)


Verfasst am:
08. März 2007, 19:54
Rufname:
Wohnort: Berlin


AW: Datensatz wird nicht gespeichert - AW: Datensatz wird nicht gespeichert

Nach oben
       Version: Office 2003

Hallo,

dann speichere doch den im Formular eventuell bearbeiteten Datensatz vorher mit If Me.Dirty Then Me.Dirty = False ab oder verwende das Clone-Objekt des Recordsets, um die Daten zu schreiben.

_________________
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.
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: Neuer Datensatz trotz aktivem Filter 2 pukamon 595 17. Nov 2005, 10:48
pukamon Neuer Datensatz trotz aktivem Filter
Keine neuen Beiträge Access Tabellen & Abfragen: Neuer Datensatz in Access 6 Heinz-Erich 1220 02. Okt 2005, 20:09
Gast Neuer Datensatz in Access
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz Filtern 6 sandrobz 1041 25. Aug 2005, 20:34
sandrobz Datensatz Filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz zu groß 0 m84mm 1151 16. Aug 2005, 12:22
m84mm Datensatz zu groß
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld, automatisch erster Datensatz markieren 1 Gast 2958 21. Jun 2005, 11:54
rita2008 Listenfeld, automatisch erster Datensatz markieren
Keine neuen Beiträge Access Tabellen & Abfragen: Kreuztabellenabfrage mit fehlendem Datensatz 0 Grysu 914 11. Jun 2005, 15:56
Grysu Kreuztabellenabfrage mit fehlendem Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Reduzierung mehrerer Datensätze auf einen Datensatz 2 Pulldown 819 03. Jun 2005, 09:32
Pulldown Reduzierung mehrerer Datensätze auf einen Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügeabfrage soll nur einen Datensatz verschieben 2 Quamsman 1025 08. März 2005, 15:23
Quamsman Anfügeabfrage soll nur einen Datensatz verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: Kombinierte Abfrage (Datensatz mit neuestem Datum) 16 Gelezun 2163 05. Feb 2005, 19:53
Gelezun Kombinierte Abfrage (Datensatz mit neuestem Datum)
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz einfügen 4 Gast 1050 31. Dez 2004, 18:11
mapet Datensatz einfügen
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: CurrentUser() in neuen Datensatz eintragen 2 mafke 924 16. Aug 2004, 15:49
mafke CurrentUser() in neuen Datensatz eintragen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project