App installieren
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature may not be available in some browsers.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden.
Du solltest ein Upgrade durchführen oder ein alternativer Browser verwenden.
Du solltest ein Upgrade durchführen oder ein alternativer Browser verwenden.
Access - Datei öffnen mit variablen Namen
- Ersteller Tante Emma
- Erstellt am
Tante Emma
Grand Admiral Special
- Mitglied seit
- 25.05.2006
- Beiträge
- 3.568
- Renomée
- 143
- Standort
- Berlin-Hellersdorf
- Aktuelle Projekte
- Spinhenge@home
- Lieblingsprojekt
- Spinhenge@home
- Meine Systeme
- http://spin.fh-bielefeld.de//hosts_user.php?userid=32277
- Folding@Home-Statistiken
- Mein Desktopsystem
- Aquarium
- Prozessor
- I5
- Mainboard
- Asus ROG Strix B450-F Gaming II
- Kühlung
- AMD boxed Kühler
- Speicher
- Corsair Vengeance LPX 32GB (4x8GB) DDR4 3200MHz C16 XMP 2,0
- Grafikprozessor
- nVidia GTX RTX 3060 Ti
- Display
- 3xPhillips 27"@nVidia Surround
- SSD
- 2 x Crucial P2 CT1000P2SSD8 1TB
- HDD
- 2TB Seagate
- Optisches Laufwerk
- BD/CD/DVD Brenner + DVD ROM
- Soundkarte
- Steinberg UR22
- Gehäuse
- Fraktal Designs Define R2, Titanium Grey
- Netzteil
- 550W beQuite
- Tastatur
- Logitech K280e
- Maus
- Sharkon Gaming mouse
- Betriebssystem
- Windows 10 Professional 64Bit
- Webbrowser
- Mozila Firefox
- Internetanbindung
-
▼200Mbits
▲50Mbits
Ich habe da ein kleines Problem. Ich schreibe meine Angebote/Rechnungen mit Excel. Dort sind zwei Macros eingebaut. Eins erhöht auf Nachfrage beim Öffnen die Rechnungs/Anbgebotsnummer. Das zweite Macro speichert auf Klick auf Button eine Kopie in einem festgelegtem Ordner:
Private Sub CommandButton1_Click()
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "Z:\servicedienst-berlin\Dokumente\Rechnungskopien\2010\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
Range("B21") & Range("A149") & Range("C29") & ".xls", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Select Case strDateiname
Case False
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strDateiname
End Select
End Sub
Der Dateiname lautet dann (Muster) 20090065 - Fam. Mustermann Musterstr 14, 12xxx Berlin.xls
Soweit so gut.
Nun arbeite nun an einer Access Datenbank und möchte nun die Angebots/Rechnungschreiberei dort integrieren.
Bisher gehe ich in den entsprechenden Ordner,rufe die letrzte Rechnungsnummer auf,die Rechnungsnummer wird um eins erhöht, Rechnung geschrieben, Kopie gespeichert und fertig.
Wenn ich nun in Access die letzte Rechnung öffnen möchte habe ich jedes Mal einen anderen Dateinamen, der sich aus Rechnungsnummer und Rechnungsanschrift zusammensetzt. Wie bekomme ich das nun in Access hin, das ich immer die letzte Datei mit der aktuellen Rechnungsnummer geöfnet bekomme, obwohl sich der Dateiname immer unterscheidet?
Private Sub CommandButton1_Click()
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "Z:\servicedienst-berlin\Dokumente\Rechnungskopien\2010\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
Range("B21") & Range("A149") & Range("C29") & ".xls", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Select Case strDateiname
Case False
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strDateiname
End Select
End Sub
Der Dateiname lautet dann (Muster) 20090065 - Fam. Mustermann Musterstr 14, 12xxx Berlin.xls
Soweit so gut.
Nun arbeite nun an einer Access Datenbank und möchte nun die Angebots/Rechnungschreiberei dort integrieren.
Bisher gehe ich in den entsprechenden Ordner,rufe die letrzte Rechnungsnummer auf,die Rechnungsnummer wird um eins erhöht, Rechnung geschrieben, Kopie gespeichert und fertig.
Wenn ich nun in Access die letzte Rechnung öffnen möchte habe ich jedes Mal einen anderen Dateinamen, der sich aus Rechnungsnummer und Rechnungsanschrift zusammensetzt. Wie bekomme ich das nun in Access hin, das ich immer die letzte Datei mit der aktuellen Rechnungsnummer geöfnet bekomme, obwohl sich der Dateiname immer unterscheidet?
mj
Technische Administration, Dinosaurier, ,
- Mitglied seit
- 17.10.2000
- Beiträge
- 19.529
- Renomée
- 272
- Standort
- Austin, TX
- Mein Laptop
- 2,4kg schwer
- Prozessor
- eckig... glaub ich
- Mainboard
- quadratisch, praktisch, gut
- Kühlung
- kühler?
- Speicher
- ja
- Grafikprozessor
- auch
- Display
- viel bunt
- HDD
- ist drin
- Optisches Laufwerk
- ist auch drin (irgendwo)
- Soundkarte
- tut manchmal tuuut
- Gehäuse
- mit aufkleber!
- Netzteil
- so mit kabel und so... voll toll
- Betriebssystem
- das eine da das wo dingenskirchen halt, nech?
- Webbrowser
- so ein teil da... so grün und so
- Verschiedenes
- nunu!
Dafür hast du zwei Möglichkeiten - entweder eine Tabelle in der du jeder Rechnungsnummer (Primärschlüssel) einen Dateinamen zuweist, dann ist der Dateiname über einen einfachen SELECT zu ermitteln, oder du musst den Dateinamen jedes Mal dynamisch aus Rechnungsnummer und Rechnungsanschrift, die dann ebenfalls in der Datenbank gespeichert sein muss, generieren.
Edit: mir fällt noch eine Möglichkeit ein: beim Speichern erzeugst du einen Link auf die Datei namens "current" oder so ähnlich und schaust darin nach. Oder du legst diesen Link in der Datenbank ab.
Edit: mir fällt noch eine Möglichkeit ein: beim Speichern erzeugst du einen Link auf die Datei namens "current" oder so ähnlich und schaust darin nach. Oder du legst diesen Link in der Datenbank ab.
lordchilli
Redshirt
- Mitglied seit
- 20.08.2009
- Beiträge
- 2
- Renomée
- 0
Du schreibts die Rechnungsnummern sind fortlaufend und aufsteigend.
Wie wäre es in Access dann die Rechnung zu öffnen mit der grössten Rechnugsnummer.
Das geht z.B. mit API FindFirstFile / FindNextFile. Damit kann die Dateien in ein oder mehrern Verzeichniss auflisten. (und diese Auflistung dann nach grösster Rechnugsnummer durchsuchen).
Hier mal ein Link zu nem Beispiel in VB6 (ist zu Access doch recht ähnlich):
httx://wwx.activevb.de/tipps/vb6tipps/tipp0266.html
ARGL, Links funzen erst ab 5 Beiträgen.
Wie wäre es in Access dann die Rechnung zu öffnen mit der grössten Rechnugsnummer.
Das geht z.B. mit API FindFirstFile / FindNextFile. Damit kann die Dateien in ein oder mehrern Verzeichniss auflisten. (und diese Auflistung dann nach grösster Rechnugsnummer durchsuchen).
Hier mal ein Link zu nem Beispiel in VB6 (ist zu Access doch recht ähnlich):
httx://wwx.activevb.de/tipps/vb6tipps/tipp0266.html
ARGL, Links funzen erst ab 5 Beiträgen.