Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
wieder problem beim maximieren
zurück: Ein Bild für jedes Mitglied weiter: 2 Hauptformulare miteinander verknüpfen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Babs
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. März 2004, 11:05
Rufname:

wieder problem beim maximieren - wieder problem beim maximieren

Nach oben
       

Hallo

Ich hab mal wieder ein Problem mit dem Maximieren. Das Problem sieht folgendermaßen aus:

Im Hintergrund ist mein Formular mit allen Datenbankeinträgen (LiteratureDatabaseForm) geöffnet, im Vordergrund ist das Suchformular (LiteratureSearch) geöffnet. Dieses LiteratureSearchFormulat hat 2 Command Buttoms, "Search" und "Cancel".

Wenn "Search" angeklickt wird, sollen die Suchergebnisse für die eingetragenen Kriterien in einem neuen Formular namens "LiteratureSearchResults" angezeigt werden. Dabei soll das "LiteratureSearchResults"-Formular maximiert werden.
DAS KLAPPT LEIDER NICHT!

Dasselbe gilt, wenn "Cancel" angeklickt wird. Hier soll das Suchformular einfach nur geschlossen werden und zurück zur LiteratureDatabaseForm gegangen werden. Auch das LiteratureDatabaseForm-Formular soll wieder maximiert sein.
AUCH DAS KLAPPT NICHT!

Komischerweise klappt beides schon, wenn vorher nichts eingegeben wird und somit die Meldung "Please enter a search criteria", d.h. wenn erst nichtseingegeben wird und dann mit "Search" gesucht oder "Cancel" angeklickt wird, dann klappt es.

Kann mir jemand helfen? das wäre super. hoffe meine Erläuiterungen sind nicht zu kompliziert. hier noch der Code fürs Suchformular"LiteratureSearch":
Code:
Option Compare Database

Private Sub Cancel_Click()
DoCmd.Close acForm, Screen.ActiveForm.Name
DoCmd.Maximize
        --> HIER KLAPPT WAS NICHT
End Sub

Private Sub Search_Click()

Dim anzbed As Byte, i As Byte
Dim SQLGes As String
Dim db As database
Dim Liste As DAO.Recordset
Static sql(1 To 11)

Me.Visible = False
    ' Suche nach beliebigen Kriterien
anzbed = 0
    ' Einlesen der Benutzereingaben und Verarbeitung in SQL-Form
   
If Not IsNull(Me!LiteratureID_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.LiteratureID) Like '" & Me!LiteratureID_ & "*')"
End If
If Not IsNull(Me!Category_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Category) Like '" & Me!Category_ & "*')"
End If
If Not IsNull(Me!Subsection_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Subsection) Like '" & Me!Subsection_ & "*')"
End If
If Not IsNull(Me!Project_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Project) Like '" & Me!Project_ & "*')"
End If
If Not IsNull(Me!Subproject_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Subproject) Like '" & Me!Subproject & "*')"
End If
If Not IsNull(Me!Journal_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Journal) Like '" & Me!Journal_ & "*')"
End If
If Not IsNull(Me!JournalNo_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((Literature database.JournalNo) Like '" & Me!JournalNo_ & "*')"
End If
If Not IsNull(Me!Publication_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Publication) Like '" & Me!Publication_ & "*')"
End If
If Not IsNull(Me!Author_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Author) Like '" & Me!Author_ & "*')"
End If
If Not IsNull(Me!Keywords_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Keywords) Like '" & Me!Keywords_ & "*')"
End If
If Not IsNull(Me!Link_) Then
    anzbed = anzbed + 1
    sql(anzbed) = "((LiteratureDatabase.Link) Like '" & Me!Link_ & "*')"
End If

Select Case anzbed
    Case 0      'keine Bedingung erfasst
        MsgBox "Please enter a search criteria"
        Me.Visible = True
        Exit Sub
    Case 1       'eine Bedingung erfasst
        SQLGes = sql(1)
    Case Else
        SQLGes = sql(1)
        For i = 2 To anzbed
            SQLGes = SQLGes & " AND " & sql(i)
        Next
End Select

SQLGes = "SELECT LiteratureDatabase.* FROM LiteratureDatabase WHERE (" & SQLGes & ");"
    'Testen, ob Datensätze vorhanden

Set db = CurrentDB
Set Liste = db.OpenRecordset(SQLGes, dbOpenSnapshot)

If Liste.RecordCount < 1 Then   'Suche erfolglos
    MsgBox "No results were found for your search", 48, "Search Result"
    Me.Visible = True
    SetFocus
Else                            'Suche erfolgreich
    DoCmd.Close acForm, "LiteratureDatabaseForm"
    DoCmd.Close acForm, "LiteratureSearch"
    DoCmd.OpenForm "LiteratureSearchResult", , , , , acWindowNormal
    DoCmd.Maximize
    --> HIER KLAPPTS WIEDER NICHT
    Forms!LiteratureSearchResult.RecordSource = SQLGes
End If

Liste.Close
db.Close

End Sub

Danke für eure Hilfe,

Grüße,
Babs
Willi Wipp
Moderator


Verfasst am:
09. März 2004, 11:58
Rufname:
Wohnort: Raum Wiesbaden


Re: wieder problem beim maximieren - Re: wieder problem beim maximieren

Nach oben
       

Hi Babs,

man muss nicht jedesmal ein neues Thema anfangen, wenn man zum gleichen Thema eine weitere Frage hat.
Bitte stell die Frage in Deinem Alten Thema noch einmal
(mit Zitat kannst du sie ja vorher hier kopieren).

Weiter gehts hier Maximieren

Dieses Thema ist wegen Doppelposting gesperrt!

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. 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 Formulare: Neue Userform auf zweitem Monitor maximieren 5 Jürgen67 330 29. Jul 2013, 10:40
mac_k Neue Userform auf zweitem Monitor maximieren
Keine neuen Beiträge Access Programmierung / VBA: Nach Schließen Bericht, Fenster maximieren 1 obbiwahn 797 17. März 2011, 20:33
Spiehler.nh Nach Schließen Bericht, Fenster maximieren
Keine neuen Beiträge Access Berichte: Bericht bei Aufruf maximieren (Scroll-Probleme) 0 Headshooter 287 16. Nov 2010, 00:04
Headshooter Bericht bei Aufruf maximieren (Scroll-Probleme)
Keine neuen Beiträge Access Formulare: kleines Formular nach maximieren doppelt zu sehen 2 vbaler_test 192 05. Okt 2010, 13:38
vbaler_test kleines Formular nach maximieren doppelt zu sehen
Keine neuen Beiträge Access Formulare: Fenster maximieren und verkleinern 2 derTheoretiker 2764 07. Mai 2010, 12:29
derTheoretiker Fenster maximieren und verkleinern
Keine neuen Beiträge Access Formulare: Pop-Up-Formular maximieren 4 schw4rzbeere 1891 18. Feb 2010, 18:09
schw4rzbeere Pop-Up-Formular maximieren
Keine neuen Beiträge Access Programmierung / VBA: Formular maximieren 3 Jack-Raiden 384 18. Feb 2010, 15:43
Charliebraun Formular maximieren
Keine neuen Beiträge Access Programmierung / VBA: Maximieren/ Unterformular Verknüpfung 1 kati110 384 22. Feb 2009, 13:04
KlausMz Maximieren/ Unterformular Verknüpfung
Keine neuen Beiträge Access Programmierung / VBA: Caption des Formulars und Form maximieren 4 derFuxx 1307 24. Okt 2008, 15:18
derFuxx Caption des Formulars und Form maximieren
Keine neuen Beiträge Access Programmierung / VBA: Minimieren/Maximieren eines bestimmten Formulars/Bericht 3 Faulenzer 1015 17. Sep 2008, 20:19
jens05 Minimieren/Maximieren eines bestimmten Formulars/Bericht
Keine neuen Beiträge Access Formulare: Problem mit Formular maximieren 3 projekt 499 17. Sep 2008, 10:10
JörgG Problem mit Formular maximieren
Keine neuen Beiträge Access Formulare: Probleme beim Maximieren 2 kai86 411 02. Sep 2008, 10:43
kai86 Probleme beim Maximieren
 

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