jhaustein
Goto Top

Access: Anzeige im Formular wird nicht sofort aktualisiert

Hallo Gemeinschaft,

habe in einem Formular einen code, mit dem ich in eine Tabelle den Link zu einem Dokument eintrage
Rufe ich den Code auf, dann bekomme ich eine Eingabemaske mit der ich ein Dokument auswählen kann - das klappt auch
nach Auswahl wird der Link eingetragen - im Formular habe ich eine Checkbox, die das Feld prüft, o ein Dokument hinterleget wurde - leider ist dieses erst aktiv, wenn ich das Formular schliessen und dann nach erneutem öffnen wieder zu diesem DS gehe - wollte es aber gerne so haben, dass die Checkbox gleich nach Auswahl aktiv wird

   
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    ' Einstellen der Eigenschaften des Dialogs  
    fd.AllowMultiSelect = False
    fd.Title = "Wählen Sie ein Dokument zum Hochladen aus"  
    fd.Filters.Clear
    fd.Filters.Add "Alle Dateien", "*.*"  
    fd.Filters.Add "Dokumente", "*.pdf;*.docx;*.xlsx"  
    fd.InitialFileName = "Z:\sn\"  

 ' Wenn der Benutzer eine Datei auswählt, speichern Sie den Dateipfad  
    If fd.Show = True Then
        Dim selectedFilePath As String
        selectedFilePath = fd.SelectedItems(1)
        sFile = selectedFilePath
sFileNew = "Z:\dh\Abtretung\" & Me!id & "_" & Format(Now, "yyyymmddhhnnss") & ".pdf"  
'Name sFile As sFileNew  
Set fso = CreateObject("Scripting.FileSystemObject")  
fso.MoveFile sFile, sFileNew

        ' Speichern des Dateipfades in der Tabelle  
        'Me.DokumentPfad = selectedFilePath  
        Me.tbl_dokument_patient.Form.Recordset.AddNew
        Me.tbl_dokument_patient.Form!idpatient = Me.id
        Me.tbl_dokument_patient.Form!dokument = sFileNew
        Me.tbl_dokument_patient.Form!dokutyp = "Abtretung"  
       ' Me.Dirty = False ' Speichern der Daten in der Datenbank  
    End If
Me.Refresh

Content-ID: 52019532432

Url: https://administrator.de/contentid/52019532432

Ausgedruckt am: 21.11.2024 um 20:11 Uhr

jhaustein
jhaustein 25.05.2024 aktualisiert um 12:31:16 Uhr
Goto Top
ah gefunden

Requery wars


ne leider doch nicht - dann startet das Formular wieder vom Anfang
HansFenner
HansFenner 28.05.2024 um 00:06:40 Uhr
Goto Top
Ist schon ein bisschen spät, aber ich sehe den Code für die Checkbox nicht.

Du musst das programmieren, dass nach einer bestimmten Aktion die Checkbox aktiv angezeigt wird.

Vielleicht reicht es aber auch, wenn du das Recordset, in welchen du mit AddNew was zufügt explizit schliesst. Close und Delete ?

Hab schon lange nicht mehr mit Access gearbeitet und fand's auch nie so prickelnd.