Access und VBA Problem

Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.

lonestar

Senior Member

Access und VBA Problem

jeudi 8 novembre 2007, 23:02

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

jeudi 8 novembre 2007, 23:16

Was ich bisher an code gefunden habe ist folgendes:

Code source

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

vendredi 9 novembre 2007, 14:45

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

samedi 10 novembre 2007, 00:11

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:

Code source

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

samedi 10 novembre 2007, 01:08

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

samedi 10 novembre 2007, 02:02

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

samedi 10 novembre 2007, 02:14

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

samedi 10 novembre 2007, 02:28

Seaslug you made my day !

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

DANKE !!