Office: (Office 2010) Brauche Hilfe beim helfen

Helfe beim Thema Brauche Hilfe beim helfen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Abend zusammen Wozu dient denn dann das Kombifeld in "Hauptformular" Ursprünglich wollte ich da nach der entsprechenden Kategorie filtern.... Jetzt... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Tobi90, 17. August 2012.

Seite 4 von 5

TOBI90

Tobi90

Brauche Hilfe beim helfen

Abend zusammen

Wozu dient denn dann das Kombifeld in "Hauptformular"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ursprünglich wollte ich da nach der entsprechenden Kategorie filtern.... Jetzt kann man es nutzen um nicht wieder zum frm_Übersicht zurück gehen zu müssen, um eine neue Kategorie auszuwählen

Es gibt ein Form (Name unbekannt) mit n Buttons.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

frm_Übersicht

Diese öffnen das Form "frm_Hauptteil". Dabei soll ein "Parameter" übergeben werden, der
1. ein Kombi auf dem Form (frm_Hauptteil) auf diesen Wert einstellt, und
2. das Form (frm_Hauptteil) auf diesen Wert filtert.
Vielleicht sagt Tobi noch mal was dazu.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So siehts aus.... Ich muss erstmal all eure tollen Antworten und Überlegungen verdauen und das alles durch gehen. Aaaber ich bin nu hier *biggrin.gif*

Tobi90, 29. August 2012

#46
TOBI90

Tobi90

OT:
Ich sinniere gerade über den (ursprünglichen) Titel dieses Threads hier und stelle mir lebhaft vor, wie Tobi das, was hier abgeht, demjenigen, dem er helfen will, verklickert ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und ich frag mich wo das erlernte Wissen aus der Anfänger und Forgeschrittenen Schulung aus dem letzten Jahr hin ist... Ich hab mir das irgendwie etwas leichter vorgestellt...

Tobi, du verrennst dich da! Mit dem Filtern begibst du dich wie gesagt aufs Glatteis, weil der Filter jederzeit auch wieder entfernt werden kann.
Daher halte ich es für besser, dem Formular einen Parameter zu übergeben und beim Öffnen eine gefilterte Abfrage (-> SQL-Code) als Datenherkunft einzustellen. Du kannst natürlich auch gespeicherte Abfragen dafür einsetzen.

Beispiel:
Code:

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Me.RecordSource = "abf_FilterForm_" & Me.OpenArgs
' oder
Me.RecordSource = "Select ... From ... Where feld = " & Me.OpenArgs
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Okay dann über OpenArgs - ich werd es damit probieren....

Aber mal grundsätzlich zum Vorgehen.
1. Den Filterwert (1 - 13) würde ich per OpenArgs an das Formular übermitteln, um dann im aufgerufenen Form im Ereignis Form_Open sowohl den Wert ins Kombi zu schreiben als auch das Form zu filtern.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und

2. Warum eigentlich 13 Buttons? Nimm dafür doch auch ein Kombi, und in AfterUpdate öffnest Du das Formular.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schaut euch die 2 Bilder mal an

--------------------------
edit: Was is IMHO ????????

Tobi90, 29. August 2012

#47
ANNE BERG

Anne Berg

Hallo,

du willst also die Bearbeitung der einzelnen "Typen" aus dem Übersichtsformular auswählen und auch im Formular "Hauptteil" zwischen den Typen wechseln können? Das heißt, hier wurden die ganze Zeit zwei verschiedene Funktionalitäten munter durcheinander gemischt? Nun, mit den bisher gegebenen Tipps sollte sich das schon richten lassen...

PS:
IMHO = in my humble Opinion = meiner bescheidenen Meinung nach

Anne Berg, 29. August 2012

#48
TOBI90

Tobi90

Brauche Hilfe beim helfen

Hallo,

du willst also die Bearbeitung der einzelnen "Typen" aus dem Übersichtsformular auswählen und auch im Formular "Hauptteil" zwischen den Typen wechseln können?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja und nein... Ich weiß schon gar nicht mehr, warum ich das Kombifeld wollte... Jetzt ist es ein nettes Gimmick was aber nicht sein muss. Vielleicht ist es sogar besser, das raus zu nehmen?

Das heißt, hier wurden die ganze Zeit zwei verschiedene Funktionalitäten munter durcheinander gemischt? Nun, mit den bisher gegebenen Tipps sollte sich das schon richten lassen...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nunja bisher sollte ja immer auf dieses (vielleicht überflüssige) Kombifeld zugegriffen werden und mit einem Wert gefüllt werden... -> cmb_typauswahl

Hätte jetzt nicht gesagt, dass da so viel vermischt wurde.

PS:
IMHO = in my humble Opinion = meiner bescheidenen Meinung nach
__________________
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

achso *biggrin.gif*

Tobi90, 29. August 2012

#49
TOBI90

Tobi90

Um aber nochmal hierauf zurück zu kommen:

Aber mal grundsätzlich zum Vorgehen.
1. Den Filterwert (1 - 13) würde ich per OpenArgs an das Formular übermitteln, um dann im aufgerufenen Form im Ereignis Form_Open sowohl den Wert ins Kombi zu schreiben als auch das Form zu filtern.

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

DoCmd.OpenForm(FormName:="frm_Hauptteil",OpenArgs:="1")
'Rest wird ins aufgerufene Form verlagert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da scheint ein Fehler (Fehler beim Kompilieren. Syntaxerror) zu sein.
Habe das mit dem Button "Pflege" im Vba Code wie bisher rein geschrieben

Code:

Private Sub Open_Pflege_Click()
DoCmd.OpenForm(FormName:="frm_Hauptteil",OpenArgs:="1")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe mal probiert, ob er es ohne Klammern nimmt
Code:

DoCmd.OpenForm FormName:="frm_Hauptteil", OpenArgs:="1"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber das geht auch nicht

2. Warum eigentlich 13 Buttons? Nimm dafür doch auch ein Kombi, und in AfterUpdate öffnest Du das Formular.
Code:

Private Sub DeinNeuesKombi_AfterUpdate()
DoCmd.OpenForm(FormName:="frm_Hauptteil",OpenArgs:=Me!DeinNeuesKombi.Value)
End Sub
Das neue Kombi muss dann in Spalte 0 den Filterwert (1-13) enthalten.
hth
gruss ekkehard

@Hans-Christian
LOL
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also ich find das mit den Buttons schon gut und würd das so lassen.

Tobi90, 29. August 2012

#50
ANNE BERG

Anne Berg

Hätte jetzt nicht gesagt, dass da so viel vermischt wurde.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doch, es sind zwei verschiedene Herangehensweisen ob du aus einem anderen Formular heraus "agierst" oder ob du die Datenauswahl/Filterung in ein und demselben Formular abhandelst.

Anne Berg, 29. August 2012

#51
TOBI90

Tobi90

Ja das stimmt.

Tobi90, 29. August 2012

#52
BEAKER S.A.

Beaker s.a.

Brauche Hilfe beim helfen

Hallo Tobi,

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DoCmd.OpenForm FormName:="frm_Hauptteil", OpenArgs:="1"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

O.K., die Klammern waren überflüssig (wenn nicht sogar falsch).
So wie oben funzt das bei mir aber immer.
Was passiert denn bei Dir? Gar nichts? Fehlermeldung? Welche?

Also ich find das mit den Buttons schon gut und würd das so lassen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nachdem Du Dein Überichtsformular gezeigt hast, würde ich es auch so lassen.
Aber die Idee mit dem Kombi, ohne Rückkehr zur Übersicht, eine andere Kategorie
auszuwählen ist schon OK. Musst Du nur im AfterUpdate den alten Filter immer
erst löschen: Me.Filter = vbNullString.
gruss ekkehard

Beaker s.a., 29. August 2012

#53
TOBI90

Tobi90

Mit diesem Code
Code:

DoCmd.OpenForm FormName:="frm_Hauptteil", OpenArgs:="1"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kommt die Fehlermeldung
Laufzeitfehler '2501': Die Aktion OpenForm wurde abgebrochen

Nachdem Du Dein Überichtsformular gezeigt hast, würde ich es auch so lassen.
Aber die Idee mit dem Kombi, ohne Rückkehr zur Übersicht, eine andere Kategorie
auszuwählen ist schon OK. Musst Du nur im AfterUpdate den alten Filter immer
erst löschen: Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Me.Filter = vbNullString.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss ekkehard

Im AfterUpdate vom Kombifeld einfügen?

Tobi90, 29. August 2012

#54
BEAKER S.A.

Beaker s.a.

Hallo Tobi,
Da bin ich mir jetzt nicht sicher, woran das liegt.
Nach kurzem gurgeln gibt es dafür wohl mehrere Ursachen.
Am wahrscheinlichsten ist ein Fehler in Form_Open.
Vielleicht schreibst Du uns mal, wie der Code da jetzt aussieht.

Im AfterUpdate vom Kombifeld einfügen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du mit dem Kombi das Formular neu filtern willst,
muss doch in cmb_typauswahl_AfterUpdate sowas drinstehen
Code:

Me.Filter = vbNullString
Me.FilterOn = False
Me.Filter = "typ_ID_F = " & Me!cmb_typauswahl.Value
Me.FilterOn = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss ekkehard

Beaker s.a., 29. August 2012

#55
TOBI90

Tobi90

Das habe ich einfach übernommen

Code:

Private Sub Form_Open()
'Dies ist "frm_Hauptteil"
Me!cmb_typauswahl.Value = Val(Me.OpenArgs)
Me.Filter = "typ_ID_F = " & Val(Me.OpenArgs)
Me.Filter = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tobi90, 29. August 2012

#56
BEAKER S.A.

Beaker s.a.

Hallo Pahiti,
Sorry, es muss da in der letzten Zeile natürlich
Code:

Me.FilterOn = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

heissen. Was dann auch den Fehler vermeiden sollte *Smilie
gruss ekkehard

Beaker s.a., 29. August 2012

#57
TOBI90

Tobi90

Brauche Hilfe beim helfen

Pahiti?

Also erstmal das is alles an Code was im frm_Hauptteil steht:
Code:

Option Compare Database

Private Sub cmb_typauswahl_AfterUpdate()
Me.Filter = vbNullString
Me.FilterOn = False
Me.Filter = "typ_ID_F = " & Me!cmb_typauswahl.Value
Me.FilterOn = True
End Sub

Private Sub Form_Dirty(Cancel As Integer)
If Save.Visible = False Then
PicturePfeil.Visible = True
Save.Visible = True
End If
End Sub

Private Sub Next_dt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Alt
End Sub

Private Sub Form_Open()
Me!cmb_typauswahl.Value = Val(Me.OpenArgs)
Me.Filter = "typ_ID_F = " & Val(Me.OpenArgs)
Me.Filter = True
End Sub

Private Sub Save_dt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Alt
End Sub

Private Sub Alt()
PicturePfeil.Visible = False
Save.Visible = False
End Sub

Private Sub Vorher_dt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Alt
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und alles was an Code im frm_Übersicht steht:

Code:

Option Compare Database

Private Sub Open_allgemeineAngebote_Click()
Dim xlApp As Object, xlWB As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("\\N0005727\Ablagen\D72704-CoburgLand\gemeinsam\Netzwerk\Untergeordnet\Kinder und Familie.xlsx")
xlWB.Sheets("allgemeine Angebote").Activate
xlApp.Visible = True
End Sub

Private Sub Open_Erziehungshilfe_Click()
Dim xlApp As Object, xlWB As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("\\N0005727\Ablagen\D72704-CoburgLand\gemeinsam\Netzwerk\Untergeordnet\Kinder und Familie.xlsx")
xlWB.Sheets("Erziehungshilfe").Activate
xlApp.Visible = True
End Sub

Private Sub Open_Kinderbetreuung_Click()
Dim xlApp As Object, xlWB As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("\\N0005727\Ablagen\D72704-CoburgLand\gemeinsam\Netzwerk\Untergeordnet\Kinder und Familie.xlsx")
xlWB.Sheets("Kinderbetreuung").Activate
xlApp.Visible = True
End Sub

Private Sub Open_NWExcel_Click()
FollowHyperlink ("Alles.xlsm")
End Sub

Private Sub Open_Pflege_Click()
DoCmd.OpenForm FormName:="frm_Hauptteil", OpenArgs:="1"
End Sub

Private Sub Open_Schulen_Click()
Dim xlApp As Object, xlWB As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("\\N0005727\Ablagen\D72704-CoburgLand\gemeinsam\Netzwerk\Untergeordnet\Kinder und Familie.xlsx")
xlWB.Sheets("Schulen").Activate
xlApp.Visible = True
End Sub

Private Sub Open_Schwangerenberatung_Click()
Dim xlApp As Object, xlWB As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("\\N0005727\Ablagen\D72704-CoburgLand\gemeinsam\Netzwerk\Untergeordnet\Kinder und Familie.xlsx")
xlWB.Sheets("Schwangerenberatung").Activate
xlApp.Visible = True
End Sub

Private Sub Open_Sucht_Selbsthilfegruppen_Click()
FollowHyperlink ("Stadt Coburg - Wege zur Selbsthilfe - Selbsthilfegruppen - Übersicht")
End Sub

Private Sub Umschaltfläche46_Click()
FollowHyperlink ("Untergeordnet\Kinder und Familie.xlsx")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tobi90, 29. August 2012

#58
TOBI90

Tobi90

Hallo Pahiti,
Sorry, es muss da in der letzten Zeile natürlich
Code:

Me.FilterOn = True
heissen. Was dann auch den Fehler vermeiden sollte
gruss ekkehard
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Problem besteht immernoch... Ich klicke im frm_Übersicht auf den Button "Pflege" und es kommt die Fehlermeldung:
Laufzeitfehler '2501':
Die Aktion OpenForm wurde abgebrochen.

Gehe ich nun auf Debuggen wird folgender Code fokusiert
Code:

Private Sub Open_Pflege_Click()
DoCmd.OpenForm FormName:="frm_Hauptteil", OpenArgs:="1"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tobi90, 29. August 2012

#59
BEAKER S.A.

Beaker s.a.

Hallo Pahiti,
Erstmal; - hatte Pflege nicht die ID "9"?
Du musst bei jedem Button den Parameter OpenArgs
natürlich anpassen.
Ansonsten meinte ich einen Haltepunkt im Open-Ereignis
des Forms, das Du aufrufst. DoCmd.OpenForm öffnet auf
jeden Fall erstmal das angegebene Form. Wenn da dann
in Form_Open irgendwas passiert, womit Access (VBA)
nicht klar kommt, wird der Fehler 2501 geworfen.
Teste das noch mal.
Ich bin jetzt allerdings weg, und erst morgen Abend
(vielleicht am Nachmittag) wieder da.
gute nacht
ekkehard

Beaker s.a., 29. August 2012

#60

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 4 von 5

Thema:

Brauche Hilfe beim helfen

Die Seite wird geladen...

Brauche Hilfe beim helfen - Similar Threads - Brauche Hilfe helfen
Brauche mal Hilfe bei ja/nein auswahl
in Microsoft Excel Hilfe
Brauche mal Hilfe bei ja/nein auswahl: Hallo zusammen, ich habe folgendes Problem und ich bekomme es einfach nicht hin. Ich habe eine Spalte für erledigte Aufgaben bestehend aus "ja" in spalte I und aus "nein" in spalte J. Aktuell...
Brauche Hilfe bei einer Makro
in Microsoft Excel Hilfe
Brauche Hilfe bei einer Makro: Hey, ich bin leider absolut unbewandert in Makros, ich benötige jedoch für die Arbeit diese Liste :( Evtl kann mir ja wer helfen. Diese Tabelle habe ich im Internet gefunden und die passt gut zu...
DomAnzahl zwei Kriterien -Zeichensetzung - brauche kurz Hilfe
in Microsoft Access Hilfe
DomAnzahl zwei Kriterien -Zeichensetzung - brauche kurz Hilfe: Hallo zusammen, ich weiß es gibt diverse Einträge zur DomAnzahl mit zwei Kriterien, aber ich krieg das mit der Zeichensetzung nicht hin und in einer Accessabfrage kommt ja nur der sehr hilfreiche...
Viele Fragen, brauche Hilfe :(
in Microsoft Word Hilfe
Viele Fragen, brauche Hilfe :(: Hallo, ich bin das erste mal in diesem Forum unterwegs und erhoffe mir gerade hier hilfreiche Ratschläge. Ich versuche für meine Arbeit Dokumente zu erstellen und habe die meiste Erfahrung mit...
Brauche mal Hilfe bei mehreren Wenn und ider
in Microsoft Excel Hilfe
Brauche mal Hilfe bei mehreren Wenn und ider: Hallo was mache ich hier falsch, dass kein JA in Zelle A1 erscheint?
INDEX - Brauche bitte Hilfe
in Microsoft Excel Hilfe
INDEX - Brauche bitte Hilfe: Hallo, ich brauche bitte Eure Hilfe bei der INDEX Formel. Ich möchte eine Formel basteln, die mir anhand eines eingegebenen Wertes in E3 der Tabelle Eingabe..., untereinander alle Werte aus...
INDEX - Brauche bitte Hilfe
in Microsoft Excel Hilfe
INDEX - Brauche bitte Hilfe: Hallo alle zusammen, Ich komme bei der INDEX Formel nicht weiter und bitte euch um Hilfe. In meiner Beispieldatei möchte ich in der Tabelle Eingabe... untereinander alle Punkte aus Spalte C...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden