Office: (Office 2003) Aus access überprüfen ob in einer Spalte "Wert" vorhanden ist

Hallo,

Hab ein Access endlosformular.
Dort würde ich gerne in einem (ungebundenen?) Textfeld anzeigen, ob in einer
Excel Datei in der Spalte B:B ein bestimmter Wert vorhanden ist.
Und dann in diesem Feld reinschreiben, "Vorhanden" / "Nicht vorhanden"

Bin mir aber nicht sicher, wie das geht.
Geht das über verknüpfte Tabellen oder eher per VBA und Schleifen, um die Spalte zu überprüfen?

Edit:
Ich bin im Mom. grad am verknüpfen und gucken, ob das dann geht.
Problem ist aber. Die Spalte B enthält zahlen und Text. Formatiert ist die ganze Spalte als Text.
Access macht beim Verknüpfen aber anscheinend "Zahl" draus.
Alle Zahlen, die ich in der Excel Datei habe, erscheinen als zahlen, und die Texte erscheinen als #zahl

:)

 

Schleifen kannst Du verwenden,
- wenn Du es umständlich und relativ langsam magst
- oder Deine Exceltabelle keine ordentliche Datentabelle ist.

Verknüpfen und eine Abfrage oder, wenn das die einzige Aktion auf die Exceltabelle ist, ein Zugriff direkt über SQL/ISAM wären geeignete Mittel.
Code:

Eine solche Information erscheint mir aber wie ein Zwischenergebnis innerhalb einer Prozedur und wäre eingearbeitet in diese sicher besser aufgehoben.

 

Danke für die hilfe.

Irgendwo tu ich mich schwer.
Vorher gings mal, da wurde mir allerdings alles mit Vorhanden angezeigt.
Hab dann irgendwas probiert, dann gings nicht mehr.
Hab die alte Version nochmal hervorgeholt, zum nochmals frisch anfangen...
bekomme jetzt allerdings die Meldung "Objekt erforderlich"

Jetzt noch ein Verständnisproblem.
Im Endlosform habe ich das Feld "Serial_Nr" dieses möchte ich gerne mit der Excel Spalte vergleichen. Dieses Feld hab ich ja nirgends drinnen, im VBA code.

Hab das jetzt als importierte xls Datei
Code:

Debugger bleibt hier stehen, im DLookupSQL Modul
Code:

Ja, es ist sowas wie ein Zwischenergebnis.
Ich habe hier meine AccessDB. und mit dieser schaue ich in einer "Minusliste" nach, ob Material fehlt. Wenn ja, zeig ich das dann in der DB an.

Die "Minusliste" liegt zentral auf dem Server, und div. Mitarbeiter tragen dort ihr Fehlendes Material ein. Noch dazu aus verschiedenen Abteilungen etc.
Eigentlich würde ich das lieber einarbeiten, wie du sagst. leider darf ich aber nicht. Die wollen ihre Excel Datei für das Fehlmaterial behalten *frown.gif*

 

Code:

Lass mal das C weg, ein CurrentDbC müsste extra deklariert werden, vgl Performance in VBA+Formularen von Josef Pötzl.

Was heißt das? Willst Du die Datensätze des Formulares (bzw. der dahinterliegenden Abfrage) mit denen der Exceltabelle abgleichen, d.h., beide Tabellen stehen in Beziehung?
Der vorhandene Vorschlag erstellt eine Aussage über die gesamte Excel-Spalte. Wenn Du das ins Endlosformular legst, steht immer in jedem Feld das gleiche.

 

In diesem Moment funktioniert's bei mir auch wieder.

Hatte den DlookupSQL von einem anderen Post nochmals kopiert.
Ja, ist mir jetzt auch erst aufgefallen, dass das allgemein gilt.

Ja, die stehen in beziehung zueinander *frown.gif*

Mein Endlosform hat ein Feld Serial_Nr.
Diese Minusliste hat auch ein Feld Serial_Nr.

Wenn jetzt also für eine Serial_Nr Material fehlt, wird dieses Material in der Excel Datei eingetragen.
SpalteA= Welches Mat. Spalte B= Für Welche Serial_Nr

So wollte ich jetzt in der AccDB prüfen, ob in der Excel Tabelle einen Eintrag mit der gleichen Serial_Nr vorhanden ist.

Eigentlich würde ich diese Minusliste liebend gerne in die AccDB übernehmen. Aber eben, ich darf nicht :/
Die Wollen par tout. Das in einer Excel Datei haben.

---
Dafür bin ich jeden Tag Rahmen am nachziehen, Feldgrössen am zurücksetzen
Schriftgrössen am korrigieren etc.

Ich hatte das mal mit Blattschutz und Feldschutz versucht. Aber das scheiterte, wegen irgendwas. (ich erinner mich gerade nicht, wegen was genau)

 

Könnte man alternativ die Spalte in ein Memofeld einlesen, und dann Pro Datensatz nach der Serial Nr. Suchen?

Mit "like" oder so?

Es sind nie mehr als ca. 100 Zeilen in der Spalte

 

Dann sollte man doch aus der Datenherkunft Deines Endlosformulares und aus der Exceltabelle eine gemeinsame Abfrage erstellen und die als Datenherkunft des Formulars hernehmen - falls Deine Tabellen das hergeben.
Falls Du dazu Hilfe benötigst, solltest Du diese zeigen.

 

Ach... wie blöd von mir, das sollte natürlich gehen.
Ich veruch's mal auf diese Art.

Habe mal das ganze auch mal in den Anhang gepackt. Als Verdeutlichung.
Unterdessen hab ich's geschafft, die Exceldatei mit Autofilter abhängig vom markierten Datensatz über eine Schaltfläche zu öffnen.

Der Schritt mit dem Prüfen, ob diese Serien Nr. war dazu gedacht, dass ich in der Access DB nich nochmals überprüfen muss, ob jetzt bei einem Komponent Material fehlt oder nicht.

Also, ich probier das mal mit der Abfrage.

Edit:
Tatsächlich brauche ich Hilfe *frown.gif*
Das Form besteht schon aus einer Abfrage. Wenn ich diese jetzt um das Vorher genannte Feld erweitere, bekomme ich alle Datensätze mehrfach angezeigt etc.
Wie kann ich die beiden eigentlich sinnvoll verknüpfen, die Excel Tabelle hat ja keine eindeutige ID

 

Hallo boonsi1980,

mit den Bezeichnungen und der Logik komme ich noch nicht ganz klar. Daher in kleineren Schritten.
Lege Dir eine solche Abfrage an:
Code:

Damit holst Du Dir die Exceltabelle ungefiltert als Abfrage in die Access-Anwendung herein. Pfad und unteres Tabellenende (farbig markiert) müssten sinnvoll angepasst werden. Die Feldnamenliste ist natürlich exceltypisch und nicht besonders schön geeignet - Umschließung mit jeweils eckigen Klammern ist notwendig. Sie lautet

Diese Abfrage kannst Du nun mit Deiner Abfrage zu einer neuen Abfrage verknüpfen und Dir damit benötigte Informationen hereinholen.

 

Hallo Ebs,

danke für die Hilfe.
Eine Unklarheit hab ich noch.

Code:

Kein Problem. (Hab noch den Namen des Sheet's angepasst)
Diese Abfrage hab ich qxls_Minusliste genannt

Bin nicht sicher, ob ich das so richtig verstanden habe...
So hab ich nochmals eine Abfrage auf die qxls_Minusliste gemacht und zwar auf die "S/N od Modul N°" (Hab ich unterdessen auch nach "Serial" umbenannt.
Diese Abfrage hab ich qxls_Minusliste_SerialNr genannt.

Dies klappt ganz gut. So wird mir dann schön mit dieser Abfrage die vorhandenen SerialNr. angezeigt.

Ich hoffe, ich habe das bis dahin richtig verstanden.

Jetzt aber, wenn ich in meinem Endlosform das ganze überprüfen will, da hapert's noch.

Muss ich dann
a) die datenherkunft der endlosform nochmal mit der qxls_Minusliste_SerialNr "Joinen"?
Wenn ich das mache, dann erhalte ich alle Datensätze mehrfach.

oder b)
Ein ungebundenes Feld in der Endlosform erstellen, und in diesem per VBA für jede Zeile überprüfen lassen, ob in der "qxls_Minusliste_SerialNr" "Me!Serial_Nr" vorkommt?

Dann bräuchte ich noch ein Stichwort, wie ich das überprüfe.
Schleifen, und dann nachschauen... mit -->dlookup oder so?

oder c)
Bin ich völlig falsch?

Danke vielmals für die Hilfe von vorher etc.

 

Heureka,

ich hab die Lösung...

Folgende Funktion hab ich irgendwo aufgestöbert (schon abgeändert für meine Bedürfnisse):
Code:

Und dann im Steuerelementinhalt meines ungebundenen Feldes der Endlosform:
Code:

Jetzt noch eine Frage.
die Abfrage "qxls_Minusliste_SerialNr" holt sich ja die daten aus der XLS Tabelle, beim öffnen der DB oder nach einem F9 bzw. aktualisieren.

Ist das das gleiche, wie xyz.requerry? oder xyz.recalc?
Ich überleg mir nämlich, wohin das ich die aktualisierung mache... bei "datensatzwechsel" ist das wohl etwas zu häufig, wenn den "traffic" nicht ins unermessliche hochschiessen will.

Habt ihr da eine Idee dazu?
(Die "Minusliste" wird so ca. 10x am Tag aktualisiert.)

Edit:
Ich hab noch gelesen, das Funktionen wie DCount nicht so schnell sind.
Wie sieht das dann aus in sagen wir mal... 5 Jahren?
Pro Tag werden ca. 6 Komponenten erledigt. D.H. Pro jahr sind das grob gerechnet ca. 1440 Einträge in der Komponentenliste, welche dann jedesmal mit dlookup verglichen werden.
In der Vergleichstabelle sind jeweils zwischen 20-150 Zeilen.

 

Wenn man die Exceltabelle in die Datenherkunft des Endlosformulares einbinden kann, sollte man das tun, ein zusätzliches berechnetes Feld erzeugen und das Formularfeld an dieses Feld binden. Die Gedanken an DLookup, DSum u.ä. sollten somit entfallen.
Code:

Die ursprüngliche Abfrage hat 39 Datensätze. Mit zusätzlicher Einbindung der Exceltabelle wie gezeigt (RIGHT JOIN) ergeben sich 54 Datensätze, bei einem INNER JOIN 21. Was sinnvoll ist, ob zusätzliche Filterungen notwendig sind, woran Du Duplikate erkennst: Keine Ahnung und keine Vorstellung.

Das zusätzliche berechnete Feld könnte so aussehen:
Code:

 

Also,

die neue SQL Abfrage war dank deiner Hilfe kein Problem.
In meinem Form hab ich die Datenherkunft des Formulars dann auf diese neue Abfrage gesetzt.

Jetzt hab ich aber mit
Code:

leider ein Problem.
(Muss hier nicht ein Semikolon sein?)

Zuerst dachte ich, es gehe nicht, weil die Daten gemischt sind.
In der Excel Tabelle hab ich ja noch die Spalte "SN als Text" in der ich alles in Text umwandle.
Leider geht's mit dieser auch nicht.

Ich bekomme die Meldung:

 

Der Hinweis mit dem Semikolon ist richtig.

Vielleicht benötigst Du entsprechend der Inhalte ein anderes Kriterium als > "", vielleicht so etwas wie Is Not Null bzw IsNull([Feld]).

Diese Abfrage ist in die neue Abfrage wie gezeigt eingebunden?

Nebenbei: Auf eine Zwischenabfrage wie qxls_Minusliste würde ich verzichten und gleich wie in #9 gezeigt auf die originale Tabelle verweisen, dann natürlich nicht alle Felder, sondern nur die benötigten Felder verwenden, und der Aliasname T für die lange Tabellenbezeichnung steht nicht ohne Grund da, sondern steht bereit für eine qualifizierte Bezeichnung von Feldern (inkl. Tabellenherkunft des Feldes).

 

Also so hab ich das eingebunden

Ist so eingebunden:
Code:

Benannt hab ich das nach: qKomponentenliste_Excel
Und für mein Endlosform diesen Namen als Herkunft gewählt

Gehen beide nicht.

Gute Idee,
ich werde das dann bald noch umbauen. Mit dem "Aliasnamen" blick ich noch nicht ganz durch. Aber da werd ich zuerst mal noch suchen, das werde ich sicher noch selber heruasfinden *Smilie