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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 52019532432
Url: https://administrator.de/contentid/52019532432
Ausgedruckt am: 21.11.2024 um 20:11 Uhr
2 Kommentare
Neuester Kommentar
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.
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.