Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Problem: Suchformular drucken
zurück: keine doppelten einträge im listenfeld weiter: Befehlsschaltfläche einen Passwort zuordnen 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
chrisi1002
Gast


Verfasst am:
18. Apr 2007, 18:45
Rufname:

Problem: Suchformular drucken - Problem: Suchformular drucken

Nach oben
       Version: Office 2003

Hallo!

Ich habe ein Suchformular bei dem im Formularkopf einige Controls zur Filterung drinnen sind. Im Detailbereich werden die gefilterten Datensätze angezeigt.

Nun möchte ich gerne per Knopfdruck das Formular drucken, da jedoch am Ausdruck das ganze etwas anders Aussehen soll, habe ich mir ein zweites Formular gemacht, bei dem im Kopf nicht mehr die Controls, sondern nur mehr ein Textfeld "Suchkriterien" und der gesamte Hintergrund weiß ist.

Mit dieser Version, muss ich aber nun per VBA die gesamten Controls des Suchformulars durchgehen und in das Textfeld hineinschreiben, falls ein Kriterium überhaupt verwendet ist. Ist ziemlich umständlich das Ganze, war aber für mich jetz am leichtesten zu realisieren.
Nun möchte ich in einer Prozedur die ganzen Controls druchgehen und deren Inhalte überprüfen und ggf. hinzufügen.

Jetzt zu meiner Frage: ist es möglich von einem Textfeld per VBA auf die Zugehörige Beschriftung zuzugreifen. Damit ich praktisch in das Textfeld Bezeichnung + Wert hinzufügen kann.

Warum einfach wenns kompliziert auch geht ;)
Ich weiß das das mit einem Bericht eigentlich einfacher wäre...
JörgG
Access-Team


Verfasst am:
19. Apr 2007, 03:31
Rufname:
Wohnort: b. Dresden


AW: Problem: Suchformular drucken - AW: Problem: Suchformular drucken

Nach oben
       Version: Office 2003

Hallo,

ein eher ungewöhnliches Anliegen Wink

Warum blendest Du beim Drucken-Klick nicht einfach die leeren Controls aus?

Für alle Text-/Kombifelder die durchlaufen werden sollen, legst Du im Eigenschaftsfenster - Register Andere - Marke: "x" fest:
Code:
Private Sub SFDrucken_Click()
    Dim Ctl As Control, strKrit As String, varAlt As Variant, varNeu As Variant, i As Integer
   
   'Feldnamen+Werte aufrollen
    For Each Ctl In Me
        On Error Resume Next
        If InStr(1, Ctl.Tag, "y") > 0 And Nz(Ctl, "") <> "" Then
            strKrit = strKrit & "; " & Ctl.Name & " = " & Ctl
        End If
    Next Ctl
    strKrit = Mid(strKrit, 2)
   'kryptische Feldnamen austauschen
    varAlt = Array("abcDatum", "Feldname2", "Feldname3", "Feldname4")
    varNeu = Array("Datum",    "Wer",       "Wie",       "Was")
    For i = 0 To UBound(varAlt)
        strKrit = Replace(strKrit, varAlt(i), varNeu(i), 1, 1)
    Next i
    On Error GoTo 0
'Debug.Print strKrit
    DoCmd.OpenForm "DasDruckform", , , , , , strKrit
End Sub
varAlt enthält die alten Feldnamen die ersetzt werden sollen, varNeu die entsprechende Ersetzung, Die Reihenfolge der Namen ist eigentlich egal, dh das 1. Control kann im Array durchaus das Letzte sein.
Im "Druckform" Ereignis "beim Öffnen" schreibst Du das OpenArgs (enthält strKrit) in das Textfeld:
Code:
Private Sub Form_Open(Cancel As Integer)
    Me!Textfeld = Me.OpenArgs
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
chrisi1002
Gast


Verfasst am:
25. Mai 2007, 16:19
Rufname:

AW: Problem: Suchformular drucken - AW: Problem: Suchformular drucken

Nach oben
       Version: Office 2003

danke für deine antwort!

soweit ich das sehe, ersetzt du alle Feldnamen "händisch" durch eine Bezeichnung.
ist es auch möglich, gleich statt dem feldnamen den Text aus dem Label des Controls zu verwenden. soll heißen ich hab ein control tbName, label dazu ist "Vorname" und nun möchte ich einfach den Text aus dem Label für das Kriterium verwenden.
JörgG
Access-Team


Verfasst am:
25. Mai 2007, 18:43
Rufname:
Wohnort: b. Dresden

AW: Problem: Suchformular drucken - AW: Problem: Suchformular drucken

Nach oben
       Version: Office 2003

Hallo,

auf den Text eines Labels kannst Du mit Me!Bezeichnungsfeld.Caption ="ABC", bzw Variable = Me!Bezeichnungsfeld.Caption zugreifen.

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Willi Wipp
Moderator


Verfasst am:
25. Mai 2007, 23:57
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem: Suchformular drucken - Re: Problem: Suchformular drucken

Nach oben
       Version: Office 2003

Hi Ihr Zwei,

solange das Bezeichnungsfeld noch mit den Textfeld verbunden ist, geht es auch so
Code:
    Debug.Print Me!Textfeld.Controls(0).Caption

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
chrisi1002
Gast


Verfasst am:
29. Mai 2007, 18:40
Rufname:

AW: Problem: Suchformular drucken - AW: Problem: Suchformular drucken

Nach oben
       Version: Office 2003

danke für die antworten!

ein problem besteht jetzt nocht. i muss noch unterscheiden um welche art von control es sich handelt, da ich noch eine checkedlistbox und radiobuttons drinnen habe.

wie kann ich den typ des controls herausfinden?
Willi Wipp
Moderator


Verfasst am:
29. Mai 2007, 18:44
Rufname:
Wohnort: Raum Wiesbaden

Re: Problem: Suchformular drucken - Re: Problem: Suchformular drucken

Nach oben
       Version: Office 2003

Hi Ihr chrisi1002,

Das kann man mit der Eigenschaft ControlType ermitteln
Code:
            Select Case ctl.ControlType
              Case acComboBox, acListBox, acTextBox
                Debug.Print "Kombinations-, Listen- oder Textfeld"
            End Select

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
chrisi1002
Gast


Verfasst am:
29. Mai 2007, 19:01
Rufname:


AW: Problem: Suchformular drucken - AW: Problem: Suchformular drucken

Nach oben
       Version: Office 2003

vielen dank für die rasche antwort!
echt super eure hilfsbereitschaft.
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: Artikelverwaltung mit Bestellung Drucken und Speichern 12 blackknights 1013 07. Jul 2009, 06:19
karl03 Artikelverwaltung mit Bestellung Drucken und Speichern
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 Tabellen & Abfragen: prob beim drucken 6 jhaustein 295 04. Sep 2008, 20:41
jhaustein prob beim drucken
Keine neuen Beiträge Access Tabellen & Abfragen: Eigenschaftenblatt drucken 3 CyberKater 1415 20. Mai 2008, 10:51
Willi Wipp Eigenschaftenblatt drucken
Keine neuen Beiträge Access Tabellen & Abfragen: Pivot Tabelle drucken 1 FlorianWein 4138 27. Jul 2007, 12:40
datroc Pivot Tabelle drucken
Keine neuen Beiträge Access Tabellen & Abfragen: Drucken der Datenbank Struktur? 2 KleinerPrinz 4255 15. Jul 2006, 22:22
KleinerPrinz Drucken der Datenbank Struktur?
Keine neuen Beiträge Access Tabellen & Abfragen: Suchformular (das eine Abfrage generiert) 4 chris1337 3727 13. Apr 2006, 13:08
chris1337 Suchformular (das eine Abfrage generiert)
Keine neuen Beiträge Access Tabellen & Abfragen: Verschiedene Fragen zum Drucken 0 F@ke 600 10. Apr 2005, 17:04
F@ke Verschiedene Fragen zum Drucken
Keine neuen Beiträge Access Formulare: Inhalt nach Drucken löschen! 1 David_Jentsch 398 31. Jan 2005, 16:44
jogi Inhalt nach Drucken löschen!
Keine neuen Beiträge Access Formulare: Datensatz(e) makieren und drucken 2 Marja 585 20. Jan 2005, 11:29
Marja Datensatz(e) makieren und drucken
Keine neuen Beiträge Access Formulare: Hintergrund nicht drucken? 2 degener 912 16. Dez 2004, 15:03
Willi Wipp Hintergrund nicht drucken?
 

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