- Welcome to Access-o-Mania.
Hilfe zu Microsoft Access und verwandten Produkten
Neueste Beiträge
#61
Access Programmierung / VBA-Code verschwindet
Letzter Beitrag von Stele4 - April 20, 2026, 10:54:50Hallo!
Es passiert nun oefter:
In einem Formular-Modul wurde Code geschrieben, gespeichert, compiliert.
Das Formular ist im Design-Modus und wird von mir geschlossen.
Danach ist der neue Code wieder weg.
Was passiert hier und wie kann das verhindert werden?
Gibt es eine Obergrenze fuer VBA-Code?
'Compact and Repair Database' wird gelegentlich ausgefuehrt.
Gruss Stele
Es passiert nun oefter:
In einem Formular-Modul wurde Code geschrieben, gespeichert, compiliert.
Das Formular ist im Design-Modus und wird von mir geschlossen.
Danach ist der neue Code wieder weg.
Was passiert hier und wie kann das verhindert werden?
Gibt es eine Obergrenze fuer VBA-Code?
'Compact and Repair Database' wird gelegentlich ausgefuehrt.
Gruss Stele
#62
MS SQL-Server / Re: Dokumentation
Letzter Beitrag von Knobbi38 - April 19, 2026, 12:50:32Hallo Martin,
neben dem, was Christian schon beschrieben hat, gibt es natürlich auch noch andere Tools, um sich einen ersten Eindruck von einer DB zu machen, z.B. den Analyzer von hier:
https://www.msaccessgurus.com/tools.htm
Es gibt natürlich auch noch kommerzielle Tools, falls das von Interesse ist:
https://www.fmsinc.com/microsoftaccess/documentation/index.html
Knobbi38
neben dem, was Christian schon beschrieben hat, gibt es natürlich auch noch andere Tools, um sich einen ersten Eindruck von einer DB zu machen, z.B. den Analyzer von hier:
https://www.msaccessgurus.com/tools.htm
Es gibt natürlich auch noch kommerzielle Tools, falls das von Interesse ist:
https://www.fmsinc.com/microsoftaccess/documentation/index.html
Knobbi38
#63
MS SQL-Server / Re: Dokumentation
Letzter Beitrag von MartinHan - April 19, 2026, 02:48:36Hi Christian,
vielen lieben Dank für deinen ausführliche Post.
Zur Erklärung: ich war in meiner aktiven Zeit für ein sehr großes Metadaten Repository für eine Bank zuständing und war jetzt fasziniert von der Vorstellung, für diese relativ kleine Anwendung etwas Ähnliches zu schaffen.
Chatgpt hat mit dabei sehr geholfen!
Du hast natürlich Recht damit, das es zu sehr ins Detail geht, aber ich denke auch für mich kann es sinnvoll sein, um zu erkennen, wo ich etwas suboptimal umgesetzt habe.
Die Tools, die du erwähnst sind mir noch unbekannt...werde ich mir ansehen.
Also nochmal vielen Dank!
Martin
vielen lieben Dank für deinen ausführliche Post.
Zur Erklärung: ich war in meiner aktiven Zeit für ein sehr großes Metadaten Repository für eine Bank zuständing und war jetzt fasziniert von der Vorstellung, für diese relativ kleine Anwendung etwas Ähnliches zu schaffen.
Chatgpt hat mit dabei sehr geholfen!
Du hast natürlich Recht damit, das es zu sehr ins Detail geht, aber ich denke auch für mich kann es sinnvoll sein, um zu erkennen, wo ich etwas suboptimal umgesetzt habe.
Die Tools, die du erwähnst sind mir noch unbekannt...werde ich mir ansehen.
Also nochmal vielen Dank!
Martin
#64
Access Programmierung / Re: Frage zum gezielten Ausles...
Letzter Beitrag von Knobbi38 - April 18, 2026, 13:23:05@andyfau
Wenn man schon eine Kombo so einsetzt, sollte tatsächlich auch eine Beziehung zwischen den Tabellen bestehen und dann braucht nicht mehr mit Like und Platzhaltern hantiert werden, sondern kann direkt mit den Fremdschlüssel auf Gleichheit gefiltert werden. Leider wurde das in der Beispieldatenbank falsch implementiert bzw. der Fremdschlüssel fehlt noch.
Übrigens kann das Suchmuster mit den Platzhaltern so nicht richtig funktionieren, weil z.B. diese Suchmuster "S 001" und "LS 001" in Verbindung mit den Platzhaltern keine eindeutigen Ergebnisse liefern. Hier müsste das Suchmuster entsprechend geändert werden:
Wie bereits angedeutet, sollte das Datenmodell dahingehend von Jörg noch geändert werden, denn das würde einiges vereinfachen.
Gruß Knobbi38
Wenn man schon eine Kombo so einsetzt, sollte tatsächlich auch eine Beziehung zwischen den Tabellen bestehen und dann braucht nicht mehr mit Like und Platzhaltern hantiert werden, sondern kann direkt mit den Fremdschlüssel auf Gleichheit gefiltert werden. Leider wurde das in der Beispieldatenbank falsch implementiert bzw. der Fremdschlüssel fehlt noch.
Übrigens kann das Suchmuster mit den Platzhaltern so nicht richtig funktionieren, weil z.B. diese Suchmuster "S 001" und "LS 001" in Verbindung mit den Platzhaltern keine eindeutigen Ergebnisse liefern. Hier müsste das Suchmuster entsprechend geändert werden:
Code [Auswählen]
strFilter = "[Bildpfad] LIKE '*[\]" & Me.Suchfeld & "*'"
Das Muster wird somit nur auf den Anfang des Ordner- bzw. Dateinamens angewendet - ebenfalls ein Designfehler beim Datenmodell. Wie bereits angedeutet, sollte das Datenmodell dahingehend von Jörg noch geändert werden, denn das würde einiges vereinfachen.
Gruß Knobbi38
#65
Access Programmierung / Re: Frage zum gezielten Ausles...
Letzter Beitrag von Gockel67 - April 18, 2026, 13:05:16 #66
Access Programmierung / Re: Frage zum gezielten Ausles...
Letzter Beitrag von Knobbi38 - April 18, 2026, 12:26:49Hallo Jörg,
ich weiß jetzt nicht, ob es Zufall ist, aber Informationen in Ordnernamen und Dateinamen zu verwalten, ist keine gute Idee. Eine Kategorisierung gehört als Fremdschlüssel in deine Bilddatenbank und damit entfallen sowohl die Abhängigkeiten zu den Ordnernamen als auch dem besonderen Format der Dateinamen. Das solltest du ändern.
Anbei jedoch mal eine Lösung auf Basis des vorgegebenen Dateiformats.
Knobbi38
PS:
Bitte lade deine Beispieldatenbanken nächstes mal hier im Forum hoch - auf unbekannte Filehoster wird nicht gerne zugegriffen.
ich weiß jetzt nicht, ob es Zufall ist, aber Informationen in Ordnernamen und Dateinamen zu verwalten, ist keine gute Idee. Eine Kategorisierung gehört als Fremdschlüssel in deine Bilddatenbank und damit entfallen sowohl die Abhängigkeiten zu den Ordnernamen als auch dem besonderen Format der Dateinamen. Das solltest du ändern.
Anbei jedoch mal eine Lösung auf Basis des vorgegebenen Dateiformats.
Knobbi38
PS:
Bitte lade deine Beispieldatenbanken nächstes mal hier im Forum hoch - auf unbekannte Filehoster wird nicht gerne zugegriffen.
#67
Access Programmierung / Re: Frage zum gezielten Ausles...
Letzter Beitrag von andyfau - April 18, 2026, 12:16:37Hallo Jörg,
es ist nicht notwendig ein neues Recordset mit Do While zu durchlaufen um dann die Zeilen des Formulars zu füllen. Ein einfacher Filter tuts auch.
Erstelle Dir mit Hilfe des Formulargenerators ein Formular (tabellarisch=Endlosformular) zur Tabelle tblKartenBilder.
Dann setzt Du in den Kopf des Formulars das Kombinationsfeld, welches als Datenquelle die Tabelle mit den Abkürzungen hat.
Achte bei den Einstellungen auf Anzahl Spalten 2, gebundene Spalte 2, Spaltenbreiten 0;2cm
Setze in das Click-Ereignis des (Kombinations)Suchfeldes folgenden Code:
es ist nicht notwendig ein neues Recordset mit Do While zu durchlaufen um dann die Zeilen des Formulars zu füllen. Ein einfacher Filter tuts auch.
Erstelle Dir mit Hilfe des Formulargenerators ein Formular (tabellarisch=Endlosformular) zur Tabelle tblKartenBilder.
Dann setzt Du in den Kopf des Formulars das Kombinationsfeld, welches als Datenquelle die Tabelle mit den Abkürzungen hat.
Achte bei den Einstellungen auf Anzahl Spalten 2, gebundene Spalte 2, Spaltenbreiten 0;2cm
Setze in das Click-Ereignis des (Kombinations)Suchfeldes folgenden Code:
Code [Auswählen]
Private Sub Suchfeld_Click()
Dim strFilter As String
Me.FilterOn = False
strFilter = "[Bildpfad] LIKE '*" & Me.Suchfeld & "*'"
Me.Filter = strFilter
Me.FilterOn = True
End Sub #68
Access Programmierung / Re: Frage zum gezielten Ausles...
Letzter Beitrag von mmarschner - April 18, 2026, 11:13:53Hallo Jörg,
Dein SQL String ist nicht ganz korrekt. So wie Du es geschrieben hast, werden nur Begriffe am Ende des betreffenden Zellenfeldes gesucht.
Es muss so aussehen:
LIKE '*" & suchBegriff & "*';"
Dann klappt es auch.
Michael
Dein SQL String ist nicht ganz korrekt. So wie Du es geschrieben hast, werden nur Begriffe am Ende des betreffenden Zellenfeldes gesucht.
Es muss so aussehen:
LIKE '*" & suchBegriff & "*';"
Dann klappt es auch.
Michael
#69
Access Programmierung / Frage zum gezielten Auslesen a...
Letzter Beitrag von Gockel67 - April 18, 2026, 10:05:36Moin Gemeinde,
ich habe ein Problem bei dem ich leider alleine nicht weiterkomme.
Gegeben ist eine Tabelle 'tblKartenBilder'. Diese enthält relative Pfade zu Bilddateien.
Hier mal der Aufbau:
ID ID_Haupttabelle Bildpfad
1 1 \Anlagen\Karten Bilder\LS 001\LS 001 - 00001.jpg
2 1 \Anlagen\Karten Bilder\LS 001\LS 001 - 00001_01.jpg
3 2 \Anlagen\Karten Bilder\K 001\K 001 - 00059.jpg
4 3 \Anlagen\Karten Bilder\K 001\K 001 - 00060.jpg
5 4 \Anlagen\Karten Bilder\K 001\K 001 - 00061.jpg
6 5 \Anlagen\Karten Bilder\K 001\K 001 - 00053.jpg
7 6 \Anlagen\Karten Bilder\K 001\K 001 - 00052.jpg
8 7 \Anlagen\Karten Bilder\K 001\K 001 - 00051.jpg
9 8 \Anlagen\Karten Bilder\K 001\K 001 - 00058.jpg
10 9 \Anlagen\Karten Bilder\K 001\K 001 - 00056.jpg
.
.
.
ID ID_Haupttabelle Bildpfad
134 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001.jpg
135 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001_01.jpg
136 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001_02.jpg
137 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001_03.jpg
138 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002.jpg
139 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002_01.jpg
140 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002_02.jpg
141 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002_03.jpg
142 112 \Anlagen\Karten Bilder\PO 001\PO 001 - 00003.jpg
143 112 \Anlagen\Karten Bilder\PO 001\PO 001 - 00003_01.jpg
144 112 \Anlagen\Karten Bilder\PO 001\PO 001 - 00003_02.jpg
In einem Kombinationsfeld soll der entsprechende Suchbegriff ausgewählt werden. Also z.B. 'K 001' oder 'G 001' oder 'P 001' usw.
Es sollen dann nur die Bilder in einem Endlosformular angezeigt werden die dem Suchbegriff entsprechen.
Für einen ersten Test habe ich mir einen Code aus dem Internet gesucht der zwar ohne Fehlermeldung durchläuft aber auch kein Ergebins bringt.
Was mache ich falsch?
Ich füge eine Testdatei mal an.
Wünsche allen ein schönes Wochenende
Jörg
https://www.transfernow.net/dl/20260418PmnlYLE2
ich habe ein Problem bei dem ich leider alleine nicht weiterkomme.
Gegeben ist eine Tabelle 'tblKartenBilder'. Diese enthält relative Pfade zu Bilddateien.
Hier mal der Aufbau:
ID ID_Haupttabelle Bildpfad
1 1 \Anlagen\Karten Bilder\LS 001\LS 001 - 00001.jpg
2 1 \Anlagen\Karten Bilder\LS 001\LS 001 - 00001_01.jpg
3 2 \Anlagen\Karten Bilder\K 001\K 001 - 00059.jpg
4 3 \Anlagen\Karten Bilder\K 001\K 001 - 00060.jpg
5 4 \Anlagen\Karten Bilder\K 001\K 001 - 00061.jpg
6 5 \Anlagen\Karten Bilder\K 001\K 001 - 00053.jpg
7 6 \Anlagen\Karten Bilder\K 001\K 001 - 00052.jpg
8 7 \Anlagen\Karten Bilder\K 001\K 001 - 00051.jpg
9 8 \Anlagen\Karten Bilder\K 001\K 001 - 00058.jpg
10 9 \Anlagen\Karten Bilder\K 001\K 001 - 00056.jpg
.
.
.
ID ID_Haupttabelle Bildpfad
134 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001.jpg
135 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001_01.jpg
136 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001_02.jpg
137 110 \Anlagen\Karten Bilder\PO 001\PO 001 - 00001_03.jpg
138 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002.jpg
139 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002_01.jpg
140 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002_02.jpg
141 111 \Anlagen\Karten Bilder\PO 001\PO 001 - 00002_03.jpg
142 112 \Anlagen\Karten Bilder\PO 001\PO 001 - 00003.jpg
143 112 \Anlagen\Karten Bilder\PO 001\PO 001 - 00003_01.jpg
144 112 \Anlagen\Karten Bilder\PO 001\PO 001 - 00003_02.jpg
In einem Kombinationsfeld soll der entsprechende Suchbegriff ausgewählt werden. Also z.B. 'K 001' oder 'G 001' oder 'P 001' usw.
Es sollen dann nur die Bilder in einem Endlosformular angezeigt werden die dem Suchbegriff entsprechen.
Für einen ersten Test habe ich mir einen Code aus dem Internet gesucht der zwar ohne Fehlermeldung durchläuft aber auch kein Ergebins bringt.
Code [Auswählen]
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim suchBegriff As String
' Suchbegriff aus einem Formularfeld nehmen
suchBegriff = Karton.Value ' Sucht nach Einträgen, die mit "Test" beginnen
' SQL-String erstellen (LIKE verwenden)
strSQL = "SELECT * FROM tblKartenBilder WHERE Bildpfad LIKE '*" & suchBegriff & "';"
' Recordset öffnen
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
' Ergebnisse durchlaufen
Do While Not rs.EOF
Debug.Print rs!Bildpfad
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
Was mache ich falsch?
Ich füge eine Testdatei mal an.
Wünsche allen ein schönes Wochenende
Jörg
https://www.transfernow.net/dl/20260418PmnlYLE2
#70
Tabelle/Abfrage / Re: abfrage zweier tabellen au...
Letzter Beitrag von PhilS - April 17, 2026, 11:30:48Zitat von: Beaker s.a. am April 16, 2026, 17:17:16Wieso taucht der Thread dann plötzlich als neu bei mir auf?Ich glaube, weil ein Spammer da gestern seinen Müll drangehängt hat.