• 20.07.2025, 12:13
  • Register
  • Login

  • You are not logged in.

 

Access und VBA Problem

lonestar

Senior Member

Access und VBA Problem

Thursday, November 8th 2007, 11:02pm

Hallo allerseits...

ich möchte folgende Funktion in MS Access realisieren:

Ein leeres Textfeld soll angeklickt werden, dann soll man per Datei-Dialog eine Datei auf der Festplatte auswählen können, die dann in der Datenbank als Verknüpfung abgelegt wird.

Also ein Pfad wie c:\daten\xyz\dokument.pdf

Hat jemand einen Tipp für mich, wie ich sowas am leichtesten in VBA programmiere?



Ich würde jetzt einfach mal ein paar Variablen deklarieren und dann weiss ich nicht weiter...

lonestar

Senior Member

Re: Access und VBA Problem

Thursday, November 8th 2007, 11:16pm

Was ich bisher an code gefunden habe ist folgendes:

Source code

 
1
2
3
4
5
6
7
8

Dim fileName As String

fileName = Application.GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])

If fileName <> "Falsch" Then
'.... weiter führender Code ....

End If

seaslug

Senior Member

Re: Access und VBA Problem

Friday, November 9th 2007, 2:45pm

hi,

brauchst du gar nicht so umständlich machen.
nutze den "OpenSaveDialog" aus commondialog (ActiveX-control).

gruß seaslug

lonestar

Senior Member

Re: Access und VBA Problem

Saturday, November 10th 2007, 12:11am

danke dir !

Ich habe mittlerweile ein Modul für den Datei-Explorer gefunden und es läuft. Ich kann jetzt den Pfad einer beliebigen Date in eine Variable übergeben.

Mir fehlt jetzt nur noch der code, um die variable an die entsprechende Stelle in der Datenbank zu schreiben...

Das habe ich jetzt:

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Private Sub newRecord_Click()
On Error GoTo Err_newRecord_Click

    
    DoCmd.GoToRecord , , acNewRec
    
    
Dim pfad As String
Dim db As Database
Dim RS As Recordset
Dim SQL As String

pfad = DateiOeffnen("C:Eigene Dateien", "Datei öffnen")

' pfad in Tabelle schreiben
Set db = CurrentDb
    ' SQL-Anweisung als String
    SQL = "SELECT * FROM Dateien"
    ' Die SQL-Anweisung ausführen lassen
    Set RS = db.OpenRecordset(SQL)
    RS.AddNew
    RS![Dateiname] = [pfad]
    'RS![SchoolID] =
    'RS.Update

End Sub

seaslug

Senior Member

Re: Access und VBA Problem

Saturday, November 10th 2007, 1:08am

hi,

hast du ein gebundenes formular, wo deine daten reingeschrieben werden sollen?

sonst verstehe ich das
DoCmd.GoToRecord , , acNewRec
nicht.

oder möchtest du eine tabelle öffnen, neuen ds und deine daten direkt schreiben?


gruß seaslug

lonestar

Senior Member

Re: Access und VBA Problem

Saturday, November 10th 2007, 2:02am

Genau, ich will an entsprechender Stelle den Inhalt der Variable pfad in die Tabelle schreiben.

Ich habe dazu ein Formular erstellt und es wird auch das Ziel-Feld angezeigt. Ich will einfach nur dass der pfad genau da reingeschrieben wird...

Dazu muss ich doch die SQL Anweisung entsprechend anpassen oder?

seaslug

Senior Member

Re: Access und VBA Problem

Saturday, November 10th 2007, 2:14am

hi,

dann mach doch eine schaltfläche "beim klicken", oder das ereignis "beim verlassen" des jeweiligen obejektes:

on error resume next

Me![NAME_DES_FELDES_WO_GESPEICHERT_WEREN_SOLL]=DateiOeffnen("C:Eigene Dateien", "Datei öffnen")

gruß seaslug

lonestar

Senior Member

Re: Access und VBA Problem

Saturday, November 10th 2007, 2:28am

Seaslug you made my day !

Ich brüte über dem Problem jetzt schon seit drei Nächten ;-)


DANKE !!