Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
NachDatensatzSuchen als VBA (Datensatznavigation)
zurück: ungebundenes Feld mit DomAnzahl-Funktion weiter: Ungebundene Tristate Checkbox mit Default-Wert, Access 2010 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
bobrock42
Anfänger ACCES, VBA


Verfasst am:
10. Jan 2012, 13:38
Rufname:

NachDatensatzSuchen als VBA (Datensatznavigation) - NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Liebes Forum,

Ich habe in einem Formular ein Listenfeld erstellt über den ich per Klick auf den ensprechenden Datensatz im gleichen Formular springen kann.

Da Listenfeld habe ich über den Steuerfeldassistenten erstellt, der Assistent hat anstatt VBA Code ein Makro eingebettet. Da ich dieses erweitern wollte, habe ich über umwege das Makro konvertiert in:


Code:


'------------------------------------------------------------
' SuchenNachDatensatz
'
'------------------------------------------------------------
Function SuchenNachDatensatz()
On Error GoTo SuchenNachDatensatz_Err

    DoCmd.SearchForRecord , "", acFirst, ""


SuchenNachDatensatz_Exit:
    Exit Function

SuchenNachDatensatz_Err:
    MsgBox Error$
    Resume SuchenNachDatensatz_Exit

End Function


Jetzt möchte ich diese Funktion als Ereignis auslösen! (LBFilter_AfterUpdate())

Wie kann die Funktion in die Ereignisprozedur eingebettet werden? Oder geht das überhaupt?

Vielen Dank im Voraus für eure Hilfe!
Mit besten Grüssen,
derArb
getting better


Verfasst am:
10. Jan 2012, 13:51
Rufname: derArb
Wohnort: Berlin


AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Hallo,
etwa so:

Code:
Private Sub LBFilter_AfterUpdate()
On Error GoTo SuchenNachDatensatz_Err

    DoCmd.SearchForRecord , "", acFirst, ""

SuchenNachDatensatz_Exit:
    Exit Function

SuchenNachDatensatz_Err:
    MsgBox Error$
    Resume SuchenNachDatensatz_Exit
End Sub

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
bobrock42
Anfänger ACCES, VBA


Verfasst am:
10. Jan 2012, 13:57
Rufname:

AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Danke für schnelle Antwort,

Ich habe jetzt deinen Code eingefügt, beim ausführen erscheint aber:

Zitat:

Fehler beim Kompilieren:

Exit function nicht zulässig in Sub oder Property!


habe ich irgendwas übersehen oder falsch kopiert?
derArb
getting better


Verfasst am:
10. Jan 2012, 14:06
Rufname: derArb
Wohnort: Berlin

AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Hallo,
nein, denn ich hab was übersehen... Embarassed

statt
Code:
Exit Function

schreibe
Code:
Exit Sub

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
bobrock42
Anfänger ACCES, VBA


Verfasst am:
10. Jan 2012, 14:20
Rufname:


AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

irgendwie funzt es immer noch nicht Smile

jetzt erscheint beim ausführen:

Zitat:

Ein Ausdruck, der im Argument 3 steht, hat einen für dieses Argument ungültigen Wert.


das kompilieren selbst gibt keine Fehlermeldung zurück!
derArb
getting better


Verfasst am:
10. Jan 2012, 14:28
Rufname: derArb
Wohnort: Berlin

AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Hallo,
also ich habs bisher einfach 1:1 umgeschrieben.

Code:
 DoCmd.SearchForRecord , "", acFirst, ""

kenn ich nicht wirklich.

probier mal stattdessen
wenn in einem Feld vom Datentyp Text gesucht wird:
Code:
Me.Recordset.Findfirst "DeinTextfeld = '" & Me!LBFilter & "'"

wenn in einem Feld vom Datentyp Zahl gesucht wird:
Code:
Me.Recordset.Findfirst "DeinZahlenfeld = " & Me!LBFilter

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
bobrock42
Anfänger ACCES, VBA


Verfasst am:
10. Jan 2012, 14:44
Rufname:

AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Ich kann dir nicht ganz folgen, bin seit einer woche dabei, mich in acces einzuarbeiten, und kurz vor der stationären behandlung Smile

also, ich habe kein textfeld wo ich etwas eingebe, sondern ein Listenfeld, das zwei Spalten (Nachname und Vorname) und alle Zeilen aus einer Tabelle anzeigt.

Ich habe dieses auf dem Formular plaziert um mich leichter durch die Datensätze zu navigieren. Es funktioniert so, dass ich auf eine Zeile in diesem Listenfeld anklicke und dadurch springe ich zum entsprechenden Datensatz und kann die Detailinformationen bearbeiten. Mit dem Makro (=afterUpdate) klappts ja auch.

Jetzt ist aber so, dass ich noch ein Unterformular als Endlosformular habe. Wenn ich dieses Bearbeite kann ich nicht mehr mit der Maus scrollen ohne vorher auf ein Feld im Hauptformular zu klicken. Auch wenn ich auf das Listenfeld klicke, erscheint das gleiche Problem. Daher wollte ich noch ein SetFocus als Ereignis zum Makro "dazuschreiben". Wenn ich das mache wird aber das Makro nicht ausgeführt, daher überhaupt die ganze Idee mit dem konvertieren des Makros.
derArb
getting better


Verfasst am:
10. Jan 2012, 14:53
Rufname: derArb
Wohnort: Berlin

AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Hallo,
Du kannst ja hier auch eine abgespeckte Beispiel DB hochladen.
Lies auch Deine privaten Nachrichten (PN)

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
bobrock42
Anfänger ACCES, VBA


Verfasst am:
11. Jan 2012, 10:44
Rufname:

AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

So hat ein wenig gedaurt mit den benutzerrechten für den upload:

Die datenbank enthält das formular frmMonteure

in diesem befindet sich das mit makro funktionierende Listenfeld 'LBFilter'

unterhalb dieser liste ist die neue Liste 'LBFilter_VBA' in der ich die entsprechende Ereignisprozedur eingegeben habe, die jetzt noch den oben genannten Fehler ausgibt!



Datensatznavigaton.zip
 Beschreibung:
Office2010

Download
 Dateiname:  Datensatznavigaton.zip
 Dateigröße:  1.06 MB
 Heruntergeladen:  37 mal

derArb
getting better


Verfasst am:
11. Jan 2012, 12:09
Rufname: derArb
Wohnort: Berlin

AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Hallo,

z.B.
Code:
Private Sub Liste1023_AfterUpdate()
On Error GoTo SuchenNachDatensatz_Err

Me.Recordset.FindFirst "ID=" & Me!Liste1023
Me!Vorname.SetFocus
SuchenNachDatensatz_Exit:
    Exit Sub

SuchenNachDatensatz_Err:
    MsgBox Error$
    Resume SuchenNachDatensatz_Exit
End Sub

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
bobrock42
Anfänger ACCES, VBA


Verfasst am:
11. Jan 2012, 12:36
Rufname:


AW: NachDatensatzSuchen als VBA (Datensatznavigation) - AW: NachDatensatzSuchen als VBA (Datensatznavigation)

Nach oben
       Version: Office 2010

Funktioniert bestens!

Vielen Dank!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Datensatznavigation auf Formular mittels Schaltflächen 2 Krügi 108 04. Okt 2012, 12:51
Krügi Datensatznavigation auf Formular mittels Schaltflächen
Keine neuen Beiträge Access Formulare: Datensatznavigation über Tabulator, Pfeiltasten ausschalten 3 fenris83 594 12. Apr 2012, 16:34
fenris83 Datensatznavigation über Tabulator, Pfeiltasten ausschalten
Keine neuen Beiträge Access Formulare: Datensatznavigation ausblenden 5 denniso 4631 13. Feb 2010, 17:55
tobs5 Datensatznavigation ausblenden
Keine neuen Beiträge Access Formulare: Datensatznavigation über Primärschlüssel 2 bullmer 363 07. Jul 2009, 11:12
bullmer Datensatznavigation über Primärschlüssel
Keine neuen Beiträge Access Formulare: Datensatznavigation per Dropdown-Feld 2 404Error 999 11. Aug 2008, 09:28
404Error Datensatznavigation per Dropdown-Feld
Keine neuen Beiträge Access Formulare: Counter in der Datensatznavigation 6 HdW 778 13. März 2008, 17:50
Gast Counter in der Datensatznavigation
Keine neuen Beiträge Access Tabellen & Abfragen: Datenzugriffsseite / Datensatznavigation 2 Scarface1102 703 02. Aug 2007, 23:58
Willi Wipp Datenzugriffsseite / Datensatznavigation
Keine neuen Beiträge Access Formulare: Datensatznavigation auf zweitem Formular? 2 Frank W. 581 29. Mai 2007, 10:31
Frank W. Datensatznavigation auf zweitem Formular?
Keine neuen Beiträge Access Formulare: Beschriftung der Datensatznavigation anpassen 1 Felix_ 394 23. Mai 2007, 12:46
Nouba Beschriftung der Datensatznavigation anpassen
Keine neuen Beiträge Access Formulare: Datensatznavigation ohne "Neuer Datensatz" 2 Jemand 1205 11. Apr 2007, 08:43
Jemand Datensatznavigation ohne "Neuer Datensatz"
Keine neuen Beiträge Access Formulare: Deaktivieren der Datensatznavigation im Hauptformular 3 NewFritz 1011 04. Apr 2007, 23:07
jens05 Deaktivieren der Datensatznavigation im Hauptformular
Keine neuen Beiträge Access Formulare: Datensatznavigation 4 thw 610 31. Jul 2006, 09:25
thw Datensatznavigation
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks