- Welcome to Access-o-Mania.
Hilfe zu Microsoft Access und verwandten Produkten
Neueste Beiträge
#21
Access Programmierung / Re: blockiert ein Dictionary e...
Letzter Beitrag von Doming - August 03, 2026, 13:52:47Hallo,
Tja, dann wäre ich weiter. Das einige was passiert, ist die MsgBox "Keine ID gefunden"
Egal ob ich den Code so wie oben lasse oder den SQL-String abschicke.
Gerade habe ich mir den SQL-String im Direktfenster anzeigen lassen. Setze ich ein currentDB.Execute davor, wird das Material angelegt (ohne laufenden Code, also nicht im Unterbrechungsmodus).
In der Tabelle ist nur bei der Artikel_ID und der Bezeichnung eine Eingabe erforderlich.
Rufe ich im Direktfenster die Funktion auf (?Neumaterial("1234.12.1234", "Kannweg") wird mir sofort die neue ID ausgegeben.
kein "On Error Resume Next", auch im Einzelschrittmodus laufe ich so durch
ZitatDa gibt es vermutlich eine Fehlermeldung.
Tja, dann wäre ich weiter. Das einige was passiert, ist die MsgBox "Keine ID gefunden"
Egal ob ich den Code so wie oben lasse oder den SQL-String abschicke.
Code [Auswählen]
MName = "AutoEingabe_" & MatBez
' Set rs = cDB.OpenRecordset("SELECT Materialnummer, Bezeichnung FROM tbl_Material")
' rs.AddNew
' rs!Materialnummer = MatNr
' rs!Bezeichnung = MName
' rs.Update
'
' rs.Close
cDB.Execute "INSERT INTO tbl_Material (Materialnummer, Bezeichnung) " _
& "VALUES('" & MatNr _
& "', '" & MName & "')", dbFailOnError
ID = Nz(DLookup("Artikel_ID", "tbl_Material", "Materialnummer = '" & MatNr _
& "' AND Bezeichnung = '" & MName & "'"), 0)Gerade habe ich mir den SQL-String im Direktfenster anzeigen lassen. Setze ich ein currentDB.Execute davor, wird das Material angelegt (ohne laufenden Code, also nicht im Unterbrechungsmodus).
In der Tabelle ist nur bei der Artikel_ID und der Bezeichnung eine Eingabe erforderlich.
Rufe ich im Direktfenster die Funktion auf (?Neumaterial("1234.12.1234", "Kannweg") wird mir sofort die neue ID ausgegeben.
kein "On Error Resume Next", auch im Einzelschrittmodus laufe ich so durch
#22
Access Programmierung / Re: blockiert ein Dictionary e...
Letzter Beitrag von PhilS - August 03, 2026, 13:32:09Zitat von: Doming am August 03, 2026, 12:36:26Ursprünglich habe ich es mit dem (jetzt auskommentierten) SQL-Ausdruck versucht, dann mit rs.Addnew, aber beide Male verweigert mir die Tabelle einen Neueintrag.Was genau bedeutet "verweigert mir die Tabelle einen Neueintrag"?
Da gibt es vermutlich eine Fehlermeldung. Wie lautet diese Fehlermeldung genau?
Das Dictionary hat sicherlich nichts damit zu tun, dass du nicht in die Tabelle schreiben kannst.
#23
Tabelle/Abfrage / Re: Standartwert für Tabellenf...
Letzter Beitrag von MzKlMu - August 03, 2026, 12:59:26Hallo,
Tabellen ohne Beziehungen sind schon mal fragwürdig. Im Regelfall gibt es in einer Datenbank keine Tabellen ohne Beziehungen. Eine Abfrage ohne Verknüpfungen können Daten grundsätzlich nicht geändert werden, da gibt es auch keinen Trick.
Hinweis: In einer Abfrage git es keine Beziehungen. Das sind das Verknüpfungen, die unabhängig von den Beziehungen sein können.
Zum Hochladen:
Wenn Du Antworten wählst, findest Du unten einen Button "Attachments and other options". Da kannst Du hochladen.
Als Zip und vorher komprimieren/reparieren (Access Dienstprogramm) ausfhren.
Tabellen ohne Beziehungen sind schon mal fragwürdig. Im Regelfall gibt es in einer Datenbank keine Tabellen ohne Beziehungen. Eine Abfrage ohne Verknüpfungen können Daten grundsätzlich nicht geändert werden, da gibt es auch keinen Trick.
Hinweis: In einer Abfrage git es keine Beziehungen. Das sind das Verknüpfungen, die unabhängig von den Beziehungen sein können.
Zum Hochladen:
Wenn Du Antworten wählst, findest Du unten einen Button "Attachments and other options". Da kannst Du hochladen.
Als Zip und vorher komprimieren/reparieren (Access Dienstprogramm) ausfhren.
#24
Access Programmierung / blockiert ein Dictionary eine ...
Letzter Beitrag von Doming - August 03, 2026, 12:36:26Hallo,
ich lese die Dateinamen von Zeichnungen aus einer Netzwerk-Verzeichnisstruktur aus und schreibe den Dateinamen und den Pfad in eine Tabelle. Dann lese ich aus dem Dateinamen eine Materialnummer aus und trage diese in ein weiteres Feld ein. Das ist dann zwar ein redundantes Feld aber da die Syntax Dateinamen variiert, will ich wissen, ob das Auslesen der Nummer korrekt ist.
Es gibt aber ein FK-Feld in der Tabelle, welches ich mit einer Prozedur aus der tbl_Material auslese. Es geht um etwa 22.000 Zeichnungen für etwa 18.000 Materialien.
Zuerst habe ich dann in einer Schleife bei jedem Zeichnungsdatensatz in der Materialtabelle nach Übereinstimmungen gesucht, was natürlich einiges an Zeit in Anspruch genommen hat. Später bin ich dann dazu übergegangen, sowohl die Zeichnungs- als auch die Materialtabelle in ein jeweils ein Array einzulesen und diese dann zu vergleichen. Danach dann das modifizierte Zeichnungsarray zurück in die Tabelle.
Das hat soweit auch funktioniert.
Nun habe ich das Einlesen der Dateien mittels KI umgebaut und somit die Einlesezeit von etwa 80 auf 6 Minuten reduziert. In dem Zuge habe ich auch den Vergleich mal analysieren lassen und man schlug mir den Einsatz von einem Dictionary vor.
Der Vergleich sieht dann so aus:
Das funktioniert so weit gut und ist auch echt flott. Was leider nicht funktioniert ist, wenn es Zeichnungen gibt, für die es in der Materialtabelle keine Entsprechnung gibt.
Der Plan ist, dass das Material in einer Funktion in die Tabelle eingefügt wird und dann die ID des neuen Datensatzes zurückgibt:
Ich bin verwirrt, denn eigentlich gehören beide Prozeduren zum kleinen 1x1, die Weigerung kenne ich nicht. Das einzige was anders ist als sonst, ist der/das Dictionary. Wird die Tabelle dadurch blockiert oder welchen meiner Fehler sehe ich nicht?
Gruß
Doming
ich lese die Dateinamen von Zeichnungen aus einer Netzwerk-Verzeichnisstruktur aus und schreibe den Dateinamen und den Pfad in eine Tabelle. Dann lese ich aus dem Dateinamen eine Materialnummer aus und trage diese in ein weiteres Feld ein. Das ist dann zwar ein redundantes Feld aber da die Syntax Dateinamen variiert, will ich wissen, ob das Auslesen der Nummer korrekt ist.
Es gibt aber ein FK-Feld in der Tabelle, welches ich mit einer Prozedur aus der tbl_Material auslese. Es geht um etwa 22.000 Zeichnungen für etwa 18.000 Materialien.
Zuerst habe ich dann in einer Schleife bei jedem Zeichnungsdatensatz in der Materialtabelle nach Übereinstimmungen gesucht, was natürlich einiges an Zeit in Anspruch genommen hat. Später bin ich dann dazu übergegangen, sowohl die Zeichnungs- als auch die Materialtabelle in ein jeweils ein Array einzulesen und diese dann zu vergleichen. Danach dann das modifizierte Zeichnungsarray zurück in die Tabelle.
Das hat soweit auch funktioniert.
Nun habe ich das Einlesen der Dateien mittels KI umgebaut und somit die Einlesezeit von etwa 80 auf 6 Minuten reduziert. In dem Zuge habe ich auch den Vergleich mal analysieren lassen und man schlug mir den Einsatz von einem Dictionary vor.
Code [Auswählen]
Private Function LadeMaterialDikt() As Scripting.Dictionary
On Error GoTo Fehler
Dim rs As DAO.Recordset
Dim dict As Object
Dim MNr As String
Dim ID As Long
Set dict = CreateObject("Scripting.Dictionary")
Set rs = CurrentDb.OpenRecordset("SELECT Artikel_ID, MaterialNummer FROM tbl_Material", dbOpenSnapshot)
Do Until rs.EOF
MNr = rs!Materialnummer
ID = rs!Artikel_ID
If Not dict.Exists(MNr) Then dict.Add MNr, ID
rs.MoveNext
Loop
Set LadeMaterialDikt = dict
Ende:
On Error Resume Next
rs.Close
Set rs = Nothing
Set dict = Nothing
End FunctionDer Vergleich sieht dann so aus:
Code [Auswählen]
Public Sub Zeich2Mat1()
Dim MatDikt As Scripting.Dictionary
Dim cDB As DAO.Database
Dim rs As DAO.Recordset
Dim MNr As String
Dim b As Long
Dim MatID As Long
Set MatDikt = LadeMaterialDikt()
Set cDB = CurrentDb
Set rs = cDB.OpenRecordset("SELECT FS_MatID, MatNR " _
& "FROM tbl_Zeichnung_LCL " _
& "WHERE MatNr <> '0'", dbOpenDynaset, dbOptimistic)
DBEngine.BeginTrans
Do Until rs.EOF
MNr = Nz(rs!MatNr, "0")
If MNr <> "0" Then
b = b + 1
rs.Edit
If MatDikt.Exists(MNr) Then
rs!FS_MatID = MatDikt(MNr)
Else
MatID = NeuMaterial(MNr, rs!Dateiname)
MatDikt.Add MNr, MatID
End If
rs.Update
End If
If b > 1 And b Mod 1000 = 0 Then 'Unterbrechnung der Schleife weil sonst Speicher voll
DBEngine.CommitTrans
DBEngine.BeginTrans
DBEngine.Idle dbRefreshCache
End If
rs.MoveNext
Loop
DBEngine.CommitTrans
Ende:
On Error Resume Next
rs.Close
Set rs = Nothing
Set MatDikt = Nothing
Debug.Print Now, "Zeich2Mat abgeschlossen"
End SubDas funktioniert so weit gut und ist auch echt flott. Was leider nicht funktioniert ist, wenn es Zeichnungen gibt, für die es in der Materialtabelle keine Entsprechnung gibt.
Der Plan ist, dass das Material in einer Funktion in die Tabelle eingefügt wird und dann die ID des neuen Datensatzes zurückgibt:
Code [Auswählen]
Public Function NeuMaterial(MatNr As String, MatBez As String) As Long
On Error GoTo Fehler
Dim cDB As DAO.Database
Dim rs As DAO.Recordset
Dim MName As String
Dim ID As Long
Set cDB = CurrentDb
MName = "AutoEingabe_" & MatBez
Set rs = cDB.OpenRecordset("SELECT Materialnummer, Bezeichnung FROM tbl_Material")
rs.AddNew
rs!Materialnummer = MatNr
rs!Bezeichnung = MName
rs.Update
rs.Close
' cDB.Execute "INSERT INTO tbl_Material (Materialnummer, Bezeichnung) " _
' & "VALUES('" & MatNr _
' & "', '" & MName & "')", dbFailOnError
ID = Nz(DLookup("Artikel_ID", "tbl_Material", "Materialnummer = '" & MatNr _
& "' AND Bezeichnung = '" & MName & "'"), 0)
If ID > 0 Then
Debug.Print Now, "Neumaterial " & MatNr, ID
cDB.Execute "UPDATE tbl_Material SET RefID = " & ID & " WHERE Artikel_ID = " & ID
cDB.Execute "INSERT INTO tbl_Index(FS_Mat, IX) VALUES (" & ID & ", 0)"
NeuMaterial = ID
DoEvents
Else
MsgBox "Keine ID gefunden"
End If
Ende:
rs.Close
Set rs = Nothing
cDB.Close
Set cDB = Nothing
end function Ursprünglich habe ich es mit dem (jetzt auskommentierten) SQL-Ausdruck versucht, dann mit rs.Addnew, aber beide Male verweigert mir die Tabelle einen Neueintrag.Ich bin verwirrt, denn eigentlich gehören beide Prozeduren zum kleinen 1x1, die Weigerung kenne ich nicht. Das einzige was anders ist als sonst, ist der/das Dictionary. Wird die Tabelle dadurch blockiert oder welchen meiner Fehler sehe ich nicht?
Gruß
Doming
#25
Tabelle/Abfrage / Re: Standartwert für Tabellenf...
Letzter Beitrag von repaan - August 03, 2026, 12:18:59Hallo zusammen, vielen Dank für eure Antworten.
Wie kann ich meine DB hochladen
Wie kann ich meine DB hochladen
#26
Tabelle/Abfrage / Re: Standartwert für Tabellenf...
Letzter Beitrag von Knobbi38 - August 02, 2026, 22:09:12Hallo Repaan,
die Informationen reichen nicht aus, um konkret eine Hilfestellung zu geben. Kannst du dein Problem mal mit anderen Worten beschreiben und dein Datenmodell hier hochladen?
Auch stellt sich die Frage, in wie weit du dich schon mit relationalen Datenbanken beschäftigt hast. Für einen ersten Einstiegspunkt in das Thema gibt es z.B. die Seite
https://www.access-tutorial.de/
oder vielleicht auch ein eBook/Buch:
http://www.buch.andreasstern.de/index.php
Knobbi38
die Informationen reichen nicht aus, um konkret eine Hilfestellung zu geben. Kannst du dein Problem mal mit anderen Worten beschreiben und dein Datenmodell hier hochladen?
Auch stellt sich die Frage, in wie weit du dich schon mit relationalen Datenbanken beschäftigt hast. Für einen ersten Einstiegspunkt in das Thema gibt es z.B. die Seite
https://www.access-tutorial.de/
oder vielleicht auch ein eBook/Buch:
http://www.buch.andreasstern.de/index.php
Knobbi38
#27
Tabelle/Abfrage / Re: Standartwert für Tabellenf...
Letzter Beitrag von Debus - August 02, 2026, 15:47:39Hey, so wie Du schreibst beginnst Du die DB ja erst, vielleicht kannst Du ja noch eine Muster DB hochladen.
Holger
Holger
#28
Tabelle/Abfrage / Standartwert für Tabellenfelde...
Letzter Beitrag von repaan - August 02, 2026, 15:29:27Hallo zusammen, ich bin neu hier und habe ein Problem.
Ich möchte für meinen Verein eine Datenbank erstellen um Ergebnisse auszuwerten.
Problemstellung:
Ich habe zwei Tabellen.
1. Tabelle (Meisterschaft) enthält zwei Textfelder als Auswahlfelder, in denen der Ort und der Bezirk wählbar sind.
2. Tabelle (Teilnehmer) enthält alle Datenfelder zu meinen Teilnehmern.
Die Tabelle Meisterschaft habe ich in einem Formular (Start) eingebunden; Datenherkunft ist die Tabelle Meisterschaft in denen die o.a. Datenfelder auszuwählen sind und dann wird über eine Schaltfläche das Teilnehmerformular geöffnet. Diese Eingaben sollen für alle neuen Datensätze gültig sein.
Die beiden Tabellen stehen in keiner Beziehung zu einander. Ich habe lediglich im Beziehungsfenster die beiden Tabellen abgebildet.
Ich öffne das Startformular, gebe meine Daten ein und gehe dann zu meinen Teilnehmern (als Formular) und ergänze meine Daten. Soweit so gut.
In einer Abfrage (01_abf_Abfrage) kontrolliere ich den ersten Datensatz. Die Daten aus dem Startformular, Ort und Bezirk sind darin enthalten.
Ich kann aber diesen Datensatz in der Abfrage nicht mehr ändern. Wenn ich jetzt im Beziehungsfenster die Tabelle Meisterschaft entferne, dann kann ich die Daten in der Abfrage wieder ändern.
Wer kann mit helfen? Hat jemand eine Idee? Bin für alles dankbar.
danke Repaan
Ich möchte für meinen Verein eine Datenbank erstellen um Ergebnisse auszuwerten.
Problemstellung:
Ich habe zwei Tabellen.
1. Tabelle (Meisterschaft) enthält zwei Textfelder als Auswahlfelder, in denen der Ort und der Bezirk wählbar sind.
2. Tabelle (Teilnehmer) enthält alle Datenfelder zu meinen Teilnehmern.
Die Tabelle Meisterschaft habe ich in einem Formular (Start) eingebunden; Datenherkunft ist die Tabelle Meisterschaft in denen die o.a. Datenfelder auszuwählen sind und dann wird über eine Schaltfläche das Teilnehmerformular geöffnet. Diese Eingaben sollen für alle neuen Datensätze gültig sein.
Die beiden Tabellen stehen in keiner Beziehung zu einander. Ich habe lediglich im Beziehungsfenster die beiden Tabellen abgebildet.
Ich öffne das Startformular, gebe meine Daten ein und gehe dann zu meinen Teilnehmern (als Formular) und ergänze meine Daten. Soweit so gut.
In einer Abfrage (01_abf_Abfrage) kontrolliere ich den ersten Datensatz. Die Daten aus dem Startformular, Ort und Bezirk sind darin enthalten.
Ich kann aber diesen Datensatz in der Abfrage nicht mehr ändern. Wenn ich jetzt im Beziehungsfenster die Tabelle Meisterschaft entferne, dann kann ich die Daten in der Abfrage wieder ändern.
Wer kann mit helfen? Hat jemand eine Idee? Bin für alles dankbar.
danke Repaan
#29
Access Programmierung / Re: verknüpfte Datensätze kopi...
Letzter Beitrag von Debus - August 01, 2026, 20:11:38Ich muss mich mal Ekehard und Uli anschließen.
Was soll man mit dem Datenmodell anfangen. Dafür braucht man ja selber schon mehrere Stunden um das zu verstehen.
Aber mal eine Frage hast Du denn irgendwo einen Abfrage oder ein Formular wo Du alle Daten auf einmal im Zugriff hast, die Du kopieren willst? Oder zu mindestens so ca 80- 90 % der Daten
Gruß
Holger
Was soll man mit dem Datenmodell anfangen. Dafür braucht man ja selber schon mehrere Stunden um das zu verstehen.
Aber mal eine Frage hast Du denn irgendwo einen Abfrage oder ein Formular wo Du alle Daten auf einmal im Zugriff hast, die Du kopieren willst? Oder zu mindestens so ca 80- 90 % der Daten
Gruß
Holger
#30
Access Programmierung / Re: verknüpfte Datensätze kopi...
Letzter Beitrag von MaxP - Juli 31, 2026, 14:36:03Zitat von: Knobbi38 am Juli 30, 2026, 19:20:25Wo genau ist also dein Problem oder ist das eine Auftragsarbeit? Und du verwendest immer noch ACC2K3 im MDB Format?Nein, dass ist keine Auftragsarbeit, sondern meine eigene DB, die ich vor 18 Jahren ohne viel Kenntnisse begonnen habe. Und ja, ich arbeite immer noch mit ACC03 im MDB-Format.
Mein Problem ist, dass ich das Kopieren bisher von Hand bewerkstelligt habe und ich dafür fast 45 Min. brauche, auch wenn es nicht so häufig vorkommt.
Gruß
Max