[MS Access] Binärdaten aus einer Datei lesen

' https://stackoverflow.com/questions/660312/how-can-i-read-a-binary-file-using-vba
Sub BtnReadBinaryClick()
    ' Dateipfad + Dateiname
    Dim sFile As String
    sFile = "c:\\temp\\test.bin"
   
    ' Array für Binärdaten
    Dim byaFileData() As Byte
   
    ' Dateizeiger
    Dim fd As Integer
    ' nächsten freien Dateizeiger holen
    fd = FreeFile

    ' Datei zum binären Lesen öffnen
    Open sFile For Binary Access Read As #fd
    ' Array an Dateigröße anpassen
    ReDim byaFileData(0 To LOF(fd) - 1)
    ' Datei in Array einlesen
    Get #fd, , byaFileData
   
    ' hier byaFileData bearbeiten
    ...
   
    ' Datei schließen
    Close #fd
End Sub

[MS Access] Felder mit Fremdschlüsselbeziehungen im Klartext als Auswahlfeld (Combobox) darstellen

  • Tabelle -> Entwurfsansicht
  • Felddatentyp wählen, für den die Combobox zur Auswahl eingeblendet werden soll
  • unten im Fenster “Feldeigenschaften” -> Reiter “Nachschlagen”
  • Datensatzherkunft …
  • Tabelle(n) einblenden und gewünschte Anzeigespalten für die Combobox auswählen + als LETZTES die Schlüsselspalte!
  • Abfrage speichern unter …
  • Abfrage schließen
  • Datensatzherkunft: gespeicherte Abfrage eintragen
  • Gebundene Spalte: Nr. der Schlüsselspalte
  • Spaltenzahl: Anz. Anzeigespalten für die Combobox
  • Spaltenbreiten: 3cm;4cm;… (Breiten für die einzelnen Anzeigespalten für die Combobox)
  • Listenbreite: Gesamtbreite (Summe) der Spalten
  • Mehrere Werte zulassen: nein (wenn jemals auf “ja”, dann nur rückgängig machbar wenn komplette Spalte gelöscht)
  • Speichern