ACCESS 2003
Private Sub Kunde_Partner_AfterUpdate() 'Mit der ComboBox die Umkehrfunktion. Partner gewählt - Sprung zum Kunden
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.findfirst "KNR = '" & Me!Kunde_Partner.Column(1) & "'"
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
Me.Ansprechpartner.SetFocus
End Sub
Diesen Code habe ich mit Hilfe von euch hier im Forum erstellt.
Der funktioniert wirklich prima. Aber eine Kleinigkeit fehlt noch.
Das HF heißt KUNDEN
Das UF heißt PARTNER
Das Feld, wo der gesuchte Partner steht heißt NACHNAME.
Das ist Column(1)
Jetzt nochmal zum Ablauf. Ich öffne die Combobox und wähle einen Namen.
Jetzt sucht der Code zu diesem Namen den dazugehörigen Kunden.
Dann springt der Cursor ins UF PARTNER in den ersten gefundenen DS des Feldes NACHNAME.
Soweit ist alles Okay.
Jetzt habe ich Kunden mit 30 bis 40 Ansprechpartner.
Doch der Cursor steht leider immer im ersten gefundenen Namen.
Es wäre super, wenn der Cursor gleich im Feld des PARTNERS stehen würde.
So muss ich jedes mal nach unten scrollen.
Der Code Me.Ansprechpartner.SetFocus bezieht sich lediglich auf den ersten DS im UF PARTNER.
Kam das irgendwie rüber, was ich hier versuche zu erklären?
Danke für Tipps, was ich da am Code einfügen muss.
Gruß Achim
Hi,
mir ist da noch einiges unklar, bspw. wo (in welchem Formular) befindet sich die Ereignisprozedur? Und warum enthält ein Feld namens "KNR" einen Nachnamen? Oder wie hängt das genau zusammen?
Und wie lautet die Datensatzquelle des Kombifeldes?
Hallo,
ehrlich gesagt, verstehe ich nur Bahnhof...
Dein Code positioniert in dem Formular, wo er abläuft, auf den Datensatz, bei dem "KNR" dem (vermutlich) angezeigten Wert (Kundennummer?) aus der 2. Spalte des Kombilistenfeldes entspricht...
Was hat das alles mit "Nachname" und Positionieren auf den (welchen denn) Nachnamen im Unterformular zu tun?
Weia!! Also doch nicht gut beschrieben von mir.
Ich versuche es nochmal zu erklären.
Die Ereignisprozedur steht im Formular KUNDEN, also im HF.
KNR ist die Kundennummer. Diese hat eine Verknüpfung der Stammdaten mit den Ansprechpartnern.
Mein HF heißt KUNDEN
Das UF heißt PARTNER
Und die sind verknüpft mit dem Feld KNR.
Beispiel: Der Herr Fischer vom Kunden ....ääh ja.. komm jetzt nicht drauf........hmmm.
Also öffne ich die Combo, gebe den Namen Fischer ein, drücke Enter und schon wird der Stammdatensatz MÜLLER im HF gefunden, weil dort der Ansprechpartner Fischer heißt.
Das funktioniert richtig gut.
So, und nun wollte ich diesen Ablauf noch etwas komfortabler gestalten.
Annahme beim Kunden Müller habe ich 10 Ansprechpartner drin.
ALSTER
BAUM
DOLS
DOSER
ENTENMANN
FISCHER
RECKERMANN
STELLS
TAUCHER
ULSASS
Der Herr Fischer ist natürlich irgendwo mitten drin in der Liste. In diesem Fall an 6.Position.
Mit dem bisherigen Code wird nach Klick auf ENTER die Firma MÜLLER gefunden und im Unterformular steht der Cursor im Feld ALSTER.
Der Cursor steht immer auf dem ersten Namen des Felds NACHNAME.
Was muss ich am Code ändern, damit der Cursor bei Herrn FISCHER steht?
Hallo,
dann positioniere halt zusätzlich das UFO auf den Nachnamen...:
Private Sub Kunde_Partner_AfterUpdate() 'Mit der ComboBox die Umkehrfunktion. Partner gewählt - Sprung zum Kunden
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.findfirst "KNR = '" & Me!Kunde_Partner.Column(1) & "'"
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Me!Ansprechpartner.Form.RecordsetClone
rst.findfirst "Nachname = '" & Me!Kunde_Partner.Column(0) & "'" ' je nachdem, in welcher Spalte der Nachname steht.
Me!Ansprechpartner.Form.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
Me.Ansprechpartner.SetFocus
End Sub
Hallo Franz,
der Code sieht nun so aus.
Private Sub Kunde_Partner_AfterUpdate() 'ComboBox um Partner zu suchen zum Kunden
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "KNR = '" & Me!Kunde_Partner.Column(1) & "'"
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Me!Ansprechpartner.Form.RecordsetClone
rst.FindFirst "Nachname = '" & Me!Kunde_Partner.Column(1) & "'"
Me!Ansprechpartner.Form.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
Me.Ansprechpartner.SetFocus
End Sub
Aber ich erhalte die Fehlermeldung 438 "Objekt unterstützt diese Eigenschaft oder Methode nicht"
Der Debugger steht dann in der Zeile
Set rst = Me!Ansprechpartner.Form.RecordsetClone
Hallo,
setz mal für "Ansprechpartner" den richtigen Namen des Ufo-Steuerelementes ein.
Das hatte ich gleich mal gemacht, noch bevor du geantwortet hast.
Dann gibt es zwar keine Fehlermeldung, aber es gibt auch keine Veränderung zum bisherigen Ablauf.
Der neu hinzugefügte Codeteil von dir bleibt gewissermaßen wirkungslos.
Private Sub Kunde_Partner_AfterUpdate() 'ComboBox um Partner zu suchen zum Kunden
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "KNR = '" & Me!Kunde_Partner.Column(1) & "'"
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Me!Partner.Form.RecordsetClone
rst.FindFirst "Nachname = '" & Me!Kunde_Partner.Column(1) & "'"
Me!Partner.Form.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
Me.Partner.SetFocus
End Sub
Hallo,
Column(1) im 2. Teil kann ja nicht stimmen, in dieser Spalte steht die Kundennummer und nicht der Nachname drin...
Hatte ich beides probiert.
(0) und (1).
Keine Veränderung. Der Cursor steht nach wie vor im Feld Nachname des ersten DS im Formular Partner.
Nachtrag zur letzten Antwort:
Die Tabelle, in der die Partner stehen hat folgende Reihenfolge.
ID, Vorname, Nachname.
Die Combo hat als Spaltenbreiten 0;3;8
Und die 8 bezieht sich auf den Nachnamen.
So habe ich mal alle Klammerwerte von 0,1,2,3 getestet
Nichts zu machen.....
Hi,
wildes Probieren macht keinen Sinn. Du musst wissen, welche Spalte du brauchst und wie du sie ansprichst, die Zählung beginnt bei 0.
Die Antwort auf meine Frage:
ZitatUnd wie lautet die Datensatzquelle des Kombifeldes?
habe ich nicht gefunden, aber nachdem was ich gelesen habe, könnte der Nachname in der dritten Spalte stehen, also brauchst du Column(2), um darauf zuzugreifen.
Ist deine KNR vom Typ Text???
Und das Kombifeld soll beides tun, erst den Kunden suchen, dann den Partner?
Wie heißt denn das Unterformular-
Steuerelement im Hauptformular?
Die Datensatzquelle des Kombi ist eine Abfrage.
Diese beinhaltet 2 Tabellen.
Die Tabelle mit den Kundenstammdaten und die Tabelle mit den Partnern.
Beide Tabellen haben eine Beziehung über das Feld Kundennummer KNR.
Das Unterformular-Steuerelement im Hauptformular?
Hoffentlich habe ich das jetzt richtig kapiert.
Der Name des Steuerelements ist "NAME"
Der Steuerelementinhalt ist "Nachname"
Sorry, aber hier ist "Klartext" gefragt:
Zitat von: Accessy am Februar 04, 2015, 19:22:50
Die Datensatzquelle des Kombi ist eine Abfrage.
Diese beinhaltet 2 Tabellen.
Die Tabelle mit den Kundenstammdaten und die Tabelle mit den Partnern.
Beide Tabellen haben eine Beziehung über das Feld Kundennummer KNR.
zeige doch bitte endlich den mehrfach nachgefragten
SQL-Code dieser Abfrage.
ZitatDas Unterformular-Steuerelement im Hauptformular?
Hoffentlich habe ich das jetzt richtig kapiert.
Der Name des Steuerelements ist "NAME"
Der Steuerelementinhalt ist "Nachname"
Nein, das ist das Textfeld im Unterformular. Gefragt war aber nach dem Namen des
Unterformular-Steuerelements im Hauptformular.
Bitte genau lesen was geschrieben wird. Bei Verständnisproblemen nachfragen. Nicht einfach "Milch" durch "Wasser" ersetzen, bloß weil man das Wort nicht kennt.
Den SQL Text hat keiner nachgefragt.
Na egal.
[/
SELECT Partner.ID, Partner.KNR, Partner.Nachname, Kunden.Kunde
FROM Kunden INNER JOIN Partner ON Kunden.KNR = Partner.KNR
ORDER BY Partner.Nachname;
code]
Das hier ist der SQL Code der Abfrage.
Und damit kann ich nichts anfangen.
[b]Namen des Unterformular-Steuerelements im Hauptformular.
[/b]Keine Ahnung welches Objekt hiermit gemeint ist.
Hallo Achim,
ZitatUnd damit kann ich nichts anfangen.
Namen des Unterformular-Steuerelements im Hauptformular.
Keine Ahnung welches Objekt hiermit gemeint ist.
Wenn du dein Formular im Entwurfsmodus öffnest dann klickst du EINMAL auf das Unterformular und schaust dir dessen Eigenschaften an. Den Namen des Unterformular-Steuerelements findest du entweder im Dropdown oberhalb der Register angezeigt oder auf der Registerkarte 'Andre' im Feld 'Name'
Also, ich habe das Formular KUNDEN im Entwurf geöffnet.
Anschließend einen Klick auf die erste Registerkarte, in der das UF PARTNER eingebaut ist.
Diese Registerkarte trägt den Namen ANSPRECHPARTNER
Klicke ich mit der rechten Maustaste auf diese Registerkarte ANSPRECHPARTNER und schaue in den Eigenschaften unter ALLE, steht dort unter dem Eigenschaftswert NAME der Name der Registerkarte. Und der heißt ANSPRECHPARTNER.
Deshalb steht ja im Code auch zuletzt ganz unten drin
Me.Ansprechpartner.SetFocus
Hallo,
Du musst das UFO-Steuerelement markieren, nicht die Registerseite.....
In den Eigenschaften dieser "Markierung" steht unter "Herkunftsobjekt" vermutlich "Partner" und auch bei "Name" vermutlich auch "Partner". Insofern sollte der Code so lauten, wenn zudem entspr. der Abfrage die Spaltenanzahl des Kombis auf 3 gesetzt ist :
Private Sub Kunde_Partner_AfterUpdate() 'ComboBox um Partner zu suchen zum Kunden
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "KNR = '" & Me!Kunde_Partner.Column(1) & "'"
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Me![color=red]Partner[/color].Form.RecordsetClone
rst.FindFirst "Nachname = '" & Me![color=green]Kunde_Partner.Column(2) [/color] & "'"
Me![color=red]Partner[/color].Form.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
Me!AnsprechPartner.SetFocus
End Sub
Wenn das immer noch nicht klappt, dann lad die DB abgespeckt (vorher komprimiert/repariert und gezippt) hier hoch...
Exakt so wie der Code jetzt von dir hier dargestellt wird, steht er auch in meinem VBA.
So, jetzt habe ich mal nach deiner Anweisung das UF markiert und die Eigenschaft aufgerufen.
Die Datenherkunft ist eine Abfrage die da heißt "Partner sortiert Name".
Öffne ich diese Abfrage, steht im Entwurf folgende Reihenfolge:
ID, Vorname, Nachname, Firma, Adresse, ...usw..usw...
Also Nachname steht an Position 3.
Es funktioniert ja erst einmal korrekt bis zum ersten rst.close, weil der richtige Stammdatensatz gefunden wird.
Auch alle Ansprechpartner des Kunden werden im UF gelistet.
Einzig der Cursor steht NICHT in dem Feld des richtigen Namen, sondern immer oben beim ersten.
Vielleicht ist ja dieses Me.Ansprechpartner.SetFocus falsch, oder nicht ausreichend.
Dieser Codeteil veranlasst doch lediglich, dass die Registerkarte ANSPRECHPARTNER gewählt wird und der Focus dort liegt.
Da müsste vielleicht stehen
Me.Ansprechpartner.Partner.Nachname.SetFocus
Aber das geht leider nicht.
Hi,
ZitatDa müsste vielleicht stehen
Me.Ansprechpartner.Partner.Nachname.SetFocus
der Name der Registerkarte spielt hierbei keine Rolle, aber das Setzen des Fokus solltest du unterlassen, der geht dann ja vom Ufo weg.
ZitatSo, jetzt habe ich mal nach deiner Anweisung das UF markiert und die Eigenschaft aufgerufen.
Die Datenherkunft ist eine Abfrage die da heißt "Partner sortiert Name".
Du solltest das Ufo-
Steuerelement im Hfo markieren, also nur einmal anklicken.
Dann schau dir die Eigenschaften an.
Zitat
das Ufo-Steuerelement im Hfo markieren
Das habe ich nicht verstanden.
Aber es gibt eine deutlich, verbesserte Veränderung, die ich hier mal erwähnen möchte.
Ich habe mal gemäß der Vorgabe die Zeile
Me.Ansprechpartner.setfocus
deaktiviert.
Wenn ich nun den Namen in der Combo wähle und Enter drücke, dann
wird wie bisher der Stammdatensatz gefunden aber der Cursor steht NICHT mehr im ersten Feld des UF.
Ich vermute mal, dass der nun im richtigen Feld des Namen steht, aber außerhalb des sichtbaren Bereichs.
Gebe ich nun in der Combo noch einmal den Namen ein,
dann wird das UF entsprechend runter gescrollt und der Cursor steht exakt im Feld des Namen.
Nur noch einen Schritt bis zur Lösung....Vermute ich...Aber welcher?
Hallo,
ZitatNur noch einen Schritt bis zur Lösung....Vermute ich...Aber welcher?
lad die Db hoch...
Hi,
ich hätte dazu noch folgenden Vorschlag:
Private Sub Kunde_Partner_AfterUpdate() 'ComboBox um Partner zu suchen zum Kunden
Me.Recordset.FindFirst "KNR = '" & Me!Kunde_Partner.Column(1) & "'"
Me!Partner.Form.Recordset.FindFirst "Nachname = '" & Me!Kunde_Partner.Column(2) & "'"
Me!Partner.SetFocus
Me.Partner.Form.Nachname.SetFocus
End Sub
Diese, oder ähnliche Codezeile
Me.Partner.Form.Nachname.SetFocus
hatte ich schon zuvor probiert und erwähnt.
Geht leider nicht wegen Fehler 438.
Fehler 438: "Objekt unterstützt diese Eigenschaft oder Methode nicht"
Dann hantierst du immer noch mit den falschen Namen herum.
Was hat denn die Überprüfung des Unterformular-Steuerelement-Namens ergeben?
BZW: Warum lädst du nicht einfach mal eine Test-DB dazu hoch?
Ich möchte die DB nicht hochladen. Das sind Firmendaten.... das mache ich nicht... will mir keinen Ärger einhandeln.
Ich gebe hier nochmal eine Zusammenfassung der Elemente durch.
HF heißt KUNDEN
In der Registerkarte mit Namen ANSPRECHPARTNER liegt das UF mit Namen PARTNER.
Die Combobox heißt KUNDE_PARTNER und bezieht ihr Daten aus einer Abfrage.
In dieser Abfrage gibt es die Tabellen KUNDE und PARTNER, verknüpft.
4 Felder stehen im Entwurf.
ID
KNR
Nachname
Kunde
Also der Name steht an 3. Stelle; für die Combo in Klammern (2).
Im UF PARTNER heißt das Feld NACHNAME
Wenn ich mit
Me.Partner.Form.Nachname.SetFocus starte, kommt der Fehler 438.
Wenn ich mit
Me.Partner.Form.Name.SetFocus starte, kommt der Fehler beim Kompilieren.
Ungültiger Bezeichner und markiert ist .Name.
Kann es sein, dass ich hier versuche etwas benutzerfreundlich zu gestalten,
aber gar nicht machbar ist?
Nachtrag:
Ich erhalte ja keine Fehlermeldung mit
Me.Ansprechpartner.Setfocus.
Vielleicht ist ja die Registerkarte "ANSPRECHPARTNER" der Schlüssel.
Hi,
Zitat von: Accessy am Februar 06, 2015, 16:50:27Das sind Firmendaten.... das mache ich nicht... will mir keinen Ärger einhandeln.
niemand will hier Firmendaten sehen, es soll lediglich eine
Beispiel-DB mit ein paar Testdaten und dem was nötig ist, um das Problem nachzustellen, geliefert werden.
ZitatWenn ich mit
Me.Partner.Form.Nachname.SetFocus starte, kommt der Fehler 438.
Dann stimmt vermutlich der Name des Unterformular-Steuerelements nicht mit dem Namen des eingebetteten Formulars überein. Aber darauf wurde ja bereits mehrfach hingewiesen.
ZitatWenn ich mit
Me.Partner.Form.Name.SetFocus starte, kommt der Fehler beim Kompilieren.
Ungültiger Bezeichner und markiert ist .Name.
Wildes Herumprobieren ist sinnfrei, das lässt sich schließlich nachsehen, wie die Steuerelemente heißen, die du ansprechen willst.
ZitatKann es sein, dass ich hier versuche etwas benutzerfreundlich zu gestalten,
aber gar nicht machbar ist?
Ganz bestimmt ist das machbar und durchaus nichts besonderes.
ZitatIch erhalte ja keine Fehlermeldung mit
Me.Ansprechpartner.Setfocus.
Kein Wunder, denn das ist eine Registerkarte im Hauptformular, nur hat die mit dieser Sache absolut nichts zu tun. Aber auch das sagte ich bereits.
So langsam ist es nicht mehr lustig... :-(
ZitatVielleicht ist ja die Registerkarte "ANSPRECHPARTNER" der Schlüssel.
GANZ SICHER NICHT!
Ich habe mal versucht die DB auf einen Zustand zu bringen, der mir für eine Veröffentlichung keine Schwierigkeiten bereitet. Leider vergeblich. Das Formular lässt sich nicht mehr öffnen. Nur noch Fehlermeldungen. Das fehlt, das fehlt und das fehlt...Fehler hier, Fehler da....
Ich schließe das Thema mal als gelöst ab. Es funktioniert ja alles und das ist mir die Hauptsache. Ich bitte euch daher auch nicht sauer zu sein. Ihr habt mir hier in den letzten Monaten wirklich viel geholfen meine DB in einem derart guten Zustand zu bringen. Dafür ein großes Danke schön.
Ist halt nur ärgerlich, dass es fast funktioniert.
Wenn ich die Zeile
Me.Ansprechpartner.SetFocus NICHT setzen würde, wird das UF PARTNER nicht angesprungen.
Und noch ärgerlicher ist, dass es beim 2.Eingeben des Partners in der Combo der Cursor dann im Feld NACHNAME beim richtigen Partner steht.
Hallo,
importiere nur das Hauptform in eine neue leere DB und lad das Ding hier hoch....
Das war eine gute Idee.
Aber ob das was bringt möchte ich bezweifeln.
Der Code im AfterUpdate-Ereignis deiner Beispiel-DB entspricht keinem der zuletzt genannten Vorschläge und meinen Vorschlag von heute 12:09 Uhr hast du wohl gar nicht erst ausprobiert.
Ein paar Testdaten wären evtl. nicht verkehrt gewesen. Die anderen Unterformulare hättest du entfernen können, dann fallen auch die ganzen Fehlermeldungen beim Öffnen weg.
BTW:
Die Breitenänderung des Kombifeldes ist übrigens überflüssig, dafür gibt es die Kombifeldeigenschaft "Listenbreite".
Nachtrag:
Ein Datenfeld oder auch Steuerelement mit "Name" zu bezeichnen, ist ein verhängnisvoller Fehler, wie man hier mal wieder sieht.
Ändere das und alles funktioniert wie erwartet.
Ich habe alles ausprobiert.... >:(
Aber letztendlich wieder dahin zurückgestellt, was zuvor fehlerfrei lief.
Ich hatte deine Antwort noch nicht gesehen als ich meinen Nachtrag schrieb.
Die Lösung des Problems findest du also über deinem letzten Beitrag.
Wir hatten die ganze Zeit vermutet, dass du das Unterformular falsch ansprechen würdest, statt dessen war es das Steuerelement im Unterformular, das nicht mit "Nachname" sondern mit "Name" bezeichnet ist.
Zitatwas zuvor fehlerfrei lief
aber eben nicht zielführend war.
Me.Partner.Form.Name.SetFocus
Bringt die Meldung "Ungültiger Bezeichner"
Das hatten wir auch schon
Klar, was hatte ich denn geschrieben? Nenne ein Steuerelement niemals "Name"!
Habs mal umbenannt auf NN.
Keine Fehlermeldung,
aber auch nicht sichtbar, ob der Cursor im Feld des gesuchten Partners steht.
Me.Partner.Form.NN.SetFocus.