Wie öffne ich in Access 2013 per Button den Dateiexplorer und fülle den Pfad in ein Textfeld?

Das habe ich mit einem VBA Code geschafft, nun ist das Problem, dass ich den Pfad welchen ich im Explorer ausgesucht habe nicht in das Textfeld bekomme... Vielen Dank für eure Hilfe!

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

27.10.2015, 09:22

Lass uns doch deinen VBA-Code sehen...

Hier der 1. Treffer in Google ist bestimmt das was du wolltest.
http://software-solutions-online.com/2014/03/11/excel-vba-open-file-dialog/

Woher ich das weiß:Berufserfahrung – Softwareentewickler / Unternehmensberater bei CSDIT iR

Gnomii

Fragesteller

28.10.2015, 08:59

Vielen Dank! Habe immer gedacht VBA sei schwer darum habe ich diese Vorschläge von Google ignoriert. Aber vielen Dank! :D

Das ist mein VBA Code für das öffnen und einfügen eines Pfades aus dem Explorer

Private Sub cmdBildPfad_Click()Dim intChoice As IntegerDim strPath As String'only allow the user to select one fileApplication.FileDialog(msoFileDialogOpen).AllowMultiSelect = False'make the file dialog visible to the userintChoice = Application.FileDialog(msoFileDialogOpen).Show'determine what choice the user madeIf intChoice <> 0 Then 'get the file path selected by the user strPath = Application.FileDialog( _ msoFileDialogOpen).SelectedItems(1) 'print the file path to sheet 1 LabelEingabe = strPathEnd IfEnd Sub

Herb3472

27.10.2015, 09:29

Vielleicht hilft Dir das hier weiter:

http://www.ms-office-forum.net/forum/showthread.php?t=298704

Ich hab ein Formular und versuche, wenn auf IRGENDEIN Textfeld geklickt wird, ein Makro bzw. Code zu starten. Ich will aber nicht vorher angeben müssen, welche Textfelder das sind und will auch keine 30 onclicks für jedes Textfeld.

Habt ihr ne Idee? Hab schon gegooglet..

...zur Frage

Access - wie kann man per VBA einen Datei-Pfad (PDF-Datei) in ein Hyperlink-Feld schreiben?

Hallo ich habe ein Problem damit einen Pfad (inkl. Dateinamen) in ein Hyperlink-Feld zu schreiben, so dass man die Datei später durch einen einfachen Klick auf das Feld öffnen kann.

    Dim strCurrentSQL As String
    strCurrentSQL = "UPDATE tbl_Bewerbungen " & _
        "SET tbl_Bewerbungen.gedruckt = -1, tbl_Bewerbungen.Anschreiben =  " & Chr(34) & "'" & strTargetFile & "'" & Chr(34) & " " & _
        "WHERE ID = " & varRecordSetID(I) & _
        "AND gedruckt = 0;"
    strRecordSource = Me.RecordSource ' Speichern der Datenbankverbindung in einer Variablen
    Me.RecordSource = "" ' Trennen der Datenbank-Anbindug zur Vermeidung von Schreibkonflikten
    DoCmd.SetWarnings False ' Warnungen abschalten
    DoCmd.RunSQL (strCurrentSQL) ' SQL-Anweisungen zur Aktualisiertung des Druckstatus
    DoCmd.SetWarnings True ' Warnungen wieder aktivieren
    Me.RecordSource = strRecordSource ' Wiederherstellung der Datenbankanbindung

Mein VBA-Code schreibt zwar den Pfad + Dateinamen in das Feld aber man kann später nicht einfach in dem dazugehörigen Formular drauf klicken um die Datei zu öffnen.

Wenn ich im Dateisystem mit Shift und Rechtsklick auf die Datei klicke, um den Pfad zu kopieren und diesen dann von Hand einfüge, dann funktioniert der Link.

Ich vermute es hat etwas mit den Hochkommata zu tun - hat jemand eine Idee was ich falsch mache?

...zur Frage

Wie kann ich in VBA zwei Userformen mit einem Button schließen?

Hi Leute!

Folgendes... Ich habe in meiner UserForm1 einen "Beenden" Button erstellt. Drücke ich diesen öffnet sich meine UserForm2 mit der Frage (Zwei Buttons JA/NEIN) ob ich beide Masken wirklich schließen will. Soweit alles geschafft.

Nun weiß ich nicht was ich nach Private Sub CommandButton2_Click()

eintippen muss damit sich UserForm1 und UserForm2 beide schließen.

Hoffe ihr könnt mir helfen :)

...zur Frage

Kann man aus Access 2010 (oder 2013) eine Email mit Anhang versenden?

Ich habe eine Access-Datenbank die unter anderem eine Tabelle für den Serienbrief erzeugen und Word mit dem Serienbrief öffnen kann.

In Word habe ich ein Addon, dass den Serienbrief in einzelne PDF-Dateien exportiert.

Diese Serien-PDFs würde ich gerne anschließend aus Access heraus als Anhang versenden - die dazugehörigen Email-Adressen, Namen der Ansprechpartner etc. befinden sich schon in einer Tabelle.

Angeblich gibt es wohl eine Möglichkeit aus Access heraus Emails mit MS-Outlook zu versenden versenden. Mein Problem ist jetzt, dass ich nicht weiß wie man in VBA solche Emails versenden kann.

...zur Frage

Excel VBA UserForm schließt sich unabsichtlich?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

...zur Frage

Ubuntu: Festplatte wird erst erkannt, wenn ich sie im Explorer öffne?

Hi,

ich hab zwei SSDs im PC. Auf der einen ist das Betriebssystem, auf der anderen sind Daten. Nun habe ich verschiedene Programme, die auf die Datenfestplatte zugreifen müssen, aber sie tun immer so, als wäre die Festplatte nicht da. Dabei wird sie ja in der Startleiste angezeigt. Erst wenn ich im Dateiexplorer in den media Ordner navigiere und dort auf die Festplatte zugreife, können auch die Programme die Festplatte sehen.

Kann man da was machen, dass ich diesen Schritt nicht jedes Mal gehen muss?

...zur Frage

VBA Textfeld addieren?

Hallo,

ich habe mir in Excel eine Userform erstellt und mit 2 Textfeldern, 1 Beschriftungsfeld und 1 Button. Wenn man den Button clickt soll er die Werte aus den Textfeldern auslesen addieren und in dem Beschriftungsfeld ausgeben.

Hat jemand eine Idee wie ich das machen kann?

...zur Frage

In VBA per Button den Explorer öffnen, um ein beliebiges Bild auszuwählen?

Ich stehe vor einem Rätsel. Ich möchte grad ein Makro in Word erstellen, um Daten einfacher in das Dokument zu übertragen und alles im gleichen Format zu halten. Es handelt sich hierbei um Rezepte. Und bei jedem Rezept gibt es natürlich auch Bilder dazu.

Bevor die Frage kommt: Nein mir is das einfach zu blöd, ständig das Worddokument umzubasteln. Ständig muss ich ein fertiges Rezept nehmen und es mit einem neuen überschreiben und dann doch hoffentlich daran denken, unter einem anderen Namen zu speichern. Außerdem verrutscht ständig irgendein Format.

ich habe bereits ein Makro erstellt, welches sich automatisch mitstartet beim öffnen der Datei. Auch habe ich schon dafür gesorgt, dass textmarken per buttonklick eingefügt werden (Weil diese dummen dinger ja nach schließen des Worddokuments verschwinden)

Ich habe auch schon eine Textmarke für das Bild. Im Internet habe ich gesucht und gesucht aber ich finde nur Code, in welchen ich schon einen festen Pfad integriere. Ich kann also per Code nur ein bestimmtes Bild einfügen. Nun hätte ich aber per Knopfdruck gerne, dass sich der Explorer öffnet und ich ein Bild aussuchen kann, welches eingefügt werden soll. Eben so wie wenn ich über "Einfügen -> Bild" gehe.

Ist das möglich?

...zur Frage

Aus ACCESS Tabelle einen bestimmten Wert in ein Formular Textfeld laden?

Guten Tag, ich habe mal wieder eine Frage zu ACCESS.

Ich habe dort ein Formular, dieses Formular hat ein Textfeld in dem man ein Datum eingibt. Das Datum wurde bisher immer manuell eingegeben (immer das Datum, an dem das Formular das letzte mal aufgerufen wurde). Da es sehr umständlich ist, wollte ich das jetzt automatisch in das Textfeld laden.

Ich habe als erstes eine neue Tabelle angelegt mit dem Namen Zeitraum. In dieser befindet sich nur eine Spalte, nämlich Datum. zu dieser Spalte gibt es auch immer nur einen Eintrag, nämlich das aktuelle Datum. Dann habe ich einen Button am Formular angebracht, mit dem man dieses am Ende beenden soll. Klickt man darauf wird das Datum in der Tabelle aktualisier: (funktioniert)

    Dim db As DAO.Database
    Dim tb1 As DAO.Recordset

    Set db = CurrentDb
    Set tb1 = db.OpenRecordset("Zeitraum", dbOpenTable)
    If tb1.Updatable Then
        tb1.MoveFirst
        tb1.Edit
        tb1!Datum = Date
        tb1.Update
    End If
   
    tb1.Close
    db.Close
    Set tb1 = Nothing
    Set db = Nothing
       
    DoCmd.Save
    DoCmd.Quit

Nur wie bekomme ich jetzt das Datum in das Textfeld, jedesmal wenn ich das Formular neu öffne?

Ich habe beispielsweise schon versucht folgendes in das Textfeld zu schreiben

=[Zeitraum]![Datum]

Aber das ging nicht.

Ich hoffe mir kann jemand weiterhelfen oder mir einen Tipp geben.

...zur Frage

Nettorechner mit userform in vba?

sorry, ich hab zu viele Fragen und bin leider ein VBA-noob, muss aber ein wenig Vorarbeiten, da ich teile vom Kurs verpasse...

aufgabenstellung: einen nettorechner mit userform in vba(excel) erstellen. Ein Textfeld für den bruttowert, ein Beschriftungsfeld für das Ergebnis, ein Button zum Start der Rechnung! Der Prozentwert soll fix sein mit 20%! Anbei auch ein foto

vielen Dank schon jetzt

...zur Frage

Excel Userform in Tabelle übertragen?

Hallo,

bei meiner Excel Tabelle rufe ich mittels meinem Command Button 1 die UserForm1 auf.

Dabei habe ich eine Comobox und Textfelder 1-4 welche ich auf meine Excel Tabelle eintragen muss.

Comobox = Spalte B
Textfeld 1 = Spalte C
Textfeld 2 = Spalte D
Textfeld 3 = Spalte E
Textfeld 4 = Spalte F

Zuletzt wird alles mittels einem Safe Button gespeichert, oder kann auch mit einem Quit Button abgebrochen werden.

Ich bin ziemlicher Anfänger was das VBA Programmieren angeht, kann mir jemand helfen?

Danke im Voraus

...zur Frage

Excel vba Befehl für "Speichern" Button?

Hallo :)

ich arbeite gerade an einer Excel Tabelle, bei der ich etwas in das Formular eingebe und der Inhalt dann via Speichern-Button in Tabellenblatt 2 automatisch in eine Tabelle eingetragen wird.
Nun ist alles fertig, nur habe ich es bis jetzt nicht hinbekommen, dem Speichern-Button die benötigten Befehle zuzuordnen, den Inhalt der TextBox und ComboBox in die Tabelle auf Tabellenblatt 2 einzutragen.

Ich benutze bewusst Excel und nicht Access.
Kann mir jemand helfen?

Mit freundlichen Grüßen :-)

...zur Frage

In Excel per Dateiname andere Exceldatei öffnen?

Hallo Ich habe ein Problem. Ich möchte per Makro oder vba im Excel eine andere Exceldatei öffnen. Aber so: Wenn A1= xyz (xyz ist der dateiname) dann öffne datei xyz. Das mnatürlich mit einem Button der Suchen drauf steht. Den habe ich schon erstellt.

...zur Frage

Wie öffne ich mittels VBA das aktuellste Dokument in einem Ordner?

Hallo, ich habe einen Button in Excel, über welchen die aktuellste Version eines Dokuments in einem Ordner geöffnet werden soll. Der Pfad zum Ordner ist z.B. C:\Hallo\ und die Dokument-Namen habe immer folgenden Aufbau: beispiel-JJJJ_MM_DD.xlsx. In dem Ordner befindet sich auch nichts anderes außer den Dokumenten mit diesem Aufbau. Kann mir hier jemand helfen?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen