Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zeile in Suchergebniss doppelklicken - Sprung zum Datensatz
zurück: Datensatzauswahl mit Kombinationsfeld weiter: Datensatzherkunft übergeben 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
WKLeistender
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jun 2008, 08:54
Rufname:

Zeile in Suchergebniss doppelklicken - Sprung zum Datensatz - Zeile in Suchergebniss doppelklicken - Sprung zum Datensatz

Nach oben
       Version: Office 2003

Hallo Erst mal

Schiebe hier dienst in der CH-Armee und habe die Aufgabe gefasst eine Datenbank zu erweitern. Leider bin ich nicht so VBA-Erfahren - dass heisst ich kann den Code zum teil lesen und adaptieren, mir schreiben habe ich aber meine liebe mühe. Villeicht hat ja jemand Lust mir ein bisschen unter die Arme zu greifen Smile

FrmHauptmaske - Datensatzherkunft: tblPersonen
- Formularkopf - Datensatznavigator mit den Wichtigsten Angaben wie Name etc.
- Formulardetail - Register mit:
- RegSuche - Suchfunktion über mehrere Spalten der Abfrage AbfPersonen
- RegPerson - Detaillierte Angaben zur Person
- RegKommunikation - ...

Für die Suche verwende ich folgenden Code
Code:
Private Sub TxtSuchfeld_Change()
On Error GoTo Err_TxtSuchfeld_Change
    Dim sSuchbegriff As String
    Dim sSQL As String
    Dim I As Integer
    Dim Pos1 As Integer
   
    sSuchbegriff = Trim$(TxtSuchfeld.Text)
    If sSuchbegriff = "" Then Exit Sub
    sSQL = "SELECT Name, Vorname, Departement " & _
             "FROM AbfTblPerson  " & _
            "WHERE Name " & _
              "AND "
    I = 0
    Pos1 = InStr(sSuchbegriff, " ")
    While Pos1 > 0
        I = I + 1
        sSQL = sSQL & "[Name] & [Vorname] & [Departement] Like '*" & _
                                     Left$(sSuchbegriff, Pos1 - 1) & "*' AND "
        sSuchbegriff = Right$(sSuchbegriff, Len(sSuchbegriff) - Pos1)
        Pos1 = InStr(sSuchbegriff, " ")
    Wend
    sSQL = sSQL & "[Name] & [Vorname] & [Departement] Like '*" & _
                                                      sSuchbegriff & "*' " & _
         "ORDER BY Name DESC; "
    Me!TxtSuchergebniss.RowSource = sSQL
    Me!TxtSuchergebniss.Requery
    'Me!TxtSuchfeld.SetFocus
Exit_TxtSuchfeld_Change:
    Exit Sub
Err_TxtSuchfeld_Change:
    MsgBox Err.Description
    Resume Exit_TxtSuchfeld_Change
End Sub
nun würde ich gerne im RegSuche im Suchergebniss (txtSuchergebniss) einen der gefunden Datensätze doppelklicken. Dieser sollte dann im FrmHauptmaske als aktueller Datensatz ausgewählt sein, so dass ich in RegPerson etc die Daten anschauen, abänder etc. kann.

Ich komm nicht dahinter wie ich das bewerkstelligen soll?
Will mir jemand helfen?

P.S. Wer Rechtschreibfehler findet darf Sie behalten

Grüsse aus der CH - WKLeistender
WKLeistender
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jun 2008, 10:47
Rufname:


AW: Zeile in Suchergebniss doppelklicken - Sprung zum Datens - AW: Zeile in Suchergebniss doppelklicken - Sprung zum Datens

Nach oben
       Version: Office 2003

Habs selber rausgefunden 8)
Code:
Private Sub TxtSuchergebniss_DblClick(Cancel As Integer)
    Dim suchSQL As String
   
    suchSQL = "SELECT * FROM [tblPerson] " & _
               "WHERE [PersonID] = " & Me!TxtSuchergebniss.Column(0)
    Me!TxtSuchergebniss.RowSourceType = "Table/Query"
    Me!TxtSuchergebniss.RowSource = suchSQL
    Me.Recordset.FindFirst "PersonID = " & Me!TxtSuchergebniss.Column(0)
End Sub

Danke trotzdem
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 Tabellen & Abfragen: Neuer Datensatz trotz aktivem Filter 2 pukamon 595 17. Nov 2005, 10:48
pukamon Neuer Datensatz trotz aktivem Filter
Keine neuen Beiträge Access Tabellen & Abfragen: Neuer Datensatz in Access 6 Heinz-Erich 1220 02. Okt 2005, 20:09
Gast Neuer Datensatz in Access
Keine neuen Beiträge Access Tabellen & Abfragen: unlöschbaren Datensatz erstellen 1 Vincent_Vega 899 15. Aug 2005, 21:45
stpimi unlöschbaren Datensatz erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld, automatisch erster Datensatz markieren 1 Gast 2958 21. Jun 2005, 11:54
rita2008 Listenfeld, automatisch erster Datensatz markieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz über Formular suchen 3 Sandnet 2166 10. Jun 2005, 10:52
Dalmatinchen Datensatz über Formular suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Reduzierung mehrerer Datensätze auf einen Datensatz 2 Pulldown 819 03. Jun 2005, 09:32
Pulldown Reduzierung mehrerer Datensätze auf einen Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz automatisch kopieren??? 0 Edelschnitt 701 11. Mai 2005, 19:41
Edelschnitt Datensatz automatisch kopieren???
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügeabfrage soll nur einen Datensatz verschieben 2 Quamsman 1025 08. März 2005, 15:23
Quamsman Anfügeabfrage soll nur einen Datensatz verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info 2 Steve 914 14. Jan 2005, 00:43
Steve Aus 1 Datensatz mit 10 Infos mache 10 Datensätze à 1 Info
Keine neuen Beiträge Access Tabellen & Abfragen: 1. Zeile in der Tabelle sperren ? 3 Marsi 598 13. Dez 2004, 11:47
lothi 1. Zeile in der Tabelle sperren ?
Keine neuen Beiträge Access Tabellen & Abfragen: Bei der Aktualisierung eines Tabellenwertes neuen Datensatz 6 zheng 810 07. Dez 2004, 22:35
zheng Bei der Aktualisierung eines Tabellenwertes neuen Datensatz
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile der Dateneingabe (*) in einem Formular verschieben 2 Albertus 790 08. Okt 2004, 09:17
Albertus Zeile der Dateneingabe (*) in einem Formular verschieben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum