collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 130
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 3
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14808
  • stats Beiträge insgesamt: 76039
  • stats Themen insgesamt: 10231
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 933

Autor Thema: DS-Suche aus Hauptformular in Unterformular (Code vorhanden)  (Gelesen 13111 mal)

Offline oma

  • Moderator
  • Access Guru
  • *****
  • Beiträge: 4020
Re: DS-Suche aus Hauptformular in Unterformular (Code vorhanden)
« Antwort #15 am: Juli 30, 2010, 12:14:08 »
Hallo,

sorry, das war die alte Version; anbei die neue

Gruß Oma

[Anhang gelöscht durch Administrator]
nichts ist fertig!
 

Offline borst1

  • Newbie
  • Beiträge: 8
Re: DS-Suche aus Hauptformular in Unterformular (Code vorhanden)
« Antwort #16 am: Juli 30, 2010, 12:22:20 »
Zitat
Man nimmt sich der Sache an, denkt darüber nach, baut evt. ein kleines Beispiel, schnell ist mal eine 1/2 Stunde vergangen.
Und dann kommt u.U. die Nachricht: Haha, zu spät, habe schon eine andere Lösung.

kann ich sehr gut nachvollziehen. und daher gebe ich auch immer brav feedback wenn jemand so nett ist, sich meinem problem anzunehmen!


jetzt zu deiner zweiten beispieldatei:

Bei mir funktioniert das ganze einwandfrei! Superstark! Vielen Dank!
Sogar der von dir angesprochene Fall, dass wenn nach Teilstrings gesucht wird funktioniert bei mir fehlerlos (habs mal mit "Schmi" und "Krau" versucht und alle Schmidt und Krause werden brav gefunden!). Könnte das evtl. an der neueren Access Version liegen? (nur ne Vermutung ;) )


Jetzt würde ich gerne rein zum Verständnis nachfragen:
Private Sub Weitersuchen_Click()
    Dim strFind As String
  
    If mrs Is Nothing Then Exit Sub                        'zur Sicherheit ;-)
    With Me![frmKunden_UF].Form
        strFind = "NachName Like '*" & Me!Suchfeld & "*'"
          mrs.FindNext strFind

        If mrs.NoMatch Then                                    'nicht gefunden
            MsgBox "Der gesuchte Sachbearbeiter '" & Me!Suchfeld & _
                   "' wurde nicht gefunden", , "Das waren Alle?"
            mrs.Close: Set mrs = Nothing
            'Me!btnErsterAP.SetFocus
            'Me!btnNaechsterAP.Enabled = False
          Else                                                       'gefunden
          
          Me.Recordset.FindFirst "KNr = " & mrs!KNr
          !Nachname.SetFocus
          '.Recordset.FindFirst strFind
          .Recordset.FindNext strFind
        
        End If

    End With
End Sub

funktionert das ganze jetzt wirklich, "NUR", weil du die Reihenfolge des "Fokussetztens" und der FindNext Anweisung umgedreht hast? Ist es wirklich so einfach gewesen? ;)
 

Offline borst1

  • Newbie
  • Beiträge: 8
Re: DS-Suche aus Hauptformular in Unterformular (Code vorhanden)
« Antwort #17 am: Juli 30, 2010, 12:23:06 »
Hallo,

sorry, das war die alte Version; anbei die neue

Gruß Oma


das kann nicht die alte gewesen sein oma,
die hat nämlich bei mir schon funktioniert!  :o

[edit]

also nach sichtung der neuesten version von dir, sehe ich doch mehr unterschiede im code, als ich zuvor in der version sah. aber warum zum teufel hat die denn auch funktioniert?!

Fakt ist, auch die neuste läuft 1A und ist sauber.

Also: vielen Dank für deine Hilfe bei dieser Problemstellung!

Da mein erster Beitrag als Gast war kann ich für den Thread kein "Problem-gelöst-Häckchen" setzen oder?
« Letzte Änderung: Juli 30, 2010, 12:28:04 von borst1 »
 

Offline oma

  • Moderator
  • Access Guru
  • *****
  • Beiträge: 4020
Re: DS-Suche aus Hauptformular in Unterformular (Code vorhanden)
« Antwort #18 am: Juli 30, 2010, 13:51:34 »
Hallo,

anbei noch mal eine Lösung, in der nun alle Flüchtigkeiten beseitigt sein sollten (mal für verschiedene Fälle testen)

Die Lösung gegenüber der ehemaligen Lösung von Willi Wipp besteht in den angemerkten Zeilen:

Private Sub SuchenM_Click()
Dim strFind As String
  
    With Me!frmKunden_UF.Form
        Set mrs = CurrentDb.OpenRecordset(.RecordSource, dbOpenSnapshot)
        strFind = "NachName Like '*" & Me!SuchfeldMitarbeiter & "*'"
        mrs.FindFirst strFind
        
        If mrs.NoMatch Then
            MsgBox "Mitarbeiter '" & Me!SuchfeldMitarbeiter & "' nicht vorhanden"
        Else
            Me.Recordset.FindFirst "KNr = " & mrs!KNr
            .Recordset.FindFirst "MNr=" & mrs!MNr                'Hier ist die Änderung
            !Nachname.SetFoc
        End If
    End With
End Sub

Private Sub WeitersuchenM_Click()
Dim strFind As String
  
    If mrs Is Nothing Then Exit Sub
        With Me![frmKunden_UF].Form
            strFind = "NachName Like '*" & Me!SuchfeldMitarbeiter & "*'"
            
            mrs.FindNext strFind
          
            If mrs.NoMatch Then
                MsgBox "Mitarbeiter '" & Me!SuchfeldMitarbeiter & "' nicht mehr gefunden"
                mrs.Close: Set mrs = Nothing

            Else
                Me.Recordset.FindFirst "KNr = " & mrs!KNr
                .Recordset.FindFirst "MNr=" & mrs!MNr         ' Hier ist die Änderung
                !Nachname.SetFocus
             End If
        End With
End Sub


Vorher wurde doppelt FindFirst bzw FindNext aufgerufen, nun wird nach FindFirst bzw. FindNext im Hauptformular die Kundennummer und im Unterformular die Mitarbeiternummer mit Me.Recordset.FindFirst "KNr = " & mrs!KNr   bzw. mit  .Recordset.FindFirst "MNr=" & mrs!MNr die   "Treffer "angezeigt"

Teste mal ausgiebig und melde Dich mit Erfolg oder Misserfolg.

@Klaus: könnte das Suchen in Unterformularen evt. für ein Beispiel für unseren Download-bereich sein (nach entsprechender Verallgemeinerung)??

Gruß Oma




[Anhang gelöscht durch Administrator]
nichts ist fertig!
 

Offline borst1

  • Newbie
  • Beiträge: 8
Re: DS-Suche aus Hauptformular in Unterformular (Code vorhanden)
« Antwort #19 am: August 03, 2010, 16:06:33 »
Hallöchen,

nachdem deine vorherigen Verbesserungen schon fehlerfrei lauffähig bei mir waren, werde ich mir auch diesen code nochmals zu gemüte führen und ausgiebig testen. Das ganze aber erst morgen über Tag, also denke ich mal gibts frühestens nachmittags ne Antwort.

nochmals danke für deine Hilfe!


ps: beim suchen knopf

Zitat
Else
            Me.Recordset.FindFirst "KNr = " & mrs!KNr
            .Recordset.FindFirst "MNr=" & mrs!MNr                'Hier ist die Änderung
            !Nachname.SetFoc 'sollte wohl eher SetFocus sein oder? ;)
        End If
 

 

wieviel Zeilen VBA-Code pro DB

Begonnen von MonsterbieneBoard Access Programmierung

Antworten: 8
Aufrufe: 6804
Letzter Beitrag Juli 29, 2010, 21:33:07
von Hondo
Suche Button und Serienbrief über Access öffnen / ablegen

Begonnen von Muhkuh86Board Access-Hilfe

Antworten: 18
Aufrufe: 15658
Letzter Beitrag Mai 12, 2010, 11:38:08
von Muhkuh86
Summe im Bericht mit Code

Begonnen von T417Board Access Programmierung

Antworten: 10
Aufrufe: 10060
Letzter Beitrag Mai 12, 2010, 14:39:24
von T417
Syntaxfehler bei Anlegen eine neuen Datensatzes in UNterformular

Begonnen von GuidoBoard Formular

Antworten: 3
Aufrufe: 4614
Letzter Beitrag Mai 07, 2010, 17:53:33
von DF6GL
Unterformular: Tabellenansicht wechseln?

Begonnen von macgyverBoard Formular

Antworten: 5
Aufrufe: 8195
Letzter Beitrag Mai 18, 2010, 19:59:17
von macgyver

Advertisment / Werbung - Amazon Affiliate Links