Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
SUCH-Formular
zurück: dynamisierter Tabelleninhalt weiter: Access 2002 mit Datensatzsperre + massen-update 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
crazyscorpion
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Jul 2005, 19:01
Rufname:

SUCH-Formular - SUCH-Formular

Nach oben
       

Hallo Leutz,
ich habe ein ganz ganz kleine problem.
es ist eigentlich ziemlich banal.

ich habe eine Tabelle "tbl_Kunden_Deutschland" und eine Tabelle "tbl_Kunden_Ausland". ich möchte nun in einem anderen Formular ungebundenes Feld, wo ich z.b. den Namen "Meier" eingeben und dann auf einen Button klicken wo er danach mir alle Kunden, die "Meier" heissen anzeigt und wenn ich anstatt "Meier" nur "Mei*" eingebe, dass er mir alle kunden anzeigt die mit "Mei" anfangen.
wenn ich danach auf diesen Kunden ein doppelklick mache dass sich ein pop-up fenster öffnet und mir alle daten zu diesem kunden anzeigt.

ich kriege das einfach nicht hin.

es wäre echt KLASSE wenn mir jemand helfen könnte

DANKEEEEEEEEEEEEEEEEEEEEEEE!!!!!!!!!!!
miquel
Gast


Verfasst am:
20. Jul 2006, 09:08
Rufname:

AW: SUCH-Formular - AW: SUCH-Formular

Nach oben
       

also erstmal:
ich kann mal alles machen bis zum popup (hab sowas realisiert mit einem bericht)
wir nennen das textfeld suchstr, dann die liste ergebnisse (für die ausgaben), button fuers suchen brauchen wir nicht, enter im textfeld genügt. nicht vergessen den feldern die ereignisprozeduren anzugleichen.
mach auch ne abfrage fuer beide tabellen, in der jeder wert steht und nenne sie: tbl_gesamt, dein formular heisst suchen_db
Code:
Option Compare Database
Option Explicit
Private sqlstatement As String

Public Sub form_load()
    Me!ergebnisse.RowSource = "tbl_gesamt"
End Sub

Private Sub optionen_AfterUpdate()
    search
End Sub

Private Sub show_Click()
    Dim frage As String
    Dim frm As Form, ctl As Control
    Dim uebergabe As Variant

    Set frm = Forms!suchen_db
    Set ctl = frm!ergebnisse
    If Me!ergebnisse.ListCount = 0 Then
        X = MsgBox("Keine Daten zum Ansehen markiert!", vbCritical, _
                   "Keine Daten markiert!")
        Exit Sub
    End If
    For Each uebergabe In ctl.ItemsSelected
        DoCmd.OpenReport "infos", acViewPreview, , _
                         "id_bauwerk= " & ctl.ItemData(uebergabe), _
                         acWindowNormal
    Next uebergabe
End Sub

Private Sub suchstr_AfterUpdate()
    search
End Sub

Private Sub abbrechen_click()
    DoCmd.Close
End Sub

Public Sub search()
    Dim optionen As String
   
    optionen = "spaltenname"
    If Me!suchstr = "" Then
        Me!suchstr = "*"
        Me!ergebnisse.Requery
    End If
    sqlstatement = "SELECT  * FROM [tbl_gesamt] " & _
                    "WHERE " & optionen & " Like '*" & Me!suchstr & "*';"
    Me!ergebnisse.RowSource = sqlstatement
    If Me!ergebnisse.ListCount = 0 Then
        X = MsgBox("Keine Daten mit Ihren Kriterien gefunden!", vbCritical, _
                   "Keine Daten gefunden!")
    End If
End Sub

Private Sub print_click()
    Dim frage As String
    Dim frm As Form, ctl As Control
    Dim uebergabe As Variant

    Set frm = Forms!suchen_db
    Set ctl = frm!ergebnisse
    If Me!ergebnisse.ListCount = 0 Then
        X = MsgBox("Keine Daten zum Drucken markiert!", vbCritical, _
                   "Keine Daten markiert!")
        Exit Sub
    End If
    frage = "Welche Qualität soll der Ausdruck haben?" & vbCr & _
            "1 --> Farbe, HighQual" & vbCr & _
            "2--> Schwarweiss, MidQual" & vbCr & "3 --> PDF"
    c_printer = InputBox(frage)
    Select Case c_printer
      Case 1
        Printer.PrintQuality = acPRPQMedium
        Set Application.Printer = Application.printers(1)
      Case 2
        Printer.PrintQuality = acPRPQLow
        Set Application.Printer = Application.printers(2)
        Printer.ColorMode = acPRCMColor
      Case 3
        Set Application.Printer = Application.printers(3)
        Printer.ColorMode = acPRCMColor
      Case Else
        Exit Sub
    End Select
    For Each uebergabe In ctl.ItemsSelected
        DoCmd.OpenReport "info", acViewNormal, , _
                         "id_bauwerk= " & ctl.ItemData(uebergabe)
    Next uebergabe
End Sub
viel vergnuegen, funzt bei mir mal wunderbar
Laubfrosch
Gast


Verfasst am:
17. Aug 2006, 14:36
Rufname:


AW: SUCH-Formular - AW: SUCH-Formular

Nach oben
       

hey, benutz die funktion und alles funktioniert supa

lg
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: Im Suchformular mit 1 Feld in 2 Spalten der DB Suchen. 2 Xia0 189 20. Nov 2009, 12:29
Xia0 Im Suchformular mit 1 Feld in 2 Spalten der DB Suchen.
Keine neuen Beiträge Access Tabellen & Abfragen: Suche in 2 ähnlichen Tabellen über 1 Suchformular 4 Caym 492 30. Jun 2009, 13:34
Caym Suche in 2 ähnlichen Tabellen über 1 Suchformular
Keine neuen Beiträge Access Formulare: Suchformular:datensatz mit dem naechstgelegenen Datum anzeig 0 Tobsel1 388 12. Sep 2007, 22:14
Tobsel1 Suchformular:datensatz mit dem naechstgelegenen Datum anzeig
Keine neuen Beiträge Access Formulare: Einfaches Suchformular für eine kleine DB 0 Dave28 695 09. Sep 2007, 20:54
Dave28 Einfaches Suchformular für eine kleine DB
Keine neuen Beiträge Access Formulare: Datensatz aus Suchformular auswählen --> neues Formular 9 Gast 793 21. März 2007, 11:27
Gast Datensatz aus Suchformular auswählen --> neues Formular
Keine neuen Beiträge Access Formulare: In Suchformular DS auswählen 3 Stefan1982 807 25. Feb 2007, 04:18
Willi Wipp In Suchformular DS auswählen
Keine neuen Beiträge Access Formulare: Aus Suchformular heraus Bearbeitungsformular öffnen 3 chrisi1002 1404 22. Feb 2007, 20:54
jens05 Aus Suchformular heraus Bearbeitungsformular öffnen
Keine neuen Beiträge Access Formulare: Suchformular mit Mehrfachwerten in einer Spalte 0 barzep 799 13. Feb 2007, 16:57
barzep Suchformular mit Mehrfachwerten in einer Spalte
Keine neuen Beiträge Access Formulare: Hilfe bei Suchformular (Suche Textfeld über ein 2. Formular) 0 fxsavini 487 13. Feb 2007, 10:38
fxsavini Hilfe bei Suchformular (Suche Textfeld über ein 2. Formular)
Keine neuen Beiträge Access Formulare: Suchformular 1 nathy84 591 08. Okt 2006, 10:53
Smilla Suchformular
Keine neuen Beiträge Access Formulare: suchformular mit bearbeiten 1 miquel 906 20. Jul 2006, 10:25
Gast suchformular mit bearbeiten
Keine neuen Beiträge Access Formulare: "Suchformular in 10 Minuten" - Erweiterung für Lis 2 biggybean 1211 21. Jun 2006, 11:18
biggybean "Suchformular in 10 Minuten" - Erweiterung für Lis
 

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