TKSoft-Online

Win7/Access 2007 incl. aller Servichepacks

Hallo,

in meiner DB habe ich 3 Tabellen.
Kunden 1---oo Kundenansprechpartner
Kunden 1---oo Kundenakquise

Ich will erreichen das ich von der Tabelle Kunden die dazugehörigen Ansprechpartner in der Tabelle Kundenakquise speichern kann.
Dazu habe ich das Formular hfrm_kunden mit insgesamt 3 Register mit ufrm_Kundenansprechpartner und ufrm_Kundenakquise erstellt.

In dem ufrm_kundenakquise gibt es eine Combo (cbo_ansprechpartner) welches folgende Datenherkunft hat:
SELECT tbl_kundenansprechpartner.KAID, [tbl_kundenansprechpartner].[ka_anrede] & " "+[ka_vorname] & " "+[ka_nachname] AS Anprechpartner
FROM tbl_kundenansprechpartner
WHERE (((tbl_kundenansprechpartner.KUNRA)=[Formulare]![hfrm_kunden]![KUID]));

Bei einem fast Identischen Formular (hfrm_kundenerfassung), werden mir die Ansprechpartner richtig angezeigt,aber in dem benötigten hfrm_kunden aber nicht, sondern will stattdessen einen Parameter bei der Kundenakquise.


Nach Stundenlanger Fehlersuche und etlichen versuchen, wurde ich mit Erfolglosigkeit belohnt. Oder liegt es Am Aufbau? Ich suche nach einer stabilen Lösung, denn es nervt irgendwie dass ein Formular funktioniert und dass andere nicht.

Nehme jeden Lösungsvorschlag an der funktioniert.

Gruß Peter

Hallo Peter,

hier kamen einige unglückliche Umstände zusammen.

1. Das UForm brachte nur Fehler bei VBA-Code.
2. Die Abfrage "qry_akquise" kann dafür nicht genommen werden, da das Kriteruim sich ja auf ein anderes Form bezieht.
3. Deshalb neu Abfrage "qry_akquise_Kunden" erstellt und als Datenherkunft für das Kombifeld gesetzt.
4. UForm "ufrm_kundenakquise2" neu erstellt
5. Im HFO "hfrm_kunden" den Code im Current-Event hinzu gefügt:

Jetzt sollte es klappen

Hallo Tommy

vielen Dank für Deine schnelle Unterstützung. Unglücklich trifft den Nagel auf den Kopf. Wie Du bei den Abfragen siehst, gibt es dort eine qry_akquise_ap welche identisch mit deiner ist. Ich habe dies zum Testen auch als Datenherkunft benutzt. Trotzdem erhielt ich den Dialog Parameter eingabe.

Bei mir hat es nicht funktioniert. Heute Abend habe ich etwas mit dieser DB gearbeitet, und wie ein paar Stunden zuvor die Meldung: Return ohne Gosub erhalten. Nach dem decompilieren war die Meldung wieder weg. Ich habe dann diese Akquise Formulare mal herausgenommen, und noch einmal das gleiche wie zuvor gemacht. Dann aber keine Meldung mehr erhalten.

Ich bin mir mittlerweile sicher, dass es irgendwas mit dieser Art von Abfrage zu tuen hat, welche mir das Return ohne Gosub erzeugt. Gibt es vielleicht noch eine andere Variante das mit den Ansprechpartnern zu lösen?

Viele Grüße

Peter

Hallo Peter,

was ist mit DB aus meinem letzten Beitrag. Geht die auch nicht?

Hallo Tommy,

deine DB geht einwandfrei, mit der Abfrage der Kontaktpersonen macht Anfangs keine Probleme.

Bis auch auf das Problem mit dem Return ohne Gosub. Ich habe die DB auf meinen Zweitrechner laufen lassen, das gleiche mit dem Return ohne Gosub.

Die Idee mit dem Sql Sting zu übergeben, könnte funktionieren.

Viele Grüße

Peter

Hallo Peter,


Den Fehler kann ich nicht nach vollziehen.
Wo bleibt das Programm konkret stehen?

Hallo Tommy,

sobald das Formular hfrm_kunden geöffnet wird. Das passiert nicht regelmäßig, sondern sporadisch.
Den SandboxMode habe ich schon vor der ersten Öffnen der Datenbank auf 0 gesetzt.

Viele Grüße

Peter

Hallo Peter,

das ist sehr eigenartig.
Ich würde an Deiner Stelle mal eine neue leere DB erstellen und alle Objekte
aus der alten DB in die Neue importieren.

Hallo Tommy,

die DB habe ich in einer neuen importiert. Aber wenn ich jedesmal damit rechnen das der Fehler wieder auftritt, und die DB steht ja erst am Anfang. Wenn ich diese erweitere und sich ähnliche Fehler einschleichen ist die zuverlässigkeit nicht mehr garantiert.

Wo fange ich dann das Suchen an?

Gruß

Peter

Hallo Peter,

Fehler können immer auftreten, davor ist niemand gefeit.
Wichtig wäre das Du im VBA-Code konsequent ErrorHandler integrierst um die auftretende Fehler abzufangen.
Am besten eignen sich dafür die MZTools

Hallo Tommy,

habe es gestern den ganzen Abend mal probiert den SQL String via VBA zu übergeben, was schon im Ansatz gescheitert ist. Kennst Du vielleicht einen Link oder Tip wo jemand soetwas schon mal probiert hat?

Habe die DB heute schon wieder mit Decompile starten müssen, da Access sich wieder mit der Parameter Abfrage gemeldet hat.

Gruß

Peter

Hallo Peter,

im Anhang die Lösung mit einem SQL-String
Im Modul1 wird eine globale Variable erstellt die die KUID aufnimmt

Im Current-Event des Forms wird die dann gefüllt und damit der SQL-String erstellt
und dem Kombifeld zugewiesen.

Hallo Tommy,

habe mit der Sql Lösung keinerlei Probleme mehr. Weder Parameter Abfragen noch Return ohne Gosub.
Habe heute teile neu angepasst und überarbeitet, lief tadellos. Dies ist wohl die einzige Stabile Lösung. Gibt es für die SQL Anweisung mit VBA ein Tool, oder muß dieser selbst zusammengestrickt werden?

Vielen Dank!

Gruß

Peter

Hallo Peter,

es gibt schon ein Tool aber auch da ist etwas Handarbeit erforderlich.
SmartTools SQL aus Abfragen
Zuerst erstellst Du eine Abfrage im Abfrageeditor speicherst diese.
Dann kannst Du mit dem AddIn die Abfrage umwandeln.
Bei der Übergabe von Variablen usw. musst Du diese aber nachträglich von Hand ändern.